请高手帮忙，，，晕了我半天也没搞出来。

yangxuhua 2005-11-08 02:21:33

我在首页输入查询关键字”襄樊“ 查询出85条，7页。但是我点分页按钮时，到第二页的数据就不对了，http://www.xfjt.gov.cn 大家帮我看看啊，我传替参数用session都没用。。

<form name="form1" method="post" action="/search.asp">
<span class="style2">全文检索</span><br>
<input name="search" type="text" class="input" id="search" size="17" maxlength="16">
<input name="Submit" type="submit" class="font" value="检索">
</form>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% '==============ASP 代码开始 ========================
' Dim articleTitle, articleAddtime, articleAuthor, articleFileUrl, cUrl, rs1, cName

Dim articleKeys
articleKeys = replace(trim(Request("search")),"'","")
session("key")=articleKeys
Set rs=Server.CreateObject("ADODB.RecordSet")
page=clng(request("page"))
'sql="select * from GVarticle where articleIssue = '1' and cid='19'"
if session("key")="" then
sql = "select * from GVarticle where articleIssue = '1' and articleFilePath <> '' order by articleAddtime desc"
else
'articleKeys <> "" then
sql = "select * from GVarticle where articleIssue = '1' and articleFilePath <> '' "
'if sType = 0 then
sql = sql & " and (articleTitle like '%" & articleKeys & "%' or articleSynopsis like '%" & articleKeys & "%' ) "
'elseif sType = 1 then
'sql = sql & " and articleAuthor like '%" & articleKeys &"%' "
sql = sql & " order by articleAddtime desc, articleID desc"
end if
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=13
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page

for j=1 to rs.PageSize
articleTitle = rs("articleTitle")
articleTitle = Replace(articleTitle,articleKeys,"<font color=#bb0000>"& articleKeys &"</font>")
'文章发表日期
articleAddtime = formatdatetime(rs("articleAddtime"),vbshortdate)
'作者
articleAuthor = rs("articleAuthor")
'文章的链接地址
articleFileUrl = (Replace(rs("articleFilePath"),"..","")&"/"&rs("articleFileName"))
cID = rs("cID")
Set rs1 = Server.CreateObject("ADODB.RECORDSET")
rs1.Open"select cPath, cFolder, cName from GVclass where cID = "& cID &"",conn,1,1
if not rs1.eof then
'文章所属分类的名称
cName = rs1("cName")
'文章所属分类的链接地址
cUrl = Replace(rs1("cPath"),"..","") & rs1("cFolder")
end if
rs1.Close
Set rs1 = Nothing

%>

<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="/images/botton1.gif"> <span class="font"><<a href="<% =cUrl %>" target="_blank"> </a></span><a href="<% =cUrl %>" target="_blank">
<% =cName %>
<span class="font">></span> </a> <a href="<%=articleFileUrl %>" target="_blank"><%=articleTitle %> </a> <span class="style14" style="color:#81AED3"><%=articleAddtime %></span></td>
</tr>
<tr>
<td><span class="style14" style="color:#929292"><em>By</em>
<% =articleAuthor %>
</span></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr bgcolor="#FFFFFF">
<form method=Post action="/search.asp">
<td height="30" align="center">
<%if Page<2 then
response.write "首页上一页 "
else
response.write "<a href=search.asp?page=1&articleKeys="&articleKeys&"&>首页</a> "
response.write "<a href=search.asp?page=" & Page-1 & "&articleKeys="&articleKeys&">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页尾页"
else
response.write "<a href=search.asp?page=" & (page+1) & "&articleKeys="&articleKeys&">"
response.write "下一页</a> <a href=search.asp?page="&rs.pagecount&"&articleKeys="&articleKeys&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</td>
</form>
</tr>

</table>

我在首页输入查询关键字”襄樊“ 查询出85条，7页。但是我点分页按钮时，到第二页的数据就不对了，http://www.xfjt.gov.cn 大家帮我看看啊，我传替参数用session都没用。。

...全文