%
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
%>
中国流行网-实用工具
|
| 中国流行网:
<%
dim xunxu
xunxu=">"&classname
while topclass<>0
rs.open "select * from feilei where classid="&topclass,conn,1,3
if not rs.eof then
xunxu=">"&rs("classname")&xunxu
topclass=rs("topclass")
end if
rs.close
wend
%>
首页->实用工具 |
|
本页更新日期:2004年11月1日 |
|
|
<%
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
%>
| |