麻烦看看，总是下单提交产品数量和金额不对。是语法不对吗？

YAFOX2355 2017-04-07 10:14:24

<body class="bga">
<%
IsNmBuy=0 '不是匿名单
If SitIsNmBuy="0" Then '是否开启匿名
ChkLogin
BuyName=Request.Cookies(SitWebCookies)("UserName")
Else
If Request.Cookies(SitWebCookies)("UserName")<>"" Then
BuyName=Request.Cookies(SitWebCookies)("UserName")
Else
If Request.Cookies(SitWebCookies)("NmUserName")<>"" Then
BuyName=Request.Cookies(SitWebCookies)("NmUserName")
IsNmBuy=1
Else
IsNmBuy=1
sDate = Now()
sDate = Year(sDate) & Right("0"&Month(sDate),2) & Right("0"&Day(sDate),2) & Right("0"&Hour(sDate),2) & Right("0"&Minute(sDate),2) & Right("0"&Second(sDate),2)&Generator(4)
BuyName=sDate
Response.Cookies(SitWebCookies)("NmUserName")=BuyName
End if
End if
End If

xAction=lcase(request("action"))
select case xAction
case ""
Call checkout() 'call ddsshows()
case "saves"
call ddssaves()
Case "checkout"
Call checkout()
case Else
call ddsshows()
end select

Sub checkout() '选择配送方式
gwcjs= FunSQL(ExecSql("select count(ID) from Shop363_ProOrders where Stats=99 and UserName='"&BuyName&"'")(0),true)
%>

<header id="header">
<section class="head-b">
<span class="u-left"><a href="javascript:history.go(-1);" class="back"><img src="<%=SitWebUrl%>images/back.png"/></a></span>
<h1>完善订单信息</h1>
<div class="u-right">
<a href="prolist.asp" class="u-cart right"><img src="<%=SitWebUrl%>images/ico_so8.png" alt=""></a>
<a href="<%=SitWebUrl%>" class="hSearch right"><img src="<%=SitWebUrl%>images/i_home.png"/></a>
</div>
</section>
</header>

</header>

<%set rsus=server.CreateObject("adodb.recordset")
rsus.open "select * from [Shop363_User] where UserName='"&BuyName&"'",conn,1,3
If rsus.eof Then
rsus.addnew
rsus("IsNm")=1
rsus("UserName")=BuyName
rsus.update
End if%>
<div class="wrap-page" id="main" style="bottom:3.5rem">
<form name="order_form" action="probuydd.asp?action=saves" method="post" onSubmit="return Validator.Validate(this,2)">
<%If Request.Cookies(SitWebCookies)("UserName")<>"" then
set rsu=server.CreateObject("adodb.recordset")
rsu.open "select P_PayArea,TrueName,LxTel,Address,Email,Post,P_MobTel from [Shop363_User] where username='"&BuyName&"'",conn,1,1
If not rsu.eof Then
TrueName=rsu("TrueName")
PayArea=rsu("P_PayArea")
P_MobTel=rsu("P_MobTel")
Email=rsu("Email")
Post=rsu("Post")
Address=rsu("Address")
End If
rsu.close
Set rsu=Nothing
End if%>
<section id="edit_address">
<div class="order-detail">
<h2 class="c85 f1">收货人地址</h2>
<ul class="pay-way">
<li>
<span class="c85">收货人名：</span>
<span class="c3">
<input type="text" name="TrueName" id="AccepterName" value="<%=TrueName%>" dataType="Require" msg="请填写收货人" />
</span>
</li>
<li>
<span class="c85">手机号码：</span>
<span class="c3">
<input type="text" value="<%=P_MobTel%>" maxlength="11" name="P_MobTel" id="Mobile" dataType="Require" msg="请填写手机号码" />
</span>
</li>
<li>
<span class="c85">配送区域：</span>
<span class="c3">
<select name="PayArea" id="province" dataType="Require" msg="请选择配送区域">
<option value="">选择配送区域</option>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from Shop363_SetDeliArea order by OrderNum,Id"
rs.open sql,conn,1,1
While Not rs.eof
%>
<option value="<%=rs("Id")%>"<%
If PayArea<>"" then
If CStr(PayArea)=CStr(rs("id")) Then response.write " selected"
End if%>><%=rs("Name")%></option>
<%
rs.movenext
Wend
call closeRs(rs)
%>
</select>
</span>
</li>
<li>
<span class="c85">QQ号码：</span>
<span class="c3">
<input type="text" pattern="[0-9]*" maxlength="18" name="Post" value="<%=Post%>" id="postcode" />
</span>
</li>
<li>
<span class="c85">详细地址：</span>
<span class="c3">
<input type="text" name="Address" value="<%=Address%>" id="Address" dataType="Require" msg="请填写收货地址" />
</span>
</li>
<li>
<span class="c85">配送方式：</span>
<span class="c3">
<select name="songhuofangshi" id="province">
<%sha=1
set rsshfs=server.CreateObject("adodb.recordset")
rsshfs.Open "select * FROM Py_Sit_SHWay order by ordernum,id ",conn,1,1
While Not rsshfs.eof%>
<option value="<%=rsshfs("name")%>|||<%=rsshfs("monenys")%>" <%If sha=1 Then response.write "selected"%>><%=rsshfs("name")%>(<%=rsshfs("monenys")%>元)</option>
<%rsshfs.movenext
sha=sha+1
Wend
rsshfs.close
Set rsshfs=nothing%>
</select>
</span>
</li>
<li>
<span class="c85">订单附言：</span>
<span class="c3">
<input type="text" name="Content" value="" id="postcode" />
</span>
</li>
</ul>
<%
Sumzj=0
SumJf=0
SumWeight=0
set rssh=server.CreateObject("adodb.recordset")
rssh.open "SELECT * from Shop363_ProOrders where Stats=99 and UserName='"&BuyName&"' and IsPt<>2 order by id desc",conn,1,1
While Not rssh.eof
Sumzj=Sumzj+(rssh("ProNum")*rssh("Moneny"))
SumJf=SumJf+(rssh("ProNum")*rssh("JIFen"))
SumWeight=GetMonNum(SumWeight+(rssh("ProNum")*rssh("ProWeight")))
rssh.movenext
Wend
rssh.close
Set rssh=nothing
%>
<div class="again-buy" id="next-step">
<input name="BuyName" type="hidden" size="3" value="<%=BuyName%>" />
<input name="IsNmBuy" type="hidden" size="3" value="<%=IsNmBuy%>" />
<input name="SumJf" type="hidden" size="3" value="<%=SumJf%>" />
<input name="Sumzj" type="hidden" size="3" value="<%=Sumzj%>" />
<input type="submit" id="loginButton" style="display:none;">
<a href="javascript:void(0);" class="buy-btn" onclick="$('#loginButton').click();">提交订单</a>
</div>
</div>
</section>
</form>
</div>

...全文