📄 input_ruku_sav.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>输入入库清单</title>
<% 
  dim conn
  dim connstr
  Set conn=Server.CreateObject("ADODB.Recordset")
  connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"

%>
<meta http-equiv="refresh" content="5;URL=url=/login.html">
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body background="../img/inputBG.gif">
<%
  dim rs,sql,pid,intype,place,indate,num,price,handle,remark,stocknum

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

  pid=trim(request("inpid"))

  if trim(request("inType"))="" then
    errmsg=errmsg+"<br>"+"<li>入库类型不能为空"
    founderr=true
  else
    intype=trim(request("inType"))
  end if
  
  if trim(request("Place"))="" then
    errmsg=errmsg+"<br>"+"<li>入库地点不能为空"
    founderr=true
  else
    place=trim(request("Place"))
  end if
  
  if trim(request("Date"))="" then
    errmsg=errmsg+"<br>"+"<li>入库日期不能为空"
    founderr=true
  else
    indate=trim(request("Date"))
  end if
  
  if trim(request("Num"))="" then
    errmsg=errmsg+"<br>"+"<li>入库数量不能为空"
    founderr=true
  else
    num=trim(request("Num"))
  if num=0 then
    errmsg=errmsg+"<br>"+"<li>入库数量不能为零"
    founderr=true
  end if
  end if
  
  if trim(request("Price"))="" then
    errmsg=errmsg+"<br>"+"<li>入库单价不能为空"
    founderr=true
  else
    price=trim(request("Price"))
  end if
  
  if trim(request("Handle"))="" then
    errmsg=errmsg+"<br>"+"<li>经手人不能为空"
    founderr=true
  else
    handle=trim(request("Handle"))
  end if
 
  remark=trim(request("Remark"))
%>

<div align="center">
<center>
<table border="0" width="579" height="500" cellspacing="0" cellpadding="0">
  <!--DWLayoutTable-->
<%  
  if founderr=false then
    sql="select * from GSCOTT.STOCK_MANAGEMENT_TABLE order by sm_id"
    rs.open sql,connstr,3,3
    if rs.eof then
      id=1
    else 
      rs.movelast
      id=cint(rs("sm_id"))+1
    end if
    rs.addnew
    rs("sm_id")=id
    rs("sm_inpid")=pid
    rs("sm_intype")=intype
    rs("sm_inplace")=place
    rs("sm_indate")=indate
    rs("sm_innum")=num
    rs("sm_inprice")=price
    rs("sm_handle")=handle
    rs("sm_remark")=remark
    rs.update
    rs.close
	sql="select PRODUCT_STOCKNUM from GSCOTT.PRODUCT_INFO_TABLE where PRODUCT_kindnum='"&pid&"'"
    rs.open sql,connstr,3,3
	stocknum=cint(rs("product_stocknum"))
	if stocknum>=0 then
	stocknum=cint(rs("product_stocknum"))+cint(num)
	rs("product_stocknum")=stocknum
	rs.update
	rs.close
    set rs=nothing
%>

  <tr bgcolor="#FFFF00">
  <td height="77" colspan="2" align="center" valign="middle"><strong><font size="5" face="黑体">入库清单添加成功</font></strong></td>
  <tr>
    <td width="246" height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size">入库产品型号：</td>
    <td width="333" align="center" valign="middle" bgcolor="#FFFFC1"><%=pid%></td>
    <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size">入库类型：</td>
    <td align="center" valign="middle" bgcolor="#FFFF66"><%=intype%></td>
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><div align="right"> 入库地点：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFFC1"><%=place%></td>
    
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right">入库日期：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66"><%=indate%></td>
  
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><div align="right"> 入库数量：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFFC1"><%=num%></td>
    
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right"> 入库单价：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66"><%=price%></td>
  
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFFC1" class="bd_font_size"><div align="right"> 经手人：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFFC1"><%=handle%></td>
    
  <tr>
    <td height="27" align="right" valign="middle" bgcolor="#FFFF66" class="bd_font_size"><div align="right">备注：</div></td>
    <td align="center" valign="middle" bgcolor="#FFFF66"><%=remark%></td>
  
  <tr bgcolor="#FFFFC1" class="bd_font_size">
    <td height="57" colspan="2" align="center" valign="middle"><a href="update_ruku.asp">修改删除入库清单</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="input_ruku.asp">继续输入</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="../index.asp">返回主页</a></td>
  
  <tr>
    <td height="27" align="center" valign="middle" bgcolor="#FFFF66" class="bd_font_size">输入的入库清单有问题</td> 
  <td align="center" valign="middle" bgcolor="#FFFF66"><%=errmsg%></td>

  <tr valign="middle" bgcolor="#FFFFC1" class="bd_font_size">
    <td height="57" colspan="2" align="center"><a href="javascript:history.go(-1)"><font size="-1">三秒钟后自动返回到上一页，如果您的浏览器没有返回，请单击此处</font></a></td>
  <tr>
      <td height="88">&nbsp;</td>
      <td>&nbsp;</td>    

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

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