📄 zurl.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<html>
<head>
<title><%= SysName %>-<%= SysUrl %></title>
<!--#include file="top.asp" -->
<div id="content">
<div id="right1"><h2>本 站 公 告</h2></div>
<div id="right2">
<%= note %>
</div>
<div id="right4"><h2>友 情 链 接</h2></div>
<div id="right5">
<ul>
<%= link %>
</ul>
</div>
<div id="z">
<div id="left1"><h2>人 气 排 行</h2></div>
<div id="left2">
<ul>
<% set rs=server.CreateObject("adodb.recordset")  
rs.open "select top 15 t_id,t_tit from wzxx where t_show=true order by t_hits desc",conn,1,1  
if not rs.eof then
while not rs.eof %>
<li><img src="../images/t.gif" width="11" height="11"> <a href="read.asp?id=<%=rs(0)%>&title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=rs(1)%></a></li>
<%rs.movenext                 
wend
else
response.Write("<li>数据加载中...</li>")
end if
rs.close
set rs=nothing %>
</ul>
</div>
<div id="left3"><h2>精 品 美 文</h2></div>
<div id="left4">
<ul>
<% set rs=server.CreateObject("adodb.recordset")  
rs.open "select top 16 mzid,mztit from mzxx order by mzid desc",conn,1,1 
if not rs.eof then
while not rs.eof %>
<li><img src="../images/t.gif"> <a href="mzview.asp?id=<%=rs(0)%>&title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=rs(1)%></a></li>
<%	rs.movenext 
wend
else
response.Write("<li>数据加载中...</li>")
end if
rs.close
set rs=nothing %>
</ul>
</div>
<% set rs=server.CreateObject("adodb.recordset")
rs.open"select * from ztype order by z_id desc",conn,1,1
if not rs.eof then
while not rs.eof %>
<div id="center1"><h3><a style="float:right" href="http://www.baidu.com/s?tn=mia8_pg&ct=&lm=&z=&rn=&word=<%= rs(1) %>&_sv=1" target="_blank">去百度搜索更多...</a></h3>
<h1><a href="#"><%=rs(1)%></a></h1></div>
<% set rst=server.CreateObject("adodb.recordset")
rst.open "select * from zurl where u_tp=" & rs(0) & " order by u_id desc",conn,1,1
if not rst.eof then
sum=0 %>
<div id="centerz">
<ul>
<% while not rst.eof %>
<li>·<% If rst(5)=true Then %>[<font color="#FF0000">荐</font>]<% End If %><a href="<%=rst(3)%>" target="_blank" title="<%=rst(4)%>"><%=rst(2)%></a></li>
<% rst.movenext
sum=sum+1
wend %>
</ul>
</div>
<% else %>
<div id="center_n">数据加载中...</div>
<% end if
rst.close
set rst=nothing
rs.movenext
c=c+1
wend
else %>
<div id="center_n">数据加载中...</div>
<% 	end if
rs.close
set rs=nothing %>
</div>
</div>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -