杭州交通信息网法规制度带有:ASP表单的后面改是？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/13 03:44:38
<html>
<head>
<title>用户登录</title>
</head>
<body>
<form action="page1.asp" method="post">
用户名：<input type="text" name="user" style="width: 80px" />
密码：<input type="text" name="pass" style="width: 80px" />
<input type="submit" name="login" value="提交" />
</form>
</body>
</html>
但是这个表单不能判断真假,我希望能够判断真假,再进入page1.asp
然后有人告诉我了再爬page1.asp的内容里在问头做判断
请问怎么判断
那个人给了我
<%
%>
<html>
</html>
但是我ASP基础，希望大虾们指导一下
我希望要有多组用户名和密码
不加悬赏分不给，嘿嘿
dim sql,rs
dim username,password,CheckCode
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
CheckCode=replace(trim(Request("CheckCode")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>验证码不能为空！</li>"
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你登录时间过长，请重新返回登录页面进行登录。</li>"
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
end if
if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from Admin where password='"&password&"'and username='"&username&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
if password<>rs("password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs.update
session.Timeout=SessionTimeout
session("AdminName")=rs("username")
session("Aleave")="check"
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "Default.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
这段代码是一个验证程序，自己按需要改吧。
和你的不相同的在于它有一个验证码
设计思路是连接数据库
调入数据
做判断
得出结果