email.asp

功能:同前置顶. 置底. 搜索. 审核. 编辑. 悄悄话. 系统发信通知站长. 滚动公告或不用公告. 冷色暖色. 直接上传. UBB.在线设置 ... 管理用户：admin 密码：admin 本文来

<%
if Request("name")<>"" Then
dim server_v4,server_v5,server_v6
server_v4=Request.ServerVariables("SERVER_NAME")
server_v5=rs("siteurl")
server_v6="http://"&server_v1&""
if server_v5<>server_v6 then
Response.Write"进入本站再留言"
Response.End
end if
end if
%>

<%IF Request.Form("name")="" or Request.Form("mail")=""  or Request.Form("title")="" or Request.Form("content")=""  or Request.Form("randm1")="" or Request.form("randm1")<>Request.form("randm2") Then%> 

<%else%>


<%
on error resume next  
dim CLStr,msg9,mailserver,emailname,password,em1
CLStr=Chr(13) & Chr(10)

'填写发信smtp主机参数
mailserver="smtp.systen.com"

'发信的信箱
emailname="[e-mail]"

'发信信箱的密码
password="11111111"

'接收的信箱
em1="[e-mail]"

'填写发信参数结束
Set msg9 = Server.CreateObject("JMail.Message")
msg9.silent = true
msg9.Logging = true
msg9.Charset = "gb2312"
msg9.MailServerUserName = emailname
msg9.MailServerPassword = password   
msg9.From = emailname
msg9.FromName = Request.Form("mail")
msg9.AddRecipient (em1)
msg9.Subject = "网站的留言"
msg9.Body = msg9.Body&"网站有留言啦！"&CLStr
msg9.Body = msg9.Body&"=================================="&CLStr&CLStr
msg9.Body = msg9.Body&"留言人 < "&Request.Form("name")&" >"&CLStr
msg9.Body = msg9.Body&"内容如下:"&CLStr
msg9.Body = msg9.Body&Request.Form("content")
msg9.Priority = 1
msg9.Send (mailserver)
msg9.close
set msg9 = nothing
%>

<%end if%>