您正在查看 "默认分类" 分类下的文章 2008-07-07 11:14 转自:http://www.9asp.com.cn
防刷新，好用
<%
Dim lngVisitorNumber '保存来访者数量
On Error Resume Next
lngVisitorNumber = 0
Set conn_cun = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counters.mdb")
conn_cun.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" |
2008-07-05 11:21 转自:http://www.9asp.com.cn
<%
"#######以下是一个类文件，下面的注解是调用类的方法################################################
"# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用
"# Access 数据库类
"# CreateDbFile 建立一个Access 数据库文件
"# CompactDatabase 压缩一个Access 数据库文件
"# 建立对象方法:
"# |
2008-06-20 11:05 <%@ LANGUAGE = VBScript %>
<html>
<title>
生成随机字符串
</title>
<body>
<%
Function PC_key(digits)
'定义并初始化数组
dim char_array(80)
'初始化数字
For i = 0 To 9
char_array(i) = CStr(i)
Next
'初始化大写字母
For i = 10 To 35
|
2008-03-25 14:55 <%
''''''''''''''''''''''''
'ASP通用防注入代码
'您可以把该代码COPY到头文件中.也可以单独作
'为一个文件存在,每次调用使用
'作者:y3gu - 2005-7-29
'''''''''''''''''''''''''''''''''
Dim GetFlag Rem(提交方式)
Dim ErrorSql Rem(非法字符)
Dim RequestKey Rem(提交数据)
Dim ForI Rem(循环标记)
ErrorSql = "'~;~and~(~)~exec~update~count~*~%~chr~
mid~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开)
E |
2008-01-21 15:53 2008-01-17 14:22 dim fso,yexj00,s
s=0
set fso=createobject("Scripting.FileSystemObject") '声明fso对象
set yexj00=fso.GetFolder("C:\ye\") '获取文件夹对象,赋于yexj00
for each i in yexj00.files '循环玫举yexj00文件夹对象下的所有子集,即文件.
if fso.GetExtensionName(i)="cur" or fso.GetExtensionName(i)="ani" then '如果扩展名为cur或ani才执行下面的操作,否则不操作
s=s+1 's加1,此时s为数值
fso.GetFile(i).name=CStr(s)+"."+fso.GetExtensionN |
2008-01-12 20:44 <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<title> 最简单的在线编辑器 </title>
<style>
body{font-size:12px;}
#edit,#view{border:1px solid red;width:100%;height:200px;overflow-y:auto;margin-bottom:10px;}
#view{border-color:#ddd;}
</style>
</head>
<body>
最简单的在线编辑器， only for ie
<div id="edit" contenteditable="true |
2008-01-12 20:28 ''=======================================================================
'' 函数名:FenYe(url,pageCount,recordCount,curPage,cssstyle) *
'' 作者:Rock E_Mail:mh_rock@163.com
'' 功能:分页 |
2008-01-12 20:14 2个通用的ASP分页方法，供大家参考！
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dim currentpage '定义当前页
dim filename '文件名
Const MaxPerPage=20 '每页显示的记录个数
dim totalnumber '记录总数
filename="showpages.asp"
totalnumber=200 '设置记录总数为200
if not isempty(request("page")) then
|
2008-01-12 20:03 210.通过style来控制隔行显示不同颜色
<style>
tr{
bgcolor:expression(this.bgColor=((this.rowIndex)%2==0 )? 'white' : 'yellow');
}
</style>
<table id="oTable" width="100" border="1" style="border-collapse:collapse;">
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> |
| | |
