pm_mess.asp

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

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

    HidePM = "HidePM"
       	If Request.QueryString(HidePM) = "Y" then
       		Response.Cookies(HidePM) = "Y"
       		Response.Cookies(HidePM).Expires = dateAdd("d", 30, strForumTimeAdjust)
       	Else
       		If Request.QueryString(HidePM) = "N" then
       			Response.Cookies(HidePM) = "N"
       			Response.Cookies(HidePM).Expires = dateAdd("d", 30, strForumTimeAdjust)
      		End If
        End If

        ' Get Private Message count for display on Default.asp
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] "
	else
        	strSQL = "SELECT count(FORUM_ID) forums "
    	end if
		strSql = strSql & " FROM " & strTablePrefix & "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="<% =strHeadCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("7") else Response.Write("5")%>">
<%		' This code will specify whether or not to show the forums under a category
		HidePM = "HidePM"
 		If Request.Cookies(HidePM) = "Y" then %>
        		<a href="<% =ScriptName & "?" %><% =HidePM & "=N" %>"><img src="<%=strImageURL %>plus.gif" width="10" height="10" border="0" alt="Expand Private Messages"></a>
<% 		Else %>
       			<a href="<% =ScriptName & "?" %><% =HidePM & "=Y" %>"><img src="<%=strImageURL %>minus.gif" width="10" height="10" border="0" alt="Collapse Private Messages"></a>
<% 		End If  %>
            <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><b>悄悄话讯息</b></font></td>
        </tr>
<%     if Request.Cookies(HidePM) <> "Y" then %>
        <TR>
<td align="center" bgcolor="<% =strForumCellColor %>" valign="middle">
<% if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
<img src="<%=strImageURL %>pmdead.gif">
<%	else

 if pmcount = 0 then %>
<img src="<%=strImageURL %>icon_folder.gif">
<%	end if
 if pmcount >= 1 then %>
<img src="<%=strImageURL %>icon_folder_new.gif">
<%	end if %>
<%  end if %>
</td>
<TD valign=top bgcolor="<% =strForumCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("7") else Response.Write("5")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><A HREF="pm_view.asp">悄悄话收件箱</A></FONT><BR>
<% if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strActiveLinkColor %>">
    - 登陆论坛才能查看悄悄话信息
    </font>

<%	else %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strActiveLinkColor %>">
    <b><% if strAuthType="nt" then %>
            <% =session("username")%>&nbsp;(<% =session("userid") %>)</b>
            <%	else %>	
<%		if strAuthType = "db" then %>
            <% =Request.Cookies(strUniqueID & "User")("Name") %></b><% end if %><% end if %> - 你有 <FONT COLOR="<% =strInsistFontColor %>"><B><% =pmcount %></B></FONT> 条新的悄悄话讯息。
    </font>

</TD>
</TR>
<%	end if
end if %>