作者because25 (口苗)
看板Visual_Basic
标题[ASP ] 资料库选取换页问题
时间Mon Dec 12 10:29:13 2011
请问 我目前依照参考书作网站有遇到一个问题
参考书有指导如何做出选择资料库和资料表的教学
和 显示出资料换页的教学
我把两者结合了所以是
具备一开始可选择资料库和资料表显示出的资料如过多则会有分页(上一页下一页)
但是目前遇到的状况
当按上一页下一页後，资料库、表会变回预设的资料库、表
但如果不预设，上下一页会出现错误
所以想请问是不是有什麽方向可以解决? 谢谢~
有发现是一按换页就会认定是空值所以启动预设资料库
我把request(DB)换用session(DB)结果变成第一次输入後
时间内想用其他DB也还是变成第一次输入的....
下方是大概架构 如有不足请教
TEST1.asp
<%
DB = Request("DB")
If DB = Empty Then DB = "Sample.mdb"
SQL = Request("SQL")
If SQL = Empty Then SQL = "Select * From 甲"
Set rs = GetMdbStaticRecordset(DB, SQL )
%>
<body>
<%
<FORM Action=TEST2.asp Method=POST>
资料库：<INPUT Type=Text Name=DB Value="<%=DB%>"><BR>
指 令：<INPUT Type=Text Name=SQL Size = ４0 Value="<%=SQL%>"><P>
<INPUT Type=Submit Value=" 执 行 ">
</FORM>
</body>
TEST2.asp
<%
DB = Request("DB")
If DB = Empty Then DB = "Sample.mdb"
SQL = Request("SQL")
If SQL = Empty Then SQL = "Select * From 甲"
Myself = Request.ServerVariables("PATH_INFO")
Set rs = GetMdbStaticRecordset( DB, SQL)
%>
<BODY>
<% If Not (rs Is Nothing) Then %>
<%
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
ShowOnePage rs, Page
%>
<div align="center"></div>
<DIV ALIGN=right><P><HR>
<FORM Action=<%=Myself%> Method=GET>
<%If Page <> 1 Then ' 如果不是位於第一页 %>
<A HREF=<%=Myself%>?Page=1>第一页</A>
<A HREF=<%=Myself%>?Page=<%=(Page-1)%>>上一页</A>
<%End If
If Page <> rs.PageCount Then ' 如果不是位於最後一页
%>
<A HREF=<%=Myself%>?Page=<%=(Page+1)%>>下一页</A>
<A HREF=<%=Myself%>?Page=<%=rs.PageCount%>>最後一页</A>
<%End If%>
输入页次:<INPUT TYPE=TEXT Name=Page SIZE=3>
页次:<FONT COLOR="Red"><%=Page%>/<%=rs.PageCount%></FONT>
</FORM>
<%Else%>
<HR><FONT Color=Red>Select 指令错误!</FONT>
<%End If%>
</P></DIV>
</BODY>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.124.54.20
※ 编辑: because25 来自: 59.124.54.20 (12/12 11:03)
1F：→ MOONRAKER:大家未必有你那本参考书 请简单叙述你现在怎麽写的 12/12 12:11
※ 编辑: because25 来自: 59.124.54.20 (12/12 13:23)
2F：→ because25:原始码大略补上 TEST1:选择 TEST2:换页功能 12/12 13:25
3F：→ because25:当我一开始是 from 乙的时候 按下一页就会跑回甲资料表 12/12 13:26
4F：→ MOONRAKER:…还以为你ASP.NET，ASP就算了。这种时候还学ASP，除非 12/13 13:13
5F：→ MOONRAKER:为了修改旧的code，不然实在没有任何意义。 12/13 13:14
6F：→ because25:@@ 我是初学者 请教ASP不是能算是ASP.NET的基本吗? 12/13 14:00
7F：→ MOONRAKER:**不能** 12/13 15:26
8F：→ MOONRAKER:ASP太松散，会戕害心灵。要就直接上ASP.NET。 12/13 15:27