|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。buy.asp:显现商品和用户购物!
<!--#includefile="Util.asp"-->
<%
DbPath=SERVER.MapPath("ShopBag.mdb")
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath
CategoryID=Request("CategoryID")
Description=Request("Description")
Head="会文书城["&Description&"]区"
sql="Select*FromProductsWhereCategoryID="&CategoryID
sql=sql&"OrderByProductID"
Setrs=conn.Execute(sql)
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODYBACKGROUND="b01.jpg">
<fontcolor=blue><H2ALIGN=CENTER><%=Head%></H2></font>
<CENTER>
<FormAction=Add.aspMethod=POST>
<TABLEBorder=1>
<TRBGCOLOR=#00FFFF>
<TD>选择</TD><TD>书刊编号</TD><TD>书刊称号</TD><TD>代价</TD><TD>书刊简介</TD></TR>
<%
WhileNotrs.EOF
IsCheck=""
IfInStr(Session("ProductList"),rs("ProductID"))>0Then
IsCheck="Checked"
EndIf
%>
<TR>
<TDAlign=Center>
<InputType=CheckBoxName="ProductID"Value="<%=rs("ProductID")%>"<%=IsCheck%>>
</TD>
<TD><%=rs("ProductID")%></TD>
<TD><%=rs("ProductName")%></TD>
<TDAlign=Right><%=rs("Price")%></TD>
<TD><AHREF=<%=rs("Link")%>><%=rs("Description")%></A></TD>
</TR>
<%
rs.MoveNext
Wend
%>
</TABLE>
<InputType=SubmitValue="放进购物袋">
</Form>
<HRwidth=70%>
<AHREF=Check.asp>检察购物袋</A>
<AHREF=Clear.asp>退回一切物品</A><P>
<%ListCategoryconn%>
</CENTER>
</BODY>
</HTML>
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|