pop_messengers.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<% select case Request.QueryString("mode") %>
<%	case "ICQ" %>
<p><font face="<% =strDefaultFontFace %>"size="<% =strHeaderFontSize %>">发送ICQ讯息</font></p>
<form action="http://wwp.mirabilis.com/scripts/WWPMsg.dll" method="post">
<input type="hidden" name="subject" value="From Your Web Page">
<input type="hidden" name="to" value="<% =Request.QueryString("ICQ") %>">

<table border="0" width="75%" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="1">
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">收件人：</font></td>
        <TD bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =Request.QueryString("M_NAME")%></font></td>
      </tr>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">收件人 ICQ 号码：</font></td>
        <TD bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =Request.QueryString("ICQ") %>&img=5" border="0" align="absmiddle"><% =Request.QueryString("ICQ") %></font></td>
      </tr>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">发件人姓名：</font></td>
        <TD bgColor=<% =strPopUpTableColor %>><input type="text" name="from" value size="20" maxlength="40" onfocus="this.select()"></td>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">发件人电子邮件：</FONT></td>
        <TD bgColor=<% =strPopUpTableColor %>><input type="text" name="fromemail" value size="20" maxlength="40" onfocus="this.select()"></td>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> Colspan=2 align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">讯息</font></td>
      </TR>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> Colspan=2 align=center><textarea name="body" rows="3" cols="40" wrap="Virtual"></textarea></td>
      </TR>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> Colspan=2 align=center><input type=submit value="发送"></td>
      </tr>
    </TABLE>
    </td>
  </tr>
</table>
</form>
<%	case "AIM" %>
<p><font face="<% =strDefaultFontFace %>"size="<% =strHeaderFontSize %>"><% =Request.QueryString("M_NAME") %>的AIM设置</font></p>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>注意：</b> 你必须安装了 AOL Instant Messenger 才能执行此功能。</font></p>
<table border="0" width="75%" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="1">
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="aim:goIM?screenname=<% =Request.QueryString("AIM") %>" alt="传送讯息">传送讯息</a></font></td>
      </tr>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="aim:goChat?ROOMname=<% =Request.QueryString("AIM") %>">开启聊天室</a></font></td>
      </tr>
      <TR>
        <TD bgColor=<% =strPopUpTableColor %> align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="aim:addBuddy?screenname=<% =Request.QueryString("AIM") %>">加入好友名单</a></font></td>
      </tr>
    </TABLE>
    </td>
  </tr>
</table>

<% end select %>
<% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">回到 <% =Request.QueryString("M_NAME")%> 的会员资料</a></font></p>
<% end if %><!--#INCLUDE FILE="inc_footer_short.asp" -->