?? index.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/ad_fixup.asp"-->
<!--#include file="inc/ad_move.asp"-->
<!--#include file="head_bbs.asp"-->
<%
dim userip
dim userip2
dim birthNum
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
response.write "<HTML><HEAD><META http-equiv=Content-Type content='text/html; charset=gb2312'>"&_
"<title>"& ForumName &"--列表</title><link rel=stylesheet type=text/css href=forum.css >"
response.write "</HEAD><BODY "&Forumbody&">"
call nav()
dim lastlogin
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser from config where active=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if isnull(index_ad_t) or index_ad_t="" then
response.write "<TABLE border=0 width="&TableWidth&" align=center><TBODY>"&_
"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
"<TD Align=right><font color="&BodyFontColor&" style=""line-height: 15pt"">歡迎新會員 <a href=dispuser.asp?name="& htmlencode(rs(4)) &" target=_blank>"&_
"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a> 加入 [<a href=toplist.asp?orders=2>新進來賓</a>]<BR>今日貼數：<font color="&AlertFontColor&"><b>"& rs(2) &"</b></font>"&_
" | 主題總數：<b>"& rs(0) &"</b> | 帖子總數：<b>"& rs(1) &"</b> | "&_
"注冊會員：<B>"& rs(3) &"</B>"&_
"<p><img src="&picurl&P_nowTime&"> <a href=toplist.asp?orders=8>管理團隊</a>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -