%>
当用户点击修改按钮时，将进入修改广告信息页面，在该页面中以传递的广告名称为条件，进行数据查询，并将该广告信息显示在修改窗口中。广告信息修改和删除部分的原代码见光盘中的guanggao_change.asp 和 guanggao_chuli.asp。
用户失信及订单管理主要就是对用户提交的订单信息进行管理。这里的用户失信，就是当管理员执行订单时，由于用户的原因造成订单无法执行，此时管理员就要将对应的订单作废，并注明作废原因为用户失信，并更新数据库中的用户失信记录。
可以这样说ASP中对于信息的收集几乎都是表单中各种组件的罗列。订单信息的后台处理页面，当管理员提交对订单的操作并进入处理页面后，首先要判断管理员的操作是什么，如果是“作废”，则还要选择作废原因。当作废原因为“用户失信”时，则将对应订单记录的“订单类型”字段更新为“作废”，将“原因”字段更新为“用户失信”，并将订单中记载的用户的失信记录加1。如果作废原因是“其他原因”，则要求管理员填写作废原因，然后再进行数据更新。处理管理员提交的订单操作信息的关键代码如下：
<!-- #include file="conn.asp" -->
<% response.buffer=false %>
<%
ming=request.Form("number")
statu=request.Form("radiobutton")
names=request.Form("name")
%>
<%
if statu="作废" then
%>
<script language="javascript">
var1=confirm("订单作废后，您将不能再对该订单作任何操作，您确认要将该订单作废吗？");
if(!var1){
history.back();
}
</script>
<%
yuanyin=request.Form("radiobutton1")
if yuanyin="失信" then
set cnn=server.CreateObject("ADODB.Connection")
sql="Driver={SQL Server};server=(local);uid=sa;database=mrshop"
cnn.open(sql)
set ros=server.CreateObject("ADODB.RecordSet")
sql="update 用户账户信息表 set 失信次数=失信次数+1 where 用户名=(select 名字 from 用户注册信息表 where 真实姓名='"&names&"')"
ros.open sql,cnn
meg="用户失信"
else
meg=request.Form("yuanyin")
if meg="" then%>
<script language="javascript">
alert("请填写具体的作废原因");
history.back();
</script>
<%else
sql="update 订单 set 类型='作废',原因='"&meg&"' where 订单号='"&ming&"'"
rs.open sql,conn
end if
end if %>
<script language="javascript">
alert("订单已经作废，您将不能再对订单作任何操作");
location.href="../manager.asp?action=用户失信及订单管理";
</script>
<%
else
sql="update 订单 set 类型='"&statu&"' where 订单号='"&ming&"'"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
str=session("mingcheng")
%>
<script language="javascript">
alert("订单状态已经更改");
location.href="../manager.asp?action=用户失信及订单管理";
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>