|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。check.asp:用户观察所购物品!
<!--#includefile="Util.asp"-->
<%
Head="以下是您所选购的物品清单"
ProductList=Session("ProductList")
IfLen(ProductList)=0ThenResponse.Redirect"Nothing.asp"
DbPath=SERVER.MapPath("ShopBag.mdb")
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath
IfRequest("MySelf")="Yes"Then
ProductList=""
Products=Split(Request("ProductID"),",")
ForI=0ToUBound(Products)
PutToShopBagProducts(I),ProductList
Next
Session("ProductList")=ProductList
Session("First")="no"
EndIf
sql="Select*FromProducts"
sql=sql&"WhereProductIDIn("&ProductList&")"
sql=sql&"OrderByProductID"
Setrs=conn.Execute(sql)
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODYBACKGROUND="b01.jpg">
<H2ALIGN=CENTER><%=Head%></H2>
<CENTER>
<FormAction=Check.aspMethod=POST>
<InputType=HiddenName=MySelfValue=Yes>
<TABLEBorder=1>
<TRBGCOLOR=#00FFFF>
<TD>作废</TD><TD>书刊编号</TD><TD>书刊称号</TD><TD>单价</TD><TD>数目</TD><TD>总价</TD><TD>商品简介</TD></TR>
<%
Sum=0
C_ProductID=""
C_Quatity=""
WhileNotrs.EOF
ifSession("First")="yes"then
Quatity=1
else
Quatity=CInt(Request("Q_"&rs("ProductID")))
IfQuatity<=0Then
Quatity=CInt(Session(rs("ProductID")))
IfQuatity<=0ThenQuatity=1
EndIf
endif
Session(rs("ProductID"))=Quatity
Sum=Sum+CDbl(rs("Price"))*Quatity
IfLen(C_ProductID)=0Then
C_ProductID=""&rs("ProductID")&""
C_ProductName=""&rs("ProductName")&""
C_Quatity=""&Quatity&""
Else
C_ProductID=C_ProductID&"/"&rs("ProductID")&""
C_ProductName=C_ProductName&"/"&rs("ProductName")&""
C_Quatity=C_Quatity&"/"&Quatity&""
EndIf
%>
<TR>
<TDAlign=Center>
<InputType=CheckBoxName="ProductID"Value="<%=rs("ProductID")%>"Checked>
</TD>
<TD><%=rs("ProductID")%></TD>
<TD><%=rs("ProductName")%></TD>
<TDAlign=Right><%=rs("Price")%></TD>
<TD><InputType=TextName="<%="Q_"&rs("ProductID")%>"Value=<%=Quatity%>Size=3></TD>
<TDAlign=Right><%=CDbl(rs("Price"))*Quatity%></TD>
<TD><AHREF=<%=rs("Link")%>><%=rs("Description")%></A></TD>
</TR>
<%
rs.MoveNext
Wend
%>
<TR><TDAlign=RightColSpan=7><FontColor=Red>总代价=<%=Sum%></Font></TD></TR>
</TABLE>
<InputType=SubmitValue="变动数目">
</Form>
<HRwidth=80%>
<AHREF=Clear.asp>退回一切物品</A><P>
<%ListCategoryconn%>
<HRwidth=80%>
<h2>主顾信息</h2>
<formaction=BuyFinish.aspMethod=POST>
姓名:<inputType=textname=Customer_NValue=""><br>
德律风:<inputType=textname=Customer_TValue=""><br>
住址:<inputType=textname=Customer_AValue=""><br>
<InputType=hiddenName=Customer_PValue="<%=C_ProductID%>">
<InputType=hiddenName=Customer_PNValue="<%=C_ProductName%>">
<InputType=hiddenName=Customer_QValue="<%=C_Quatity%>">
<InputType=hiddenName=Customer_SValue="<%=Sum%>">
<InputType=SubmitValue="提交,完成一次购物.">
</form><HRwidth=80%>
</CENTER>
</BODY>
</HTML>
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|