<% 
dim db 
db="dbms.mdb"

‘****************************************************************** 
‘执行sql语句，不返回值,sql语句最好是如下： 
‘update 表名 set 字段名=value,字段名=value where 字段名=value 
‘delete from 表名 where 字段名=value 
‘insert into 表名 (字段名,字段名) values (value,value) 
‘****************************************************************** 
Sub NoResult(sql) 
dim conn 
dim connstr 
Set conn = Server.CreateObject("ADODB.Connection") 
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") 
conn.Open connstr 
conn.execute sql 
conn.close 
set conn=nothing 
End Sub

‘******************************************************************* 
‘执行select语句，返回recordset对象。该对象只读。也就是不能更新 
‘******************************************************************* 
Function Result(sql) 
dim conn 
dim connstr 
dim rcs 
Set conn = Server.CreateObject("ADODB.Connection") 
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") 
conn.Open connstr 
Set rcs = Server.CreateObject("ADODB.Recordset") 
rcs.open sql,conn,1,1 
set Result = rcs 
End Function

‘******************************************************************* 
‘ 弹出对话框 
‘******************************************************************* 
Sub alert(message) 
message = replace(message,"‘","\‘") 
Response.Write ("<script>alert(‘" & message & "‘)</script>") 
End Sub

‘******************************************************************* 
‘ 返回上一页，一般用在判断信息提交是否完全之后 
‘******************************************************************* 
Sub GoBack() 
Response.write ("<script>history.go(-1)</script>") 
End Sub

‘******************************************************************* 
‘ 重定向另外的连接 
‘******************************************************************* 
Sub Go(url) 
Response.write ("<script>location.href(‘" & url & "‘)</script>") 
End Sub

‘******************************************************************* 
‘ 把html标记替换 
‘*******************************************************************

function htmlencode2(str) 
dim result 
dim l 
if isNULL(str) then 
htmlencode2="" 
exit function 
end if 
l=len(str) 
result="" 
dim i 
for i = 1 to l 
select case mid(str,i,1) 
case "<" 
result=result+"&lt;" 
case ">" 
result=result+"&gt;" 
case chr(13) 
result=result+"<br>" 
case chr(34) 
result=result+"&quot;" 
case "&" 
result=result+"&amp;" 
case chr(32) 
‘result=result+"&nbsp;" 
if i+1<=l and i-1>0 then 
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then 
result=result+"&nbsp;" 
else 
result=result+" " 
end if 
else 
result=result+"&nbsp;" 
end if 
case chr(9) 
result=result+" " 
end function