程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程綜合問答 >> 信息-VBScript 編譯器錯誤 800a0400 缺少語句 line 99

信息-VBScript 編譯器錯誤 800a0400 缺少語句 line 99

日期:2017/1/9 12:37:42      編輯:編程綜合問答
VBScript 編譯器錯誤 '800a0400' 缺少語句 line 99

<%Option Explicit%>



綠植鮮花玩具禮品店

TD { FONT-SIZE: 12px; FONT-FAMILY: "宋體" }


<%
dim comefrom
comefrom=Request.Cookies("comefrom")
if (comefrom=null or comefrom="") then
comefrom="0"
end if
%>


<!--#include file="top.html"-->

<%
dim cartstr
cartstr = getCartFromCookie()
if (cartstr=NULL or cartstr ="") then

%>

你購物車中沒有一件商品,請先購物!

<%
else
dim payName,payPhone,payAddress,payMemo,sendMonth,sendDay,payEmail
dim recName,recPhone,recAddress,recMemo,recSay,recEmail,whosend,whosendtxt,recSaytxt
payName=request("MypayName")
payPhone=request("payPhone")
payAddress=request("payAddress")
payMemo=request("payMemo")
sendMonth=request("sendMonth")
sendDay=request("sendDay")
payEmail=request("payEmail")

recName=request("recName")
recPhone=request("recPhone")
recAddress=request("recAddress")
recMemo=request("recMemo")
recEmail=request("recEmail")
recSay=request("recSay")
whosend=request("whosend")
dim myrec
myrec=request("myrec")
if (myrec="1") then
recName=payName
recPhone=payPhone
recAddress=payAddress
recEmail=payEmail
end if
if (recSay="0") then
recSaytxt="小姐"
else
if (recSay="0") then
recSaytxt="女士"
esle
recSaytxt="先生"
end if
end if
if (whosend="0") then
whosendtxt=payName+"送"
else
whosendtxt="某人送"
end if

ShowCart("no")
dim sendFee,sendID
sendID=request("send")
sendFee=15
if (sendID="1") then
sendFee=10
end if
if (sendID="2") then
sendFee=15
end if
if (sendID="3") then
sendFee=20
end if
if (sendID="4") then
sendFee=30
end if
%>


<%
//生成訂單**(第99行)**
dim conn,sql,userautoid,totalpay,realpay
totalpay =lvzhicarttotalmoney+sendFee
realpay =totalpay
userautoid=session("userautoid")
if (userautoid=null or userautoid<=0) then
userautoid=-1
end if
//保存付款人,收貨人信息
shopopendatabase conn
sql = "insert into myorder(payName, payPhone, payEmail, payAddress, payMemo, recName, recPhone, recAddress, recMemo, recSay, sendFee,sendArea,totalpay,realpay,userid,comefrom)"
sql = sql &" values('"&payName&"','"&payPhone&"','"&payEmail&"','"&payAddress&"','"&payMemo&"','"&recName&"','"&recPhone&"','"&recAddress&"','"&recMemo&"',"&recSay&","&sendFee&","&sendID&","&totalpay&","&realpay&","&userautoid&","&comefrom&")"
conn.execute(sql)
set rs=conn.execute("select @@IDENTITY as newIDValue FROM myorder")
dim orderid
orderid=rs("newIDValue")

//保存明細
dim cartnumstr
Dim MyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp
cartstr = getCartFromCookie()
cartnumstr=getCartNumFromCookie()
if (cartstr=NULL or cartstr ="") then
    cartstr =""
end if
if (cartnumstr=NULL or cartnumstr ="") then
    cartnumstr =""
end if
MyProductArrayTmp = Split(cartstr, ",",-1,1) 
MyNumArrayTmp = Split(cartnumstr, ",",-1,1)
dim n
For n =LBound(MyProductArrayTmp) to  UBound(MyProductArrayTmp)
    MyProductArray(n)=MyProductArrayTmp(n)
    MyNumArray(n)=MyNumArrayTmp(n)
Next
totalnum=getCartTotalNumFromCookie()
if (totalnum=NULL or totalnum="") then
    totalnum=0
end if
dim productid,productname,productprice,quantity,query,rs,dbc,i,IsExist
n=0
shopopendatabase dbc
query =  "select autoid,name,salePrice from product where  autoid in (" & cartstr & ")"
set rs = dbc.execute(query)
Do WHILE not rs.EOF and n<10
    productprice=rs("salePrice")
    productname=rs("name")
    productid=rs("autoid")
    IsExist="false"
    For i = 0 to CInt(totalnum)-1
        if (MyProductArray(i) =CStr(productid)) then
            IsExist="true"
            exit for
        end if 
    Next
    if (IsExist="true") then
        quantity=MyNumArray(i)
        sql="insert into orderitem( productid,productname,productprice,quantity,orderid)"
        sql = sql &" values("&productid&    ",'"&productname&"',"&productprice&","&quantity&","&orderid&")"
        conn.execute sql
    end if
    n=n+1
    rs.movenext 
Loop    
closerecordset rs
shopclosedatabase dbc
shopclosedatabase conn      
dim lvzhicarttotalmoney
lvzhicarttotalmoney=Request.Cookies("lvzhicarttotalmoney") 
//清除購物車
setCartToCookie "","",0,0

%>

  訂單號碼: 付款人信息   姓名:     電話:     地址:     EMAIL:     送貨日:  月日   特殊要求:  

收貨人信息   姓名:     電話:     地址:     EMAIL:     送貨名義:     特殊說明:  




送貨費用: 元 費用總計: 元 "0") then %> 來自聯盟:



<%
end if
%>

一般在24小時內,電話同你聯系,確認後上門收款和發貨!
有什麼特殊需要,請聯系我們客服務,電話:83347533,13910250117


最佳回答:


vbs的注釋是單引號('),不是//,所有//注釋的全部改正過來

//生成訂單**(第99行)**

===》

'生成訂單**(第99行)**

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved