2 qq1775864430 qq1775864430 于 2014.12.19 09:06 提问

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


1个回答

showbo
showbo   Ds   Rxr 2014.12.19 09:16
已采纳

vbs的注释是单引号('),不是//,所有//注释的全部改正过来

//生成订单**(第99行)**

===》

'生成订单**(第99行)**

qq1775864430
qq1775864430 谢谢你,没注意细节,现在可以了。
大约 3 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!