%
classid=request("classid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from feilei where classid="&classid,conn,1,3
classname=rs("classname")
topclass=rs("topclass")
rs.close
%>
中国流行网_上网导航_http://www.pop98.net
|
<%
rs.open "select * from detail where classid="&classid,conn,1,3
jishu=1
while not rs.eof
if jishu=1 or jishu mod 4 = 1 then
response.write "| "&rs("title")&" | "
else
response.write ""&rs("title")&" | "
end if
if jishu mod 4 =0 then response.write "
"
jishu=jishu+1
rs.movenext
wend
jishu=jishu-1
if jishu mod 4 <> 0 then
for i= 1 to 4-(jishu mod 4)
response.write " | "
if i = 4-(jishu mod 4) then response.write ""
next
end if
rs.close
%>
| |