📄 update_uorder_sav.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="../common/conn.asp" -->
<!-- #include file="../common/status.html" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改客户订单表</title>
<% if session("admin_id")="" then %>
  您还没有登录或者您的权限不够，五秒钟后自动返回登录，如果您的浏览器没有自动返回，请<a href="file:///E|/admin/login.html">点击登录</a>。
  <meta http-equiv="refresh" content="5;URL=url=/login.html">
<% else %>
</head>

<body background="../img/updateBG.gif">
<%
  dim rs,sql,id,userid,pid,pnumber,totalprice,method,datatime,consignment,remark

  set rs=server.createobject("adodb.recordset")

  if trim(request("userid"))="" then
    errmsg=errmsg+"<br>"+"<li>订单用户ID不能为空"
    founderr=true
  else
    userid=trim(request("userid"))
  end if
  
  if trim(request("pid"))="" then
    errmsg=errmsg+"<br>"+"<li>产品ID不能为空"
    founderr=true
  else
   pid=trim(request("pid"))
  end if
  
  if trim(request("pnumber"))="" then
    errmsg=errmsg+"<br>"+"<li>产品数量不能为空"
    founderr=true
  else
    pnumber=trim(request("pnumber"))
  end if
    if trim(request("totalprice"))="" then
    errmsg=errmsg+"<br>"+"<li>产品总价不能为空"
    founderr=true
  else
    totalprice=trim(request("totalprice"))
  end if

  
  if trim(request("method"))="" then
    errmsg=errmsg+"<br>"+"<li>收款方式不能为空"
    founderr=true
  else
    method=trim(request("method"))
  end if

  if trim(request("consignment"))="" then
    errmsg=errmsg+"<br>"+"<li>是否发货不能为空"
    founderr=true
  else
    consignment=trim(request("consignment"))
  end if
   remark=trim(request("Remark"))
%>

<div align="center">
<center>
<table border="0" width="600" cellspacing="0" cellpadding="0">
<%  
  if founderr=false then
    sql="select * from scott.user_orderform where uof_id='"&request("id")&"'"
    rs.open sql,connstr,3,3
	id=rs("uof_id")
	udate=rs("uof_datatime")
    rs("uof_userid")=userid
    rs("uof_pid")=pid
    rs("uof_number")=pnumber
    rs("uof_totalprice")=totalprice
    rs("uof_method")=method
    rs("uof_consignment")=consignment
	rs("uof_remark")=remark
    rs.update
    rs.close
    set rs=nothing
%>

<tr bgcolor="#999999"> 
  <td height="30" align="center" colspan="4">客户订单<%=user%>信息修改成功</td>
  <tr>
    <td width="30%" height="30" align="right">订单ID：</td>
    <td width="20%"><%=id%></td>
    <td width="20%" align="right">订单用户ID：</td>
    <td width="30%"><%=userid%></td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 产品ID：</div></td>
    <td><%=pid%></td>
    <td><div align="right">产品数量：</div></td>
    <td><%=pnumber%></td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 产品总价：</div></td>
    <td><%=totalprice%></td>
    <td><div align="right"> 收款方式：</div></td>
    <td><%=method%></td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 订单生成时间：</div></td>
    <td><%=udate%></td>
    <td><div align="right">是否发货： </div></td>
    <td><%=consignment%></td>
  </tr>
  <tr>
    <td height="30"><div align="right">备注：</div></td>
    <td colspan="3"><%=remark%></td>
  </tr>
  <tr align="center">
    <td height="30" colspan="4"><a href="update_uorder.asp">修改删除订单信息</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="all_uorder.asp">浏览全部订单信息</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="index.asp">返回主页</a></td>
  </tr>

<%else%>
<meta http-equiv="refresh" content="3;url=javascript:history.go(-1)">
<tr> 
  <td width="600" height="20" align="center">输入的订单信息有问题</td> 
</tr>
<tr> 
  <td><%=errmsg%></td>
</tr>
<tr><td>&nbsp;</td></tr>
<tr><td align="center"><a href="javascript:history.go(-1)"><font size="-1">三秒钟后自动返回到上一页，如果您的浏览器没有返回，请单击此处</font></a></td></tr>
<%end if%>
</table>
</center>
</div>
</body>
<% end if %>
</html>
⌨️ 快捷键说明

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