📄 cash.asp
字号:
<%'========================================='' 凡人网络购物系统V4.0免费版' FreeDown.Net info@freedown.net ' www.freedown.net' 版权所有·免费版仅供研究测试只用' 商业使用请购买正版''=========================================%>
<!--#include file="conn.asp"--><head>
<link href=css.css rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收银台</title></head>
<body topmargin="0">
<font color="#000000"><b>
<%
if session("user_name")="" then
response.write "<br>"
response.write "<center>"
response.write "1.您尚未登录!请登录后再订购本站商品!"
response.write "<br>"
response.write "<br>2.第一次来本站，请先<a href=reg.asp target=_blank>注册会员</a>!"
response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
response.end
end if
dim sql,rs
set rs=server.createobject("adodb.recordset")
if request("action")="buy" then
if request("count")="" then
count=1
else
count=request("count")
end if
if request("hw_id")="" then
response.write "没有此货物!"
else
hw_id=request("hw_id")
end if
sql="select * from basket where hw_id='"&hw_id&"' and user_name='"&session("user_name")&"' and basket_check=false"
rs.open sql,conn,3,3
if rs.eof then
rs.addnew
rs("hw_id")=hw_id
rs("user_name")=session("user_name")
rs("basket_count")=count
rs("basket_date")=now()
rs("hw_name")=request("hw_name")
rs("hw_cash")=request("hw_cash")
rs("user_type")=request("user_type")
else
rs("basket_count")=int(rs("basket_count"))+int(count)
end if
rs.update
rs.close
%>
</b></FONT>
<%end if%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="50">
<tr>
<td align="center">
<img border="0" src="img/promo_list_top.gif" width="100%" height="4"></td>
</tr>
<tr>
<td height="18" bgcolor="#DBC2B0" align="center">收银台</td>
</tr>
<tr>
<td height="25" valign="top"> <form method="POST" action="cashsave.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td valign="top">
<table border="0" cellspacing="0" height="34" cellpadding="0" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="120" valign="bottom" bgcolor="#F5EFE7">
<p align="center"><br>
您订购的物品如下:</p>
<div align="center">
<center>
<table width="90%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr background="img/pics/tile_bg.gif">
<td width="195" height="25"><div align="center">商品名称</div></td>
<td width="60" height="25"><div align="center">单价</div></td>
<td width="60" height="25"><div align="center">数量</div></td>
<td width="80" height="25"><div align="center">合计</div></td>
</tr>
<%
user_name=session("user_name")
sql="select * from basket where user_name='"&user_name&"' and basket_check=false"
rs.open sql,conn,3,3
if rs.eof then
response.write "你没有订购任何商品"
else
do while not rs.eof
%>
<tr>
<td width="195" height="25"><div align="center"><font color=red><%=rs("hw_name")%></font></div></td>
<td width="60" height="25"><div align="center"><%=rs("hw_cash")%>元</div></td>
<td width="60" height="25"><div align="center"><%=rs("basket_count")%></div></td>
<td width="80" height="25"><div align="center"><%=rs("hw_cash")*rs("basket_count")%>元
</div></td>
</tr>
<%totalcash=totalcash+(rs("hw_cash")*rs("basket_count"))%>
<%rs.movenext
loop
end if
rs.close
%>
<tr>
<td height="25"><div align="center"><b class="dz1">总计：<font color=red><%=totalcash%></font>元</b></div></td>
<td height="25" colspan="3"><div align="center"><b class="dz1">
<input
align=absMiddle alt=确认 cache name="B1"
src="img/pics/ok.gif" type=image tppabs="" width="45" height="20">
</b></div></td>
</tr>
</table>
</center>
</div>
<br> <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle"><div align="center"><img src="img/pics/seperator.gif" width="359" height="1"></div></td>
</tr>
</table><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT></td></tr>
</table>
</td>
</tr>
</table>
</form></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -