<%@ LANGUAGE="VBSCRIPT" %
<%
'************************************* （本文来源于图老师网站，更多请访问https://m.tulaoshi.com/asp/）
'这个文件是发送邮件或回复邮件的界面
'作者：awayeah
'邮箱：awayeah@163.net
'*************************************
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/asp/）
'取得回信地址
replyaddr=Request.QueryString("addr")
'取得要回邮件的主题
replysubj=replace(Request.QueryString("subject"),"_",space(1))
%
<script language="vbscript"
sub CmdSubmit_onClick()
if trim(frmsendmail.receive1.value)="" then
alert ("尚未输入收件人地址，请输入!")
frmsendmail.receive1.focus
else
frmsendmail.submit
end if
end sub
</script
<html
<head
<meta http-equiv="Content-Language" content="zh-cn"
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<meta name="GENERATOR" content="Microsoft FrontPage 4.0"
<meta name="ProgId" content="FrontPage.Editor.Document"
<title发邮件</title
</head
<body bgcolor="#008080" text="#00FFFF"
<div span=1 align=center
<form method="POST" action="p_sendmail.asp" name="frmsendmail"
<table border="1" width="455" cellspacing="1" bgcolor="#800080"
<tr
<td width="92"
<p align="right"<b发 件 人</b</p
</td
<td width="347"<input type="text" name="from" size="40"</td
</tr
<tr
<td width="92"<b发件人邮箱</b</td
<td width="347"<input type="text" name="fromaddr" size="40"</td
</tr
</table
<table border="1" width="455" height="56" bgcolor="#000080"
<tr
<td width="52" height="23"
<p align="center"<b收件人</b</p
</td
<td width="387" height="23"
<p align="left"<input type="text" name="receive1" value="<%=replyaddr%" size="40"</p
</td
</tr
<tr
<td width="52" height="23"
<p align="center"<b主 题</b</p
</td
<td width="387" height="23"
<p align="left"<input type="text" name="subject" value="<%=replysubj%" size="40"</p
</td
</tr
<tr
<td width="445" colspan="2" height="1"
<table border="0" width="100%" height="184" cellspacing="0" cellpadding="0"
<tr
<td width="8%" height="178"
<p align="center"<b内</b
<p align="center"
<p align="center"<b容</b
<p </td
<td width="92%" height="178"<textarea rows="10" name="bodytext" value="<%=bodytext%" cols="55"</textarea</td
</tr
</table
</td
<tr <td width="52"
<p align="center"<b附 件</b</p
</td <td width="387"<input type="file" name="att" size="20"</td</tr
</table
<p align="center"<input type="button" value="发送" name="cmdSubmit" <input type="reset" value="全部重写" name="B2"</p
</form
</div
</body
</html
