|
零配件手册 |
|
|
 |
您现在的位置：首页
>> 网上订购 |
|
徐州恒铭机械以热情诚恳的态度、专业准确的解答、人性化的服务理念为用户提供产品信息、销售咨询等全方位的客户服务功能。您可以直接在线订购我们的产品，我们将及时与您取得联系！ |
<%
//Option Explicit
Response.Buffer = True
Dim ObjRst,ObjCon,StrSql
Dim LngId,StrDate,LngState
Dim StrCorp,StrName,StrTel,StrFax,StrEmail,StrCode,StrAddr
Dim StrModel,StrAmount,StrPrice,StrBrand,StrDetail
Dim Msg,i
StrModel=Trim(Request("model"))
If Request("btnadd")<>"" Then
StrCorp=Trim(Request("corporation"))
StrName=Trim(Request("fullname"))
StrTel=Trim(Request("tel"))
StrFax=Trim(Request("fax"))
StrEmail=Trim(Request("Email"))
StrCode=Trim(Request("postcode"))
StrAddr=Trim(Request("address"))
StrModel=Trim(Request("model"))
StrAmount=Trim(Request("amount"))
StrPrice=""
StrBrand=""
StrDetail=Trim(Request("detail"))
LngState=0
StrDate=Date()
msg=""
If len(strmodel)<1 then msg=msg&"请选择要订购的设备具体型号
"
If len(strname)<1 then msg=msg&"请填写您的姓名以便我们联系
"
If len(strtel)<1 and len(stremail)<1 then msg=msg&"电话或电子邮箱请填写至少一个，以便我们联系您。
"
If msg="" then
'Set ObjRst=Server.CreateObject("ADODB.Recordset")
Set ObjCon=Server.CreateObject("ADODB.Connection")
ObjCon.Open DataBase
StrSql=""
StrSql="insert into custom_order(ID,DEALERID,corptitle,PUBDATE,DEALSTATE,FULLNAME,CORPORATION,TEL,FAX,EMAIL,POSTCODE,ADDRESS,MODEL,BRAND,PRICE,AMOUNT,DETAIL) values ("
StrSql=StrSql&"(select coalesce(max(id)+1,1) from custom_order),"
StrSql=StrSql&CorpNo&","
StrSql=StrSql&"'"&CorpName&"',"
StrSql=StrSql&"'"&Replace(StrDate,"'","''")&"',"
StrSql=StrSql&CorpNo&","
StrSql=StrSql&"'"&Replace(StrName,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrCorp,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrTel,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrFax,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrEmail,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrCode,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrAddr,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrModel,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrBrand,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrPrice,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrAmount,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrDetail,"'","''")&"')"
ObjCon.ExeCute StrSql
ObjCon.ExeCute "commit"
ObjCon.Close
Set ObjCon=Nothing
Response.Write ""
Else
Response.Write ""&Msg&""
End If
End If %>
|
