📄 mail.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>欢迎光临都乐书店</title>
<link rel="stylesheet" type="text/css" href="css/common.css">
<script Language="javascript">
function checkmail(){
if (mail.To.value == ""){alert("请填写你朋友的Email！");return false;}
else if(mail.body2.length > 200){alert("请你的内容限制在100字以内！");return false;}
else {return true;}
}
</script>
</HEAD>
<BODY topmargin=4>
<table border=0 cellpadding=0 cellspacing=0 width=760 align=center>
<tr>
<td>
<!--#include file="include/title.inc"-->
</td>
</tr>
<tr>
<td><br>
<%
if Request.Form ("To") <> "" then
body = Request("body1")&"<br><br>"&Request("body2")
Set mail=Server.CreateObject ("CDONTS.NewMAIL")
Mail.To = Request("To")
Mail.From = Request("From")
Mail.Subject = Request("Subject")
Mail.Body = body
Mail.BodyFormat = 0
mail.MailFormat = 0
Mail.Send
Set Mail = Nothing
Response.Write "OK!你的消息已经成功发送！"
else
%>
<table border=0 cellpadding=0 cellspacing=1 width=501 align=center bgcolor=#9999FF>
<tr> <td>
<form action="mail.asp" method="post" name="mail" style="margin:0px" onsubmit="return(checkmail())">
<table border=0 cellpadding=0 cellspacing=0 width=500 align=center bgcolor="#ffffff">
<tr>
<td width=150 align=right height=30 bgcolor="#ffffff">朋友的EMAIL:</td>
<td width=350 height=30 bgcolor="#ffffff">
<input type="text" name="To"class="inputbox" size=40></td>
<tr>
<td width=150 align=right height=30 bgcolor="#ffffff">你的EMAIL:
<td width=350 height=30 bgcolor="#ffffff">
<input type="text" name="From"class="inputbox" size=40></td>
<tr>
<td width=150 align=right height=30 bgcolor="#ffffff">主题：
<td width=350 height=30 bgcolor="#ffffff">
<input type="text" name="Subject" value="介绍一本好书"class="inputbox" size=40></td>
<tr bgcolor=#FFCC99>
<td colspan=2 height=30>以下是我们将发给你朋友的信息：</td>
</tr>
<tr bgcolor="#F5F5F5">
<td colspan=2 height=30>嗨：你好吗？<br> 我在<a href="http://dule.gbsource.net">都乐书店</a>看到一本好书，书名是<a href="display.asp?bookid=<%=Request("bookid")%>">《<%=Request("bookname")%>》</a>。 我想你可以看看，对你会有所帮助。</td>
</tr>
<tr bgcolor="#FFCC99">
<td colspan=2 height=30>你可以在下面添加你的信息：</td>
</tr>
<tr>
<td colspan=2 align=center bgcolor="#ffffff">
<input type=hidden name="body1" value="嗨：你好吗？<br> 我在<a href='http://dule.gbsource.net'>都乐书店</a>看到一本好书，书名是<a href='http://dule.gbsource.net/display.asp?bookid=<%=Request("bookid")%>'>《<%=Request("bookname")%>》</a>。 我想你可以看看，对你会有所帮助。">
<textarea cols=40 rows=6 class="inputbox" name="body2"></textarea></td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=submit value="送出" class="inputbox">
<input type=reset value="重填" class="inputbox">
<input type=reset value="返回" class="inputbox" id=reset1 name=reset1>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td align=center>
<!--#include file="include/foot.inc"-->
</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -