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)