📄 index.asp
字号:
RecordCount=rs22.RecordCount
menuid1=rs22("typeid")
menuname1=rs22("typename")
menucontent1=rs22("typecontent")
menuview1=rs22("typeview")
%>
〖<b><a class=4 target="_top" href='type.asp?typeID=<%=menuid1%> ' title=<%=menucontent1%> ><%=menuName1 %></a></b>〗
<%
typeid=rs22("typeid")
set rs21=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
do while not rs21.eof
%> <%if not Rs21.eof then%> <a target="_top" class=4 href="bigclass.asp?typeid=<%=typeid%>&bigclassid=<%=Rs21("bigclassid")%>"><%=Rs21("bigclassname")%></a> <%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs21("bigclassid"))&" order by smallclassorder")%> <%do while not nrs.eof%> <%if not nRs.eof then%>
|<a target="_top" class=4 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=4 href="SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%></a> <%nRs.movenext
end if%> <%loop
nRs.Close
set nRs=nothing
%> <%rs21.movenext
end if
loop
rs21.close
%> <br> <%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%></td>
</tr>
</table></TD>
<TD></TD>
<TD></TD>
<TD colspan="2" valign="top"><table width="100%" height="100%" align="center" valign="middle" border="0" cellpadding="0" cellspacing="0" style="border: 1px solid #cccccc">
<!--DWLayoutTable-->
<tr>
<td width="169" height="30" valign="top"><img src="img/index_link.gif" width=169 height=30 alt=""></td>
</tr>
<tr>
<td valign="top"><%if showlinkmap=1 then%> <script language=JavaScript>marquee5();</script>
<!--#include file=link_map.asp -->
<script language=JavaScript>marquee6();</script> <%end if%> <%if showlink=1 then%> <%end if%></td>
</tr>
<tr>
<td valign="top"><div align="center">
<select name="select" onChange="window.open(this.options[this.selectedIndex].value,'_blank')" size="1">
<option value="">政府部门链接站点</option>
<%
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select * from link where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
if not rs10.EOF then
while not rs10.EOF
%>
<option value="<%=rs10("weburl")%>"><%=rs10("webname")%></option>
<%
rs10.MoveNext
wend
%>
<%
else
Response.Write "<option value=''>目前还没有</option>"
end if
rs10.Close
set rs10=nothing
%>
</select>
</div></td>
</tr>
<tr>
<td valign="middle"><div align="center">
<input type=button style="cursor:hand" name=link value="申请" onClick="javascript:linkreg()">
<input type=button style="cursor:hand" name=link value="更多" onClick="javascript:morelink()">
</div></td>
</tr>
<tr>
<td > </td>
</tr>
</table></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD height="36"></TD>
<TD colspan="9" valign="top"><table width="100%" border="0" align="center" valign="middle" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="775" height="36" valign="top"><TABLE class=line20 align="center" valign="middle" cellSpacing=0 cellPadding=5 width="100%"
border=0>
<TBODY>
<TR vAlign=top align=middle>
<TD> <DIV align=center>
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select4>
<OPTION selected>==国家部委网站==</OPTION>
<OPTION
value=http://www.fmprc.gov.cn/chn/>外交部</OPTION>
<OPTION
value=http://www.sdpc.gov.cn/>国家发展计划委员会
<OPTION
value=http://www.setc.gov.cn/>国家经贸委
<OPTION
value=http://www.moe.edu.cn/>教育部
<OPTION
value=http://www.most.gov.cn/>科学技术部
<OPTION
value=http://www.costind.gov.cn/>国防科工委
<OPTION
value=http://www.seac.gov.cn/>国家民委
<OPTION
value=http://www.mps.gov.cn/>公安部
<OPTION
value=http://www.mca.gov.cn/>民政部
<OPTION
value=http://www.mof.gov.cn/>财政部
<OPTION
value=http://www.mop.gov.cn/>人事部
<OPTION
value=http://www.mlr.gov.cn/>国土资源部
<OPTION
value=http://www.cin.gov.cn/>建设部
<OPTION
value=http://www.chinamor.cn.net/>铁道部
<OPTION
value=http://www.moc.gov.cn/>交通部
<OPTION
value=http://www.mii.gov.cn/>信息产业部
<OPTION
value=http://www.agri.gov.cn/>农业部
<OPTION
value=http://www.mwr.gov.cn>水利部</OPTION>
<OPTION
value=http://www.moftec.gov.cn/>外经贸部
<OPTION
value=http://www.pbc.gov.cn/>中国人民银行
<OPTION
value=http://www.moh.gov.cn/>卫生部
<OPTION
value=http://www.sfpc.gov.cn/>国家计生委
<OPTION
value=http://www.ccnt.gov.cn/>文化部
<OPTION
value=http://www.molss.gov.cn/>劳动和社会保障部</OPTION>
</SELECT>
</DIV></TD>
<TD> <DIV align=center>
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select3>
<OPTION selected>==各地政务网站==</OPTION>
<OPTION
value=http://www.beijing.gov.cn/>北京市</OPTION>
<OPTION
value=http://www.shanghai.gov.cn>上海市</OPTION>
<OPTION
value=http://www.tj.gov.cn/>天津市
<OPTION
value=http://www.cq.gov.cn/>重庆市
<OPTION
value=http://www.jiangsu.gov.cn/>江苏省
<OPTION
value=http://www.gd.gov.cn/>广东省
<OPTION
value=http://www.zhejiang.gov.cn/>浙江省
<OPTION
value=http://www.ah.gov.cn/>安徽省
<OPTION
value=http://www.hainan.gov.cn/>海南省
<OPTION
value=http://www.sc.gov.cn/>四川省
<OPTION
value=http://www.gzgov.gov.cn/>贵州省
<OPTION
value=http://www.hlj.gov.cn/>黑龙江
<OPTION
value=http://www.jiangxi.gov.cn/>江西省
<OPTION
value=http://www.yn.gov.cn/>云南省
<OPTION
value=http://www.shaanxi.gov.cn/>陕西省
<OPTION
value=http://www.gansu.gov.cn/>甘肃省
<OPTION
value=http://www.henan.gov.cn/>河南省
<OPTION
value=http://www.hubei.gov.cn/>湖北省
<OPTION
value=http://www.jl.gov.cn/>吉林省
<OPTION
value=http://www.ln.gov.cn/>辽宁省
<OPTION
value=http://www.shanxi.gov.cn/>山西省
<OPTION
value=http://www.hunan.gov.cn/>湖南省
<OPTION
value=http://www.qh.gov.cn/>青海省
<OPTION
value=http://www.xinjiang.gov.cn/>新疆
<OPTION
value=http://www.gxi.gov.cn/>广西
<OPTION
value=http://www.info.gov.hk/>香港
<OPTION
value=http://www.macau.gov.mo/>澳门</OPTION>
</SELECT>
</DIV></TD>
<TD> <DIV align=center>
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select2>
<OPTION selected>==新闻媒体网站==</OPTION>
<OPTION
value=http://cn.yahoo.com/>雅虎</OPTION>
<OPTION
value=http://www.xinhua.org/>新华网
<OPTION
value=http://news.sina.com.cn/>新浪网
<OPTION
value=http://news.sohu.com/>搜狐新闻
<OPTION
value=http://www.people.com.cn/>人民网
<OPTION
value=http://www.eastday.com/>东方网
<OPTION
value=http://www.gmw.com.cn/>光明网
<OPTION
value=http://www.bjd.com.cn/>京报网
<OPTION
value=http://www.phoenixtv.com/home/0,1328,1-1,00.html>凤凰网</OPTION>
<OPTION value=http://www.chinadaily.com.cn/>中国日报
<OPTION
value=http://www.cctv.com/>央视国际
<OPTION
value=http://www.chinanews.com.cn/>中国新闻社
<OPTION
value=http://www.stdaily.com/>科技日报
<OPTION
value=http://www.economicdaily.com.cn/>经济日报
<OPTION
value=http://www.bjyouth.com.cn>北京青年报</OPTION>
<OPTION
value=http://www.263.net/>首都在线
<OPTION
value=http://www.cyol.net/>中青在线
<OPTION
value=http://www.21dnn.com/>千龙新闻网
<OPTION
value=http://www.cri.com.cn/>中国国际广播电台
<OPTION
value=http://www.cnradio.com/>中央人民广播电台
<OPTION
value=http://www.btv.org.cn/>北京电视台
<OPTION
value=http://www.bjradio.com.cn/>北京人民广播电台
<OPTION
value=http://www.163.com/>网易新闻
<OPTION
value=http://www.fj007.com/>辽宁IT资讯网</OPTION>
</SELECT>
</DIV></TD>
<TD> <DIV align=center>
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select>
<OPTION selected>==省内重要网站==</OPTION>
</SELECT>
</DIV></TD>
<TD> <DIV align=center>
<SELECT id=hot style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=hot>
<OPTION selected>==县市门户网站==</OPTION>
</SELECT>
</DIV></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD height="5"></TD>
<TD></TD>
<TD width="188"></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD height="1"> <IMG SRC="images/spacer.gif" WIDTH=5 HEIGHT=1 ALT=""></TD>
<TD></TD>
<TD></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=10 HEIGHT=1 ALT=""></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
</TABLE>
<%else
Response.Write "<table width=700 border=0 height=25><tr><td align=center>暂无文章类别,请<a href=admin/login.asp>登陆</a>后添加!</td></tr></table>"
end if%>
<!--#include file=include/bottom.asp -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -