<%
if instr(request.querystring,"'") or instr(request.querystring,"<") or instr(request.querystring,"%") then
response.Redirect("https://www.uupoop.com")
response.End()
end if
function convert(str)
str=replace(str,"'","��")
str=replace(str,"""",""")
str=replace(str," "," ")
str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,chr(13)," ")
convert=str
End function
function getallclassid(parentclassid)
if parentclassid<>"" then
if session("allclassof("&parentclassid&")")<>"" then
getallclassid=session("allclassof("&parentclassid&")")
else
set rs_getallclassid=server.createobject("adodb.recordset")
rs_getallclassid.open "select * from feilei where topclass="&parentclassid,conn,1,3
dim clss
redim clss(rs_getallclassid.recordCount)
dim i
i=0
while not rs_getallclassid.eof
clss(i)=rs_getallclassid("classid")
rs_getallclassid.movenext
i=i+1
wend
rs_getallclassid.close
dim s
dim j
s=""&parentclassid
for j=0 to i
dim x
x=clss(j)
x=getallclassid(x)
if x<>"" then
s=s&","& x
end if
next
session("allclassof("&parentclassid&")")=s
getallclassid=s
end if
else
getallclassid=""
end if
end function
dim rslist(5) ' ֧���弶�����
function listClass(i,ostr, curClassid)
' ������Լ�
blank = ""
for j=0 to i-1
blank = blank & " "
next
style=""
if cstr(curClassid)=cstr(rslist(i-1)("classid")) then
style="text-decoration:none;color:RED"
else
style="text-decoration:none;color:#006699"
end if
ostr=ostr & "
"
blank = blank & " "
' �ҵ��ӣ��ٲ����ں��棬�Զ��������һ���ո�
set rslist(i)=server.createobject("adodb.recordset")
rslist(i).open "select * from feilei where topclass="&rslist(i-1)("classid")&" order by classname",conn,1,3
while not rslist(i).eof
if i�̳� ������������ͼƬ�༭��
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from detail where classid="&request("id")&" order by id desc",conn,1,3
rs.pagesize=MaxPerPage
if not (rs.eof or err) then rs.move (page-1)*maxPerPage
dim j
j=1
do while not rs.eof
article_list=article_list & "
"
if page<>1 then
up_down=up_down &" ��ҳ"
up_down=up_down &" ��ҳ"
end if
if page=1 then
up_down=up_down &" ��ҳ ��ҳ"
elseif page-rs.pageCount=0 then
up_down=up_down &" ��ҳ βҳ "
end if
if not (rs.eof or err) and page-rs.pageCount<>0 then
up_down=up_down &" ��ҳ"
up_down=up_down &" βҳ"
end if
up_down=up_down &" ��ת"
up_down=up_down & " ��"&rs.recordCount&"���"&page&"/"&rs.pageCount&"ҳ"
up_down=up_down &"
![](../images/menu"&i&".gif)
"&convert(rslist(i-1)("classname"))&"