用户登录
[原创]用户登录
我想做一个像QQ一样的介面，第一步就是用户登录，我想用一个数据库来验证用户名和密码，就是不知道怎么把数据库中的用户名和密码提取出来存放在两个变量中，，还请大侠帮帮忙，。谢了，我用的是软件是： visual studial.NET 中的visual basic.NET做的，
2005-12-29 10:33
2005-12-30 09:24
2005-12-30 10:20
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
zrXZvxHl.rar