?? email.asp
字號:
<%
on error resume next
dim CLStr,msg9,mailserver,emailname,password,em1
CLStr=Chr(13) & Chr(10)
'填寫發(fā)信smtp主機(jī)參數(shù)
mailserver="smtp.systen.com"
'發(fā)信的信箱
emailname="your@systen.com"
'發(fā)信信箱的密碼
password="11111111"
'接收的信箱
em1="your@263.com"
'填寫發(fā)信參數(shù)結(jié)束
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 = "網(wǎng)站的留言"
msg9.Body = msg9.Body&"網(wǎng)站有留言啦!"&CLStr
msg9.Body = msg9.Body&"=================================="&CLStr&CLStr
msg9.Body = msg9.Body&"留言人 < "&Request.Form("name")&" >"&CLStr
msg9.Body = msg9.Body&"內(nèi)容如下:"&CLStr
msg9.Body = msg9.Body&Request.Form("content")
msg9.Priority = 1
msg9.Send (mailserver)
msg9.close
set msg9 = nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -