28,406
社区成员
发帖
与我相关
我的任务
分享看下这个代码，循环表格显示不出来
<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../kernel/temp_inc.asp"-->
<%
if request.Cookies("masterflag")="" or request.Cookies("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../../../admin/login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(request.Cookies("masterflag"),",")
for each ins in in_str
if trim(ins)="010" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../../../admin/err.asp"
response.end
end if
'读取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open ("select zhichi_sort1 from benming_ch_worldec_Temp where selected=1"),conn,1,1
If Not Rs.Eof Then
templets=Rs("zhichi_sort1")
Rs.Close
Set Rs=nothing
End If
'取模板内容
Set fso =YXFSO
Set sort_save=fso.OpenTextFile(Server.MapPath(templets))
Web_str=sort_save.ReadAll
sort_save.close
'读取要生成的信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^开始生成html页面
Hope_body=""
MaxPerPage=1
Sql="Select * from benming_ch_zhichiCat where root=0 order by ORderID asc"
Set RsProdCat=Server.CreateObject("ADODB.RecordSet")
RsProdCat.open Sql,Conn,1,1
if RsProdCat.eof=False and RsProdCat.bof=false then
RsProdCat.pagesize=MaxPerPage
RsProdCat.absolutepage=currentpage
else
pencat=Web_str
pencat=Hope_HtmlResult(pencat)
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/index.html"))
sort_save.Write pencat
sort_save.Close
response.Write "没有分类 <a href='#' onClick='javascript:history.back(-1);'>返回</a>"
response.end
end if
Response.write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&RsProdCat.pagecount&"</b></font>个 <a href='#' onClick='javascript:history.back(-1);'>返回</a>"
if currentPage>RsProdCat.pagecount then
response.End()
end if
if RsProdCat.eof=False and RsProdCat.bof=False then
msg_per_page=10 '一页9条记录+
Catid=RsProdCat("id")
strCatid=Getid(Catid)
Hope_ProductsSmallCat=ProductsSmallCat(Catid)
Hope_CatName=RsProdCat("CatName")
Sqlprod="Select * from benming_ch_zhichi where show=1 and CatId in("&strCatid&")"
Set RsPordCount=Server.CreateObject("ADODB.RecordSet")
RsPordCount.open Sqlprod,Conn,1,1
totalrec=RsPordCount.RecordCount '总记录条数
RsPordCount.Pagesize=msg_per_page '每页数
mpage2=RsPordCount.Pagecount '总页数
PageName=Catid
Hope_body=""
IF not RsPordCount.Eof Then
For Tempi=1 to mpage2
if Tempi=1 then
tempsum=1
else
tempsum=(Tempi-1)*msg_per_page +1
PageName=Catid&"-"&Tempi
end if
Hope_body=Hope_body&"sssss"
Set RsPordCount2=Server.CreateObject("ADODB.RecordSet")
Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") and (orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T)) ORDER BY orderid "
RsPordCount2.open Sqlprod2,Conn,1,1
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
do while not RsPordCount2.eof
PordCountI=PordCountI+1
Hope_body=Hope_body&"<td width=""207"" valign=""top"" align=""center"">"
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
Hope_body=Hope_body&"<td><center>"&RsPordCount2("prodName")&"</center></td></tr>"
Hope_body=Hope_body&"</table>"
Hope_body=Hope_body&"</td>"
if PordCountI mod 1 =0 then
Hope_body=Hope_body&"</tr><tr>"
end if
if RsPordCount2.RecordCount=1 then
Hope_body=Hope_body&"<td width=""50%"" valign=""top"" class=""bottom_dashedl_line"" height=""100""> </td>"
end if
RsPordCount2.movenext
loop
RsPordCount2.close
set RsPordCount2=nothing
Hope_body=Hope_body&"</tr>"
Hope_body=Hope_body&"</table>"
'红色字体的为循环，可是显示不出，本代码为生成静态代码
Hope_body=Hope_body&"<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Hope_body=Hope_body&"<tr>"
Hope_body=Hope_body&"<td height=""45"" align=""center"">共 <strong>"&totalrec&"</strong> 条信息"
Hope_body=Hope_body&" <a href="""&Catid&".html"" class=""Font_000000_a"">首页</a>"
if Tempi-1<1 then
Hope_body=Hope_body&" <span class=""Font_000000_a"">上一页</a>"
else
Hope_body=Hope_body&" <a href="""&Catid&"-"&(Tempi-1)&".html"" class=""Font_000000_a"">上一页</a>"
end if
if Tempi+1>mpage2 then
Hope_body=Hope_body&" <span class=""Font_000000_a"">下一页</a>"
else
Hope_body=Hope_body&" <a href="""&Catid&"-"&(Tempi+1)&".html"" class=""Font_000000_a"">下一页</a>"
end if
Hope_body=Hope_body&" <a href="""&Catid&"-"&mpage2&".html"" class=""Font_000000_a"">尾页</a>"
Hope_body=Hope_body&" 页次：<strong> "&Tempi&"/"&mpage2&" </strong>页 <strong>"&msg_per_page&"</strong>条信息/页</td>"
Hope_body=Hope_body&"</tr>"
Hope_body=Hope_body&"</table>"
'替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Web_str
pencat=Hope_HtmlResult(pencat)
if currentPage=1 and Tempi=1 then
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/index.html"))
sort_save.Write pencat
sort_save.Close
end if
if Tempi=1 then
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/"&PageName&"-1.html"))
sort_save.Write pencat
sort_save.Close
end if
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/"&PageName&".html"))
sort_save.Write pencat
sort_save.Close
Next
Else
'替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Web_str
pencat=Hope_HtmlResult(pencat)
if currentPage=1 then
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/index.html"))
sort_save.Write pencat
sort_save.Close
end if
Set sort_save = fso.CreateTextFile(server.mappath("/zhichi/"&PageName&".html"))
sort_save.Write pencat
sort_save.Close
End IF
'进行静态页面的生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Response.write "<meta http-equiv=Refresh content='0; URL=maketrade.asp?page="¤tPage+1&"'>"
end if
RsProdCat.close
Set RsProdCat=nothing
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^大类下所有小类ID
Function Getid(id)
strid=id
Sqlid="Select * from benming_ch_zhichiCat where Root="&id
Set Rsid=Server.CreateObject("ADODB.RecordSet")
Rsid.open Sqlid,Conn,1,1
do while not Rsid.eof
strid=strid&","&Rsid("id")
Rsid.movenext
loop
Rsid.close
Set Rsid=nothing
Getid=strid
End Function
'产品小类
Function ProductsSmallCat(Root)
Dim strs,ProductsSmallCatI
strs=""
ProductsSmallCatI=0
Sql="Select * from benming_ch_zhichiCat where root="&Root&" order by OrderID"
Set Rs_ProductsSmallCat=Server.Createobject("ADODB.RecordSet")
Rs_ProductsSmallCat.open Sql,Conn,1,1
strs="<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
strs=strs&" <tr>"
Do while not Rs_ProductsSmallCat.eof
ProductsSmallCatI=ProductsSmallCatI+1
if ProductsSmallCatI=Rs_ProductsSmallCat.RecordCount then
strs=strs&"<td height=""23""> <A href=""/zhichi/typelist/"&Rs_ProductsSmallCat("id")&".html"" class=""Font_000000_a"">"&Rs_ProductsSmallCat("CatName")&"</a></td>"
else
strs=strs&"<td width=""90"" height=""23""> <A href=""/zhichi/typelist/"&Rs_ProductsSmallCat("id")&".html"" class=""Font_000000_a"">"&Rs_ProductsSmallCat("CatName")&"</a></td>"
end if
Rs_ProductsSmallCat.movenext
Loop
strs=strs&"</tr>"
strs=strs&"</table>"
Rs_ProductsSmallCat.close
Set Rs_ProductsSmallCat=nothing
ProductsSmallCat=strs
End Function
%>
...全文
请发表友善的回复…
发表回复
zhaopaishu 2009-08-25
- 打赏
- 举报
还有谁帮看看
xiaojielanbaihe 2009-08-25
- 打赏
- 举报
Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") and (orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T)) ORDER BY orderid "
把你的sql语句分开写就好了，不要这么复杂调用结果
而且
orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T
写得有问题
SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid
是取前N条数据做为查询结果，又从这个查询结果里选出max(orderid)，干嘛这么麻烦
直接SELECT max(orderid) from benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid
应该是一个结果
把你的sql语句分开写就好了，不要这么复杂调用结果
而且
orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T
写得有问题
SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid
是取前N条数据做为查询结果，又从这个查询结果里选出max(orderid)，干嘛这么麻烦
直接SELECT max(orderid) from benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid
应该是一个结果
zhaopaishu 2009-08-25
- 打赏
- 举报
Set RsPordCount2=Server.CreateObject("ADODB.RecordSet")
Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") and (orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T)) ORDER BY orderid "
RsPordCount2.open Sqlprod2,Conn,1,1
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
do while not RsPordCount2.eof
PordCountI=PordCountI+1
Hope_body=Hope_body&"<td width=""207"" valign=""top"" align=""center"">"
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
Hope_body=Hope_body&"<td><center>"&RsPordCount2("prodName")&"</center></td></tr>"
Hope_body=Hope_body&"</table>"
Hope_body=Hope_body&"</td>"
if PordCountI mod 1 =0 then
Hope_body=Hope_body&"</tr><tr>"
end if
if RsPordCount2.RecordCount=1 then
Hope_body=Hope_body&"<td width=""50%"" valign=""top"" class=""bottom_dashedl_line"" height=""100""> </td>"
end if
RsPordCount2.movenext
loop
RsPordCount2.close
set RsPordCount2=nothing
Hope_body=Hope_body&"</tr>"
Hope_body=Hope_body&"</table>"
这段是循环的，出不来数据，当我把查询语句改成Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") ORDER BY orderid 这个就可以显出，可是分页不了。。。
Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") and (orderid >= (SELECT max(orderid) FROM (SELECT TOP "&tempsum&" orderid FROM benming_ch_zhichi where show=1 and Catid in("&strCatid&") ORDER BY orderid ) AS T)) ORDER BY orderid "
RsPordCount2.open Sqlprod2,Conn,1,1
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
do while not RsPordCount2.eof
PordCountI=PordCountI+1
Hope_body=Hope_body&"<td width=""207"" valign=""top"" align=""center"">"
Hope_body=Hope_body&"<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor=""#000000"">"
Hope_body=Hope_body&"<tr>"
Hope_body=Hope_body&"<td><center>"&RsPordCount2("prodName")&"</center></td></tr>"
Hope_body=Hope_body&"</table>"
Hope_body=Hope_body&"</td>"
if PordCountI mod 1 =0 then
Hope_body=Hope_body&"</tr><tr>"
end if
if RsPordCount2.RecordCount=1 then
Hope_body=Hope_body&"<td width=""50%"" valign=""top"" class=""bottom_dashedl_line"" height=""100""> </td>"
end if
RsPordCount2.movenext
loop
RsPordCount2.close
set RsPordCount2=nothing
Hope_body=Hope_body&"</tr>"
Hope_body=Hope_body&"</table>"
这段是循环的，出不来数据，当我把查询语句改成Sqlprod2="SELECT TOP "&msg_per_page&" * FROM benming_ch_zhichi WHERE show=1 and Catid in("&strCatid&") ORDER BY orderid 这个就可以显出，可是分页不了。。。
showoter 2009-08-25
- 打赏
- 举报
虽然很有条理，注解也很丰富，但楼主能不能把问题地方圈出来？看了十分钟硬是没能发现你代码中哪段有问题。水平有限。。。见谅。。。。
zhaopaishu 2009-08-25
- 打赏
- 举报
顶
