📄 map.asp
字号:
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#'include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站地图__<%=jjgn%>_建站铺修正版_bbs.jzpu.com</title>
<LINK href=news.css rel=stylesheet>
</head>
<body>
<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td rowspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
</tr>
<tr>
<td height="30" background="IMAGES/menu_bg.jpg" class="white_link"> 栏目导航 <b>当前位置：<a class="white_link" href="./" >网站首页</a>>>网站地图</b></td>
</tr>
<tr>
<td height="25">
<script language=javascript src=./zongg/ad.asp?i=13></script></td>
</tr>
<tr>
<td height="25">
<table width="95%" height="156" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse">
<tr>
<td height="10" valign=top> </td>
</tr>
<tr>
<td height="10" valign=top><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="20" colspan="5">
<%
dim menuid1
dim menuname1
dim menucontent1
dim menuview1
set rs22=server.CreateObject("ADODB.RecordSet")
rs22.Source="select * from " & db_Type_Table & " where typeview=1 order by typeorder"
rs22.Open rs22.Source,conn,1,1
i=1
while not rs22.EOF
RecordCount=rs22.RecordCount
menuid1=rs22("typeid")
menuname1=rs22("typename")
menucontent1=rs22("typecontent")
menuview1=rs22("typeview")
%>
<img src="images/m.gif" width="13" height="11"><a class=middle target="_top" href='E_Type.asp?typeID=<%=menuid1%> ' title=<%=menucontent1%> ><%=menuName1 %></a><br>
<%
typeid=rs22("typeid")
set rs21=conn.execute("SELECT * FROM " & db_BigClass_Table & " where typeid="&typeid&" order by bigclassorder")
do while not rs21.eof
%>
<%if not Rs21.eof then%>
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td width="18%"> <img src="images/m1.gif" width="13" height="11"><a target="_top" class=middle href="E_BigClass.asp?typeid=<%=typeid%>&bigclassid=<%=Rs21("bigclassid")%>"><%=Rs21("E_BigClassName")%></a></td>
<td width="82%" background="images/h.gif" bgcolor="#FFFFFF">
<%set nrs=conn.execute("SELECT * FROM "& db_SmallClass_Table &" where bigclassid="&cstr(rs21("bigclassid"))&" order by smallclassorder")%>
<%do while not nrs.eof%>
<%if not nRs.eof then%>
<a target="_top" class=class href="E_SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("E_smallclassname")%></a>
<%nrs.movenext
end if %>
<%if not nRs.eof then%>
<a target="_top" class=class href="E_SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("E_smallclassname")%></a>
<%nRs.movenext
end if%>
<%loop
nRs.Close
set nRs=nothing
%>
</td>
</tr>
</table>
<%rs21.movenext
end if
loop
rs21.close
%>
<br>
<%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%>
</td>
</tr>
<tr>
<td height="10" valign=top> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file=bottom.asp -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -