📄 index.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="mymem.asp" -->
<%
'=========================================================
' File: index.asp
' Version:1.0.1
' Date: 2003-8-23
' Script Written by cheng
'=========================================================
' Copyright (C) 2002-2003 mtvok.com. All rights reserved.
' Web: http://www.mtvok.com,http://www.dvking.cn,http://www.dvonlin.cn
' Email: zcl22@21cn.com
'=========================================================
%>
<table width="760" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="787" height="10" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td height="21">
<%
call ltmessetruyg()
sub ltmessetruyg()
dim rs,retzsums,tzsums,newuser,todaytz,yestdayft
tzsums=0
retzsums=0
set rs=conn.execute("select top 1 user from userinfo order by id desc")
newuser=rs("user")
set rs=conn.execute("select tzsum,retzsum,todayft,yestdayft from ltlb")
do while not rs.eof
retzsums=retzsums+rs("retzsum")
tzsums=tzsums+rs("tzsum")
todaytz=todaytz+rs("todayft")
yestdayft=yestdayft+rs("yestdayft")
rs.movenext
loop
response.Write("欢迎新加入会员 <b><a href=usertype.asp?user="&newuser&">"&newuser&"</a></b><br><br>")
response.Write("论坛共有<strong>: "&loadcopyc("reguser")&" </strong><a href=listalluser.asp>注册会员</a>,")
response.Write("主题总数<b>: "&tzsums&"</b>,帖子总数<b>: "&(retzsums+tzsums))&"</b><br><br>"
response.Write("今日共发主题<b>: <font color=red>"&todaytz&"</font></b>,昨日主题<b>: "&yestdayft&"</b>,最高日发帖: ")
set rs=conn.execute("select hft,hfttime from admin_copyc")
if rs("hft")<todaytz then
conn.execute("update admin_copyc set [hft]="&todaytz&",[hfttime]=now()")
end if
response.write("<b>"&rs("hft")&" </b> ["&rs("hfttime")&"]")
end sub
%>
</td>
</tr>
<tr>
<td height="18">
<%
call listzlt()
sub listzlt()
dim rs,sql,i
if request.QueryString("atlb")<>"" then '显示单个分论坛
set rs=conn.execute("select id,ltname from ltname where id="&request.QueryString("atlb"))
call listlbboard(rs("id"),rs("ltname"))
else '显示所有分论坛
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select id,ltname from ltname order by b_order desc,id desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount
call listlbboard(rs("id"),rs("ltname"))
rs.movenext
next
end if
rs.close
set rs=nothing
end sub
sub listlbboard(zlt,ltname) '显示分论坛子程序
dim rs,sql,i,ltconfig
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ltlb where atlb='"&zlt&"'order by b_order desc,id desc"
rs.open sql,conn,1,1
call tabletop(true,"top")
%> <table width="100%" align="center" bgcolor="#92b9fb" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#0053A6">
<td height="27" background="backimg/bg1.gif" bgcolor="#0053A6" > <img id="isimg<%=zlt%>" onClick="HidexMenu('<%=zlt%>')" src="backimg/nofollow.gif" width="15" height="15"><b><font color="#FFFFFF"><a href=index.asp?atlb=<%=zlt%>><%=ltname%></a> <a href="javascript:HidexMenu('<%=zlt%>')">[完全关闭]</a></font></b></td>
</tr>
<tr>
<td align="center" bgcolor="#EEEEEE" id="tr<%=zlt%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#92b9fb">
<%for i=1 to rs.recordcount%>
<tr>
<td width="10%" align="center" bgcolor="#EEEEEE">
<%
ltconfig=split(rs("ltconfig"),"|")
if ltconfig(0)="1" then
response.Write("<img src=backimg/member.gif>")
elseif ltconfig(1)="1" then
response.Write("<img src=backimg/lock.gif>")
elseif rs("todayft")>0 then
response.Write("<img src=backimg/rz.gif>")
else
response.Write("<img src=backimg/on.gif>")
end if
%>
</td>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td width="65%" valign="top">
<%
response.Write("<a href=list.asp?lb="&rs("id")&">"&rs("ltlb")&"</a>")
if rs("ifoff")=1 then
response.Write(" -- <font color=red>暂时关闭</font>")
end if
response.Write("<p> <img src=backimg/Forum_readme.gif> "&rs("ltsm")&"</p>")
%> </td>
<td width="9%"><a href="list.asp?lb=<%=rs("id")%>"><img src="<%=rs("face")%>" border="0"></a></td>
<td width="26%"> <%call lastboardly(rs("id"))%>
<img src="backimg/lastpost.gif" width="11" height="10">
</td>
</tr>
<tr>
<td height="32" bgcolor="#EEEEEE">版主:
<%
dim ltsel,x
if rs("ltbz")<>"" then
ltsel=split(rs("ltbz"),"|")
for x=0 to (ubound(ltsel)-1)
'if userqx(ltsel(x))="版主" then
response.write" * <a href=usertype.asp?user="<sel(x)&" title=查看版主信息>" <sel(x)&"</a>"
'end if
next
else
response.Write("暂无版主")
end if
%> </td>
<td colspan="2" align="right" bgcolor="#EEEEEE"><img src="PIC/Forum_today.gif" alt="今日新帖" width="25" height="10">
<font color="#FF0000"> <%=rs("todayft")%> </font>
<img src="PIC/forum_topic.gif" alt="主题" width="25" height="10">
<%=rs("tzsum")%> <img src="PIC/Forum_post.gif" alt="回复数" width="25" height="10"> <%=rs("retzsum")%> </td>
</tr>
</table></td>
</tr>
<%
rs.movenext
next
%>
</table></td>
</tr>
</table>
<%
call tabletop(true,"down")
response.Write("<br>")
end sub
response.Write("<div align=right>")
call listchangeLt()
response.Write("</div>")
%>
</td>
</tr>
<tr>
<td height="17"><table width="100%" align="center" bgcolor="#92b9fb" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#0053A6">
<td height="27" background="backimg/bg1.gif" bgcolor="#0053A6" > <b><font color="#FFFFFF">-=>
友情论坛 </font></b></td>
</tr>
<tr>
<td align="center" bgcolor="#EEEEEE" >
<table width="100%" height="52" border="0" cellpadding="0" cellspacing="1" bgcolor="#92b9fb">
<tr>
<td height="50" bgcolor="#FFFFFF"><a href="http://www.mtvok.com/obbs">数字论坛</a></td>
</tr>
</table></td>
</tr>
</table>
<br></td>
</tr>
<tr>
<td height="17"><table width="100%" align="center" bgcolor="#92b9fb" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#0053A6">
<td height="27" background="backimg/bg1.gif" bgcolor="#0053A6" > <b><font color="#FFFFFF">-=>
在线列表 <a href=loadtree.asp?listonline=user target="hiddenframex" onclick="document.all.listonline.innerHTML='正在读取用户列表，请稍侯……'">[显示详细列表]</a></font></b>
<IFRAME name="hiddenframex" frameBorder=0 width=0 height=0></IFRAME>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" > <%call onlineusersum("all")%>
<br>
<font color="#FF0000">名单图例</font> 管理员 <img src="PIC/ao1.gif" width="16" height="18">
游客 <img src="PIC/messages1.gif" width="12" height="11">
<hr align="left" width="100%" size="1" noshade color="#92b9fb">
<div id="listonline"></div> </td>
</tr>
</table></td>
</tr><tr>
<td align="center"><br>
<img src="backimg/on.gif"> 没有新帖子 <img src="backimg/lock.gif" width="28" height="27">
锁定论坛<img src="backimg/member.gif"> 会员论坛 <img src="backimg/rz.gif" width="28" height="27">
有新的帖子</td>
</tr>
</table>
<SCRIPT language=JavaScript>
function listonlinediv(){
document.frames["hiddenframe"].location.replace("loadtree.asp?listonline=user");
// if(document.all["listonline"].style.display=="none"){
// document["listonline"].style.display=""}
// else{
// document.all["listonline"].style.display="none"
// }
}
function HidexMenu(thenum){
var thetool
var theimg
thetool="tr"+thenum
theimg="isimg"+thenum
if (document.all[thetool].style.display=="none"){
document.all[thetool].style.display="";
document.images[theimg].src="backimg/nofollow.gif"}
else{
document.all[thetool].style.display ="none";
document.images[theimg].src="backimg/follow.gif"}
}
</SCRIPT>
<%
sub lastboardly(zlt)
dim rs,sql,i,rtzs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select user,id,time,rely,name from borecorder where lb='"&zlt&"'order by id desc"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
response.Write("主题:<a href=type.asp?id="&rs("id")&">"&dvHTMLEncode(left(rs("name"),11))&"</a>...<br>作者:"&rs("user")&"<br>时间:"&rs("time"))
end if
end sub
%>
<%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright ©2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -