dim name,pwd
name=request.form("user")
pwd=request.form("pwd")
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data\bb.mdb")
rs=conn.execute("select * from user where name="&name&" and pwd="&pwd&"")
if rs.eof then
response.write"對不起沒有此用戶。或是您的密碼輸入有誤===<a href=default.asp>返回</a>==="
else
ke=""&rs("oskey")&""
session("nana")=name
session("keke")=ke
response.Redirect("default.asp")
end if

name=request.form("user")
pwd=request.form("pwd")
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data\bb.mdb")
set rs=createObject("adodb.recordset")
sql="select * from users where name='"&name&"' and pwd='"&pwd&"'"
if rs.recordcount<1 then
response.write "不对起,没有此用户,或是您的密码输入有误===< a href="default"></a>==""
else
ke=""&rs("oskey")&""
session("nana")=name
session("keke")=ke
response.Redirect("default.asp")
end if

注意:表名不用用关键字:user

[此贴子已经被作者于2007-11-14 0:57:01编辑过]