📄 shopcart_edit.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")
dept=Request.QueryString("dept")
htmlname="shopcart_edit.asp?keyno="+keyno+"&dept="+dept+"&pageno="+pageno+"&ordername="+ordername+"&byasc="+byasc
backhtml="shopcart_admin.asp?pageno="+pageno+"&dept="+dept+"&ordername="+ordername+"&byasc="+byasc
%>
<!-- #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:20px;text-align:right;background-color:#ffffff;color:#000000}
.td2 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}
A:link {color: #000077}
A:visited {color: #000077}
A:hover {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"))
corpname=trim(rs("corpname"))
address=trim(rs("address"))
phone=trim(rs("phone"))
email=trim(rs("email"))
flag=trim(rs("state"))
creadate=rs("creadate")
content=trim(rs("content"))
ipaddress=trim(rs("ipaddress"))
sysemail=trim(rs("sysemail"))
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>
当前位置：<b>购物车内容</b> ←
<a href="<%=backhtml%>">返回列表</a></td></tr>
<tr><td><hr size=1></td></tr>
<tr bgcolor=#898989><td height=20><font class=t2>具体内容</font><br>
</td></tr>
<tr><td height=5></td></tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center">
<tr><td width=70 align=right height=22>定购日期：</td>
<td><font color=800000><%=creadate%></font>
IP地址：<font color=800000><%=ipaddress%></font>
</td></tr>
<tr><td width=70 align=right height=22>用户名：</td>
<td><font color=800000><%=username%></font>
</td></tr>
<tr><td width=70 align=right height=22>单位名称：</td>
<td><font color=800000><%=corpname%></font>
</td></tr>
<tr><td width=70 align=right height=22>地址：</td>
<td><font color=800000><%=address%></font>
</td></tr>
<tr><td width=70 align=right height=22>联系电话：</td>
<td><font color=800000><%=phone%></font>
</td></tr>
<tr><td width=70 align=right height=22>Email：</td>
<td><font color=800000><a href="mailto:<%=email%>"><%=email%></a></font>
</td></tr>
<tr><td width=70 align=right height=22>收件人：</td>
<td><font color=800000><%=sysemail%></font>
</td></tr>
<tr><td width=70 align=right height=22>是否处理：</td>
<td>
<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%>>已完成
<input type="submit" name="submit" value="确认" style="width:60px">
</td></tr>
<tr><td colspan=2 style="line-height:180%;color:000066">
<%=checkstr(content,"1")%>
</td>
</tr>
</table>
<%
sqltext="select * from shopdetail where cartno="&keyno
rs.Open sqltext,cn,1,1
%>
<table width="90%" border="0" cellspacing="1" cellpadding="1" style="font-size:14.5px;line-height:100%" align=left bgcolor=999999>
<tr bgcolor="527c72" align="center" height=22>
<td class=t2></td><td class=t2>产品</td><td class=t2>数量</td><td class=t2>单价</td><td class=t2>单价</td>
</tr>
<%
i=1
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 width=40 align=center height=22><%=i%></td>
<td align=left height=22><%=trim(rs("title"))%></td>
<td width=90 align=right><%=rs("amount")%></td>
<td width=90 align=right><%=rs("price")%></td>
<td width=90 align=right><%=rs("amount")*rs("price")%></td>
</tr>
<%
zje=zje+rs("amount")*rs("price")
i=i+1
rs.MoveNext
loop
rs.Close
%>
<tr bgcolor="ffffff" align="center" height=30>
<td class=t2></td><td class=t1><b>合计</b></td><td class=t2></td><td class=t2></td>
<td class=t1 align=right><b><%=zje%></b></td>
</tr>
</table>
<%
end if
%>
</form>
<body>
</html>
<!-- #include file="../func.inc.asp" -->
<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 + -