📄 meng.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--快速分类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<table width="770" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/class_bg.jpg" height=50> <img src="images/ring02.gif" width="23" height="15" align="absmiddle">
<a href=index.asp><font color="#009999"><%=webname%></font></a><font color="#009999"> >> 快速查找</font></td>
</tr>
</table>
<table width=100% align=center class=table-shangxia border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>
<TR>
<TD bgColor=#ffffff colSpan=0 height=1></TD>
<TR>
<tr>
<td align=center width=20% height=30><font color="#009999">所在省</font></td>
<td align=center width=80% height=30><font color="#009999">加盟的网站</font></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
dim shengid
shengid=request("shengid")
set rs=server.CreateObject("adodb.recordset")
if shengid="" then
rs.open "select * from szsheng order by shengorder",conn,1,1
else
rs.open "SELECT * From szsheng where shengorder="&shengid&" order by shengorder",conn,1,1
end if
if rs.recordcount=0 then
response.write "<br>目前没有省分类"
else
while not rs.eof
%>
<table width=100% border="0" cellpadding="5" cellspacing="0" class="table-xia" bgColor=#f1f1f1>
<TR><TD bgColor=#ffffff colspan=20 height=1></TD><TR>
<tr>
<td width="23%" rowspan="20" STYLE='PADDING-LEFT: 18px'><img src="images/ring01.gif" align="absmiddle">
<font color="#FF6600"><a href=jetway1.asp?shengid=<%=rs("shengorder")%>><font color="#FF6600"></font></a><a href=meng.asp?shengid=<%=rs("shengorder")%>><font color="#FF6600"><%=rs("shengname")%></font></a></font></td>
</tr>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from szshi where shengid="&rs("shengorder")&" order by shiorder",conn,1,1
if rs_s.recordcount=0 then
%>
<tr>
<td width="77%" colspan="8">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td width="80%" height="30" align="center" colspan="8">暂无小分类</td></tr>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td width="100" height="30">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="100">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="100">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="100">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="100">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="100">
<a href=<%=rs_s("shiurl")%> target="_blank"><font color="#009999"><%=rs_s("shiname")%></font></a>
</td>
<%
rs_s.movenext
end if
end if
end if
end if
end if
wend
end if
%>
</tr>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</tr>
</table><%if shengid<>"" then%>
<table width=100% border="0" align="center" cellpadding="5" cellspacing="0" bgColor=#f1f1f1 class="table-xia">
<tr>
<td width="682"><div align="right"><a href="meng.asp"><font color="#58BCF1">查看全部>>></font></a></div></td>
<td width="66"> </td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table><!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -