2005-12-29 10:33
这些到MSDN里就可以查到的吧
2005-12-30 09:24
2005-12-30 10:20
这个问题并不是很难觖决,你还是看一下有关sql查询语句,看懂了,就OK了
2005-12-31 09:04
2006-01-04 12:30
2006-01-05 19:29
2006-01-07 11:13
Dim Rp As Response
Dim Rq As Request
Dim Ap As Application
Dim Sr As Server
Dim Sn As Session
Public Sub OnStartPage(mysc As ScriptingContext) 'ScriptingContent ' ObjectContext
Set Rp = mysc.Response
Set Rq = mysc.Request
Set Sr = mysc.Server
Set Ap = mysc.Application
Set Sn = mysc.Session
End Sub
Public Sub OnEndPage()
Set Rp = Nothing
Set Rq = Nothing
Set Sr = Nothing
Set Ap = Nothing
Set Sn = Nothing
End Sub
Dim conn,rs,connstr
connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Sr.MapPath("data.mdb")
Set Conn = Sr.CreateObject("Adodb.Connection")
conn.open connstr
Set Rs = Sr.CreateObject("Adodb.RecordSet")
Dim sql
sql="select * from [user] where name='" & Rq("name") & "'"
rs.open sql,conn,1,1
If rs.eof then
rp.write("找不到该用户")
End If
set rs=nothing
set conn=nothing
rp.redirect "main.asp"
[此贴子已经被作者于2006-1-9 20:28:59编辑过]

2006-01-09 20:29