博业激光官网:Microsoft VBScript 运行时错误 错误 '800a000d'
来源:百度文库 编辑:神马品牌网 时间:2024/03/29 07:35:28
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配
/card/bankback/123.asp,行 182
代码:
<tr>
<td width="140" bgcolor="#FFFFFF"><div align="right">卡 号</div></td>
<td width="437" bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardno")%></td>'这儿就是第182行
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">密 码</div></td>
<td bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardpwd")%></td>
</tr>
其它代码:
<%
dim getOrderInfo_rs
dim getcardnoInfo_rs
dim rs3
dim rs
set getOrderInfo_rs=server.createobject("adodb.recordset")
getOrderInfo_rs.open "select * from order_info where order_id='m_orderid'",MM_constr_STRING,1,3
if not getOrderInfo_rs.eof then
set getcardnoInfo_rs=server.createobject("adodb.recordset")
getcardnoInfo_rs.open "select * from cardnoInfo where state=false and card_id = '"&getOrderInfo_rs("card_id")&"'",MM_constr_STRING,1,3
end if
for i=1 to getOrderInfo_rs.card_num
if not getcardnoInfo_rs.eof then
set rs=server.createobject("adodb.recordset")
rs.ActiveConnection = MM_constr_STRING
rs.Source ="update cardNoInfo set state=true,order_id='m_orderid' where id='"&getOrderInfo_rs("id")&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_constr_STRING
rs3.Source = "SELECT * FROM MakeCardInfo WHERE card_no='"&getcardnoInfo("cardno")&"' and card_pwd ='"&getcardnoInfo("cardpwd")&"'"
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 1
rs3.Open()
if not rs3.eof then
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update MakeCardInfo set isfill=true,userId='"&cstr(session("userid"))&"',fillDate='#"&cstr(now())&"#',userName='"&session("username")&"' where card_no='"&getcardnoInfo("cardno")&"' and card_pwd = '"&getcardnoInfo("cardpwd")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing
rs.close
set rs=nothing
rs3.close
set rs3=nothing
getcardnoInfo_rs.close
set getcardnoInfo_rs=nothing
getOrderInfo_rs.close
set getOrderInfo_rs=nothing
end if
end if
if not getcardnoInfo_rs.eof then getOrderInfo_rs movenext
next
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update order_info set successState=true where order_id='m_orderid'"
com.Execute
com.ActiveConnection.Close
set com=nothing
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update CardInfo set buy_num='buy_num+"&getOrderInfo_rs("card_num")&"' where id='"&getOrderInfo_rs("card_id")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing
end if
%>
类型不匹配
/card/bankback/123.asp,行 182
代码:
<tr>
<td width="140" bgcolor="#FFFFFF"><div align="right">卡 号</div></td>
<td width="437" bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardno")%></td>'这儿就是第182行
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">密 码</div></td>
<td bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardpwd")%></td>
</tr>
其它代码:
<%
dim getOrderInfo_rs
dim getcardnoInfo_rs
dim rs3
dim rs
set getOrderInfo_rs=server.createobject("adodb.recordset")
getOrderInfo_rs.open "select * from order_info where order_id='m_orderid'",MM_constr_STRING,1,3
if not getOrderInfo_rs.eof then
set getcardnoInfo_rs=server.createobject("adodb.recordset")
getcardnoInfo_rs.open "select * from cardnoInfo where state=false and card_id = '"&getOrderInfo_rs("card_id")&"'",MM_constr_STRING,1,3
end if
for i=1 to getOrderInfo_rs.card_num
if not getcardnoInfo_rs.eof then
set rs=server.createobject("adodb.recordset")
rs.ActiveConnection = MM_constr_STRING
rs.Source ="update cardNoInfo set state=true,order_id='m_orderid' where id='"&getOrderInfo_rs("id")&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_constr_STRING
rs3.Source = "SELECT * FROM MakeCardInfo WHERE card_no='"&getcardnoInfo("cardno")&"' and card_pwd ='"&getcardnoInfo("cardpwd")&"'"
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 1
rs3.Open()
if not rs3.eof then
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update MakeCardInfo set isfill=true,userId='"&cstr(session("userid"))&"',fillDate='#"&cstr(now())&"#',userName='"&session("username")&"' where card_no='"&getcardnoInfo("cardno")&"' and card_pwd = '"&getcardnoInfo("cardpwd")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing
rs.close
set rs=nothing
rs3.close
set rs3=nothing
getcardnoInfo_rs.close
set getcardnoInfo_rs=nothing
getOrderInfo_rs.close
set getOrderInfo_rs=nothing
end if
end if
if not getcardnoInfo_rs.eof then getOrderInfo_rs movenext
next
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update order_info set successState=true where order_id='m_orderid'"
com.Execute
com.ActiveConnection.Close
set com=nothing
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update CardInfo set buy_num='buy_num+"&getOrderInfo_rs("card_num")&"' where id='"&getOrderInfo_rs("card_id")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing
end if
%>
查数据库表的类型