send.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 53 行

ASP
53 行
字号 
<% @language="vbscript" %>
<%
response.buffer=false
Response.Expires=0
%>

<% dim  mail, smail,sbj,name,text
mail=request("mail") '收信人
smail=request("smail") '发信人
name=request("name") '发信人名字
radiobutton=request("radiobutton") '格式 txt或html
sbj=request("sbj") '邮件标题
text=request("text") '邮件内容

if smail="" then
 smail=mail
end if

on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312" 
JMail.ServerAddress =""
JMail.Priority = 1
jmail.contenttype = radiobutton
JMail.Sender =( smail)
JMail.Subject =sbj
JMail.SenderName = name
JMail.AddRecipient( mail )
JMail.Body = text

JMail.Execute()

if err then 
 err.clear
end if

JMail.Close()
set jMail=nothing 
Response.Write ("<script>alert('邮件内容已成功发送到指定的邮箱地址了，请确定返回！')</script>")
JMail.Close()
set jMail=nothing 
%>

<html>
<head>
<meta http-equiv=refresh content="0; url=<%=request.servervariables("http_referer")%>">
</head>
</html>

send.asp - 源码说明

本页面展示了「一个非常好的旅游网站程序.」中的 send.asp 源码文件，采用 ASP 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与旅游相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?