📄 shopcart_edit.asp

📁 ASP网页
💻 ASP
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
if Session("userqx")="1" or Session("userqx")="9" then
else
	Response.Redirect "../warn.asp"
end if

keyno=Request.QueryString("keyno")
pageno=Request.QueryString("pageno")
flag=Request.QueryString("flag")

if keyno="" then keyno="0"
if flag="" then flag="1"

htmlname="shopcart_edit.asp?keyno="+keyno+"&flag="+flag+"&pageno="+pageno
backhtml="shopcart_admin.asp?pageno="+pageno+"&flag="+flag
%>
<!-- #include file="../dsn.asp" -->
<html>
<head>
<title>购物车内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}

.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 
.t3 {font:12px 宋体;color:336699} 
.t4 {font:12px 宋体;color:ff0000} 
.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 
.bt3 {font:14px 宋体;color:336699} 
.bt4 {font:bold 16px 宋体;color:maroon} 

.td1 {font-size:12px;line-height:24px;text-align:right;background-color:#ffdfbf;color:#000000}
.td2 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:000077;}
.td3 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}

A.title1:link {text-decoration:none;color:#000000;}
A.title1:visited {text-decoration:none;color:#000000;}
A.title1:active {text-decoration:none;color:#ff0000;}
A.title1:hover {font-size:13px;text-decoration:none;color:#ff0000;}
-->
</style>
</head>

<body bgcolor=#ffffff topmargin=10>
<form action="<%=htmlname%>" method=post name=form1>
<%
bz=1
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	bz=0
	if bz=0 then
		if keyno="0" then
		else	
			rs.Open "select * from shopcart where keyno="&keyno,cn,3,3
		end if	
		rs("state")=Request.Form("flag")
		rs.Update()
		Response.Write("<script language=Javascript>")
		Response.Write("window.location.href='"+backhtml+"'")
		Response.Write("</script>")
	end if
else
	if keyno="0" then
		flag="0"
	else
		sqltext="select * from shopcart where keyno="&keyno
		rs.Open sqltext,cn,1,1
		username=trim(rs("username"))
		address=trim(rs("address"))
		phone=trim(rs("phone"))
		email=trim(rs("email"))
		flag=trim(rs("state"))
		creadate=rs("creadate")
		rs.Close
	end if
end if	
if bz=1 or bz=2 or bz=3 then
 %>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
	<td>&nbsp;<b>购物车内容</b>&nbsp;←&nbsp;<a href="<%=backhtml%>">返回列表</a>
	</td></tr>
 </table>
 
 <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<tr></td>
	<tr bgcolor=efefef><td colspan=2><font class=t1>购物车内容</font><br>
	</td></tr>
	<tr><td class=td1 width=60>用户名</td><td class=td2><%=username%>
		&nbsp;&nbsp;&nbsp;&nbsp;<font color=black>订购日期</font>&nbsp;&nbsp;<%=creadate%>
	</td></tr>
	<tr><td class=td1>地址</td><td class=td2><%=address%></td></tr>
	<tr><td class=td1>电话</td><td class=td2><%=phone%>
		&nbsp;&nbsp;&nbsp;&nbsp;<font color=black>Email:</font>&nbsp;&nbsp;<%=email%>
	</td></tr>
	<tr><td class=td1></td></tr>
	<tr><td class=td1>是否处理</td>
		<td class=td2>
		<input type=radio name="flag" value="0" <%if flag="0" then Response.Write("checked") end if%>>待处理
		<input type=radio name="flag" value="1" <%if flag="1" then Response.Write("checked") end if%>>已完成
		&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="submit" value="确认">&nbsp;&nbsp;&nbsp;&nbsp;
		</td></tr>
</table>
<%
sqltext="select * from shopdetail where cartno="&keyno
rs.Open sqltext,cn,1,1

%>

		<table width="100%" border="0" cellspacing="1" cellpadding="1" style="font-size:14.5px;line-height:100%">
				<tr bgcolor="336699" style="color:#ffffff" align="center">
				<td class=bt2>产品</td><td class=bt2>数量</td>
				<td class=bt2>价格</td><td class=bt2>金额</td></tr>
		<%
		i=0
		sum_je=0
		do while not rs.EOF
			if (i mod 2)=1 then
				Response.Write("<tr bgcolor=fefefe>")
			else
				Response.Write("<tr bgcolor=efefef>")
			end if	
			sum_je=sum_je+rs("price")*rs("amount")
		%>
			<td align=left><%=trim(rs("title"))%></td>
			<td width=90 align=right><%=rs("amount")%></td>
			<td width=90 align=right><%=rs("price")%></td>
			<td width=100 align=right><%=rs("price")*rs("amount")%></td>
			</tr>
		<%	
			i=i+1
			rs.MoveNext
		loop
		rs.Close	
		%>
  	  </table>
	  <table width="100%"> 
		<tr><td bgcolor="336699">
			<tr><td align=right>
				合计金额: <font color=maroon><%=sum_je%></font>
			</td></tr>
		</td></tr>
	  </table>	
		
<%
end if
%>
</form>
<body>
</html>
<script language=Javascript>
	var flag=true;
	function checkform()
	{
		return flag;
	}
	
	var flag=true;
	function checkform()
	{
		return flag;
	}
	
	function qx()
	{
	window.close()
	}
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -