ASP有关问题

在线等ASP问题


<%
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%> </font> </p>
 <script Language= "JavaScript "> <!--

<td width= "72 " height= "22 " align= "center "> <span class= "style1 "> 总价 </span> </td>
</tr>
<%
Sum = 0
While Not rs.EOF
Quatity = CInt( Request( "Q_ " & rs( "pn ")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs( "pn ")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs( "pn ")) = Quatity
if session( "class ")= "vip " then
Sum = Sum + ccur(rs( "Price ")) * Quatity*dz*0.1
else
Sum = Sum + ccur(rs( "Price ")) * Quatity
end if
%>
<tr bgcolor= "#FFFFFF ">
<td width= "82 " align= "center "> <%=rs( "pn ")%> </td>
<td width= "170 " align= "center "> <%=rs( "Name ")%> </td>
<td width= "76 " align= "center "> <%=rs( "Price ")%> </td>
<td width= "76 " align= "center ">  <input Name= " <%= "Q_ " & rs( "pn ")%> " Value= " <%=Quatity%> " Size= "3 "> </td>
<td width= "76 " align= "center ">
<%if session( "class ")= "vip " then
response.Write(dz)
else
response.Write( "  ")
end if
%> </td>
<td width= "60 " Align= "center "> <input Type= "CheckBox " Name= "cpbm " Value= " <%=rs( "pn ")%> " Checked> </td>
<td width= "72 " Align= "center "> <%if session( "class ")= "vip " then
dim a,b
b=dz/10

a=ccur(rs( "Price "))*Quatity*b
response.Write(a)
else
a=ccur(rs( "price "))*quatity
response.Write(a)
end if%> .00元 </td>
</tr>
<% rs.MoveNext

wend

%>
<tr bgcolor= "#FFFFFF ">
<td Align= "Right " ColSpan= "7 " 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( '../page/ment1.asp ') " value= "去收银台 ">
<p align= "center "> <font color= "#FF0000 "> 注意：改变“商品数量需按“更改数量” </font> </blockquote>
</form> </td>
</tr> </table>
</center>
</div>
<%
rs.close
conn.close
%>

</body>
</html>

我在更改数量的时候点更改数量的时候不能更新数据。
请问是什么原因

[解决办法]
Action= "eshop.asp "

你提交到数据库的处理页在eshop.asp，看这个是看不出来为什么没更新的

ASP有关问题

热点推荐