📄 mz.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 18 mzid,mztit from mzxx order by mzhits 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="center1_1">
精品美文 <a href="http://www.baidu.com/s?tn=mia8_pg&ct=&lm=&z=&rn=&word=精品美文&_sv=1" target="_blank">去百度搜索更多...</a></div>
<div id="center2_1">
<% mypage=request("page")
If mypage="" or mypage<1 then
mypage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select mzid,mztit,mzdate from mzxx order by mzid desc " ,conn,1,1
if rs.eof or rs.bof then
response.write"<p align='center'>数据加载中...</p>"
else
rs.pagesize=25
sum=rs.recordcount
maxpage=cint(rs.pagecount)
rs.absolutepage=mypage
rec = cint(rs.pagesize)
cs=""
csz=""
i=0
do until rs.eof or rs.bof or i=25 %>
<li><img src="../images/title_bar2.gif" width="8" height="8"> <a href="mzview.asp?id=<%=rs(0)%>&title=<%= rs(1) %>" target="_blank" title="<%=rs(1)%>"><%=rs(1)%></a> 【<%=rs(2)%>】</li>
<% rs.movenext
i=i+1
loop
end if
scriptname=request.servervariables("script_name")
rs.close
set rs=nothing %>
</div>
<div id="pg"><% call pagelist(sum,rec,maxpage,mypage,scriptname,cs,csz) %></div>
</div>
</div>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -