还是ASP问题

来源：百度知道 编辑：UC知道 时间：2024/07/14 06:37:13
conn.asp:
<%
@language=vbscript
Set Myconn=Server.CreateObject("ADODB.Connection")
Myconn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/db.mdb")
%>
login.asp
<!--#INCLUDE FILE="conn.asp" -->
<%
dim userid
dim userpws
dim flag
username=Request.Form("pwd")
strsql="Select * From [user] where userid='"&Request.Form("user")&"'"

set rs=Myconn.execute(strsql)
if rs.EOF and rs.bof then
response.write("<li>对不起，您不是本班成员!</a>！")
elseIf userpwd<>rs("password") then
response.write("密码错误!")
else
response.cookies("class061")("cookuser")=userid
response.cookies("class061")("cookpwd")=userpwd
response.write("登陆成功!")

end if

conn.asp:
<%
@language=vbscript
Set Myconn=Server.CreateObject("ADODB.Connection")
Myconn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/db.mdb")
%>
login.asp
<!--#INCLUDE FILE="conn.asp" -->
<%
dim userid --userid 是什么东东?
dim userpws
dim flag
假设提交上来的表单验证用户的数据是username,密码是password,数据库中字段用户名一项是userid
userid=Request.Form("username")
userpws=request.form("password")
strsql="Select * From [user] where userid='"&username&"'"
set rs=Myconn.execute(strsql)
if rs.EOF and rs.bof then
response.write("<li>对不起，您不是本班成员!</a>！")
elseIf trim(userpwd)<>trim(rs("password")) then
response.write "密码错误!"
else
response.cookies("class061")("cookuser")=userid
response.cookies