科讯(Kesionshop)商城系统订单审核后才能付款的实现方法

由于商品的特殊性，顾客下单后需要审核后才能付款，解决办法如下：

在购买成功页模板里

把在线支付的代码删除

/Template/商城系统/订购成功.html

{$PayMentList}

会员中心的，订单付款页面做下判断就行了，如

user/User_PayOnline.asp 200多行加红色的应该就可以了

'支付商城订单Sub PayShopOrder()Dim ID:ID=KS.ChkClng(KS.S("ID"))Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")RS.Open “Select top 1 OrderID,MoneyTotal,DeliverType From KS_Order Where ID=”& ID,Conn,1,1If RS.Eof Thenrs.close:set rs=nothingKS.Die "<script>alert(‘出错啦!’);history.back();</script>"End Ifif rs("status")<>1 then rs.close:set rs=nothingKS.Die "<script>alert(‘订单没有确认不能支付!’);history.back();</script>"end ifDim OrderID:OrderID=RS("OrderID")Dim Money:Money=RS("MoneyTotal")Dim DeliverType:DeliverType=RS("DeliverType")