📄 indebcxg.asp
字号:
else
A="本栏"
end if
'增加小类名称程序结束
%>
<tbody>
<tr>
<td><table width="100%" border="0" cellpadding="2" cellspacing="0">
<tbody>
<tr>
<td height="22"><img src="IMAGES/point.gif" width="10" height="7"><%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
<!--标题后评论提示-->
<% if rs3("titlesize")>=1 then %>
<A class=middle HREF="<%=path%>review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
<%end if %>
<!--标题后评论提示-->
<%''if showauthor="1" then%>
<%''=rs3("Author")%>
<%''end if%> </td>
</tr>
<tr>
<td background="IMAGES/bg_line.gif" height="1"></td>
</tr>
</tbody>
</table></td>
</tr>
<%rs3.MoveNext
wend
%>
</tbody>
</table></td>
</tr>
<tr>
<td width="10%" align="right" bgcolor="#E3E3E3"></td>
<td width="90%" align="right" bgcolor="#FFFFFF"><a class="class" href="E_Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" alt="更多<%=typeName%>" width="28" height="9" border="0" /></a></td>
</tr>
</tbody>
</table></td>
<%end if%>
</tr>
</table>
<%
next
rs3.close
set rs3=nothing
%></td>
<td width="210" align="right"><!--#include file="rightside.asp"--></td>
</tr></table>
<table>
<tr valign="top">
<td height="198" colspan="2"><div align="center">
<!--广告调用-->
<table width="760" height="90" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="90" valign="middle">
<div align="center">
<script language=javascript src=./zongg/ad.asp?i=13></script>
</div></td>
</tr>
</table>
<!--广告调用结束-->
<table width="760" height="108" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15"><img src="IMAGES/link_bg_01.gif" width="15" height="108"></td>
<td width="738" background="IMAGES/link_bg_02.gif"><table width="100%" height="31" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<%if showlinkmap=1 then%>
<td colspan="2" align="center" height="31"><%if linkshownum >8 then
Response.Write "<script language=JavaScript>marquee_logo_news();</script><P align=left>"& vbcrlf
end if
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=2 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to linkshownum
if not rs10.EOF then%>
<a href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("webname")%> 简介：<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>"><img src="<%=rs10("logo")%>" width="88" height="31" border="0" align=left></a>
<%rs10.MoveNext
else%>
<a href="#" onClick="javascript:linkreg()"><img src="images/nologo.gif" width=88 height=31 border=0 align=left></a>
<%end if
Next%> </td>
<%
rs10.Close
set rs10=nothing
end if%>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<%if showlink=1 then
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to 6
if not rs10.EOF then
%>
<td height=31 align="center"><a class="middle" href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("content")%>
站长：<%=rs10("webmaster")%>
申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%></a></td>
<%
rs10.MoveNext
else
%>
<td height=31 align="center"><a class="middle" href="#" onClick="javascript:linkreg()">您的位置</a></td>
<%end if
Next
rs10.Close
set rs10=nothing
%>
<td align="center"><input type=button style="cursor:hand" name=link1 value="申请" onClick="javascript:linkreg()">
<input type=button style="cursor:hand" name=link1 value="更多" onClick="javascript:morelink()"> </td>
</tr>
<%end if%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" background="IMAGES/bg_line.gif"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="4" bgcolor="#FFFFFF">
<tr>
<td width="141"><div align="center">
<select style="WIDTH: 90%"
onChange="window.open(this[this.selectedIndex].value,'','')"
name=select4>
<option selected>-中央部门网站-</option>
<option value="http://www.court.gov.cn/">最高人民法院</option>
<option value="http://www.spp.gov.cn/gzdt/">最高人民检察院</option>
<option value="http://npc.people.com.cn/">全国人大办公厅</option>
<option value="http://www.fmprc.gov.cn/chn">外交部</option>
<option value="http://www.sdpc.gov.cn">国家发展计划委员会</option>
<option value="http://www.setc.gov.cn">国家经贸委</option>
<option value="http://www.moe.edu.cn">教育部</option>
<option value="http://www.most.gov.cn">科学技术部</option>
<option value="http://www.costind.gov.cn">国防科工委</option>
<option value="http://www.seac.gov.cn">国家民委</option>
<option value="http://www.mps.gov.cn">公安部</option>
<option value="http://www.mca.gov.cn">民政部</option>
<option value="http://www.mof.gov.cn">财政部</option>
<option value="http://www.mop.gov.cn">人事部</option>
<option value="http://www.mlr.gov.cn">国土资源部</option>
<option value="http://www.cin.gov.cn">建设部</option>
<option value="http://www.chinamor.cn.net">铁道部</option>
<option value="http://www.moc.gov.cn">交通部</option>
<option value="http://www.mii.gov.cn">信息产业部</option>
<option value="http://www.agri.gov.cn">农业部</option>
<option value="http://www.mwr.gov.cn">水利部</option>
<option value="http://www.moftec.gov.cn">外经贸部</option>
<option value="http://www.pbc.gov.cn">中国人民银行</option>
<option value="http://www.moh.gov.cn">卫生部</option>
<option value="http://www.sfpc.gov.cn">国家计生委</option>
<option value="http://www.ccnt.gov.cn">文化部</option>
<option value="http://www.molss.gov.cn">劳动和社会保障部</option>
</select>
</div></td>
<td width="142"><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>
<option value="http://www.cq.gov.cn">重庆市</option>
<option value="http://www.jiangsu.gov.cn">江苏省</option>
<option value="http://www.gd.gov.cn">广东省</option>
<option value="http://www.zhejiang.gov.cn">浙江省</option>
<option value="http://www.ah.gov.cn">安徽省</option>
<option value="http://www.hainan.gov.cn">海南省</option>
<option value="http://www.sc.gov.cn">四川省</option>
<option value="http://www.gzgov.gov.cn">贵州省</option>
<option value="http://www.hlj.gov.cn">黑龙江</option>
<option value="http://www.jiangxi.gov.cn">江西省</option>
<option value="http://www.yn.gov.cn">云南省</option>
<option value="http://www.shaanxi.gov.cn">陕西省</option>
<option value="http://www.gansu.gov.cn">甘肃省</option>
<option value="http://www.henan.gov.cn">河南省</option>
<option value="http://www.hubei.gov.cn">湖北省</option>
<option value="http://www.jl.gov.cn">吉林省</option>
<option value="http://www.ln.gov.cn">辽宁省</option>
<option value="http://www.shanxi.gov.cn">山西省</option>
<option value="http://www.hunan.gov.cn">湖南省</option>
<option value="http://www.qh.gov.cn">青海省</option>
<option value="http://www.xinjiang.gov.cn">新疆</option>
<option value="http://www.gxi.gov.cn">广西</option>
<option value="http://www.info.gov.hk">香港</option>
<option value="http://www.macau.gov.mo">澳门</option>
</SELECT>
</div></td>
<td width="140"><div align="center">
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select>
<option>-省级机关网站-</option>
<option value="http://www.xxxxxxxxx.com"></option>
</SELECT>
</div></td>
<td width="142"><div align="center">
<SELECT style="WIDTH: 90%"
onchange="window.open(this[this.selectedIndex].value,'','')"
name=select5>
<option selected>-县内部门网站-</option>
<option value="http://www.xxxxxxxxx.com"></option>
</SELECT>
</div></td>
<td width="141"><select style="WIDTH: 90%"
onChange="window.open(this[this.selectedIndex].value,'','')"
name=select2>
<option selected>-新闻媒体网站-</option>
<option value="http://www.xinhua.org">新华网</option>
<option value="http://www.people.com.cn">人民网</option>
<option value="http://www.eastday.com">东方网</option>
<option value="http://www.gmw.com.cn">光明网</option>
<option value="http://cn.yahoo.com">雅虎</option>
<option value="http://www.163.com">网易新闻</option>
<option value="http://news.sina.com.cn">新浪网</option>
<option value="http://news.sohu.com">搜狐新闻</option>
<option value="http://www.bjd.com.cn">京报网</option>
<option value="http://www.phoenixtv.com/home/0,1328,1-1,00.html">凤凰网</option>
<option value="http://www.chinadaily.com.cn">中国日报</option>
<option value="http://www.cctv.com">央视国际</option>
<option value="http://www.chinanews.com.cn">中国新闻社</option>
<option value="http://www.stdaily.com">科技日报</option>
<option value="http://www.economicdaily.com.cn">经济日报</option>
<option value="http://www.bjyouth.com.cn">北京青年报</option>
<option value="http://www.263.net">首都在线</option>
<option value="http://www.cyol.net">中青在线</option>
<option value="http://www.21dnn.com">千龙新闻网</option>
<option value="http://www.cri.com.cn">中国国际广播电台</option>
<option value="http://www.cnradio.com">中央人民广播电台</option>
<option value="http://www.btv.org.cn">北京电视台</option>
<option value="http://www.bjradio.com.cn">北京人民广播电台</option>
</select></td>
</tr>
</table></td>
<td width="10"><div align="right"><img src="IMAGES/link_bg_04.gif" width="15" height="108"></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%else
Response.Write "<table width=988 align=center border=0 height=50><tr><td align=center>暂 无 文 章 类 别，请 <a href=login.asp>登 陆</a> 后 添 加！</td></tr></table>"
end if%>
<%end if%>
<!--#include file=Bottom.asp -->
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -