📄 map.asp
字号:
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站地图__<%=jjgn%>完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<LINK href=news.css rel=stylesheet>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="760" bordercolor="#FDFCF8" bgcolor="#ffffff" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<!--政务日历开始-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="100%" class="daohang"> <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="25" background="IMAGES/WmCms_Result.gif"> <font class=m_tittle> </font>  <a href="./" class="daohang">网站首页</a>＞网站地图</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='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%" background="images/h.gif" bgcolor="#CCCCCC"> <img src="images/m1.gif" width="13" height="11"><a target="_top" class=middle href="BigClass.asp?typeid=<%=typeid%>&bigclassid=<%=Rs21("bigclassid")%>"><%=Rs21("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="SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%></a> <%nrs.movenext
end if %> <%if not nRs.eof then%> <a target="_top" class=class href="SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("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>
</td>
<td width="6"> </td>
<!--#include file="WmCms_Rmap.asp"-->
</tr></table>
<!--#include file=bottom.asp -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -