ASP有关问题
日期：2014-05-17 浏览次数：20825 次
在线等ASP问题
<!--#include file= "util.asp " -->
<!--#include file= "conn.inc " -->
<%
dz=request.QueryString( "dz ")
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] where pn in( "&ProductList& ") "
rs.open sql,conn,1,1,1
'%>
<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>
<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%> </fon
<!--#include file= "util.asp " -->
<!--#include file= "conn.inc " -->
<%
dz=request.QueryString( "dz ")
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] where pn in( "&ProductList& ") "
rs.open sql,conn,1,1,1
'%>
<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>
<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%> </fon
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
