?? pop_mail.asp
字號:
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'# #
'# 漢化修改: 資源搜羅站 #
'# 電子郵件: cgier@21cn.com #
'# 主頁地址: http://www.sdsea.com #
'# http://www.99ss.net #
'# http://www.cdown.net #
'# http://www.wzdown.com #
'# http://www.13888.net #
'# 論壇地址:http://ubb.yesky.net #
'# 最后修改日期: 2001/03/12 中文版本：Version 3.1 SR4 #
'#################################################################
'# 原始來源 #
'# Snitz Forums 2000 Version 3.1 SR4 #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved #
'#################################################################
'#【版權聲明】 #
'# #
'# 本軟體為共享軟體(shareware)提供個人網站免費使用，請勿非法修改,#
'# 轉載，散播，或用于其他圖利行為，并請勿刪除版權聲明。 #
'# 如果您的網站正式起用了這個腳本，請您通知我們，以便我們能夠知曉#
'# 如果可能，請在您的網站做上我們的鏈接，希望能給予合作。謝謝！ #
'#################################################################
'# 請您尊重我們的勞動和版權，不要刪除以上的版權聲明部分，謝謝合作#
'# 如有任何問題請到我們的論壇告訴我們 #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
set rs = Server.CreateObject("ADODB.RecordSet")
'## Forum_SQL
strSql = "SELECT * FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
rs = my_Conn.Execute (strSql)
Set hideMail = rs("M_HIDE_EMAIL")
if (hideMail = 1) then
%>
<p>抱歉！該會員不能收到來自論壇的電子郵件！<p>
<p> </p>
<%else%>
<p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">發送一封電子郵件</font></p>
<%
if lcase(strEmail) = "1" then
Err_Msg = ""
if Request.Form("YName") = "" then
Err_Msg = Err_Msg & "<li>你必須輸入你的用戶名</li>"
end if
if Request.Form("YEmail") = "" then
Err_Msg = Err_Msg & "<li>你必須輸入你的電子郵件地址！</li>"
else
if EmailField(Request.Form("YEmail")) = 0 then
Err_Msg = Err_Msg & "<li>必須正確填寫你的email地址</li>"
end if
end if
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "<li>你必須輸入收件者姓名！</li>"
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "<li>你必須輸入收件人電子郵件地址！</li>"
else
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "<li>你必須正確填寫收件人電子郵件地址！</li>"
end if
end if
if Request.Form("Msg") = "" then
Err_Msg = Err_Msg & "<li>你必須輸入郵件內容！</li>"
end if
'## Emails Message to the Author of this Reply.
'## This needs to be Edited to use your own email component
'## if you don't have one, try the w3Jmail component from www.dimac.net it's free!
if Request.QueryString("mode") = "DoIt" then
if (Err_Msg = "") then
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = Request.Form("YEmail")
strFromName = Request.Form("YName")
strSubject = "來自 " & strForumTitle & " 的 " & Request.Form("YName")
strMessage = "你好： " & Request.Form("Name") & vbCrLf & vbCrLf
strMessage = strMessage & "這封郵件來自 : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " & vbCrLf & vbCrLf
strMessage = strMessage & "我們的網站地址: " & strForumURL & vbCrLf & vbCrLf
strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf
if strFrom <> "" then
strSender = strFrom
end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">電子郵件已寄出！</font></p>
<%
else
%>
<p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">這封電子郵件有問題，可能有輸入錯誤或沒有填寫完整。</font></p>
<table>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =Err_Msg %>
</ul></font>
</td>
</tr>
</table>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">請返回重新輸入</a></font></p>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= window.close()">關閉窗口</A></font></p>
<%
Response.End
end if
else
Err_Msg = ""
if rs("M_EMAIL") <> " " then
strSql = "SELECT M_NAME, M_USERNAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & STRdbntUserName & "'"
set rs2 = my_conn.Execute (strSql)
YName = ""
YEmail = ""
if (rs2.EOF or rs2.BOF) then
if strLogonForMail <> "0" then
Err_Msg = Err_Msg & "<li>發送電子郵件前必須先登陸論壇！</li>"
%>
<table>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =Err_Msg %>
</ul></font>
</td>
</tr>
</table>
<% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">回到 <% =rs("M_NAME")%> 的會員資料</a></font></p>
<% end if %>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= window.close()">關閉窗口</A></font></p>
<%
Response.End
end if
else
YName = Trim("" & rs2("M_NAME"))
YEmail = Trim("" & rs2("M_EMAIL"))
end if
rs2.close
set rs2 = nothing
%>
<form action="pop_mail.asp?mode=DoIt&id=<% =Request.QueryString("ID") %>" method=Post id=Form1 name=Form1>
<input type=hidden name="Page" value="<% =Request.QueryString("page") %>">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="1">
<tr>
<td bgColor=<% =strPopUpTableColor %> align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">收件人姓名：</FONT></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =rs("M_NAME") %><input type=hidden name="Name" value="<% =rs("M_NAME") %>"></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">收件人Email地址：</FONT></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =rs("M_EMAIL") %><input type=hidden name="Email" value="<% =rs("M_EMAIL") %>"></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>發件人姓名：</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><input name=YName type=<% if YName <> "" then Response.Write("hidden") else Response.Write("text") end if %> value="<% = YName %>" size=25><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>> <% if YName <> "" then Response.Write(YName) end if %></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>發件人Email地址：</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><input name=YEmail type=<% if YEmail <> "" then Response.Write("hidden") else Response.Write("text") end if %> value="<% = YEmail %>" size=25><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>> <% if YEmail <> "" then Response.Write(YEmail) end if %></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> colspan=2><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">信件內容：</FONT></b></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> colspan=2><textarea name="Msg" cols=40 rows=5></textarea></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> colspan=2 align=center><Input type=Submit value="發送" id=Submit1 name=Submit1></TD>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% else %>
<p>該用戶并未登錄其電子郵箱</p>
<% end if %>
<% end if %>
<% else %>
<p>點擊發送送一封電子郵件給 <a href="mailto:<% =rs("M_EMAIL")%>"><% =rs("M_NAME")%></a></p>
<% end if %>
<% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>
<p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">回到 <% =rs("M_NAME")%> 的會員資料</a></font></p>
<% end if
end if%>
<% set rs = nothing %>
<!--#INCLUDE FILE="inc_footer_short.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -