📄 index.asp
字号:
function todays()
tmprs=conn.execute("Select count(announceid) from bbs1 Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
sub onlineuser()
guests="客人"
dim sip
set iprs=server.createobject("adodb.recordset")
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username<>'"&guests&"'"
rs.open sql,conn,1,1
do while not rs.eof
sip=rs("ip")
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
else
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
ipsql="select Top 1 country,city from address where ip1 <="&num&" and ip2 >="&num&""
iprs.open ipsql,conn,1,1
if not iprs.eof then
country=iprs("country")
city=iprs("city")
else
country="亚洲"
city=""
end if
iprs.close
end if
if rs("userclass")="版主" or rs("userclass")="管理员" then
%>
<img src=<%=picurl%>ao.gif alt="特殊人物"><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
elseif rs("userclass")="贵宾" then
%>
<img src=<%=picurl%>gb(1).gif alt="贵宾"><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
else
%>
<img src=<%=picurl%>messages1.gif><a href="javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)">
<ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%> 来源鉴定：<%if FromFlag=0 then%>已设置保密<%else%><%=country%><%=city%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
end if
rs.movenext
loop
rs.close
if guestuser=1 then
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username='"&guests&"'"
rs.open sql,conn,1,1
do while not rs.eof
%>
<img src=<%=picurl%>messages2.gif><a href=""> <ACRONYM TITLE="目前位置：<%=iwhere(rs("stats"))%> 来访时间：<%=rs("startime")%> 活动时间：<%=rs("lastimebk")%> <%=system(rs("browser"))%> <%=browser(rs("browser"))%> ＩＰ地址：<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%>"><%=rs("username")%></ACRONYM></a>
<%
rs.movenext
loop
rs.close
end if
end sub
%>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=8><b>您的个人状态</b> </TD>
</TR>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle><IMG src="<%=Picurl%>/inboxnonew.gif"> </TD>
<TD vAlign=top colSpan=8>
<%if session.contents("username")="" then%>
您还没有登陆，只有登陆用户才能有发表文章的权限。
<%else%>
<%if incept()>0 then%>
目前您有<font color=red><b><%=incept()%></b></font>条新的短消息
<%else%>
目前您没有新的短消息
<%end if%>
。 <a href="javascript:openScript('messanger.asp?action=inbox',420,320)">短消息收件箱</a>中共有
<b><%=allincept()%></b> 条信息，<a href="javascript:openScript('messanger.asp?action=outbox',420,320)">短消息发件箱</a>中共有
<b><%=allsend()%></b> 条信息。
<%end if%>
<br>
您的 IP 是：<%=Request.ServerVariables("REMOTE_ADDR")%>， <%=system(Request.ServerVariables("HTTP_USER_AGENT"))%>，<%=browser(Request.ServerVariables("HTTP_USER_AGENT"))%>
</TD>
</TR>
<TR>
<TD bgColor="<%=Tablebodycolor%>" colSpan=7><b>论坛在线统计</b>
<%if request("action")<>"online" then%>
[<a href=index.asp?action=online>关闭详细列表</a>]
<%else%>
[<a href=index.asp>显示详细列表</a>]
<%end if%>
</TD>
</TR>
<TR bgColor="<%=Tablebodycolor%>">
<TD vAlign=top align=middle><IMG align=absMiddle src="<%=picurl%>pmlogin.gif">
</TD>
<TD vAlign=top colSpan=7> 现在论坛上共有 <b><%=online()%></b> 位会员与 <b><%=guest()%></b>
位客人.<br>
<%if request("action")<>"online" then%>
<%call onlineuser()%>
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<div id=img style="LEFT: 22px; POSITION: absolute; TOP: 758px; width: 91px; height: 87px">
<p align=left><a href="http://www.ganzhounet.net"><img src="http://www.ganzhounet.com/image/design.gif" width="85" height="85" border="0"></a>
<script language=JavaScript>
<!-- Begin
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 40;
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
img.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = img.offsetHeight;
Woffset = img.offsetWidth;
img.style.left = xPos + document.body.scrollLeft;
img.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
}
}
function start() {
img.visibility = "visible";
interval = setInterval('changePos()', delay);
}
start();
// End -->
</script>
</p>
</div></TABLE>
</CENTER> <br>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11%">图片链接:</td>
<td width="13%"><a target=_blank
href="http://www.ncunet.com/"><img height=31
src="IMAGES/ncunetlogo.gif" width=88 border=0></a></td>
<td width="13%"><a href="http://www.1ping.com/"><img src="PIC/1ping.gif" width="88" height="31" border="0"></a></td>
<td width="13%"><a href="http://www.mayacn.cn.st/"><img src="http://clothtiger.com/free/free/mayacn/images/logo.gif" width="88" height="31" border="0"></a></td>
<td width="13%"><a href="http://bbs.74512.com/"><img src="http://lx.cpgl.net/lb5000/images/bbs.gif" width="88" height="31" border="0"></a></td>
<td width="37%"><a href="http://www.979899.com/"><img src="http://www.979899.com/gntc/images/logo.gif" width="88" height="31" border="0"></a></td>
</tr>
</table>
<hr align=center color=#000000 size=1 width=95%>
<!--#include file="footer.asp"-->
<%
set rs=nothing
set rs1=nothing
Call endConnection
%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -