📄 sendemail.asp

📁 ASP编写的一个公司网站的源程序

💻 ASP

字号:

<!--#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"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -