www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/user/orderedit.asp
<!--#include file="../inc/admin.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
id=Request("id")
if id="" then
Response.Write "<script language=javascript>alert('非法操作');location.href='ordermana.asp';</script>"
Response.End()
End if
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from orderlist where id="&id&""
rs.open sql,conn,1,3
%>
<html>
<head>
<title>管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Admin_Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<br>
<table width="708" border="0" cellspacing="0" cellpadding="0" class="border">
<tr>
<td height="25" align="center" class="STYLE1" style="background-image: url('../Images/topbg1.gif')">修 改 订 单</td>
</tr>
<tr>
<FORM ACTION="" method="post" name="form">
<td><div align="center">
<table width="743" border="0" cellspacing="2" cellpadding="3" class="border">
<tr>
<td width="8%" height="25" align="right" bgcolor="#E1F4EE">订单号</td>
<td width="62%" bgcolor="#E1F4EE"><%=rs("orderid")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E1F4EE">会员</td>
<td height="25" bgcolor="#E1F4EE"><%=rs("member")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E1F4EE">姓名</td>
<td height="25" bgcolor="#E1F4EE"><%=rs("username")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E1F4EE">下单日期</td>
<td height="25" bgcolor="#E1F4EE"><%=rs("orderdate")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E1F4EE">订购数量</td>
<td height="25" bgcolor="#E1F4EE"><%=rs("num")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E1F4EE">E-mail</td>
<td height="25" bgcolor="#E1F4EE"><%=rs("email")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">公司名称</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("company")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">公司地址</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("address")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">邮政编码</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("zip")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">电话</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("tel")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">传真</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("fax")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">说明</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("content")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">支付方式</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><%=rs("Payment")%></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="20" align="right" valign="middle" bgcolor="#E1F4EE">是否处理</td>
<td align="left" valign="middle" bgcolor="#E1F4EE"><input type="radio"<%if rs("isok")=1 then response.Write " checked" end if%> value="1" name="isok" />
未处理
<input type="radio"<%if rs("isok")=2 then response.Write " checked" end if%> value="2" name="isok" />
未到款
<input type="radio"<%if rs("isok")=3 then response.Write " checked" end if%> value="3" name="isok" />
已到款
<input type="radio"<%if rs("isok")=4 then response.Write " checked" end if%> value="4" name="isok" />
已发货
<input type="radio"<%if rs("isok")=5 then response.Write " checked" end if%> value="5" name="isok" />
处理完毕
</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" bgcolor="#E1F4EE">
<input name="Submit3" type="submit" value="提交" />
<input type="submit" name="Submit32" value="重置" /></td>
</tr>
</table>
</div></td></form>
</tr>
</table>
<br>
<br>
</td>
</tr>
</table>
<%
ServerName=Cstr(Request.ServerVariables("HTTP_REFERER"))
ServerName1=Cstr(Request.ServerVariables("SERVER_NAME"))
if request.form("Submit3")="提交" then
if Mid(ServerName,8,len(ServerName1))<>ServerName1 then
Response.Write "<script language=javascript>alert('禁止外部提交!');window.close();</script>"
End if
rs("isok")=Replace(Request.form("isok"),"'","")
rs.update
Response.Write "<script language=javascript>alert('修改成功!');location.href='ordermana.asp';</script>"
end if
rs.close
set rs=nothing
%>