%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<%
flag=Request.QueryString("flag")
code=Request.QueryString("code")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
mymenu="contact"
if code<>"" then
sql="select * from sys_dept where code='"+code+"'"
else
sql="select * from sys_dept where flag='1'"
end if
rs.Open sql,cn,1,1
if not rs.EOF then
deptcode=rs("code")
sys_website=trim(rs("website"))
sys_address=trim(rs("address"))
sys_phone=trim(rs("phone"))
sys_linkman=trim(rs("linkman"))
sys_zip=trim(rs("zip"))
sys_fax=trim(rs("fax"))
sys_email=trim(rs("email"))
end if
rs.Close
if Request.ServerVariables("REQUEST_METHOD")="POST" then
topic=Request.Form("topic")
email=Request.Form("email")
myname=Request.Form("myname")
corpname=Request.Form("corpname")
address=Request.Form("address")
phone=Request.Form("phone")
fax=Request.Form("fax")
content=Request.Form("content")
txt="这个一封来自"+Request.ServerVariables("Http_HOST")+"("+sys_website+")的在线提交邮件!当您收到这封邮件后请不要直接回复,因为您只能直接回复到网站"
mailstr=txt+ chr(13) + chr(10)
mailstr=mailstr + "姓名:" + myname + chr(13) + chr(10)
mailstr=mailstr + "单位:" + corpname + chr(13) + chr(10)
mailstr=mailstr + "电话:" + phone + chr(13) + chr(10)
mailstr=mailstr + "地址:" + address + chr(13) + chr(10)
mailstr=mailstr + "传真:" + fax + chr(13) + chr(10)
mailstr=mailstr + "Email:" + email + chr(13) + chr(10)
mailstr=mailstr + "IP地址:" + Request.ServerVariables("Remote_HOST") + chr(13) + chr(10)
mailstr=mailstr + "内容:" + content + chr(13) + chr(10)
Set jmail = Server.CreateObject("JMail.Message")
jmail.silent = true
jmail.Logging = true
jmail.Charset = "gb2312"
jmail.MailServerUserName = "abcsydney" '输入smtp服务器验证登陆名
jmail.MailServerPassword = "123456" '输入smtp服务器验证密码 (用户Email帐号对应的密码)
if email="" then
jmail.From ="001cy@163.com"
else
jmail.From = email
end if
jmail.AddRecipient sys_email '收件人Email
jmail.Subject = Request.ServerVariables("Http_HOST")+"网站留言"&now() '信件主题
jmail.Body = "主题:"+topic++chr(10)+chr(13)+mailstr '正文
jmail.Send ("abcsydney:123456@smtp.163.com") 'smtp服务器地址(企业邮局地址)
jmail.Close()
'set myobj=Server.CreateObject("cdonts.newmail")
'myobj.From=Request.ServerVariables("Http_HOST")
'myobj.To=co_email
'myobj.BodyFormat=0
'myobj.Subject=Request.ServerVariables("Http_HOST")&"网站留言"+topic
'myobj.Body=Request.ServerVariables("Http_HOST")&"网站留言:"+topic+chr(10)+chr(13)+mailstr
'myobj.Send()
rs.Open "contact",cn,3,3
rs.AddNew
rs("title")=topic
rs("email")=email
rs("myname")=myname
rs("corpname")=corpname
rs("phone")=phone
rs("fax")=fax
rs("content")=content
rs("address")=address
rs("creadate")=now()
rs("sysemail")=sys_email
rs("flag")="0"
rs("code")=deptcode
rs.Update
rs.Close
Response.Redirect("contact.asp?flag=1")
end if
%>
ABC环球集团联系方式,ABC Migration & Education
<%
sql="select * from sys_dept order by flag desc,sortnum "
rs.Open sql,cn,1,1
do while not rs.EOF
if code="" then code=trim(rs("code"))
if code=trim(rs("code")) then
deptname=trim(rs("deptname"))
sys_address=trim(rs("address"))
sys_phone=trim(rs("phone"))
sys_fax=trim(rs("fax"))
sys_email=trim(rs("email"))
%>