ASP常用的函數
2024-05-04 10:59:03
供稿：網友
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)
