📄 incpage.asp

📁 安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
        <td width="100%" align="center">本论坛言论纯属发表者个人意见，与<span onclick="location.href='http://www.hx66.com.cn/'">『<%=bbsname%>』</span>立场无关&nbsp;<BR><font color='#999999' face=arial>Hxcms.bbs Ver3.8</font> 页面执行时间：<%=FormatNumber((enddtime-starttime)*1000,3)%> MS</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td valign="top" height="23"></td>
  </tr>
</table>
</body>
</html>
<%
end sub
'------------------------------------------------------------------------------------------
sub showmsg(msginfo)
response.clear
response.write"<html>"&chr(13)&chr(10)
response.write"<head>"&chr(13)&chr(10)
response.write"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&chr(13)&chr(10)
response.write"<link rel=""stylesheet"" href=""../skin/"&bbsskin&"/css.css"" type=""text/css"">"&chr(13)&chr(10)
response.write"<title>提示信息</title>"&chr(13)&chr(10)
response.write"</head>"&chr(13)&chr(10)
response.write"<body>"&chr(13)&chr(10)
call bbs_show_top()
response.write"<table border=""0"" width=""760"" cellSpacing=""0"" cellPadding=""0"" align=""center"" class=""table-hx66s"" bgcolor=""#FFFFFF"">"&chr(13)&chr(10)
response.write"  <tr>"&chr(13)&chr(10)
response.write"    <td width=""760"" height=""100"" align=""center"">"&msginfo&"</td>"&chr(13)&chr(10)
response.write"  </tr>"&chr(13)&chr(10)
response.write"</table>"&chr(13)&chr(10)
call bbs_foot()
response.write"</body>"&chr(13)&chr(10)
response.write"</html>"&chr(13)&chr(10)
response.end
end sub

sub noout()
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
call showmsg("您的访问过程中存在可能性的非法操作，请重试")
end if
end sub
'------------------------------------------------------------------------------------------
sub bbs_tj()
dim bbsuser
set rs=server.createobject("adodb.recordset")
set oncount=conn.execute("select count(*) from hx66online")
set oncount1=conn.execute("select count(*) from hx66online where hx66name='游客'")
set onlineme=conn.execute("select * from hx66online order by hx66type DESC,id DESC")
set onaaaaa=conn.execute("select * from hx66count where hx66='hx66'")
order=0
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table-hx66s" bgcolor=#FFFFFF>
<tr>
   <td height="2"></td>
</tr>
   <tr>
     <td>
        <table width="740" border="1" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" class="b4">
         <tr>
           <td height="26" class="a4"><font color="#023055">&nbsp;<img src="images/title.gif">&nbsp;在线统计 → 当前在线：<%=oncount(0)%> 人 其中：会员<%=oncount(0)-oncount1(0)%>人，游客<%=oncount1(0)%>人 → 最高记录发生在：<%=onaaaaa("hx66date")%> → 最高在线：<%=onaaaaa("hx66count")%> 人</font></td>
          </tr>
          <tr>
           <td height="25"><font color="#FF0000">-=> 来访信息</font>：	
<%
  set oncount=nothing
  set oncount1=nothing
  set onaaaaa=nothing
  Dim userip,userip2
  userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  userip2 = Request.ServerVariables("REMOTE_ADDR")
	if userip = ""  then
		response.write "您的真实ＩＰ是："&userip2&"，"
	else
		response.write "您的真实ＩＰ是："&userip&"，"
	end if
	response.write usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),2)&"，"&usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),1)%></td>
           </tr>
           <tr>
           <td height="25"><div name=Mtext style="width:732px;height:100px;font-face:Arial;padding:3;overflow=auto;border:inset 0px;">
           <table width="700" border="0" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF">
           <tr>
<% 
do while not onlineme.eof
bbsuser=onlineme("hx66name")
%>
<td height="22" width="14%">       
<%if onlineme("hx66name")="游客" then%>
<img src="images/dot6.gif" border="0"><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10<%if checkadmin(ckuname)<>0 then%>其IP：<%=onlineme("hx66ips")%>&#13&#10<%end if%>时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a>&nbsp;</td>
<%elseif onlineme("hx66type")="1" then
if checkadmin(ckuname)<>0 then%>
<a href="../messager.asp?action=new&touser=<%=onlineme("hx66name")%>" Title="给<%=onlineme("hx66name")%>发消息" target=_blank><img src="images/dot4.gif" border="0"></a><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10其IP：<%=onlineme("hx66ips")%>&#13&#10时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a></td>
<%else%>
<img src="images/dot5.gif" border="0"><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10时间：<%=onlineme("hx66date")%>">隐身会员</a></td>
<%end if
else%>
<a href="../messager.asp?action=new&touser=<%=onlineme("hx66name")%>" Title="给<%=onlineme("hx66name")%>发消息" target=_blank><%if checkadmin(bbsuser)>=3 then%><img src="images/dot1.gif" border="0"><%elseif checkadmin(bbsuser)=2 then%><img src="images/dot2.gif" border="0"><%elseif checkadmin(bbsuser)=1 then%><img src="images/dot3.gif" border="0"><%else%><img src="images/dot4.gif" border="0"><%end if%></a><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10<%if checkadmin(ckuname)<>0 then%>其IP：<%=onlineme("hx66ips")%>&#13&#10<%end if%>时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a></td>
<%
end if
if order=6 then response.write "</tr><tr>"
if order>6 then 
		order=1
	else
		order=order+1
	end if
onlineme.movenext
loop
onlineme.close
set onlineme=nothing
%>
            </tr></table></div>
            </td>
          </tr>
          <tr>
           <td height="25"><font color="#FF0000">-=> 名单图例</font>：<img src=images/dot1.gif>管理员 ‖ <img src=images/dot2.gif>超级版主 ‖ <img src=images/dot3.gif>论坛版主 ‖ <img src=images/dot4.gif>注册会员 ‖ <img src=images/dot5.gif>隐身会员 ‖ <img src=images/dot6.gif>游客</td>
          </tr>
       </table>
   </td>
</tr>
<tr>
   <td height="5"></td>
</tr>
</table>
<%
end sub
'------------------------------------------------------------------------------------------
sub bbs_bidtj()
dim bbsuser
set rs=server.createobject("adodb.recordset")
set oncount=conn.execute("select count(*) from hx66online")
set oncount1=conn.execute("select count(*) from hx66online where hx66name='游客' and hx66bid="&bid&"")
set oncount2=conn.execute("select count(*) from hx66online where hx66bid="&bid&"")
set onlineme=conn.execute("select * from hx66online where hx66bid="&bid&" order by hx66type DESC,id DESC")
order=0
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table-hx66s" bgcolor=#FFFFFF>
<tr>
   <td height="26" class="a4"><font color="#023055">&nbsp;&nbsp;<img src="images/title.gif">&nbsp;当前总在线：<%=oncount(0)%> 人，其中『<%=bbs_title%>』上共有 <%=oncount2(0)-oncount1(0)%> 位会员和 <%=oncount1(0)%> 位游客.&nbsp;&nbsp;<img alt='点击弹开详细信息框' onclick="opencat(help_open)" style='CURSOR: hand' src="images/info.gif" hspace="0" align="absmiddle"></td>
</tr>
<%
set oncount=nothing
set oncount1=nothing
set oncount2=nothing
%>
<tr id="help_open" style="display: none">
  <td height="25">
    <table width="740" border="0" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" style='border:1px dashed #B7B7B7;margin-top:10px;'>
     <tr>
<% 
do while not onlineme.eof
bbsuser=onlineme("hx66name")
%>
<td height="22" width="12%">       
<%if onlineme("hx66name")="游客" then%>
<img src="images/dot6.gif" border="0"><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10<%if checkadmin(ckuname)<>0 then%>其IP：<%=onlineme("hx66ips")%>&#13&#10<%end if%>时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a>&nbsp;</td>
<%elseif onlineme("hx66type")="1" then
if checkadmin(ckuname)<>0 then%>
<a href="../messager.asp?action=new&touser=<%=onlineme("hx66name")%>" Title="给<%=onlineme("hx66name")%>发消息" target=_blank><img src="images/dot4.gif" border="0"></a><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10其IP：<%=onlineme("hx66ips")%>&#13&#10时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a></td>
<%else%>
<img src="images/dot5.gif" border="0"><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10时间：<%=onlineme("hx66date")%>">隐身会员</a></td>
<%end if
else%>
<a href="../messager.asp?action=new&touser=<%=onlineme("hx66name")%>" Title="给<%=onlineme("hx66name")%>发消息" target=_blank><%if checkadmin(bbsuser)>=3 then%><img src="images/dot1.gif" border="0"><%elseif checkadmin(bbsuser)=2 then%><img src="images/dot2.gif" border="0"><%elseif checkadmin(bbsuser)=1 then%><img src="images/dot3.gif" border="0"><%else%><img src="images/dot4.gif" border="0"><%end if%></a><a href="#" Title="位置：<%=onlineme("hx66title")%>&#13&#10<%if checkadmin(ckuname)<>0 then%>其IP：<%=onlineme("hx66ips")%>&#13&#10<%end if%>时间：<%=onlineme("hx66date")%>"><%=onlineme("hx66name")%></a></td>
<%
end if
if order=7 then response.write "</tr><tr>"
if order>7 then 
		order=1
	else
		order=order+1
	end if
onlineme.movenext
loop
onlineme.close
set onlineme=nothing
%>
       </tr>
     </table>
   </td>
</tr>
<tr>
   <td height="10"></td>
</tr>
</table>
<%end sub%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -