<% SaleID=Request("pid") Set rstObj=Server.CreateObject("ADODB.Recordset") strSQL="select pro_Type,pro_Name,pro_keyword,pro_muluid,pro_ermuluid from products_data where pro_id = '"&SaleID&"'" rstObj.Open strSQL,cnnDB,1,1 proname=rstObj("pro_Type")&rstObj("pro_name") pname=rstObj("pro_Type")&rstObj("pro_name") titlekey=proname prokeyword=rstObj("pro_keyword") ClassID=rstobj("pro_muluid") xClassID=rstobj("pro_ermuluid") if rstObj("pro_keyword")<>"" then titlekey=proname&","&rstObj("pro_keyword") if xClassID<>"" then Set rstObj1=cnndb.execute("select mulu_id,mulu_did,mulu_name from ermulu_data where mulu_id like '"&xClassID&"'") mulu_xid=rstObj1("mulu_id") titlekeyx=rstObj1("mulu_name") end if Set rstObj2=cnndb.execute("select mulu_name from mulu_data where mulu_id like '"&ClassID&"'") titlekeyd=rstObj2("mulu_name") if request("content")<>"" then ipNum=Ip2Str(request("remote_addr")) Set rstObj=Server.CreateObject("ADODB.Recordset") sql="select * from dv_address where "&ipNum&" Between ip1 And ip2" rstObj.open sql,cnnDB,1,1 if not rstObj.eof then ipaddr=rstObj("country")&rstObj("City") end if Set rstObj=Server.CreateObject("ADODB.Recordset") rstObj.Open "c_card",cnnDB,2,2 rstObj.addnew rstObj("zs_id")=c_id rstObj("yh_username")=session("username") rstObj("yh_title")=replace(request("product"),">","��") rstObj("yh_company")=replace(request("company"),">","��") rstObj("yh_linkman")=replace(request("linkman"),">","��") rstObj("yh_tel")=replace(request("tel"),">","��") rstObj("yh_email")=replace(request("email"),">","��") rstObj("yh_fax")=replace(request("fax"),">","��") rstObj("yh_liuyan")=replace(request("content"),">","��") rstObj("yh_ip")=request("remote_addr") rstObj("yh_time")=now rstObj("yh_ipaddress")=ipaddr rstObj.update if c_vip=true then mailBody=mailBody&company&" ���쵼�����ã�"&chr(13)&chr(10)&chr(13)&chr(10)&"����һ��"&netname&topurl&"�û��������߷��͵��ʼ���"&chr(13)&chr(10)&chr(13)&chr(10)&"����Ȥ�IJ�Ʒ�У�"&chr(13)&chr(10)&trim(request("product"))&chr(13)&chr(10)&chr(13)&chr(10)&"�Բ�Ʒ��Ҫ��"&chr(13)&chr(10)&trim(request("content"))&chr(13)&chr(10)&chr(13)&chr(10)&"�ͻ���ϵ��ʽ��"&chr(13)&chr(10)&"��λ��"&request("company")&chr(13)&chr(10)&"��ϵ�ˣ�"&request("linkman")&chr(13)&chr(10)&"��ַ��"&request("address")&chr(13)&chr(10)&"�绰��"&request("tel")&chr(13)&chr(10)&"E-mail��"&request("email")&chr(13)&chr(10)&chr(13)&chr(10)&chr(13)&chr(10)&"Ϊ�˵õ������û����������뾭������ά���Լ���˾��չλ��"&chr(13)&chr(10)&"����ȥչ̨������"&topurl&"....../login..../ ��Ա��½ ��"&chr(13)&chr(10)&"��վ�Ƴ������·�����Ŀ��"&topurl&"service..../service_8.asp" else mailBody=mailBody&company&" ���쵼�����ã�"&chr(13)&chr(10)&chr(13)&chr(10)&"����һ��"&netname&topurl&"�û��������߷��͵��ʼ���"&chr(13)&chr(10)&chr(13)&chr(10)&"����Ȥ�IJ�Ʒ�У�"&chr(13)&chr(10)&trim(request("product"))&chr(13)&chr(10)&chr(13)&chr(10)&"�Բ�Ʒ��Ҫ��"&chr(13)&chr(10)&trim(request("content"))&chr(13)&chr(10)&chr(13)&chr(10)&"�ͻ���ϵ��ʽ��"&chr(13)&chr(10)&"��λ��"&request("company")&chr(13)&chr(10)&"��ϵ�ˣ��绰������ ��Ҫ����������Ա���ܲ鿴��"&chr(13)&chr(10)&chr(13)&chr(10)&chr(13)&chr(10)&"Ϊ�˵õ������û����������뾭������ά���Լ���˾��չλ��"&chr(13)&chr(10)&"����ȥչ̨������"&topurl&"....../login..../ ��Ա��½ ��"&chr(13)&chr(10)&"��վ�Ƴ������·�����Ŀ��"&topurl&"service..../service_8.asp" end if Set JMail = Server.CreateObject("jmail.SMTPMail%Uc91") JMail.ServerAddress = SMTPserver JMail.Sender = ordermail JMail.Sendername=netname JMail.Subject = "��������--"&netname&topurl JMail.Priority = 1 Jmail.charset="gb2312" 'Jmail.contenttype="text..../html" JMail.Body =mailBody Jmail.silent = true Jmail.logging = true JMail.AddRecipient email 'JMail.AddRecipientBCC "service@chem17.cn" if not jmail.execute then Response.Write "