表单中的内容,如何提交到邮件中。请帮忙。
<%
Dim oMail, sBody, sCc, sBCc, sFrom, sSubject, sContentBase, Formkey, Index, str
str=request.form("company") & ":报名单位<br>"
str=str&request.form("num") & ":观众人数<br>"
str=str&request.form("code") & ":邮政编码<br>"
str=str&request.form("peo")&":联 系 人<br>"
str=str&request.form("tel")&":电 话<br>"
str=str&request.form("add")&"通迅地址<br>"
sSubject = "表单"
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.Subject = sSubject
oMail.From = "lovezd@bfexpo.com.cn"
oMail.To = "lovezd@bfexpo.com.cn"
oMail.Body = str
oMail.MailFormat = 0
oMail.BodyFormat = 0
oMail.Importance=0
oMail.Send
Set oMail = Nothing
%>
以前是好用的,现在不好用了,租的服务器,听说他们升级了。