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
