请教一个问题!
日期：2009-01-13 浏览次数：21059 次
（问题就是从第一个登陆界面无法成功登陆，显示页
面三！）
1.ASP
<HTML>
<head>
<title>请您输入您的用户名及密码！</title>
</head>
<body bgcolor="#ffff00" text="#FFFFFF">
<form name=form method=post
action=2.htm>
<tr>
<td
background="../bj/74.gif" colspan="2"
height="25">
<div align="center"
class="13white">会员登录</div>
</td>
</tr>
<tr>
<td width="41%" height="30">
会员ID号： </td>
<td width="59%" height="30">
<input type=text
name=username2 size=15>
</td>
</tr>
<tr>
<td width="41%"> 密 码
：</td>
<td width="59%">
<input type=password
name=password2 size=15>
</td>
</tr>
<tr>
<td colspan="2" height="37">
<div align="center">
<input type=submit
name=Submit2 value=登录>
<input type=reset
name=reset2 value=重写>
</div>
</td>
</tr>
</body>
</HTML>
2.ASP
<%@language=vbscript%>
<%
Function checkpassword(name,password)
conn="driver={microsoft access driver
(*.mdb)};dbq="&server.mappath("moneyhy.mdb")
sql="select * from moneyhy where
idname='"&name&"' and pwd='"&password&"'"
Set rs=server.createobject
("adodb.recordset")
rs.open sql,conn
If rs.eof then
checkpassword=false
Else
checkpassword=true
End If
End Function
%>
<%
If isempty(session("passed")) then
session("passed")=false
session("vipusername")=request.form("username"
)
session("vippassword")=request.form("password"
)
Dim n,p
n=session("vipusername")
p=session("vippassword")
If n="" or p="" then
response.write "用户名或密码不能为空,请填完
整!<a href=../../history.back 1>返回</a>"
elseif not checkpassword(n,p) then
response.write "用户名或密码不正确,请重新输
入!<a href=../../history.back 1>返回</a>"
else
session("passed")=true
End If
if session("passed")=true then
response.redirect"3.htm"
End If
%>
3.ASP
<HTML>
<head>
<title>登陆成功</title>
面三！）
1.ASP
<HTML>
<head>
<title>请您输入您的用户名及密码！</title>
</head>
<body bgcolor="#ffff00" text="#FFFFFF">
<form name=form method=post
action=2.htm>
<tr>
<td
background="../bj/74.gif" colspan="2"
height="25">
<div align="center"
class="13white">会员登录</div>
</td>
</tr>
<tr>
<td width="41%" height="30">
会员ID号： </td>
<td width="59%" height="30">
<input type=text
name=username2 size=15>
</td>
</tr>
<tr>
<td width="41%"> 密 码
：</td>
<td width="59%">
<input type=password
name=password2 size=15>
</td>
</tr>
<tr>
<td colspan="2" height="37">
<div align="center">
<input type=submit
name=Submit2 value=登录>
<input type=reset
name=reset2 value=重写>
</div>
</td>
</tr>
</body>
</HTML>
2.ASP
<%@language=vbscript%>
<%
Function checkpassword(name,password)
conn="driver={microsoft access driver
(*.mdb)};dbq="&server.mappath("moneyhy.mdb")
sql="select * from moneyhy where
idname='"&name&"' and pwd='"&password&"'"
Set rs=server.createobject
("adodb.recordset")
rs.open sql,conn
If rs.eof then
checkpassword=false
Else
checkpassword=true
End If
End Function
%>
<%
If isempty(session("passed")) then
session("passed")=false
session("vipusername")=request.form("username"
)
session("vippassword")=request.form("password"
)
Dim n,p
n=session("vipusername")
p=session("vippassword")
If n="" or p="" then
response.write "用户名或密码不能为空,请填完
整!<a href=../../history.back 1>返回</a>"
elseif not checkpassword(n,p) then
response.write "用户名或密码不正确,请重新输
入!<a href=../../history.back 1>返回</a>"
else
session("passed")=true
End If
if session("passed")=true then
response.redirect"3.htm"
End If
%>
3.ASP
<HTML>
<head>
<title>登陆成功</title>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
