sendemail.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 40 行

ASP
40 行
字号 
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim Replytitle,ReplyContent,Email
Dim SMTPServer,fromWhoName,replyTo,fromWho,toWho,CcWho,BccWho,pathAttachment,Importance,Body,BodyFormat
Email = ModifyInput(Request("Email"))
Replytitle = ModifyInput(Request("Replytitle"))
ReplyContent = ModifyInput(Request("ReplyContent"))
SMTPServer = CONST_SYSTEM_SMTPSERVER
fromWho = CONST_SYSTEM_WEBMASTEREMAIL                         '   
replyTo = CONST_SYSTEM_WEBMASTEREMAIL
fromWhoName = CONST_SYSTEM_WEBMASTERNAME
toWho = Email
CcWho = ""
BccWho = ""
BodyFormat = ""
pathAttachment=""
Importance = 1
Subject = Replytitle
Body = ReplyContent
Dim ErrMsg 
ErrMsg = AdvSendMail(SMTPServer, fromWho, fromWhoName, toWho, CcWho, BccWho, replyTo, Importance, Subject, Body, BodyFormat, pathAttachment, "Jmail")
If ErrMsg = true then
	conn.execute "Update Feedback Set replystate=1,Replytime=now(),Replytitle='"&Replytitle&"',ReplyContent='"&ReplyContent&"' where ID="&Request("ID")&""
	Call MsgBack("成功发送！",4)
Else
	Call MsgBack("发送错误！",4)
End IF
%>
</BODY>
</HTML>
<!--#include virtual="/Include/DBClose.asp"-->

sendemail.asp - 源码说明

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

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

⌨️ 快捷键说明

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