asp动态网页程序设计

用asp动态网页程序设计制作投票系统，使用access数据库存储数据，其中3.asp是登陆页面，5.asp是登陆成功后显示相关信息的页面。代码如下：3.asp：<%Res... 用asp动态网页程序设计制作投票系统，使用access数据库存储数据，其中3.asp是登陆页面，5.asp是登陆成功后显示相关信息的页面。代码如下：
3.asp：
<%Response.Buffer=True%>

<html>
<head>
<title>登陆</title>
</head>
<body bgcolor="#00cccc">
<h2 align="center">登陆</h2>
<center>
<form method="post" action="">
<table border="0" width="90%" bgcolor="#E6E6E6">
<tr>
<td><p align="center">用户名：<input type="text" name="yhm" size="20" >**</td>
</tr><tr>
<tr>
<td><p align="center">密码：<input type="password" name="mm" size="20">**</td>
</tr><tr>
<td><p align="center"><input type="submit" value=" 确定 "></td>
</tr>
<table>
</form>
</center>
<%
If Trim(Request("yhm"))<>"" Then
Dim rs,strSql
strSql ="Select * From users Where yhm='" & Request("yhm") & "' And mm='" & Request("mm") & "'"
Set rs=db.Execute(strSql)
If Not rs.Bof And Not rs.Eof Then
Session("id")=rs("id")
Response.Redirect "5.asp"
Else
Response.Write "对不起，密码不正确，请重新输入"
End If
End If
%>
</body>
</html>
5.asp
<% Option Explicit %>

<html>
<head>
<title>查看成员信息</title>
</head>
<body bgcolor="#00CCCC">
<h2 align="center">成员列表</h2>
<center>
<table border="0" width="95%">
<tr bgcolor="#B7B7B7" align="center">
<td width=10%>用户名</td>
<td width=15%>电话</td>
<td width=25%>年龄</td>
<td width=20%>住址</td>
<td width=20%>个人简介</td>
</tr>
<%
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users where yhm='" & request("yhm") & "' and mm='" & request("mm") &"'"
rs.Open strSql,db,1
If not rs.Bof Or rs.Eof Then
Response.Write "现在还没有数据"
Else
Dim page_size
Dim page_no
Dim page_total
page_size=10
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no"))
End If
rs.PageSize=page_size
page_total=rs.PageCount
rs.AbsolutePage=page_no
Dim I
I=page_size
Do While Not rs.Eof And I>0
I=I-1
Response.Write "<tr bgcolor='#E6E6E6' align='center'>"
Response.Write "<td>" & rs("yhm") & "</td>"
Response.Write "<td>" & rs("dh") & " </td>"
Response.Write "<td>" & rs("nl") & "</td>"
Response.Write "<td>" & rs("zz") & "</td>"
Response.Write "<td>" & rs("grjj") & "</td>"
Response.Write "</tr>"
rs.MoveNext
'Loop
Response.Write "</table>"
Response.Write "<p>请选择数据页: "
For I=1 To page_total
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='13.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next

loop
End If
rs.Close
Set rs=nothing
db.Close
Set db=nothing

%>
</body>
</html>
登陆成功后在5.asp上显示不出从数据库中提取出来的信息，只有一个表头，请问这是怎么回事？望哪位高手给予指导。谢谢！！展开

 我来答

1个回答

#热议# 为什么有人显老，有人显年轻？

hitsjf
推荐于2016-05-17 · TA获得超过2234个赞

知道小有建树答主

回答量：522

采纳率：100%

帮助的人：743万

我也去答题访问个人页

关注

展开全部

问题出在3.asp中倒数第五行Response.Redirect "5.asp" 。
因为它只是执行了跳转页面，而没有把你输入的用户名和密码传递到5.asp，这样5.asp中就根本不存在request("yhm") 和request("mm") ，也就查不到任何内容了。
解决办法：3.asp中倒数第六行Session("id")=rs("id") 和Response.Redirect "5.asp" 之间添加如下字段dim yhm,mm
yhm=request("yhm") 
mm=request("mm") 
把Response.Redirect "5.asp" 改成
Response.Redirect "5.asp?yhm="&yhm&"&mm="&mm&""
然后在5.asp中提取地址中的yhm和mm值
在19行后加
dim yhm,mm
和
yhm=request.querystring("yhm")
mm=request.querystring("mm")
然后把strSql ="Select * From users where yhm='" & request("yhm") & "' and mm='" & request("mm") &"'" 
改为strSql ="Select * From users where yhm='" & yhm & "' and mm='" & mm &"'" 
再试试。祝你好运


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起