30分求asp有关问题解决
日期：2014-05-17 浏览次数：21088 次
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
错误显示如下
错误类型：
(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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
