?? sendmail.asp
字號:
<%
password="www.qbtrade.com" '不要改密碼，否則無法發送
dim mailFrom,mailTo,mailSubject,mailbody
'====以下內容可以改成你自己的腳本，例如從數據庫中取數據等====
success_url=request("backto") '發送成功后轉到,這里改成你
mailFrom =request("from") '發件人
mailTo = request("to") '收件人
mailSubject =request("subject") '主題
mailBody = request("body") '信體
'=================以下不用修改了==================
sendmail mailFrom,mailTo,mailSubject,mailBody,success_url,password
function sendmail(from,toxxx,subject,body,success_url,pass)
dim mail_prog,password
mail_prog="http://netfansky.uhome.net/cgi-bin/sendmail.cgi" '發信的cgi程序
if from="" or toxxx="" then
response.write "錯誤！發件人和收件人必須填寫！點擊<a href=javascript:history.go(-1)>這里返回</a>重寫"
exit function
else
if subject="" then subject="（空）"
if body="" then body="沒有內容"
response.cookies("qbtrade_news")("email")=mailFrom
end if
<html>
<head>
<title>正在發送...</title></head>
<body bgcolor="#FFFFFF">
正在發送,請稍侯...<br>
Sending,please wait...
<form name="form1" method="post" action="<%=mail_prog%>">
<input type="hidden" name="from" value="<%=from%>">
<input type="hidden" name="to" value="<%=toxxx%>">
<input type="hidden" name="subject" value="<%=subject%>">
<input type="hidden" name="body" value="<%=body%>">
<input type="hidden" name="success_url" value="<%=success_url%>">
<input type="hidden" name="password" value="<%=pass%>">
</form>
<script>form1.submit()</script>
</body>
</html>
<%
end function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -