李佳玉和杨安番外:Microsoft VBScript 编译器错误 '800a0400'

来源：百度文库 编辑：高校问答 时间：2024/05/09 07:48:32
源码
<%
case "ok"
if session("xiadan")<>minute(now) then
dim tm,cart
tm=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from cart_info where user_name='"&request.cookies("icnet")("username")&"' and action=7",conn,1,3
cart=year(tm)&month(tm)&day(tm)&hour(tm)&minute(tm)&second(tm)
do while not rs.eof
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from chip_info where id="&rs("chip_id"),conn,1,3
rs2("num")=rs2("num")-rs("usenum")
rs2.update
rs2.close
set rs2=nothing

rs("date")=tm
rs("cart")=cart
rs.update
rs.movenext
loop
rs.close
set rs=nothing

session("xiadan")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if
%>

这我也看到过哦
没有什么错的
也许是机子不好使哦

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)