<%Skin_Path = "/templates/skins/maria2013/"%>
<%
Function SafePost(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
If strHTML<>"" then
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
If Trim(strHTML)="" Then
SafePost=strHTML
Else
SafePost=Replace(strHTML,"'","")
End If
End If
Set objRegExp = Nothing
End Function
function SendEmailByJmail(strFromEmail,strFromName,strFromPsw,SmtpServer,strToEmail,strSubject,strBody)
Set JMail = Server.CreateObject("JMail.Message")
JMail.ISOEncodeHeaders = True '是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.Silent = True '如果JMail.silent设置true,ErrorCode包含的是错误代码
JMail.Charset = "gb2312" '设置标题和内容编码，如果标题有中文，必须设定编码为gb2312
JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行，重要！
JMail.From = strFromEmail '发送者地址
JMail.FromName = "网站管理员" '发送者姓名
JMail.MailServerUserName = strFromName '身份验证的用户名
JMail.MailServerPassword = strFromPsw '身份验证的密码
arrMails=Split(strToEmail,"|")
For i=LBound(arrMails) To UBound(arrMails)
If arrMails(i)<>"" Then
JMail.AddRecipient arrMails(i)
End If
Next
'JMail.AddRecipient strToEmail
JMail.Subject =strSubject
JMail.HTMLBody = ""&strBody
JMail.appendHTML ""
flag=JMail.Send(SmtpServer) '执行邮件发送（通过邮件服务器地址）
SendEmailByJmail=flag
Set JMail=Nothing
end Function
if request("act")="add" Then
CheckCode=request("vcode")
FoundErr=False
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "验证码不能为空！"
end if
If FoundErr Then
JavaBack ErrMsg
Clear
End If
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "你登录时间过长，请重新返回登录页面进行登录。"
end if
if CheckCode<>CStr(session("CheckCode")) then
response.write "" & Chr(13)
Response.End
end If
keshi =SafePost(request("keshi"))
names =SafePost(request("names"))
times =SafePost(request("times"))
age =SafePost(request("age"))
sex =SafePost(request("sex"))
tel =SafePost(request("tel"))
email =SafePost(request("email"))
adress =SafePost(request("adress"))
content =SafePost(request("content"))
strError=""
'echo sex
'response.end
If Trim(names)="" Then
strError = strError & "请输入您的姓名"
End If
If Trim(tel)="" Then
strError = strError & "\r\n请输入您的联系电话"
End If
If strError<>"" Then
response.write "" & Chr(13)
response.End
End If
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from book"
rs.Open sql,conn,3,3
rs.addnew
rs("keshi")=keshi
rs("names")=names
rs("times")=times
If age<>"" And IsNumeric(age) Then
rs("age")=age
Else
rs("age")=0
End If
'response.write sex
rs("sex")=sex
rs("tel")=tel
rs("email")=email
rs("adress")=adress
rs("content")=content
rs("subtime")=Now()
rs.update
rs.close
set rs=nothing
set conn=Nothing
eBody="科室:"&keshi&" "
eBody=eBody&"姓名:"&names&" "
eBody=eBody&"预约时间:"×&" "
eBody=eBody&"年龄:"&age&" "
eBody=eBody&"性别:"&sex&" "
eBody=eBody&"联系电话:"&tel&" "
eBody=eBody&"E-mail:"&email&" "
eBody=eBody&"地址:"&adress&" "
eBody=eBody&"内容:"&content&" "
eBody=eBody&"提交时间:"&Now()&" "
eBody=eBody&"提交网址:"&Request.ServerVariables("HTTP_REFERER")&" "
'Call SendEmailByJmail("hljmlyfcyy@163.com","hljmlyfcyy","q123456789","smtp.163.com","522806666@qq.com","网上挂号",eBody)
Call SendEmailByJmail("522806666@qq.com","522806666","maliya123","smtp.qq.com","522806666@qq.com","网上挂号",eBody)
'Call SendEmailByJmail("hljmlyserice@sohu.com","hljmlyserice","azsxdcfvgb741852","smtp.sohu.com","1437737416@qq.com","网上挂号",eBody)
'Call SendEmailByJmail("xyl0236@163.com","xyl0236","XIAOYULING","smtp.163.com","1437737416@qq.com|935395349@qq.com","网上挂号",eBody)
%>
黑龙江玛丽亚妇产医院提示您！
