📄 getcard.asp

📁 采用asp+fso技术傻瓜式的程序安装和调试用户无需考虑系统的安装维护美观、友好的展示铺面设计中应用了多种网络安全技术顾客可以方便的查询并订购商品用户可以方便的定义各种商品信息

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
dim bookid
bookid=request.QueryString("id")
if bookid<>"" then
if not isnumeric(bookid) then 
response.write"<script>alert(""非法访问!"");window.close();</script>"
response.end
end if
end if

'//商品，判断是否存在
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where bookid="&bookid&" and used=0 " ,conn,1,1
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('你选购的商品暂时缺货不能放到购物车里，请选购其它商品！');window.close();</script>"
response.end
end if
%>
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--我的购物车</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->

<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou bordercolor=#CCCCCC><tr><td background=images/class_bg.jpg height=50 class=table-shangxia>　<img src=images/ring02.gif align=absmiddle> <a href=index.asp><%=webname%></a> >> 在线取卡</td>
</tr></table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_books where bookid="&bookid,conn,1,1
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('你选购的商品暂时缺货不能放到购物车里，请选购其它商品！');window.close();</script>"
response.end
end if 
%>
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr><td bgColor=#ffffff colSpan=3 height=1></TD></tr>
<form name='form1' method='post' action="getcard2.asp">
<tr bgcolor=#f1f1f1 align=center> 
<td width=25% height="30">商品名称</td>	  
<td width=15%>单价
          <%if request.Cookies("BOB")("reglx")=2 then %>
          (VIP) 
          <%else%>
          (会员) 
          <%end if%>
          </font></div>
</td>
<td width=15%>数量</td>
</tr>
<tr><td bgColor=#cccccc colSpan=3 height=1></TD></tr>
<tr><td bgColor=#f1f1f1 colSpan=3 height=3></TD></tr>
<tr bgcolor="#FFFFFF">
<td height="30" width="25%" class="table-xia">
	  <div align="center"><a href=list.asp?id=<%=rs("bookid")%> ><%=rs("bookname")%></a> 
            <input name=bookid type=hidden value="<%=rs("bookid")%>">
      </div></td>
      <td width="15%" height="30" align="center" class="table-xia">
	  <%
	if request.Cookies("BOB")("reglx")=2 then 
	response.write formatnumber(rs("vipjia"),2,true)
	else
	response.write formatnumber(rs("huiyuanjia"),2,true)
	end if%>
	元</td>
	<td align="center" width="15%" height="30" class="table-xia">
	<input name=bookcount class=wenbenkuang value="1"  size=5>
	</td>
	</tr>
	<tr bgcolor="#FFFFFF">
	<td height=30 colspan=3 align=center class=table-xia>&nbsp;
	</td>
	</tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center" height=50 colspan=3><input type="submit" name="Submit" value=" 下 一 步 "> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
	  <td colspan="3" STYLE="PADDING-LEFT: 20px">&nbsp;</td>
	</tr>
</form>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -