ASP常用的函数

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)

result=result+"<br>"

case chr(34)

result=result+"""

case "&"

result=result+"&"

case chr(32)

'result=result+" "

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+" "

else

result=result+" "

end if

else

result=result+" "

end if

case chr(9)

result=result+" "

case else

result=result+mid(str,i,1)

end select

next

htmlencode2=result

end function
'*******************************************************************

' 检查sql字符串中是否有单引号，有则进行转化

'*******************************************************************

function CheckStr(str)

dim tstr,l,i,ch

str = Trim(str)

l=len(str)

for i=1 to l

ch=mid(str,i,1)

if ch="'" then

tstr=tstr+"'"

end if

tstr=tstr+ch

next

CheckStr=tstr

end function

%>