inc_privatemess.asp

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

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

if Request.Cookies(strUniqueID & "User")("Name") <> "" Then
	 if pmcount >= 1 then
 		if strAuthType="nt" then %>
<table width="<% Response.Write strTableWidth  %>" cellpadding=2 cellspacing=0 align=center>
  <tr>
    <td align=right><bgsound src=<%=strImageURL %>mail.wav border=0><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><a href="pm_view.asp"><acronym title="你有 <% =pmcount %> 条新的悄悄话讯息。"><img src=<%=strImageURL %>NewNew.gif border=0 ALIGN=absmiddle></font></acronym></a></td>
  </tr>
</table>
<%		end if %>
<%		if strAuthType = "db" then %>
<table width="<% Response.Write strTableWidth  %>" cellpadding=2 cellspacing=0 align=center>
  <tr>
    <td align=right><bgsound src=<%=strImageURL %>mail.wav border=0><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><a href="pm_view.asp"><acronym title="你有 <% =pmcount %> 条新的悄悄话讯息。"><img src=<%=strImageURL %>NewNew.gif border=0 ALIGN=absmiddle></font></acronym></a></td>
  </tr>
</table>
<%		end if %>
<%	end if %>
<% end if %>