📄 list.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<% cid=request.QueryString("cid")
	cname=request.QueryString("cname") %>
<html>
<head>
<title><%= cname %>-<%= 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 t_id,t_tit from wzxx where t_show and mid1= " & cid & " 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="center1_1">
<%=cname%>>>|
<%set rs=server.CreateObject("adodb.recordset")
rs.open"select * from munexx where m_type=2 and m_from=" & cid & " order by m_order asc",conn,1,1 
if rs.eof then
response.Write("数据加载中...")
else
while not rs.eof %>			
<a href="nlist.asp?cID=<%=rs(0)%>&cname=<%=rs(1)%>"><%=rs(1)%></a>&nbsp;|
<%rs.movenext
wend 
end if
rs.close
set rs=nothing %>

</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 wzxx.t_id,wzxx.mid2,wzxx.t_tit,wzxx.t_date,wzxx.t_hits,munexx.m_name from wzxx inner join munexx on wzxx.mid2=munexx.m_id where wzxx.mid1=" & cid & " and t_show=true order by t_id 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="cid,cname"
csz="" & cid & "," & cname & ""
i=0
do until rs.eof or rs.bof or i=25 %>
<li><img src="../images/title_bar2.gif" width="8" height="8"> 【<%=rs("m_name")%>】 <a href="read.asp?id=<%=rs("t_id")%>&title=<%=rs("t_tit")%>" target="_blank" title="<%=rs("t_tit")%>"><%=rs("t_tit")%></a> &nbsp;【<%=rs("t_date")%>】</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 + -