30分求asp问题解决 在线等
错误显示如下
错误类型：
(0x80020009)
发生意外。
/page/eshop.asp, 第 104 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)
网页：
GET /page/eshop.asp
代码如下
<%@ LANGUAGE= "VBSCRIPT " %>
<!--#include file= "util.asp " -->
<!--#include file= "conn.asp " -->
<%
strCpbm = Request( "cpbm ")
if ((len(trim(strCpbm)) = 0) or (strCpbm = "undefined ")) then
strCheck = "no "
end if
ProductList = Session( "ProductList ")
Products = Split(Request( "cpbm "), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session( "ProductList ") = ProductList
Head= "以下是您所选购的物品清单 "
ProductList = Session( "ProductList ")
If Len(ProductList) =0 Then
Response.Redirect "nothing.asp "
response.end
end if
If Request( "MySelf ") = "Yes " Then
ProductList = " "
Products = Split(Request( "cpbm "), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session( "ProductList ") = ProductList
End If
If Len(ProductList) = 0 Then
Response.Redirect "nothing.asp "
response.end
end if
set rs=server.createobject( "adodb.recordset ")
sql = "Select * From product "
sql = sql & " Where product_id In ( " & ProductList & ") "
rs.open sql,conn,3,3
%>
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 以下是您所选购的物品清单 </title>
</head>
<script language= "Javascript ">
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp= "0123456789 ";
if ( NUM.length== 0)
return 0
for (i=0;i <NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
return 0;
}
}
return 1;
}
function clean()
{
window.location.href= "clear.asp "
}
</script>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function form1_onsubmit()
{
newprice= "Q_ " & rs( "Product_Id ")
if ((fucCheckNUM(document.FORM1.newprice.value)==0) )
{alert ( "会员价有非法字符，请填写正确会员价。 ");
document.FORM1.newprice.focus();
return false;
}
//-->
}
</SCRIPT>
<body topmargin= "5 ">
<center>
<div align= "center ">
<center>
<table width= "80% " border= "0 " cellspacing= "0 ">
<tr>
<td width= "80% " valign= "top "> <p align= "center ">
</p>
<p align= "center ">
<font color= "#FF0000 " > <%=Head%> </font> </p>
<!--webbot BOT= "GeneratedScript " PREVIEW= " " startspan --> <script Language= "JavaScript "> <!--
function FrontPage_Form1_Validator(theForm)
{
var checkOK = "0123456789- ";
var checkStr = theForm. <%= "Q_ " & rs( "Product_id ")%> .value;
var allValid = true;
var decPoints = 0;
var allNum = " ";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert( "在 请输入正确的商品数量！ 域中，只能输入 数字 个字符。 ");
theForm. <%= "Q_ " & rs( "Product_Id ")%> .focus();
return (false);
}
return (true);
}
//--> </script> <!--webbot BOT= "GeneratedScript " endspan --> <form Action= "eshop.asp " Method= "POST " onSubmit= "return FrontPage_Form1_Validator(this) " name= "FrontPage_Form1 ">
<input type= "hidden " name= "MySelf " value= "Yes ">
<div align= "center "> <center>
<table border= "0 " cellspacing= "1 " width= "550 " class=main bgcolor= "6699CC ">
<tr bgcolor= "#E6F7FF ">
<td width= "82 " height= "22 " align= "center "> <span class= "style1 "> 商品编号 </span> </td>
<td width= "170 " height= "22 " align= "center " bgcolor= "#E6F7FF "> <span class= "style1 "> 商品名称 </span> </td>
<td width= "76 " height= "22 " align= "center "> <span class= "style1 "> 商品价格 </span> </td>
<td width= "76 " height= "22 " align= "center "> <span class= "style1 "> 商品数量 </span> </td>
<td width= "60 " height= "22 " align= "center "> <span class= "style1 "> 购买 </span> </td>
<td width= "72 " height= "22 " align= "center "> <span class= "style1 "> 总价 </span> </td>
</tr>
<%
Sum = 0
While Not rs.EOF
Quatity = CInt( Request( "Q_ " & rs( "Product_Id ")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs( "Product_Id ")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs( "Product_Id ")) = Quatity
Sum = Sum + ccur(rs( "P_NewPrice ")) * Quatity
%>
<tr bgcolor= "#FFFFFF ">
<td width= "82 " align= "center "> <%=rs( "Product_ID ")%>
</td>
<td width= "170 " align= "center "> <%=rs( "Product_Name ")%>
</td>
<td width= "76 " align= "center "> <%=rs( "P_NewPrice ")%>
</td>
<td width= "76 " align= "center "> <!--webbot
bot= "Validation " S-Display-Name= "请输入正确的商品数量！ "
S-Data-Type= "Integer " S-Number-Separators= "x " --> <input Name= " <%= "Q_ " & rs( "Product_Id ")%> " Value= " <%=Quatity%> " Size= "3 "> </td>
<td width= "60 " Align= "center "> <input Type= "CheckBox " Name= "cpbm " Value= " <%=rs( "Product_Id ")%> " Checked>
</td>
<td width= "72 " Align= "center "> <%=ccur(rs( "s "))*Quatity%> .00元
</td>
</tr>
<%
rs.MoveNext
Wend
%>
<tr bgcolor= "#FFFFFF ">
<td Align= "Right " ColSpan= "6 " width= "546 "> <font Color= "Red "> 总价格=人民币 <%=Sum%> .00元 </font> </td>
</tr>
</table>
</center> </div> <blockquote>
<p align= "center ">
<input name= "B1 " Type= "submit " class= "smallInput " style= "font-size: 9pt " Value= "更改数量 ">
<input name= "B2 " type= "button " class= "smallInput " style= "font-size: 9pt " onClick= "window.close(); " value= "继续购物 ">
<input name= "B3 " type= "button " class= "smallInput " style= "font-size: 9pt " OnClick= "clean() " value= "订单取消 ">
<input name= "b4 " type= "button " class= "smallInput " onClick= "window.open( 'ment.asp ',window.close(), 'Sample ', 'toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=yes,width=610,height=600,left=100,top=100 ') " value= "去收银台 ">
<p align= "center "> <font color= "#FF0000 "> 注意：改变“商品数量需按“更改数量” </font> </blockquote>
</form>
</td>
</tr> </table>
</center>
</div>
<%
rs.close
conn.close
%>
</body>
</html>
我搞不清为什么会出问题..请指点我一下, 可以在这里写解决方案 也可以发到 邮箱那里 vista@163.com
很急 请各位指教指教
[解决办法]
var str = "Q_ "& <%=rs( "Product_id ")%> ;
var checkStr =theForm. <%=str%> .value;
