%@ Language = VBScript %> <% action=request("action") if action="ok" then '================================================== ' SHEZHI smtpserver = "smtp.163.com" 'smtp.163.com smtpuser = "jvyiadmin" 'SMTP smtppwd = "790430" 'SMTP 'SMTP 'SMTP 'SMTP '163.com '163.com smtpemail = "jvyiadmin@163.com" 'SMTP myemail="k8905656@163.com" ' ' shezhi '================================================== sendname = trim(Request("name")) 'NAME email = trim(Request("email")) 'SHOUJIERNE body = trim(Request("body")) sex = trim(Request("sex")) nianling= trim(Request("nianling")) zhiye = trim(Request("zhiye")) tel= trim(Request("tel")) add= trim(Request("add")) if sendname="" or email="" or tel="" or body="" then response.write "请填写每一项!返回上一页" response.end end if mailbody=mailbody &"" mailbody=mailbody &"
| "
mailbody=mailbody &"姓 名:"&sendname&" " mailbody=mailbody &"性 别:"&sex&" " mailbody=mailbody &"年 龄:"&nianling&" " mailbody=mailbody &"职 业:"&zhiye&" " mailbody=mailbody &"电 话:"&tel&" " mailbody=mailbody &"E - mail:"&email&" " mailbody=mailbody &"地 址:"&add&" " mailbody=mailbody &"详细病情:"&body&" " mailbody=mailbody &"*************************************************************************************" mailbody=mailbody &" 在线邮件系统发送,请勿直接回复此邮件! " mailbody=mailbody &"该邮件的发件人为"&sendname&" 发件人邮箱为"&email&" " mailbody=mailbody &"如果需要回复,请发邮件至"&email&",切记!本站对邮件的内容不负任何法律责任! " mailbody=mailbody &"*************************************************************************************" mailbody=mailbody &" |