privatemess.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	       http://bbs.ChinaXP.Net    中国在线--极酷论坛
'#
'#############################################################

strUserAgentInfo = Request.Servervariables("HTTP_USER_AGENT")
strUserAgentArr = Split(strUserAgentInfo, ";")

strTempUserInfo1 = strUserAgentArr(1)
if Instr(strTempUserInfo1, "MSIE") > 0 then
	strTempUserInfo1 = Replace(strTempUserInfo1, "MSIE", "Internet Explorer")
end if
strTempUserInfo2 = trim(Left(strUserAgentArr(2), Len(strUserAgentArr(2))-1))
if InStr(strUserAgentInfo, "Mozilla/4.0 (compatible;") > 0 and strTempUserInfo2 = "Windows NT 5.0" then
	strTempUserInfo2 = "Windows 2000"
end if

Mozilla = Request.ServerVariables("HTTP_USER_AGENT")
Agent = Split(Mozilla,";")
BcType = 0

If Instr(Agent(1),"U") Or Instr(Agent(1),"I") Then
	BcType=1
end if
If InStr(Agent(1),"MSIE") Then
	BcType=2
end if

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 = Replace(Agent(2), ")", "")
		System = Replace(System, "Windows", "Win")
End Select

strSystem = Replace(System, "Win", "Windows")
if InStr(strSystem,"98")>0 and InStr(Mozilla,"Win 9x")>0 then
	strSystem = Replace(strSystem, "98", "Me")
	' 识别 Windows Me
end if
strSystem = Replace(strSystem, "NT 5.0", "2000")
strSystem = Replace(strSystem, "NT5.0", "2000")
strBrowser = Replace(Browser, "MSIE", "Internet Explorer")

set Browser = Nothing
set System = Nothing


	' Get Private Message count for display on Default.asp
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) As [pmcount] "
	else
        	strSqL = "SELECT count(M_TO) AS pmcount "
	end if
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
		strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & Request.Cookies(strUniqueID & "User")("Name") & "'"
		strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
		strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "
	
		Set rsPM = my_Conn.Execute(strSql)
		pmcount = rsPM("pmcount")
%>
	<TR>
	  <TD bgcolor="<% =strCategoryCellColor %>" colspan="<% if strShowModerators = "1" then Response.Write("2") else Response.Write("1")%>"><img src="<%=strImageURL %>icon_2.gif" width="10" height="10" border="0">&nbsp;<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><b>您的个人状态</b></font></td>
	</TR>
	<TR>
	  <TD width=26 align="center" bgcolor="<% =strAltForumCellColor %>" valign="middle">
<% 	if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
		<img src="<%=strImageURL %>icon_pmdead.gif">
<%	else
 		if pmcount = 0 then %>
			<img src="<%=strImageURL %>icon_pm.gif">
<%		end if
 		if pmcount >= 1 then %>
			<img src="<%=strImageURL %>icon_pm_new.gif">
<%		end if %>
<%	end if %></TD>
	  <TD bgcolor="<%= strForumCellColor %>" colspan="<% if strShowModerators = "1" then Response.Write("1") else Response.Write("1") end if%>">
<%	if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
		 <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"> 你必须<a href="policy.asp">注册</a>并<a href="loginout.asp">登陆</a>后才能查看你的短消息信箱信息。</font><BR>
<%	else %>
		<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strCategoryFontColor %>">
<%		if pmcount <= 0 then %>
			 目前您没有新的短消息。
<%		else %>
			 目前您有 <FONT Color="<% =strInsistFontColor %>"><B><% =pmcount %></B></FONT> 条新的短消息。
<%		end if %><A href="pm_view.asp">[您的短消息信箱]</A></FONT>
<BR>
<% end if %>
 <FONT face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strCategoryFontColor %>"><% ="您的 IP 是：" & Request.ServerVariables("REMOTE_ADDR") & "，来自：" & chkUserSource(Request.ServerVariables("REMOTE_ADDR")) & "，操作系统：" & trim(strSystem) & "，浏览器：" & trim(strBrowser) & "。" %></FONT></TD></TR>