简单的ASP问题，请大家都来看看~（在线等待）

cbxmir 2003-09-14 06:52:46
提交一个数据查询SQL 2000数据库。
========================================SEACH。ASP提交页面。
<form name="form1" method="post" action="caller.asp">
<input name="userid" type="text" id="userid" class="input1">
<input type="submit" name="Submit" value="提交修改">
</form>
==========================================================
在接收页面里有一句
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid='"&UserID&"'",Conn,1,1

但是数据的第一页显示正常，到了第2页就是空的了？
为什么？
...全文
46 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
cbxmir 2003-09-16
  • 打赏
  • 举报
 回复
还是不可以，问题不在有没有传递成功，而是怎样把传递的数据也传到第二页去？
iwodgirl 2003-09-14
  • 打赏
  • 举报
 回复
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid='"&UserID&"'",Conn,1,1
改为：
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid="&UserID,Conn,1,1

试试改后可不可以，如不行，再试试。
UserID=cint(trim(request("userid")))
rs1.Open "Select * from gamer_records where callerid="&UserID,Conn,1,1
或
UserID=cint(trim(request("userid")))
rs1.Open "Select * from gamer_records where callerid='"&UserID&"'",Conn,1,1

呵呵。。。我也是初学，上面是我以前遇到过的问题，不对，别笑俺！！
cbxmir 2003-09-14
  • 打赏
  • 举报
 回复
不好意思，整理了一下！
---------------------------------------------------------------------------------
<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs1=server.CreateObject("adodb.recordset")
conn.ConnectionString = "driver={SQL Server};server=KUITUN;database=vstardb;UID=BX;pwd=123"
conn.Open
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid='"&userid&"'",Conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs1.eof And rs1.bof then
Response.Write "<p align='center'>对不起，目前没有记录！</p>"
else
totalPut=rs1.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs1.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs1.bookmark
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"caller.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>

===============================================================================
<%i=i+1
if i>=MaxPerPage then Exit Do
rs1.movenext
loop
rs1.close
set rs=nothing%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='mnu'> "
If CurrentPage<2 Then
Response.Write "<font class='mnu'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='mnu'>首页</a> "
Response.Write "<a href="&filename&"?page="¤tPage-1&" class='mnu'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='mnu'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='mnu'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='mnu'>尾页</a>"
End If
Response.Write "<font class='mnu'> 页次：</font><font

class='contents'>"¤tPage&"</font><font class='mnu'>/"&n&"页</font> "
Response.Write "<font class='mnu'> 共有"&totalnumber&"条记录 "&maxperpage&"条记录/页

</font> "
Response.Write "<font class='mnu'>转到：</font><input type='text' name='page' size=2

maxlength=10 class=fr2 value="¤tpage&">"
Response.Write " <input type='submit' class=fr2 value='GO' name='cndok'></form>"

End Function
%>
海牛 2003-09-14
  • 打赏
  • 举报
 回复
代码太乱了，看起真累！
cbxmir 2003-09-14
  • 打赏
  • 举报
 回复
TO：laers(laers)
“ response.write trim(request("userid"))' 看下有没有传递uesrid的值/”
可以传递。因为在第一页里就有数据的。
cbxmir 2003-09-14
  • 打赏
  • 举报
 回复
还是不对啊！怎么写啊？
大家看下我翻页的代码！
<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
'UserName=Request.Cookies("UserName")
set rs1=server.CreateObject("adodb.recordset")
conn.ConnectionString = "driver={SQL Server};server=KUITUN;database=vstardb;UID=BX;pwd=123"
'db.ConnectionString = "driver={SQL Server};server=LANDUN;database=landun;Persist Security Info=False;User ID=sa"
conn.Open
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid='"&USID&"'",Conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs1.eof And rs1.bof then
Response.Write "<p align='center'>对不起，目前没有记录！</p>"
else
totalPut=rs1.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs1.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs1.bookmark
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"caller.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>

===============================================================================
<%i=i+1
if i>=MaxPerPage then Exit Do
rs1.movenext
loop
rs1.close
set rs=nothing%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='mnu'> "
If CurrentPage<2 Then
Response.Write "<font class='mnu'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='mnu'>首页</a> "
Response.Write "<a href="&filename&"?page="¤tPage-1&" class='mnu'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='mnu'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='mnu'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='mnu'>尾页</a>"
End If
Response.Write "<font class='mnu'> 页次：</font><font class='contents'>"¤tPage&"</font><font class='mnu'>/"&n&"页</font> "
Response.Write "<font class='mnu'> 共有"&totalnumber&"条记录 "&maxperpage&"条记录/页</font> "
Response.Write "<font class='mnu'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=fr2 value="¤tpage&">"
Response.Write " <input type='submit' class=fr2 value='GO' name='cndok'></form>"
End Function
%>
laers 2003-09-14
  • 打赏
  • 举报
 回复
你都没有用记录集recordset写出查找的记录，当然是空的了！
response.write trim(request("userid"))' 看下有没有传递uesrid的值/

或可以用SQL测试一下你的数据库语句！
panyee 2003-09-14
  • 打赏
  • 举报
 回复
到第二页的链接要在url后加上参数 userid

"search.asp?user=" & UserID & "&pageid=2"
项目经理的冲突管理方法
之前有人跟我说，坚决不当项目经理，当项目经理要生的气太多了，他觉得会折寿。为了解决这个折寿的问题，特意给大家开发了《成为项目经理的方法》的后续课程《项目经理的冲突管理方法》，给大家提供在管理项目的过程中可能遇到的冲突的解决方法，包括自己与别人发生的冲突、下属之间的冲突以及小组之间的冲突。当然了，解决冲突，就必须的涉及到情绪的处理，所以也给出了让自己平静下来的4个方法，还有让对方平静下来的3句有魔力的话，一起来看看啊~
w10系统asp服务器搭建,win10系统搭建asp环境的操作方法
很多小伙伴都遇到过对win10系统搭建asp环境的设置方法，想必大家都遇到过需要对win10系统搭建asp环境进行设置的情况吧，那么应该怎么设置win10系统搭建asp环境的操作方法非常简单，只需要1、按win+R键，输入control进入控制台，点击程序， 2、点击启用或关闭Windows功能，这样的步骤就可以了；下面小编带领大家看看win10系统搭建asp环境具体的操作方法：具体方法如下:1、...
asp经典例子
主　　题：  ASP常见问题及解答征集中，请大家积极参与~~~~~~~~ 作　　者：  awaysrain (绝对零度)(新的一年，新的开始)  等　　级：    信 誉 值：  155 所属论坛：  Web 开发 ASP 问题点数：  200 回复次数：  160 发表时间：  2003-11-07 14:09:24Z        征集常见问题及解决方法，禁止灌水，否则将删除！格式分    类
ASP.NET 简介
ASP.NET又称为ASP+，不仅仅是ASP的简单升级，而是微软公司推出的新一代脚本语言。ASP.NET基于.NET Framework的Web开发平台，不但吸收了ASP以前版本的最大优点并参照Java、VB语言的开发优势加入了许多新的特色，同时也修正了以前的ASP版本的运行错误。 ASP.NET具备开发网站应用程序的一切解决方案，包括验证、缓存、状态管理、调试和部署等全部功能。在代码撰写方面特色是将页面逻辑和业务逻辑分开，它分离程序代码与显示的内容，让丰富多彩的网页更容易撰写。同时使程序...
w10系统asp服务器搭建,在windows10系统下搭建asp环境的方法
现在，已经有非常多朋友都在使用windows10正式版系统了，不过由于对新系统太过陌生很多用户都知道该怎么在其中搭建asp环境。为了帮助大家更好地使用win10系统，下面，系统城小编就分享搭建asp环境的具体方法。具体方法如下:1、按win+R键，输入control进入控制台，点击程序，如图:2、点击启用或关闭Windows功能，如图:3、然后像我这样勾选就可以，然后点击确定，等待进度条安装完成，...
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章