📄 sendmail.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="const.asp" -->
<!--#include file="char.asp" -->
<html>
<head>
<title>发送邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call getConst
if request("action") = "send" then
UserName = Request("UserName")
SendMail = Request("SendMail")
Unid = Request("Unid")
sql = "Select title,content from article where articleid = " & Unid
set rs = conn.execute(sql)
title = UserName&"给您发来的"&rs(0)&"信息"
content = rs(1)
rs.close : set rs = nothing
Emailbody=Emailbody &"<style type=text/css>"
Emailbody=Emailbody &"<!--"
Emailbody=Emailbody &"TD{FONT-SIZE:9PT;}"
Emailbody=Emailbody &"-->"
Emailbody=Emailbody &"</style>"
Emailbody=Emailbody &"<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>"
Emailbody=Emailbody &"<table width=100% border=1 cellspacing=0 cellpadding=3 align=center bordercolorlight=#cccccc bordercolordark=#FFFFFF>"
Emailbody=Emailbody &" <tr>"
Emailbody=Emailbody &" <td align=center bgcolor=#FFCC00>"&title&"</td>"
Emailbody=Emailbody &" </tr>"
Emailbody=Emailbody &" <tr>"
Emailbody=Emailbody &" <td>"&UBBCode(content)&"</td>"
Emailbody=Emailbody &" </tr>"
Emailbody=Emailbody &" <tr align=center>"
Emailbody=Emailbody &"<td><font face=Verdana,sans-serif,Helvetica,Arial size=1>Copyright © 2000-2001 <b>QcSky<font color=#cc0000>.Com</font></b>, All Rights Reserved</font><br>版权属<a href=http://www.qcsky.com><font color=black>青创网络</font></a>所有--由<a href=mailto:cn_master@etang.com><font color=black>个性小子</font></a>设计维护<br>E-mail：<a href=mailto:cn_master@etang.com><font color=black>cn_master@etang.com</font></a></td>"
Emailbody=Emailbody &" </tr>"
Emailbody=Emailbody &"</table>"
on error resume next
Select Case EmailFlag
Case 0
Response.write "<script>alert(""不支持发送邮件"");window.close();</script>"
Response.End
Case 1
Call Jmail(title,Emailbody,SendMail)
Case 2
Call Cdonts(title,Emailbody,SendMail)
Case 3
Call aspemail(title,Emailbody,SendMail)
End Select
if MailStr = "OK" then
Response.Write "<script>alert(""发送成功"");window.close();</script>"
else
Response.Write "<script>alert(""发送失败"");window.close();</script>"
end if
Response.End
end if
Unid = Request("Unid")
%>
<table width="100%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="<%=Tablebackcolor%>">
<form name="form1" method="post" action="?action=send" OnSubmit="return check()">
<input type="hidden" name="Unid" value="<%=Unid%>">
<tr>
<td colspan="2" align="center" bgcolor="<%=Tablebodycolor%>">发 送 邮 件</td>
</tr>
<tr bgcolor="<%=Tablebody1color%>">
<td width="25%">你 的 名 字：</td>
<td width="75%">
<input type="text" name="UserName" maxlength="25" size="30" class="inputtd">
</td>
</tr>
<tr bgcolor="<%=Tablebody1color%>">
<td width="25%">要发送的地址：</td>
<td width="75%">
<input type="text" name="SendMail" maxlength="25" size="30" class="inputtd">
</td>
</tr>
<tr align="center" bgcolor="<%=Tablebody1color%>">
<td colspan="2">
<input type="submit" name="Submit" value="提交">
<input type="button" name="Submit2" value="关闭" OnClick="Javascript:window.close();">
</td>
</tr>
</form>
</table>
<script language="JavaScript">
function check(){
if (form1.UserName.value ==""){
alert("请输入你的名字");
form1.UserName.focus();
return false;
}
if (form1.SendMail.value ==""){
alert("请输入要发送邮件的正确地址");
form1.SendMail.focus();
return false;
}
if (/^\s*[^\s@]+@([^@\.]+\.)+[^@\.]{2,}$/g.test(form1.SendMail.value)){
}
else {
alert("请输入要发送邮件的正确地址");
form1.SendMail.focus();
return false;
}
return true;
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -