一个有关分页的有关问题

2012-04-22

一个有关分页的问题。其实下面的代码是可以正常翻页的显示的。但是只要加了红字部分，也就是代码：xsxx(rs(id

一个有关分页的问题。
其实下面的代码是可以正常翻页的显示的。
但是只要加了红字部分，也就是代码：xsxx(rs("id"))，这个功能就是通过该记录id去读个关联表的信息，结果就会出现分页错误，即第一页就不是显示10条记录而是多了很多记录。如果去掉这个自定义函数就正常了。百思不得其解望高手指点下。

<%

PagePubsay=10
dim search,sql,page
search=request("search")
sql="select * from Tscdb"

set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql ,conn,1,1,1
if not rs.eof then
rs.pagesize=PagePubsay
Rs.CacheSize=Rs.PageSize
end if
If Request("CurrentPage")="" Then
CurrentPage=1
Else
CurrentPage=Request("CurrentPage")
End If
If Not(Rs.Eof And Rs.Bof) Then
Rs.AbsolutePage=CurrentPage
End If

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测试</title>
<link href="x_img/style.css" rel="stylesheet" type="text/css">

</head>

<body>

<div align="center">
<table border="0" width="870" cellspacing="0" cellpadding="0" id="table2" height="620">

<tr>
<td width="860" bgcolor="#FFFFFF" rowspan="2" valign="top">
　<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table8" height="619">

<tr>
<td valign="top">
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=860 border=1 bordercolorlight="#C0C0C0" bordercolordark="#EDEDED" style="border-collapse: collapse">
<TBODY>
<TR>
<TD width=50 height=23 align=left bgcolor="#EDEDED" class="aa">
<p align="center">编号</TD>
<TD width=93 height=23 align=center bgcolor="#EDEDED" class="aa">时间</TD>
<TD width=84 height=23 align=center bgcolor="#EDEDED" class="aa">信息来源</TD>
<TD width=234 height=23 align=center bgcolor="#EDEDED" class="aa">信息内容</TD>
<TD width=353 height=23 align=center bgcolor="#EDEDED" class="aa">目前处理情况</TD>
<TD width=35 height=23 align=center bgcolor="#EDEDED" class="aa">完成情况</TD>
</TR>
<%
dim i,js,str
if not rs.eof then
For I=1 To Rs.PageSize
If Rs.Eof Then
Exit For
End If

%>
<TR onclick="javascript:window.open('x_scdb_show.asp?id=<%=rs("id")%>')" style="cursor:hand">
<TD width=50 height=23 align=center class="aa"><%=rs("bh")%></TD>
<TD width=93 height=23 align=center class="aa"><%=rs("rq") &" "& rs("tzsj")%></TD>
<TD width=84 height=23 align=center class="aa"><%=rs("xxly")%></TD>
<TD width=234 height=23 align=left class="aa"><%=HTMLEncode(rs("xxnr"))%></TD>
<TD width=353 height=23 align=left class="aa"><%=HTMLEncode(rs("mqclqk")) & xsxx(rs("id"))%></TD>

<TD width=35 height=23 align=center class="aa"><%if rs("wcqk") then response.write "是" else response.write "否"%></TD>
</TR>
<%
js=js+1
Rs.MoveNext
Next

else
%>
<TR>
<TD width=855 height=23 bgcolor="<%=bgcolor%>" align="left" colspan="6"><font color=red>无记录!</font></TD>
</TR>
<%
end if
%>

</TBODY></TABLE>
</div>
</td>
</tr>
<tr>
<td height="30" align=center> <script type="text/javascript" src="admin/mydate.js"></script><script type="text/javascript" src="x_img/PageList.js"></script>
<script type="text/javascript" language="JavaScript">

</script> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
<%
rs.close:set rs=nothing
call closedb()

function xsxx(ids)
if ids<>"" then
dim rss,sql,str,sj
set rss=conn.execute("select lsqk,fkbm,fksj from Tscdb_fk where upid="& ids)
if not rss.eof then
i=1
do while not rss.eof
sj=year(rss(2))&"-"&month(rss(2))&"-"&day(rss(2))
if (i mod 2)=0 then
bgcolor="#198f21"
else
bgcolor="#0b76a2"
end if
if i=1 then
str=str &"<font color="& bgcolor &">【"& rss(0) &" "&rss(1) & sj &"】</font>"
else
str=str &"<br><font color="& bgcolor &">【"& rss(0) &" "&rss(1) & sj &"】</font>"
end if
i=i+1
rss.movenext
loop
xsxx="<br>"& str
end if
rss.close:set rss=nothing
end if
end function
%>

</body>

</html>

[解决办法]
变量冲突了，在函数xsxx里使用了公共变量i，造成函数外的i的值发生改变了
[解决办法]
xsxx 有问题吧

热点排行

ASP

一个有关分页的有关问题