send.asp
来自「ASP入门与提高实用教程 源文件(上传网站)」· ASP 代码 · 共 51 行
ASP
51 行
<html>
<head>
<title> ??Email??</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<H2 align="center">??Email</H2>
<center>
<FORM ACTION="" METHOD=POST NAME=form1>
<table >
<tr><td bgcolor="#CCCCCC">???</td><td><input type="text" name="Receipt" size="30">
<span class="style1">*</span></td>
</tr>
<tr><td bgcolor="#CCCCCC">???</td><td><input type="text" name="Sender" size="30">
<span class="style1">*</span></td></tr>
<tr><td bgcolor="#CCCCCC">??</td><td><input type="text" name="Subject" size="40">
<span class="style1">*</span></td></tr>
<tr><td bgcolor="#CCCCCC">??</td>
<td><textarea name="body" rows="4" cols="40" wrap="soft"></textarea></td></tr>
<tr><td colspan="2"><div align="center">
<input type="submit" value=" ? ? ">
</div></td></tr>
</table>
</form>
<%
'??,?????,??????????,?????
If Request("Receipt")<>"" and Request("Sender")<>"" and Request("Subject")<>"" Then
Set Jmail = Server.CreateObject("Jmail.Message")
Jmail.AddRecipient Request("Receipt")
Jmail.From = Request("Sender")
Jmail.Subject = Request("Subject")
Jmail.Body = Request("body")
'???????
Jmail.send("smtp.163.com")
'????
Jmail.Close
Response.Write "????"
Else
Response.Write "????????????????"
End If
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?