日期:2014-05-17  浏览次数:20993 次

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_ "   &   r