asp+sql,,,,代码以前好好的,现在执行提示出错: 类型不匹配 ”
asp+sql代码以前好好的,现在执行提示出错:“MicrosoftVBScript运行时错误800a000d'类型不匹配:'[string:""]'line350代码D...
asp+sql 代码以前好好的,现在执行提示出错:“Microsoft VBScript 运行时错误 800a000d' 类型不匹配: '[string: ""]' line 350
代码
Dim rs,cId
。。。。。
rs.Update
cId = rs("cId")
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
/////////另一个文件
Sub view()
Dim cId
cId = CInt(ABS(Request("cId"))) ////350行
If Not IsNumeric(cId) Or cId <= 0 Then
Response.Write("<script>alert("""&alert01&""");history.back(1);</script>")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From client Where cId = " & cId,conn,3,1
If rs.RecordCount <> 1 Then
Response.Write("<script>alert("""&alert01&""");history.back(1);</script>")
Response.End()
End If 展开
代码
Dim rs,cId
。。。。。
rs.Update
cId = rs("cId")
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
/////////另一个文件
Sub view()
Dim cId
cId = CInt(ABS(Request("cId"))) ////350行
If Not IsNumeric(cId) Or cId <= 0 Then
Response.Write("<script>alert("""&alert01&""");history.back(1);</script>")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From client Where cId = " & cId,conn,3,1
If rs.RecordCount <> 1 Then
Response.Write("<script>alert("""&alert01&""");history.back(1);</script>")
Response.End()
End If 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |