临沂市场信息网6.5cms在网上商铺中每页只能显示5个，怎么解决

sjghq · 发表于 2008-3-6 09:50:25

好像是本身源码问题。我找不出来。就是他原来是显示6个商铺，但实际只能显示5个，而且那个少的在下页中也不能显示。

<%function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, \">\", \">\")
fString = replace(fString, \"<\", \"<\")
fString = Replace(fString, CHR(32), \" \")
fString = Replace(fString, CHR(9), \" \")
fString = Replace(fString, CHR(34), \"\"\")
fString = Replace(fString, CHR(39), \"'\")
fString = Replace(fString, CHR(13), \"\")
fString = Replace(fString, CHR(10) & CHR(10), \"</P><P> \")
fString = Replace(fString, CHR(10), \"<BR> \")
HTMLEncode = fString
end if
end function
dim rsbo,sql1,sql2,sql3,sql4,sql5,class1,class2,sheng,shi,xing,class1name,class2name,shengname,shiname,xingname
dim ThisPage,Pagesize,Allrecord,Allpage,tj
class1=trim(request(\"class1\"))
class2=trim(request(\"class2\"))
sheng=trim(request(\"sheng\"))
shi=trim(request(\"shi\"))
xing=trim(request(\"xing\"))
set rsbo=server.createobject(\"adodb.recordset\")
if class1<>\"\" then
sql1=\"select class1 from FOX_shopclass1 where id=\"&class1&\"\"
rsbo.open sql1,conn,1,1
class1name=rsbo(\"class1\")
rsbo.close
\'set rsbo=nothing
end if
if class2<>\"\" then
sql2=\"select class2 from FOX_shopclass2 where id=\"&class2&\"\"
rsbo.open sql2,conn,1,1
class2name=rsbo(\"class2\")
rsbo.close
\'set rsbo=nothing
end if
if sheng<>\"\" then
sql3=\"select sheng from FOX_sheng where id=\"&sheng&\"\"
rsbo.open sql3,conn,1,1
shengname=rsbo(\"sheng\")
rsbo.close
\'set rsbo=nothing
end if
if shi<>\"\" then
sql4=\"select shi from FOX_shi where id=\"&shi&\"\"
rsbo.open sql4,conn,1,1
shiname=rsbo(\"shi\")
rsbo.close
\'set rsbo=nothing
end if
if request(\"page\")=\"\" then
  ThisPage=1
else
  ThisPage=request(\"page\")
end if
%>
<head>
<meta http-equiv=\"Content-Type\" c>
<title>网上店铺--<%=title%>--<%=web%></title>
</head>
<body>
<div align=\"center\">
<table cellSpacing=\"0\" cellPadding=\"0\" width=\"930\" border=\"0\" id=\"table1\" class=\"tdtop\">
  <tr>
<td  height=\"25\" colspan=\"3\"><b> <img border=\"0\" src=\"images/z1.gif\" width=\"50\" height=\"18\"> 您的位置
<font color=\"#FFFFFF\">-></font> <a class=\"scap1\" href=\"index.htm\"><%=title%></a>
<font color=\"#FFFFFF\">-></font> 网上店铺频道：</b><font color=\"#FFFFFF\"> -></font>
<font color=\"#FF0000\">  <%=class1name%>  <%=class2name%>  <%=shengname%>  <%=shiname%>  <%=xingname%></font></td>
  </tr>

  <tr bgColor=\"#d9ebe5\">
<td  height=\"25\" bgcolor=\"#FFFFFF\" width=\"252\" valign=\"top\"></td>
<td  height=\"25\" bgcolor=\"#FFFFFF\" width=\"38\" align=\"center\" valign=\"top\"><img border=\"0\" src=\"<%=css%>bgfox7.jpg\"></td>
<td  height=\"25\" bgcolor=\"#FFFFFF\" valign=\"top\" width=\"640\">
<table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" border=\"0\" id=\"table63\">
<tr>
<td height=\"24\" class=\"tdbg2\">
网上店铺列表</td>
</tr>
</table>
<%dim rsfoxf,sqlfoxf
tj=1
set rsfoxf=server.createobject(\"adodb.recordset\")
sqlfoxf=\"SELECT * FROM FOX_dian where yz=1 and\"
If class1<>\"\" Then sqlfoxf=sqlfoxf&\" class1=\"&class1&\" and\"
If class2<>\"\" Then sqlfoxf=sqlfoxf&\" class2=\"&class2&\" and\"
If sheng<>\"\" Then sqlfoxf=sqlfoxf&\" sheng=\"&sheng&\" and\"
If shi<>\"\" Then sqlfoxf=sqlfoxf&\" shi=\"&shi&\" and\"
If xing<>\"\" Then sqlfoxf=sqlfoxf&\" xing=\"&xing&\" and\"
\' if right(sqlfoxf,5)=\"where\" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-5)
if right(sqlfoxf,3)=\"and\" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-3)
sqlfoxf=sqlfoxf&\" order by xing desc,huitype desc\"
rsfoxf.Open sqlfoxf,conn,1,3
rsfoxf.Pagesize=6
Pagesize=rsfoxf.Pagesize
Allrecord=rsfoxf.Recordcount
Allpage=rsfoxf.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rsfoxf.move (ThisPage-1)*Pagesize
if rsfoxf.eof then
response.write \"暂时没有！\"
else
%>
<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" bordercolor=\"#C0C0C0\" style=\"border-collapse: collapse\" id=\"table169\" class=table2>
         <%do while not rsfoxf.eof%>
<%dim rsq,sqlq,class1c,class2c,xingc,shengc,shic
set rsq=server.createobject(\"adodb.recordset\")
sqlq = \"select class1 from [FOX_shopclass1] where id=\"&rsfoxf(\"class1\")&\"\"
rsq.open sqlq,conn,1,1
class1c=rsq(\"class1\")
rsq.close
set rsq=nothing
set rsq=server.createobject(\"adodb.recordset\")
sqlq = \"select class2 from [FOX_shopclass2] where id=\"&rsfoxf(\"class2\")&\"\"
rsq.open sqlq,conn,1,1
class2c=rsq(\"class2\")
rsq.close
set rsq=nothing
set rsq=server.createobject(\"adodb.recordset\")
sqlq = \"select sheng from [FOX_sheng] where id=\"&rsfoxf(\"sheng\")&\"\"
rsq.open sqlq,conn,1,1
shengc=rsq(\"sheng\")
rsq.close
set rsq=nothing
set rsq=server.createobject(\"adodb.recordset\")
sqlq = \"select shi from [FOX_shi] where id=\"&rsfoxf(\"shi\")&\"\"
rsq.open sqlq,conn,1,1
shic=rsq(\"shi\")
rsq.close
set rsq=nothing
%>