📄 index.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<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 munexx where m_type=1 order by m_order asc",conn,1,1
if not rs.eof then
c=0
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="list.asp?cID=<%=rs(0)%>&cname=<%=rs(1)%>"><%=rs(1)%></a></h1></div>
<% set rst=server.CreateObject("adodb.recordset")
rst.open "select top 12 t_id,t_tit from wzxx where mid1=" & rs(0) & " and t_show=true order by t_id desc",conn,1,1
if not rst.eof then
sum=0 %>
<div id="center2">
  <ul>
    <% while not rst.eof %>
    <li><img src="../images/title_bar3.gif" /> <a href="read.asp?id=<%=rst(0)%>&title=<%=rst(1)%>" target="_blank" title="<%=rst(1)%>"><%=rst(1)%></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 + -