ASP常用的函数，希望能用的着。
<%
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+<
case >
result=result+>
case chr(13)