You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
127 lines
2.9 KiB
Plaintext
127 lines
2.9 KiB
Plaintext
<!--#include virtual="/include/site-seting.asp"-->
|
|
<!--#include virtual="/common/function.asp"-->
|
|
<!--#include virtual="/common/function-email.asp" -->
|
|
<!--#include virtual="/common/function-customer.asp" -->
|
|
<!--#include virtual="/common/CLS_Promotion.asp" -->
|
|
<!--#Include virtual="/test/Lib/Server_Sturc.asp"-->
|
|
<%
|
|
newqid = 0
|
|
newaid = 0
|
|
if Request.ServerVariables("Request_Method")<>"POST" then
|
|
response.write newqid
|
|
response.end
|
|
end if
|
|
|
|
tmpcname=TRIM(saferequest("fullname",0))
|
|
tmpcemail=TRIM(saferequest("yemail",0))
|
|
s_body = Trim(saferequest("Aquestion",0))
|
|
url = Trim(saferequest("Q_URL",0))
|
|
|
|
|
|
'response.Write("name:"&tmpcname&" ==email:"&tmpcemail&" ==body: "&s_body)
|
|
'Response.End()
|
|
if len(s_body)<12 then
|
|
newqid = -1
|
|
response.write newqid
|
|
response.end
|
|
end if
|
|
If ClearHtml(s_body)<>s_body Then
|
|
newqid = -2
|
|
response.write newqid
|
|
response.End
|
|
End If
|
|
If RegExpfind(s_body,"\<a .+?\>(.+?)\<\/a\>") Then
|
|
newqid = -3
|
|
response.write newqid
|
|
response.End
|
|
End If
|
|
|
|
thetxt = ""
|
|
|
|
dim rs,rstemp,sqlstr
|
|
set Rs = Server.CreateObject("ADODB.Recordset")
|
|
Set Rstemp = Server.CreateObject("ADODB.Recordset")
|
|
SqlStr="select * from ConfirmLineInfoTmp where 1=2"
|
|
Rs.Open SqlStr,Conn,1,3,1
|
|
Rs.AddNew
|
|
Rs("COLI_Sended")=1
|
|
Rs("COLI_OrderSource")=20007
|
|
Rs("COLI_ProductSN") = 0
|
|
Rs("COLI_WebCode")=Site_Code
|
|
|
|
Rs("COLI_sourcetype") = 32001
|
|
|
|
'订单提交日期
|
|
Rs("COLI_ApplyDate")=now()
|
|
'客人的IP
|
|
Rs("COLI_SenderIP")=Request.ServerVariables("REMOTE_ADDR")
|
|
|
|
'市场区域
|
|
Rs("COLI_Area")=2
|
|
'结算货币
|
|
Rs("COLI_Currency")="USD"
|
|
Rs("COLI_InterestRate")=0.2
|
|
Rs("COLI_TrueCardRate")=0.025
|
|
'结算类型
|
|
Rs("COLI_CustomerClass")=3001 '综合服务
|
|
'线路类型
|
|
Rs("COLI_OrderType")=19001 '散客定制
|
|
'付款方式
|
|
Rs("COLI_PayManner")=123001 '信用卡
|
|
'客户类型
|
|
Rs("COLI_CustomerType")=101 '英文网络直销
|
|
|
|
thetxt=thetxt & "full name:" & tmpcname & vbCrLf
|
|
thetxt=thetxt & "email:" & tmpcemail & vbCrLf
|
|
thetxt=thetxt & "msg:" & s_body & vbCrLf
|
|
thetxt=thetxt & "url:" & url & vbCrLf & vbCrLf
|
|
|
|
Rs("COLI_ServiceType") = product_type
|
|
Rs("COLI_OrderDetailText")= strMsgInfo
|
|
Rs("COLI_ApplyDate")=now()
|
|
Rs("COLI_SenderIP")=getClientIp()
|
|
Rs.update
|
|
COLI_SN=Rs("COLI_SN")
|
|
Rs.close
|
|
|
|
if not COLI_SN>0 then
|
|
SqlStr="select * from ConfirmLineInfoTmp order by COLI_SN desc"
|
|
Rs.Open SqlStr,Conn,1,3,1
|
|
COLI_SN=Rs("COLI_SN")
|
|
rs.close
|
|
end if
|
|
|
|
SqlStr="select * from ConfirmLineInfoTmp where COLI_SN="&COLI_SN
|
|
Rs.Open SqlStr,Conn,1,3,1
|
|
Rs("COLI_ID")=COLI_SN
|
|
Rs.update
|
|
Rs.close
|
|
|
|
|
|
SqlStr="select * from MEmberInfoTmp where 1=2"
|
|
Rs.Open SqlStr,Conn,1,3,1
|
|
Rs.AddNew
|
|
Rs("CreateDate")=now()
|
|
|
|
|
|
UsreName=split(request("realname")," ",2)
|
|
Rs("MEI_FirstName")=tmpcname
|
|
Rs("MEI_MailList")=tmpcemail
|
|
Rs.update
|
|
MEI_SN=Rs("MEI_SN")
|
|
Rs.close
|
|
|
|
SqlStr="select * from CUstomerListTmp where 1=2"
|
|
Rs.Open SqlStr,Conn,1,3,1
|
|
Rs.addnew
|
|
Rs("CUL_COLI_SN")=COLI_SN
|
|
Rs("CUL_CUI_SN")=MEI_SN
|
|
|
|
Rs("CreateDate")=now()
|
|
Rs.update
|
|
Rs.close
|
|
set Rs=nothing
|
|
|
|
response.redirect"/forms/thankyou.asp"
|
|
|
|
%> |