<%@ 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")) %>
" class="link3"><%=trim(rs("deptname"))%>
<% else %>
" class="link3"><%=trim(rs("deptname"))%>
<% end if rs.MoveNext loop rs.Close %>


<% sql="select count(userno) from userinfo where state='1' " rs2.Open sql,cn,1,1 if not rs2.EOF then zusercount=rs2(0) end if rs2.Close %>
您还可以注册进入论坛与<%=zusercount%>名用户交流!
<%=deptname%> 联系信息
地址:<%=sys_address%>
电话:<%=sys_phone%>    传真:<%=sys_fax%>
联系人:<%=sys_linkman%>
Email: <%=sys_email%>
邮编: <%=sys_zip%>
<%if flag="1" then%>
您的留言已发送成功!经ABC工作人员审核后会显示在左边,并回信到您填写的邮箱!如果您有重要事情,欢迎致电联系!
<%end if%>
标 题:
邮件地址: 确保您的邮箱正确
您的姓名:
单位:
地址:
电话:
传真:
内容: