📄 index.asp
字号:
<tr>
<td class="v6"><font color="#666666"><img src="images/Forum_today.gif" width="25" height="10" align="absmiddle">
<%
if todaydate<>date() or cstr(today)="0" then
response.write("0")
else
response.write("<font color=red>"&today&"</font>")
end if
%>
<img src="images/forum_topic.gif" width="25" height="10" align="absmiddle">
<%=topic%> <img src="images/Forum_post.gif" width="25" height="10" align="absmiddle">
<%=post%></font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" class="body_sp_min"></td>
</tr>
<tr>
<td height="2" bgcolor="#FFFFFF"></td>
</tr>
</table></td>
</tr>
<%
j=j+1
frs.movenext
wend
end if
frs.close
%>
</table></td>
</tr>
<%
i=i+1
crs.movenext
wend
end if
crs.close
set crs=nothing
set frs=nothing
if request.Cookies("matrix3_login")("login")="" then
if request.Cookies("matrix3")("matrix3_pw")<>"" and request.Cookies("matrix3")("matrix3_name")<>"" then
sql="select top 1 password,power,lastlogin,ip,logintimes,meili,jingyan,money from m3_users where name='"&trim1(request.Cookies("matrix3")("matrix3_name"))&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.Cookies("matrix3").Expires=now()
response.Cookies("matrix3")("matrix3_name")=""
response.Cookies("matrix3")("matrix3_pw")=""
response.Cookies("matrix3")("matrix3_admin")=""
else
if rs(0)<>request.Cookies("matrix3")("matrix3_pw") then
Response.Cookies("matrix3").Expires=now()
response.Cookies("matrix3")("matrix3_name")=""
response.Cookies("matrix3")("matrix3_pw")=""
response.Cookies("matrix3")("matrix3_admin")=""
else
if rs(1)=2 then response.Cookies("matrix3")("matrix3_admin")="matrix3"
rs(2)=now()
rs(3)=request.servervariables("remote_addr")
rs(4)=cint(rs(4))+1
rs(5)=cint(rs(5))+1
rs(6)=cint(rs(6))+1
rs(7)=cint(rs(7))+10
rs.update
response.Cookies("matrix3_login")("login")="1"
end if
end if
rs.close
set rs=nothing
end if
end if
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="8"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" nowrap class="body_bar_1"> <span class="v8"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF"> ≡ 您的信息 ≡</font></span></td>
<td height="12" nowrap class="body_bar_1_bg"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="1" class="body_tb_border">
<tr bgcolor="#FFFFFF">
<td valign="top" nowrap class="mainbg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="v7"><font color=#666666>真实IP：<%=request.ServerVariables("remote_addr")%>
，当前时间： <%=now%></font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" class="body_sp_min"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="8"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" nowrap class="body_bar_1"> <span class="v8"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v8"><font color="#FFFFFF"> ≡ 在线统计 ≡</font></span></td>
<td height="12" nowrap class="body_bar_1_bg"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="1" class="body_tb_border">
<tr>
<td valign="top" nowrap class="mainbg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="v7">
<%
position "论坛首页",1
dim onliners,onlinej
function gettime(t)
dim m
if isnull(t) or t="" then
gettime="0分钟"
exit function
end if
m=datediff("n",t,now())
if m>=60 then
gettime=cstr(cint(m/60))&" 小时 "&cstr(m mod 60)&" 分"
else
gettime=cstr(m mod 60)&" 分钟"
end if
end function
function dealip(str)
if request.Cookies("matrix3")("matrix3_admin")="matrix3" then
dealip=str
else
str=split(str,".")
dealip=str(0)&"."&str(1)&".*.*"
end if
end function
response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0>")
sql="select name,id,page,lastactive,logintime,ip,explorer1 from m3_online order by lastactive desc"
set onliners=server.CreateObject("adodb.recordset")
onliners.open sql,conn,1,1
rscount=onliners.recordcount
if isnull(rscount) then rscount=0
i=0
while i<rscount
response.Write("<tr>")
onlinej=6
while (i<rscount) and (onlinej>0)
response.Write("<td width=15% >")
response.Write("<img src='images/u1.gif' width='16' height='16' border='0' align='absmiddle'> ")
if onliners(0)<>"游客" then
response.Write("<a href='profile.asp?name="&onliners(0)&"' target='_blank'>")
else
response.Write("<a>")
end if
if cstr(onliners(1))=cstr(session("visitid")) then
response.write("<font color=blue")
else
response.write("<font color=black")
end if
response.Write(" title=""当前位置："&onliners(2)&"<br>活动时间："&gettime(onliners(3))&"前<br>来访时间："&onliners(4)&"")
response.Write("<br>在线时长："&gettime(onliners(4))&"<br>I P 地址："&dealip(onliners(5))&"<br>"&usersysinfo(onliners(6),"， ")&"""")
response.Write(">"&onliners(0)&"</font></a></td>")
onlinej=onlinej-1
i=i+1
onliners.movenext
wend
while onlinej>0
response.Write("<td width=15% > </td>")
onlinej=onlinej-1
wend
response.Write("</tr>")
wend
response.Write("</table>")
onliners.close
set onliners=nothing
call closedb()
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" class="body_sp_min"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="10"> </td>
<td width="1" class="right_sp_min"></td>
<td width="100" valign="top" class="right_main">
<!-- #include file="right.asp" -->
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10" align="center" valign="bottom"><!-- #include file="bottombar.asp" --></td>
</tr>
</table>
</body>
</html>
<%
Function Strlength(Str)
if IsNull(Str) then exit function
dim Temp_Str,II,Test_Str
Temp_Str=Len(Str)
For II=1 To Temp_Str
Test_Str=(Mid(Str,II,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Function
Function Strleft(Str,L)
if IsNull(Str) then exit function
dim Temp_Str,II,Test_Str,lens
lens=0
Temp_Str=Len(Str)
For II=1 To Temp_Str
Test_Str=(Mid(Str,II,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
function usersysinfo(info,str_char)
if instr(info,";")>0 then
dim usersys
usersys=split(info,";")
if ubound(usersys)>=2 then
usersys(1)=replace(trim(usersys(1)),"MSIE","Internet Explorer")
if usersys(1)="U" then
usersys(1)="Mozilla"
end if
usersys(2)=replace(usersys(2),")","")
usersys(2)=replace(usersys(2),"NT 5.2","2003")
usersys(2)=replace(usersys(2),"NT 5.1","XP")
usersys(2)=replace(usersys(2),"NT 5.0","2000")
usersys(2)=replace(usersys(2),"9x","Me")
usersys(1)="浏 览 器：" & Trim(usersys(1))
usersys(2)="操作系统：" & Trim(usersys(2))
usersysinfo=usersys(1) & str_char & usersys(2)
else
usersysinfo="浏 览 器：未知" & str_char & "操作系统：未知"
end if
else
usersysinfo="浏 览 器：未知" & str_char & "操作系统：未知"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -