<%
Sub sendMail(strOriginName, strOriginMail, strTargetName, strTargetMail, strSubject, strBody, appendText)
Dim MailMsg
Set MailMsg = Server.CreateObject("JMAIL.Message")
MailMsg.Logging = True
MailMsg.Charset = "gb2312"
MailMsg.ISOEncodeHeaders = False
MailMsg.From = "lighting@netspeed.cn"
MailMsg.FromName = strOriginName
MailMsg.AddRecipient strTargetMail, strTargetName
MailMsg.Subject = strSubject
MailMsg.Body = strBody
MailMsg.appendText appendText
MailMsg.mailserverusername = "lighting@netspeed.cn"
MailMsg.mailserverpassword = "666666"
MailMsg.send("mail.netspeed.cn")
MailMsg.Close
Set MailMsg = Nothing
End Sub
if request.QueryString("action")="send" then
namea=request.Form("name")
sex=request.Form("sex")
school=request.Form("school")
classes=request.Form("classes")
address=request.Form("address")
phone=request.Form("phone")
dhabit=request.Form("habit")
honor=request.Form("honor")
other=request.Form("other")
chinese=request.Form("chinese")
math=request.Form("math")
english=request.Form("english")
if namea="" then
alertstr="姓名不能为空\n"
end if
if school="" then
alertstr=alertstr&"毕业学校不能为空\n"
end if
if phone="" then
alertstr=alertstr&"联系电话必须填写\n"
end if
if alertstr<>"" then
response.Write("")
response.End()
end if
strOriginName = lianxiren
strOriginMail = mail
'response.Write(strOriginName&strOriginMail)
'response.End()
strTargetName = "长泰学校"
strTargetMail = "office@changtaischool.com"
strSubject = "学生咨询登记表"
strBody = "<姓名>:"&namea&"
<性别>:"&sex&"
<毕业学校>:"&school&"
<班级>:"&classes&"
<地址>:"&address&"
<联系电话>:"&phone&"
<爱好>:"&dhabit&"
<所获荣誉>:"&honor&"
<其它>:"&others&"
<语言>:"&chinese&"
<数学>:"&math&"
<英语>:"&english
'On Error Resume Next
Call sendMail(strOriginName, strOriginMail, strTargetName, strTargetMail, strSubject, strBody, appendText)
Response.Write ("")
end if
%>
|