📄 inc_top.asp
字号:
strTempUserInfo2 = "Windows 2000"
end if
Mozilla = Request.ServerVariables("HTTP_USER_AGENT")
Agent = Mozilla
Agent = Split(Agent,";")
BcType = 0
If Instr(Agent(1),"U") Or Instr(Agent(1),"I") Then BcType=1
If InStr(Agent(1),"MSIE") Then BcType=2
Select Case BcType
Case 0:
Browser="其它"
System="其它"
Case 1:
Ver=Mid(Agent(0),InStr(Agent(0),"/")+1)
Ver=Mid(Ver,1,InStr(Ver," ")-1)
Browser="Netscape"&Ver
System=Mid(Agent(0),InStr(Agent(0),"(")+1)
System=Replace(System,"Windows","Win")
Case 2:
Browser=Agent(1)
System=Agent(2)
System=Replace(System,")","")
System=Replace(System,"Windows","Win")
End Select
strSystem = Replace(System, "Win", "Windows")
if InStr(strSystem,"98")>0 and InStr(strSystem,"Win 9x")>0 then
strSystem = Replace(strSystem, "98", "Me")
end if
strSystem = Replace(strSystem, "NT 5.0", "2000")
strSystem = Trim(Replace(strSystem, "NT5.0", "2000"))
strBrowser = Trim(Replace(Browser, "MSIE", "Internet Explorer"))
set Browser = Nothing
set System = Nothing
' THEY ARE A NEW USER SO INSERT THERE USERNAME
' 如果该访客一刚刚进入的，则插入该访客在线资料
on error resume next
Set objRS2 = Server.CreateObject("ADODB.Recordset")
strSQL = "INSERT INTO " & strTablePrefix & "ONLINE (UserID,UserIP,DateCreated,CheckedIn,M_BROWSER,M_OS,LastChecked,M_BROWSE) VALUES ('"
strSql = strSQL & strOnlineUser & "','" & strOnlineUserIP & "','" & strOnlineDate & "','" & strOnlineCheckInTime & "','"
strSql = strSQL & strSystem & "','" & strBrowser & "','"
strSql = strSQL & strOnlineCheckInTime & "','" & strOnlineLocation & "')"
my_Conn.Execute (strSql)
if err.number <> 0 then response.write err.number & "|" & err.description
else
' ### THEY ARE A ACTIVE USER ###
strSql = "SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.UserIP, " & strTablePrefix & "ONLINE.LastChecked"
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID='" & strOnlineUser & "' AND " & strTablePrefix & "ONLINE.UserIP = '" & strOnlineUserIP & "'"
set rsLastChecked = my_Conn.Execute (strSql)
' ### LETS UPDATE THE TABLE SO IT SHOWS THERE LAST ACTIVE VISIT ###
strSql = "UPDATE " & strTablePrefix & "ONLINE SET " & strTablePrefix & "ONLINE.M_BROWSE='" & strOnlineLocation & "' , " & strTablePrefix & "ONLINE.LastChecked='" & strOnlineCheckInTime & "' WHERE " & strTablePrefix & "ONLINE.UserID='" & strOnlineUser & "' AND " & strTablePrefix & "ONLINE.UserIP='" & strOnlineUserIP & "'"
my_Conn.Execute (strSql)
end if
' ### 时间到，将该会员从在线会员中删除 LETS DELETE ALL INACTIVE USERS ###
strSqL = "DELETE FROM " & strTablePrefix & "ONLINE WHERE " & strTablePrefix & "ONLINE.LastChecked < '" & strOnlineTimedOut & "'"
my_Conn.Execute strSqL
set rsOnline = Server.CreateObject("ADODB.Recordset")
if strDBType = "access" then
strSqL = "SELECT count(UserID) AS [onlinecount] "
else
strSqL = "SELECT count(UserID) AS onlinecount "
end if
strSql = strSql & "FROM " & strTablePrefix & "ONLINE "
Set rsOnline = my_Conn.Execute(strSql)
onlinecount = rsOnline("onlinecount")
strOnlineUsersCount = rsOnline("onlinecount")
' ### Get Guest count for display on Default.asp
set rsGuests = Server.CreateObject("ADODB.Recordset")
if strDBType = "access" then
strSqL = "SELECT count(UserID) AS [Guests] "
else
strSqL = "SELECT count(UserID) AS Guests "
end if
strSql = strSql & "FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE Right(UserID, 5) = 'Guest' "
Set rsGuests = my_Conn.Execute(strSql)
Guests = rsGuests("Guests")
strOnlineGuestsCount = rsGuests("Guests")
' ### Get Member count for display on Default.asp
set rsGuests = Server.CreateObject("ADODB.Recordset")
if strDBType = "access" then
strSqL = "SELECT count(UserID) AS [Members] "
else
strSqL = "SELECT count(UserID) AS Members "
end if
strSql = strSql & "FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE Right(UserID, 5) <> 'Guest' "
Set rsMembers = my_Conn.Execute(strSql)
Members = rsMembers("Members")
strOnlineMembersCount = rsMembers("Members")
' END WHOS ONLINE SCRIPT
%>
<body bgColor="<% Response.Write strPageBGColor %>" background="images/bg.gif" topmargin="0" leftmargin="0" text="<% Response.Write strDefaultFontColor %>" link="<% Response.Write strLinkColor %>" aLink="<% Response.Write strActiveLinkColor %>" vLink="<% Response.Write strActiveLinkColor %>" >
<% if strMoveMenu = 1 then %>
<div id='ffhlay' style="position: absolute; left: 15; top: 0;width:795; height:46">
<% end if %>
<div align="center">
<center>
<table width="100%" cellspacing="0" cellpadding="0" border="0" bgcolor="<% Response.Write strHeadCellColor %>" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="3" border="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#0073B7">
<tr>
<td align="center" width="50%" bgcolor="#0073B7">
<img border="0" src="images/shine.gif" align="left"></td>
<td align="center" width="50%" bgcolor="#0073B7" background="images/bei.gif">
</td>
</tr>
<tr>
<td valign=middle align=center width=100% bgcolor="#000000" colspan="2">
<table width=100% border=0 cellpadding="0" cellspacing="0" align="center">
<tr align="center">
<td width="100%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td nowrap> <font color="#999999">■ ■</font> <font color="#FFFFFF">
<a href="http://www.520boy.com/shine.html">
<font color="#FFFFFF">S</font><acronym title="返回 [ 理想空间 ] 首页；关注最新的网站动态"><font color="#FFFFFF">hine
STudio 首页</font></acronym></a></font>
<font color="#999999">■ ■</font> <a href="#####"><font color="#FFFFFF"><acronym title="虽然是一回事儿，但我们真的不能把这里称为新闻中心">
WEB资讯</acronym></font></a>
<font color="#999999">■ ■</font> <font color="#FFFFFF"><acronym title="都是一些很酷很酷的作品，一定要看......">
<a target="_blank" href="http://www.520boy.com/flash/default.asp">
<font color="#FFFFFF">Flash收藏夹</font></a></acronym></font>
<font color="#999999">■ ■</font> <font color="#FFFFFF"><acronym title="为您提供基于WEB设计的各种工具软件">
<a target="_blank" href="http://www.520boy.com/down/default.asp">
<font color="#FFFFFF">疯狂下载</font></a></acronym></font>
<font color="#999999">■ ■</font> <acronym title="版块众多、分类齐全、最适合学习、交流的地方">
<font color="#FFFFFF">
<a href="http://www.520boy.com/bbs/default.asp">
<font color="#FFFFFF">设计论坛</font></a></font></acronym> </td>
<td width="15%">
</td>
</tr>
</table>
</td>
<td width="15%" valign="middle" nowrap></td>
</table>
</td>
</tr>
<tr>
<td bgcolor="#0073B7" valign="middle" align=left colspan="2" background="images/bg.gif">
<% if strAuthType="nt" then
if strDBNTUserName<>"" then
Response.Write ">> 欢迎您，" & Session(strCookieURL & "username") & " "
Response.Write "(" & Session(strCookieURL & "userid") & ") "
else
Response.Write "客人 "
end if
else
if strAuthType = "db" then
if strDBNTUserName<>"" then
Response.Write ChkString(">> 欢迎您，" & strDBNTUserName, "display") & "："
else
Response.Write (">> 欢迎您，客人：")
%>
<a href="loginout.asp?mode=login"><font color="#000080">请先登录</font></a><font color="#000080">
<% end if %>
<% if strDBNTUserName<>"" then %> </font>
<a href="loginout.asp?mode=login"><acronym title="重新登陆你的ID">
<font color="#000080">重登陆</font></acronym></a><font color="#000080">
|
<% if strUseExtendedProfile then %> </font>
<a href="pop_profile.asp?mode=Edit"><acronym title="编辑你的个人资料">
<font color="#000080">更改资料</font></acronym></a><font color="#000080">
<% else %> </font>
<a href="javascript:openWindow3('pop_profile.asp?mode=Edit')"><acronym title="编辑你的个人资料">
<font color="#000080">资料</font></acronym></a><font color="#000080">
<% end if %> | </font><a href="pm_view.asp"><acronym title="悄悄话短讯息中心"><font color="#000080">短讯息</font></acronym></a><font color="#000080">
<% end if %>
<% if strAutoLogon <> 1 and strDBNTUserName="" then %> | </font> <a href="policy.asp"><acronym title="注册了才能发表文章哦！">
<font color="#000080">会员注册</font></acronym></a><font color="#000080"><% end if %> | </font><a href="active_users.asp"><acronym title="看看有谁在线.."><font color="#000080">在线会员</font></acronym></a><font color="#000080">
| </font><a href="active.asp"><acronym title="看看有什么新文章吧！"><font color="#000080">新贴</font></acronym></a><font color="#000080"> | </font><a href="topic_stats.asp"><acronym title="查看主题相关统计数字"><font color="#000080">贴子榜</font></acronym></a><font color="#000080">
| </font><a href="search.asp"><acronym title="按关键字、日期、作者来搜寻"><font color="#000080">搜索</font></acronym></a><font color="#000080">
<% if strDBNTUserName<>"" then %> | </font><a href="events.asp"><acronym title="查看或新增日记"><font color="#000080">日记</font></acronym></a>
<% end if %> | </font><a href="faq.asp"><acronym title="常见问题的解答"><font color="#000080">帮助</font></acronym></a><font color="#000080">
<% if (mlev = 4) or (lCASE(strNoCookies) = "1" OR lCASE(strNoCookies) = "64") then %>
| </font><a href="admin_home.asp"><font color="#000080">管理</font></a><font color="#000080">
<% end if %>
<% if strDBNTUserName<>"" then Response.Write ("| <A href=""loginout.asp?mode=logout"">退出</A>")%>
</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<% if strMoveMenu = 1 then %>
</DIV>
<BR>
<script language='javascript'>
lay = document[document.all ? "all" : "layers"]["ffhlay"]
function ffhpaint() {
tY = (document.all ? document.body.scrollTop : window.pageYOffset);
cY = document.all ? lay.style.pixelTop : lay.top
di = cY - tY;
(di>0)?de=di:de=Math.round(di/5);
if (document.all)
lay.style.pixelTop -= de
else
lay.top -= de
}
window.setInterval("ffhpaint()",10)
</script>
<% end if %>
<% If intPMessages = 1 then %>
<!--#include file="inc_privatemess.asp"-->
<% End If %>
<% If intSideMenu = 1 then %>
<!--#include file="popout_menu.asp"-->
<% End If %>
<% If pmcount < 1 then Response.Write("<BR>")%>
<font face="<% Response.Write strDefaultFontFace %>">
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="<% Response.Write strTableWidth %>">
<tr>
<td valign="top" width="30%"><a href="default.asp"><img alt="<% Response.Write strForumTitle %>" border="0" src="<% Response.Write strTitleImage%>"></a>
<% '################ Poll Mentor
if intPollMentor = 1 then
Dim aTitle
Dim aQuestion
Dim aAnswers(8)
Dim aCount(8)
'Get active one...
PollMentor_GetPollInfo -1, aTitle, aQuestion, aAnswers, aCount
if aQuestion<>"" then
%>
<div align="center" class="PollHeader" id="PollHeader" onmouseup="javascript:openpollWindow('pollmentor.asp')">
<TABLE BORDER=0 bgcolor="<% Response.Write strTableBorderColor %>" cellspacing="1" cellpadding="3" width="100%">
<tr onmouseup="javascript:openpollWindow('pollmentor.asp')">
<TD onmouseup="javascript:openpollWindow('pollmentor.asp')" colspan="2" bgcolor="<% Response.Write strCategoryCellColor %>" ALIGN="LEFT"><b><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strHeadFontColor %>" size="<% Response.Write strDefaultFontSize %>"><a href="Javasript:;" onclick="javascript:openpollWindow('pollmentor.asp')" ><% Response.Write aTitle %><% Response.Write aQuestion %></a></font></b></TD>
</tr>
</table>
</div>
<%
end if
end if
'################ Poll Mentor %>
</td>
</font>
<% end if %><% end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -