菜鸟问题
用户登陆问题帮忙看看怎么写。
我建了一个表，数据库字段为username,userpsd
我有两个界面。分别为dljm.asp和jggl.asp。现在想用户登陆后进入jggl.asp，如果密码和用户名为空或密码和用户名不匹配，返回到登陆界面。代码如下
dljm.asp
<form name="form1" method="post" action="">
<table width="292" height="72" border="0">
<tr>
<td width="99" align="right">用户名：</td>
<td width="183"><input type="users" name="users" value="<%=users%>" ></td>
</tr>
<tr>
<td align="right">密码：</td>
<td><input type="password" name="password" value="<%=password%>" ></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交" >
<input type="reset" name="reset" value="重写"></td>
</tr>
</table>
</form>
jggl.asp
<%
dim name, password
name=trim(request.form("name"))
password=trim(request.form("password"))
if name="" or password="" then
response.Redirect "dljm.asp"
else
set conn = server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.RecordSet")
conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("cjhsj.mdb"))
rssql="select *from dlb where username='"&name&"' and userpsd='"&password&"'"
'response.Write rssql
'response.end
rs.open rssql,conn,3,1
if not rs.eof then
response.Redirect "jggl.asp"
else
response.Redirect "dljm.asp"
end if
end if
%>
end if
end if
%>
<form name="form1" method="post" >
<table width="511" height="86" border="1">
<tr>
<td width="57">单位名称</td>
<td colspan="3"><input name="jgmc" type="text" size="60"></td>
</tr>
<tr>
<td>通讯地址</td>
<td colspan="3"><input name="lxdz" type="text" size="60"></td>
</tr>
</table>
</form>
问题点数：50、回复次数：14Top
1 楼leo963258（我劝天公重抖擞，不拘一格降人才）回复于 2005-06-03 14:46:05 得分 5
?
什么问题？？
出什么错了Top
2 楼bliulei（水手）回复于 2005-06-03 14:51:12 得分 0
就是输入正确的用户名和密码都不能登陆。Top
3 楼bliulei（水手）回复于 2005-06-03 14:51:37 得分 0
就是输入正确的用户名和密码都不能登陆。Top
4 楼bliulei（水手）回复于 2005-06-03 14:54:32 得分 0
高手们给改改呀！或是给一个你们写的代码参考参考。Top
5 楼leo963258（我劝天公重抖擞，不拘一格降人才）回复于 2005-06-03 14:59:27 得分 5
<form name="form1" method="post" action=""> //指定要跳转的页面action="jggl.asp"
dim name, password
name=trim(request.form("name")) //名称不对应 request.form("users")
Top
6 楼lovebeyondforever（我不信）回复于 2005-06-03 15:00:24 得分 0
%>
end if
end if
%>
?????
不看别的这里就错Top
7 楼bliulei（水手）回复于 2005-06-03 15:02:35 得分 0
能帮我改改吗？Top
8 楼leo963258（我劝天公重抖擞，不拘一格降人才）回复于 2005-06-03 15:08:35 得分 0
dljm.asp
<form name="form1" method="post" action="jggl.asp">
<table width="292" height="72" border="0">
<tr>
<td width="99" align="right">用户名：</td>
<td width="183"><input type="users" name="users"></td>
</tr>
<tr>
<td align="right">密码：</td>
<td><input type="password" name="password"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交" >
<input type="reset" name="reset" value="重写"></td>
</tr>
</table>
</form>
jggl.asp
<%
dim name, password
name=trim(request.form("users"))
password=trim(request.form("password"))
if name="" or password="" then
response.Redirect "dljm.asp"
else
set conn = server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.RecordSet")
conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("cjhsj.mdb"))
rssql="select * from dlb where username='"&name&"' and userpsd='"&password&"'"
'response.Write rssql
'response.end
rs.open rssql,conn,3,1
if rs.eof then
response.Redirect "dljm.asp"
end if
end if
%>
<form name="form1" method="post" >
<table width="511" height="86" border="1">
<tr>
<td width="57">单位名称</td>
<td colspan="3"><input name="jgmc" type="text" size="60"></td>
</tr>
<tr>
<td>通讯地址</td>
<td colspan="3"><input name="lxdz" type="text" size="60"></td>
</tr>
</table>
</form>
Top
9 楼ljxsea（春雷）回复于 2005-06-03 15:12:11 得分 5
dljm.asp
<form name="form1" method="post" action="dlgl.asp">
<table width="292" height="72" border="0">
<tr>
<td width="99" align="right">用户名：</td>
<td width="183"><input type="test" name="name"></td>
</tr>
<tr>
<td align="right">密码：</td>
<td><input type="password" name="password"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交" >
<input type="reset" name="reset" value="重写"></td>
</tr>
</table>
</form>
jggl.asp
<%
dim name, password
name=trim(request.form("name"))
password=trim(request.form("password"))
if name="" or password="" then
response.Redirect "dljm.asp"
else
set conn = server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.RecordSet")
conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("cjhsj.mdb"))
rssql="select * from dlb where username='"&name&"' and userpsd='"&password&"'"
'response.Write rssql
'response.end
rs.open rssql,conn,1,1
if not rs.eof then
response.Redirect "jggl.asp"
else
response.Redirect "dljm.asp"
end if
end if
%>
end if
end if
%>
<form name="form1" method="post" >
<table width="511" height="86" border="1">
<tr>
<td width="57">单位名称</td>
<td colspan="3"><input name="jgmc" type="text" size="60"></td>
</tr>
<tr>
<td>通讯地址</td>
<td colspan="3"><input name="lxdz" type="text" size="60"></td>
</tr>
</table>
</form>
Top
10 楼mkqiang（扬帆）回复于 2005-06-03 15:12:12 得分 20
三个问题：
1、<td width="183"><input type="users" name="users" value="<%=users%>" ></td>
改为：<td width="183"><input type="users" name="users"></td>
2、<td><input type="password" name="password" value="<%=password%>" ></td>
改为：<td><input type="password" name="password"></td>
3、<form name="form1" method="post" action="">
改为：<form name="form1" method="post" action="jggl.asp">
Top
11 楼brothercat（猫猫 ^_^）回复于 2005-06-03 15:13:09 得分 0
你能不能多用几个页面表达一下呢?我怎么看得有点累...Top
12 楼ljxsea（春雷）回复于 2005-06-03 15:15:54 得分 15
dljm.asp
<form name="form1" method="post" action="dlgl.asp">
<table width="292" height="72" border="0">
<tr>
<td width="99" align="right">用户名：</td>
<td width="183"><input type="test" name="name"></td>
</tr>
<tr>
<td align="right">密码：</td>
<td><input type="password" name="password"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交" >
<input type="reset" name="reset" value="重写"></td>
</tr>
</table>
</form>
jggl.asp
<%
dim name, password
name=trim(request.form("name"))
password=trim(request.form("password"))
if name="" or password="" then
response.Redirect "dljm.asp"
else
set conn = server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.RecordSet")
conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("cjhsj.mdb"))
rssql="select * from dlb where username='"&name&"' and userpsd='"&password&"'"
'response.Write rssql
'response.end
rs.open rssql,conn,1,1
if not rs.eof then
response.Redirect "jggl.asp"
else
response.Redirect "dljm.asp"
end if
end if
%>
<form name="form1" method="post" >
<table width="511" height="86" border="1">
<tr>
<td width="57">单位名称</td>
<td colspan="3"><input name="jgmc" type="text" size="60"></td>
</tr>
<tr>
<td>通讯地址</td>
<td colspan="3"><input name="lxdz" type="text" size="60"></td>
</tr>
</table>
</form>
Top
13 楼sfwxw0456（全职杀手）回复于 2005-06-03 15:16:45 得分 0
你的判断好乱啊！用这种判断试试
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from dlb where username='"&name&"' and userpsd='"&password&"'" "
rs.open sql,conn,1,1
if Rs.RecordCount>0 then
Response.Write("登陆成功！")
else
Response.Write("登陆失败！")
end if
Top
14 楼xiaofanku（发扬中国博大的无术精神）回复于 2005-06-03 15:37:07 得分 0
同意楼上的观点！验证的代码不要代过长！容出错率也会上升Top
