<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%=trim(request("item"))%> Inquiry,<%=e_webname%> <%if request("action")="add" then if request.form("code")="" then response.write "" elseif Trim(Request.Form("code"))=Empty or Trim(Session("code"))<>Trim(Request.Form("code")) Then response.write "" else dim title,products dim content,name,company_name,add,tel,fax,email,website,msn,ip dim rs,sql title=trim(request.form("title")) content=""&request.form("content") name=trim(request.form("name")) company_name=trim(request.form("company_name")) add=trim(request.form("add")) tel=trim(request.form("tel")) fax=trim(request.form("fax")) email=trim(request.form("email")) website=trim(request.form("website")) msn=trim(request.form("msn")) ip=Request.ServerVariables("REMOTE_ADDR") set rs=server.CreateObject("adodb.recordset") sql="select * from xiaoyuer_e_order" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("content")=content rs("name")=name rs("company_name")=company_name rs("add")=add rs("tel")=tel rs("fax")=fax rs("email")=email rs("website")=website rs("msn")=msn rs("ip")=ip rs.update rs.close set rs=nothing Session("NoList")="" '清空询价车中产品 if mail_jmail=1 then'判断发送邮件开关 on error resume next '发送注册邮件 mailbody="" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "★网站订单提醒★来自IP:"&Request.ServerVariables("REMOTE_ADDR")&"" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "★询价产品编号:"&trim(request("title"))&"
" mailbody=mailbody & "★具体内容:"&trim(request("content"))&"

" mailbody=mailbody & "★询价人:"&trim(request("name"))&"
" mailbody=mailbody & "★公司名称:"&trim(request("company_name"))&"
" mailbody=mailbody & "★电话:"&trim(request("tel"))&"
" mailbody=mailbody & "★E-mail:"&trim(request("email"))&"
" mailbody=mailbody & "★网站:"&trim(request("website"))&"
" mailbody=mailbody & "" mailbody=mailbody & "" Set JMail=Server.CreateObject("JMail.Message") jmail.silent = true'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.Logging = true'启用使用日志 JMail.Charset="utf-8"'邮件编码 JMail.ContentType = "text/html"'邮件的格式为HTML的 'jmail.ServerAddress = "Server Address" '发送邮件的服务器 jmail.AddRecipient email'邮件收件人的地址 jmail.from = mail_send'发件人的E-MAIL地址 jmail.FromName = mail_name'发件人的名称 jmail.mailserverusername = mail_username'登录邮件服务器所需的用户名 jmail.mailserverpassword = mail_password'登录邮件服务器所需的密码 JMail.Subject="★网站订单提醒★来自IP:"&Request.ServerVariables("REMOTE_ADDR")'邮件标题 jmail.body=mailbody'邮件内容 jmail.Prority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 if not jmail.Send ( mail_smtp ) then SendMail="" else SendMail="OK" end if jmail.Close() '关闭对象 set jmail = Nothing if SendMail="OK" then Call Alert ("Send successfully!",-1) else Call Alert ("Send successfully!",-1) end if response.write mailbody elseif mail_jmail=2 then '判断godaddy on error resume next sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From=trim(request("email")) objMail.To=email objMail.BodyPart.Charset = "utf-8" objMail.Subject="★网站客户订单通知★询价人IP:"&Request.ServerVariables("REMOTE_ADDR") objMail.TextBody="★询价产品:"&trim(request("title"))&"★询价人:"&trim(request("name"))&" ★电话:"&trim(request("tel"))&" ★E-mail:"&trim(request("email"))&" ★MSN:"&trim(request("msn"))&" ★公司:"&trim(request("company_name"))&" ★具体内容:"&trim(request("content")) objMail.Send Set objMail = Nothing if err.number <> 0 then Call Alert ("Send successfully!",-1) else Call Alert ("Send successfully!",-1) end if rs.close set rs=nothing else Call Alert ("Send successfully!",-1) end if end if end if%>
<%set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from xiaoyuer_setup" rs.open sql,conn,1,1 if rs.eof and rs.bof then else topseo=rs("e_title") sqltop="select * from xiaoyuer_e_link where show=false and class_id=0 order by link_id asc" '用中文字符数排序,防止重复替换造成链接破坏的问题 set rstop= Server.CreateObject("ADODB.Recordset") rstop.open sqltop,conn,1,1 if not rstop.eof then do while not rstop.eof name=rstop("name") '内链词 url=rstop("url") '内链地址 topseo=replace(topseo,name,""&name&"",1,1,1) rstop.movenext loop end if rstop.close set rstop=nothing rs.close set rs=nothing end if %> <%=topseo%>.
You are here: Home » Inquiry
Products Catagories
News & Events
    <% Set Rs=Server.CreateObject("ADODB.Recordset") sql="select top 20 * from xiaoyuer_e_news order by id desc" Rs.Open Sql,Conn,1,1 if rs.eof and rs.bof then response.write "" else cols=5 do while not rs.eof if g mod cols=0 then response.Write("") g=g+1 %>
  • "><%=left(rs("name"),28)%>... [<%=rs("date")%>]

    <%=left(rs("description"),150)%>...

  • <% if g=5 then exit do rs.movenext loop end if rs.close set rs=nothing %>
Contact Information
<% if e_webname<>"" then %><%=e_webname%>
<% end if %> <% if e_add<>"" then %>Add: <%=e_add%>
<% end if %> <% if tel<>"" then %> Tel.: <%=tel%>
<% end if %> <% if fax<>"" then %>Fax: <%=fax%>
<% end if %> <% if email<>"" then %>Email: <%=email%>
<% end if %> <% if msn<>"" then %>Msn: <%=msn%>
<% end if %> <% if skype<>"" then %>Skype: <%=skype%>
<% end if %> <% if weburl<>"" then %>Web: <%=weburl%>
<% end if %>