一个简单用户登陆界面
第一个界面是:sub.html
<html>
<head>
<title>升势资讯网</title>
<body>
<form name="form1" method="post" action="sub.asp">
<p> 管理员:
<input type="text" name="UserID" size="25" maxlength="20">
密 码:
<input type="text" name="Pass" size="12" maxlength="20">
<input type="submit" name="Submit" value="提交">
</p>
</form>
</body>
</html>
第二个界面是:sub.asp
<%@ language=vbscript%>
<% option explicit %>
<html>
<head>
<title>
</title>
</head>
<body>
<%
dim user
dim pass
user=Request.From("UserID")
if user="" then
response.redirect "err1.htm"
response.end
end if
pass=request.from("Pass")
if pass="" then
response.redirect "err2.htm"
response.end
end if
file=server.mappath("access")
set conn=server.createobject("adodb.connection")
dr="driver={microsoft access driver (*.mdb)};dbq="&file
conn.open dr
set rs=server.createobject("adodb.recordset")
sql="select * from where name='"&user&"' and password='"&pass&"'"
rs.open sql
if not rs.eof then
reponse.redirect "login.asp"
else
response.write "err3.htm"
end if
%>
</body>
</html>
不知为什么不能实现