📄 index.asp

📁 生活者姿态整站程序生活者姿态整站程序生活者姿态整站程序

💻 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 + -