<%
Set mypage=new xdownpage
mypage.getconn=dbconn
mypage.getsql="select * from spec_play where spec = '������'"
mypage.pagesize=21
set rs=mypage.getrs()
%>
<%
response.Write("")
for i=1 to mypage.pagesize
if not rs.eof then
response.write "| "
call disp() '������ʾ���ݵĹ���
x=3
if i/x=cint(i/x) then
response.write " | "
else
response.write "| "
end if
rs.movenext
else
exit for
end if
next
response.Write(" |
")
'rs.close
set rs = nothing
%>
<%sub disp()%>
<%end sub%> |
|
|