📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>{崭}设计_v1.0 [http://www.picicn.com]</title>
<link href="stely.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="24" background="images/link_bg.gif" class="yellow"> <img src="images/link_vt.gif" width="13" height="13" align="absmiddle"> 您当前的位置：{崭}设计</td>
</tr>
</table></td>
</tr>
<tr>
<td height="6" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/4_bg.gif"><img src="images/4_bt.gif" width="253" height="27"></td>
</tr>
<tr>
<td height="94" valign="top" background="images/5_bg.gif"><table width="100%" height="94" border="0" cellpadding="3" cellspacing="0">
<tr>
<td><table width="100%" height="89" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EDECED" class="red">·文章统计信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－文章总数：<%
sql="select * from Topic"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－回复总数：<%
sql="select * from Reply"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－置顶数量：<%
sql="select * from Topic where top=1"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
%></td>
</tr>
</table></td>
<td width="25%"><table width="100%" height="89" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EDECED" class="red">·访问统计信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－访问总数：<%
sql="select * from Statistics where ID=1"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs("total"))
rs.close
%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－在线人数：<%
sql="select * from Online"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－会员总数：<%
sql="select * from users"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
%></td>
</tr>
</table></td>
<td width="25%">
<table width="100%" height="89" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EDECED" class="red">·站内富翁排行</td>
</tr> <%sql="select * from users order by money DESC"
set rs=Server.createobject("ADODB.RECORDSET")
rs.open sql,conn,1,1
for i=1 to 3
%>
<tr>
<td bgcolor="#FFFFFF">－<%=rs("username")%> 金币：<%=rs("money")%></td>
</tr>
<%rs.movenext
next
rs.close%>
</table></td>
<td width="25%">
<%
sql="select * from users order by regtime DESC"
set rsuser=Server.CreateObject("ADODB.Recordset")
rsuser.open sql,conn,1,1
%> <table width="100%" height="89" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EDECED" class="red">·最新注册会员</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－<%response.write(rsuser("username"))%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－<%rsuser.movenext
response.write(rsuser("username"))%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">－<%rsuser.movenext
response.write(rsuser("username"))%></td>
</tr><%rsuser.close%>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td background="images/6_bg.gif"><img src="images/6_bg.gif" width="1" height="16"></td>
</tr>
</table>
<%
''''''''''''''''''''''''''''''''''''读取一级目录
sql="select * from topforum"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" background="images/7_bg.gif"><img src="images/7_bg.gif" width="1" height="10"></td>
</tr>
<tr>
<td width="26" bgcolor="#FF4E00"><img src="images/8_left.gif" width="26" height="23"></td>
<td bgcolor="#FF4E00" class="white"><%=rs("Title")%></td>
</tr>
<tr>
<td colspan="2" background="images/9_bg.gif"><img src="images/9_bg.gif" width="1" height="3"></td>
</tr>
</table>
<Script language="javascript" type="text/javascript">
function imagesrc(TheImg){
TheImg.src='images/ico/wjj2.gif';
}
function imagere(TheImg){
TheImg.src='images/ico/wjj.gif';
}
</Script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''读二级目录
sqls="select * from forum where topforum="&rs("ID")&" order by id DESC"
set rec=Server.CreateObject("ADODB.Recordset")
rec.open sqls,conn,1,1
i=rec.recordcount
k=0
do while not rs.eof
k=k+1
if k>i then
exit do
end if
%>
<tr>
<td width="30" align="center" background="images/index_tbg.gif" bgcolor="f4f4f4"><a href="forum.asp?topid=<%=rs("ID")%>&ID=<%=rec("ID")%>"><img src="images/ico/wjj.gif" width="23" height="23" border="0" onMouseOver="imagesrc(this)" onMouseOut="imagere(this)"></a></td>
<td background="images/index_tbg.gif" bgcolor="f4f4f4">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td><a href="forum.asp?topid=<%=rs("ID")%>&id=<%=rec("ID")%>"><span class="red"><%=rec("Title")%></span></a></td>
</tr>
<tr>
<td>·<%=rec("Explanation")%></td>
</tr>
<tr>
<td valign="bottom">·版主：暂时没……</td>
</tr>
</table></td>
<td width="80" background="images/index_tbg.gif" bgcolor="f4f4f4">
<%
sss="select * from Topic where forumID="&rec("ID")&" order by id DESC"
set rrr=Server.CreateObject("ADODB.Recordset")
rrr.open sss,conn,1,1
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td nowrap class="red">主题数：<%=rrr.recordcount%></td>
</tr>
<tr>
<td class="yellow">置顶数：<%=rec("jhs")%></td>
</tr>
<tr>
<td class="yellow"></td>
</tr>
</table></td>
<td width="300" background="images/index_tbg.gif" bgcolor="f4f4f4"><table width="100%" border="0" cellpadding="2" cellspacing="1">
<%if rrr.recordcount<>0 then%>
<tr>
<td class="red"> 最后主题:<a href="showtopic.asp?topID=<%=rs("ID")%>&ID=<%=rec("ID")%>&TopicID=<%=rrr("ID")%>">
<%if len(rrr("title"))>20 then%>
<%=left(rrr("title"),18)%>...
<%else%>
<%=rrr("title")%>
<%end if%>
</a></td>
</tr>
<tr>
<td class="yellow">作者：<%=rrr("username")%></td>
</tr>
<tr>
<td valign="bottom" class="yellow">最后回复:
<%
sql="select * from reply where topicid="&rrr("ID")&" order by ID DESC"
set rps=Server.CreateObject("ADODB.Recordset")
rps.open sql,conn,1,1
if rps.recordcount=0 then
response.write("暂无回复……")
else
if len(rps("title"))>10 then
lrp=left(rps("title"),10)&"..."
else
lrp=rps("title")
end if
response.write("["&rps("username")&"]"&lrp)
end if
rps.close
%></td>
</tr>
<%else%>
<tr>
<td>暂无主题……<%if session("username")<>"游客" then%>[<a href="newtopic.asp?topid=<%=rs("ID")%>&ID=<%=rec("ID")%>">发表主题</a>]<%end if%></td>
</tr>
<%end if%>
<%rrr.close%>
</table></td>
</tr>
<%
rec.movenext
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/10_bg.gif"><img src="images/10_bg.gif" width="2" height="23"></td>
</tr>
</table>
<%
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" background="images/7_bg.gif"><img src="images/7_bg.gif" width="1" height="10"></td>
</tr>
<tr>
<td width="26" bgcolor="#FF4E00"><img src="images/8_left.gif" width="26" height="23"></td>
<td bgcolor="#FF4E00" class="white">{在线统计}</td>
</tr>
<tr>
<td colspan="2" background="images/9_bg.gif"><img src="images/9_bg.gif" width="1" height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4">
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="4" cellspacing="1">
<tr>
<td class="red"> 图标说明：<img src="images/ico/UserRank0.gif" width="12" height="12" align="absmiddle"> 游客 | <img src="images/ico/UserRank1.gif" width="12" height="12" align="absmiddle"> 会员 | <img src="images/ico/UserRank2.gif" width="12" height="12" align="absmiddle"> 版主 | <img src="images/ico/UserRank3.gif" width="12" height="12" align="absmiddle"> 总版 | <img src="images/ico/UserRank4.gif" width="12" height="12" align="absmiddle"> 贵宾 | <img src="images/ico/UserRank5.gif" width="12" height="12" align="absmiddle"> 管理员 | <img src="images/ico/UserRank6.gif" width="12" height="12" align="absmiddle"> 站长</td>
</tr>
<tr>
<td bgcolor="eeeeee"><%
sql="select * from Online"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%> <font class="red" title="<%=rs("userip")%>"><%=rs("username")%></font> ｜<%
rs.movenext
loop
%></td>
</tr>
</table> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/10_bg.gif"><img src="images/10_bg.gif" width="2" height="23"></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
<p align="center">欢迎你，来自<script src="http://www.checkips.com/ip.asp"></script>的朋友！
<script src="http://www.21dx.com/count/count.asp?view=asp"></script></p>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -