📄 navigate.asp
字号:
<%Server.ScriptTimeout=5000%>
<%
response.buffer=true
%>
<!-- Design and Edit By QianFengyun 2000-5-20 -->
<!-- #include file=change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0041)http://www.china114net.com 中国114网 -->
<html>
<head>
<title><%=titlename%></title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="html/style.css">
</head>
<%fid=request("fid")
if isNumeric(fid)=0 or fid="" then fid=0
if fid<0 then fid=0
%>
<!-- #include file=database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from fenlei where id="&fid
rs.open sql,conn,1,1
if rs.eof or rs.bof then
'response.write "没有这个分类!"
rs.close
fid=0
else
expediency=rs("expediency")
%>
<BODY vlink=0000ff leftmargin="0" topmargin="10" marginwidth="0" marginheight="0" bgcolor="#FFFFFF">
<!-- #include file=inc/head.inc -->
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=<%=tablebgcolor1%> height=20>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</TR>
<TR align="center">
<TD height=3><img src=images/blank.gif height=1></TD>
</TR>
<tr>
<td>
<a href=navigate.asp?id=1&fid=0>总分类</a>
<%for i=1 to expediency-1
response.write " > <a href=navigate.asp?id="&id&"&fid="&rs(10+i)&">"&trim(rs(i))&"</a>"
next
response.write " > "&trim(rs(i))
rs.close
%>
</td>
</tr>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</table>
<%
sql="select id,num,fenlei"&expediency+1&" from fenlei where father="&fid
rs.open sql,conn,1,1
if not rs.eof then
response.write "<table width=700 border=0 cellspacing=0 cellpadding=0 align=center><tr>"
response.write "<br>共有以下几个分类:"
tnum=rs.recordcount
num=int(tnum/3)
if (tnum mod 3)<>0 then
num=num+1
end if
do while not rs.eof
response.write "<td valign=top><ul>"
if num<1 then
response.write "<li><a href=navigate.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
rs.movenext
else
for nn=1 to num
if not rs.eof then
response.write "<li><a href=navigate.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
rs.movenext
else
exit for
end if
next
end if
response.write "</ul></td>"
'if rs.eof then exit do
loop
response.write "</tr></table>"
end if
rs.close
end if
if fid=0 then%>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=<%=tablebgcolor1%> height=20>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</TR>
<TR align="center">
<TD height=3><img src=images/blank.gif height=1></TD>
</TR>
<tr>
<td>
总分类
</td>
</tr>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</TR>
</table>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
sql="select id,num,fenlei1 from fenlei where father=0 order by id"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<br>共有以下几个分类:"
tnum=rs.recordcount
num=int(tnum/3)
if (tnum mod 3)<>0 then
num=num+1
end if
end if
do while not rs.eof
response.write "<td valign=top><ul>"
if num<1 then
response.write "<li><a href=navigate.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
rs.movenext
else
for nn=1 to num
if not rs.eof then
response.write "<li><a href=navigate.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
rs.movenext
else
exit for
end if
next
end if
response.write "</ul></td>"
'if rs.eof then exit do
loop
response.write "</tr></table>"
rs.close
end if
if fid>0 then
%>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=<%=tablebgcolor1%> height=20>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</TR>
<TR align="center">
<TD height=3><img src=images/blank.gif height=1></TD>
</TR>
<tr>
<td>
网站
</td>
</tr>
<TR align="center">
<TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</TR>
</table>
<table width=700 align=center>
<tr><td>
<%
sql="select * from linking where fenleiid="&fid
rs.open sql,conn,1,1
if not rs.eof then
response.write "<br><ul>"
do while not rs.eof
response.write "<li><a href='"&server.htmlencode(rs("url"))&"' target=bottom>"&server.htmlencode(trim(rs("sitename")))&"</a> -- "&trim(rs("jiji"))&"</li>"
rs.movenext
loop
response.write "</ul>"
else
response.write "还没有网站加入这个类别下!"
end if
rs.close
%></td></tr><tr><td colspan="&num&"><hr width=700 align=center size=1 color=<%=tablebgcolorbian%>></td></tr></table>
<%end if%>
<!--
<hr width=700 align=center size=1 color=<%=tablebgcolorbian%>>
-->
<!-- #include file=inc/end.inc -->
</BODY>
</HTML>
<%set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -