|
|
|
|
|
<%@ Language = VBScript %>
<%
action=request("action")
if action="ok" then
'==================================================
' 参数设置开始，请修改相应参数
smtpserver = "smtp.163.com" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
smtpuser = "zhanglong_69609" '与SMTP服务器对应的邮箱用户名，请修改
smtppwd = "1314520000" '与SMTP服务器对应的邮箱密码，请修改
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail = "zhanglong_69609@163.com" 'SMTP服务器发信邮箱，请修改
myemail="jb@xzbb.gov.cn" '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同
' 参数设置结束
'==================================================
sendname = trim(Request("name")) '发件人名字
email = trim(Request("email")) '发件人邮箱
topic = trim(Request("topic"))
body = trim(Request("body"))
if sendname="" or email="" or topic="" or body="" then
response.write "请填写每一项!返回上一页"
response.end
end if
mailbody=mailbody &""
mailbody=mailbody &""
mailbody=mailbody &"
"
mailbody=mailbody &""&body&"
"
mailbody=mailbody &"
"
mailbody=mailbody &"
"
mailbody=mailbody &"
"
mailbody=mailbody &"
"
mailbody=mailbody &"
"
mailbody=mailbody &" |
"
if sendname <> "" and email <> "" then
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = email
jmail.Subject = topic
jmail.AddRecipient myemail
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if isgo then
msg="邮件发送成功！谢谢你的支持。"
else
msg = "邮件发送失败！请检查您的参数设置是否正确！"
end if
jmail.Close
set jmail = nothing
end if
end if
%>
举报中心－忻州市机构编制委员会办公室
山西省忻州市机构编制委员会办室网站开通了！望广大干部群众对本市违反机构编制管理规定，超编制进人，超职数配备领导干部，擅自增设机构，随意提高机构规格等违法行为进行举报！还可以拨打举报电话：12310
请广大干部群众进行监督！ |
<%if msg<>"" then%>
<%=msg%> 返回上一页
<%else%>
|
| |
