|
零配件手冊(cè) |
|
|
 |
您現(xiàn)在的位置：首頁(yè)
>> 網(wǎng)上訂購(gòu) |
|
徐州恒銘機(jī)械以熱情誠(chéng)懇的態(tài)度、專業(yè)準(zhǔn)確的解答、人性化的服務(wù)理念為用戶提供產(chǎn)品信息、銷售咨詢等全方位的客戶服務(wù)功能。您可以直接在線訂購(gòu)我們的產(chǎn)品，我們將及時(shí)與您取得聯(lián)系！ |
<%
//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&"請(qǐng)選擇要訂購(gòu)的設(shè)備具體型號(hào)
"
If len(strname)<1 then msg=msg&"請(qǐng)?zhí)顚懩男彰员阄覀兟?lián)系
"
If len(strtel)<1 and len(stremail)<1 then msg=msg&"電話或電子郵箱請(qǐng)?zhí)顚懼辽僖粋�(gè)，以便我們聯(lián)系您。
"
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 %>
|
