仓酷云

标题: ASP网页编程之buy.asp:显现商品和用户购物！ [打印本页]

作者: 深爱那片海 时间: 2015-1-16 22:29
标题: ASP网页编程之buy.asp:显现商品和用户购物！
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。check.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能做到，例如银行安全控件

作者: 金色的骷髅 时间: 2015-1-19 15:13
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 愤怒的大鸟 时间: 2015-1-25 11:15
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 变相怪杰 时间: 2015-2-2 21:53
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 柔情似水 时间: 2015-2-8 07:56
掌握asp的特性而且一定要知道为什么。

作者: 不帅 时间: 2015-2-25 02:04
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 莫相离 时间: 2015-3-7 15:49
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 冷月葬花魂 时间: 2015-3-15 09:11
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

作者: 小女巫 时间: 2015-3-21 23:18
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

欢迎光临仓酷云 (http://ckuyun.com/)