 |
<% set rs = server.CreateObject("adodb.recordset")
str="select * from infoclass"
rs.open str,conn,3,2
dim classid
do while not rs.eof
%>
|
<%=rs("class_name")%> |
<% classid = rs("class_id")
set rs2 =server.CreateObject("adodb.recordset")
str2="select * from infoxclass where class_id='"&classid&"'"
rs2.open str2,conn,3,2
do while not rs2.eof
%>
|
|
<%rs2.movenext
loop
rs.movenext
loop
rs2.close
set rs2 = nothing
rs.close
set rs= nothing
%>
|
 |
|
<% dim page,kind,xkind
if request("page")<>"" then
page=request("page")
end if
kind=request("kind")
xkind=request("xkind")
if kind="" then
kind="合作商Ａ"
end if
if xkind<>"" then
str3="select * from info where info_kind='"&kind&"'and info_xkind='"&xkind&"' order by info_id desc"
else
str3="select * from info where info_kind='"&kind&"' order by info_id desc"
end if
set rs3= server.CreateObject("adodb.recordset")
rs3.open str3,conn,3,2
rs3.pagesize=10
if page="" then
page=1
end if
dim rowsnum
if rs3.recordcount>=1 then
rowsnum=0
end if
if page<1 then
page=1
end if
if Clng(page)>rs3.pagecount then
page=rs3.pagecount
end if
if rs3.pagecount > 0 then
rs3.absolutepage = page
end if
%>
|
