📄 update_corder_sav.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<%
  dim conn
  dim connstr
  Set conn=Server.CreateObject("ADODB.Recordset")
  connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改公司订单表</title>
<link href="../../MYDZSW/Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
  dim rs,sql,id,companyname,pid,pnumber,totalprice,paymethod,sentmethod,datetime,consignment,conversation,remark

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

  if trim(request("companyname"))="" then
    errmsg=errmsg+"<br>"+"<li>订单公司ID不能为空"
    founderr=true
  else
    companyname=trim(request("companyname"))
  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("paymethod"))="" then
    errmsg=errmsg+"<br>"+"<li>付款方式不能为空"
    founderr=true
  else
    paymethod=trim(request("paymethod"))
  end if
  
  if trim(request("sentmethod"))="" then
    errmsg=errmsg+"<br>"+"<li>送货方式不能为空"
    founderr=true
  else
    sentmethod=trim(request("sentmethod"))
  end if

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

<div align="center">
<center>
<table border="0" width="528" height="500" cellspacing="0" cellpadding="0">
  <!--DWLayoutTable-->
<%  
  if founderr=false then
    sql="select * from GSCOTT.company_orderform_table where cof_id='"&request("id")&"'"
    rs.open sql,connstr,3,3
	id=rs("cof_id")
	udate=rs("cof_datetime")
    rs("cof_companyname")=companyname
    rs("cof_pid")=pid
    rs("cof_number")=pnumber
    rs("cof_totalprice")=totalprice
    rs("cof_paymethod")=paymethod
	rs("cof_sentmethod")=sentmethod
    rs("cof_consignment")=consignment
	rs("cof_conversation")=conversation
	rs("cof_remark")=remark
    rs.update
    rs.close
    set rs=nothing
%>

  <tr><td height="77" colspan="2" align="center" valign="middle"><strong><font size="5" face="黑体">公司订单<%=user%>信息修改成功</font></strong></td>
  <tr>
    <td width="216" height="27" align="right" valign="middle" class="bd_font_size">订单ID：</td>
    <td width="312" align="center" valign="middle"><%=id%></td>
    <tr>
    <td height="27" align="right" valign="middle" class="bd_font_size">订单公司ID：</td>
    <td align="center" valign="middle"><%=companyname%></td>
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right"> 产品ID：</div></td>
    <td align="center" valign="middle"><%=pid%></td>
    
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">产品数量：</div></td>
    <td align="center" valign="middle"><%=pnumber%></td>
  
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right"> 产品总价：</div></td>
    <td align="center" valign="middle"><%=totalprice%></td>
    
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">订单生成时间： </div></td>
    <td align="center" valign="middle"><%=udate%></td>
  
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">付款方式： </div></td>
    <td align="center" valign="middle"><%=paymethod%></td>
    
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">送货方式：</div></td>
    <td align="center" valign="middle"><%=sentmethod%></td>
  
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">是否发货： </div></td>
    <td align="center" valign="middle"><%=consignment%></td>
    
  <tr>
    <td height="27" align="right" valign="middle" class="bd_font_size">是否会谈：</td>
    <td align="center" valign="middle"><%=conversation%></td>
  
  <tr>
    <td height="27" valign="middle" class="bd_font_size"><div align="right">备注：</div></td>
    <td align="center" valign="middle"><%=remark%></td>
    
  <tr align="center" valign="middle" class="bd_font_size">
    <td height="27" colspan="2"><a href="update_corder.asp">修改删除公司订单信息</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="../outlook_model/all_corder.asp">浏览全部公司订单信息</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="../index.asp">返回主页</a></td>
    
  <tr>
    <td height="27" align="center" valign="middle" class="bd_font_size">输入的订单信息有问题</td> 
  <td align="center" valign="middle"><%=errmsg%></td>
  
  <tr valign="middle" class="bd_font_size">
    <td height="27" colspan="2" align="center"><a href="javascript:history.go(-1)"><font size="-1">三秒钟后自动返回到上一页，如果您的浏览器没有返回，请单击此处</font></a></td>
  
  <tr>
    <td height="67">&nbsp;</td>
    <td>&nbsp;</td>
    

<%else%>
<meta http-equiv="refresh" content="3;url=javascript:history.go(-1)">
<%end if%>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明

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