⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 update_ruku_certain.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>
</head>

<body>
<%
  dim rs,sql
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from GSCOTT.stock_management_table where sm_id='"&request.QueryString("id")&"'"
  rs.open sql,connstr,3,3
%>
<div align="center">
<center>
<form action="update_ruku_sav.asp?id=<%=request.querystring("id")%>" method="post">
<table width="700"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" colspan="2">请输入入库清单修改信息:</td>
    <td width="20%" align="right">&nbsp;</td>
    <td width="40%">&nbsp;</td>
  </tr>
  <tr>
    <td width="20%" height="30" align="right">入库产品编号:</td>
    <td width="20%" height="30">
      <select name="inPID" id="inPID">
        <%  
        sql="select distinct product_kindnum from GSCOTT.product_info_table"
        set rs1=server.CreateObject("adodb.recordset")
		rs1.open sql,connstr,1,1
		do while not rs1.eof
	  %>
        <option value="<%=rs1("product_kindnum")%>"><%=rs1("product_kindnum")%></option>
        <%
	    rs1.movenext
		loop
		rs1.close
	  %>
      </select>
</td>
    <td align="right">入库类型:</td>
    <td><input name="inType" type="text" id="inType" maxlength="8" value="<%=rs("sm_intype")%>">    </td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 入库地点:</div></td>
    <td height="30"><input name="Place" type="text" id="Place" maxlength="8" value="<%=rs("sm_inplace")%>">    </td>
    <td><div align="right">入库日期:</div></td>
    <td><input name="Date" type="text" id="Date" value="<%=rs("sm_indate")%>" maxlength="15">    </td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 入库数量:</div></td>
    <td height="30"><input name="Num" type="text" id="Num" maxlength="20" value="<%=rs("sm_innum")%>"></td>
    <td><div align="right"> 入库单价:</div></td>
    <td><input name="Price" type="text" id="Price" maxlength="20" value="<%=rs("sm_inprice")%>">    </td>
  </tr>
  <tr>
    <td height="30"><div align="right"> 经手人:</div></td>
    <td height="30"><input name="Handle" type="text" id="Handle" maxlength="10" value="<%=rs("sm_handle")%>">    </td>
    <td><div align="right"> </div></td>
    <td>&nbsp;    </td>
  </tr>
  <tr>
    <td><div align="right">备注(可不填):</div></td>
    <td colspan="3"><textarea name="Remark" cols="60" rows="10" id="Remark"><%=rs("sm_remark")%></textarea></td>
  </tr>
  <tr align="center">
    <td height="30" colspan="4"><input type="submit" name="Submit" value="确定">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input name="Reset" type="reset" id="Reset2" value="重置"></td>
  </tr>
  <tr align="right">
    <td height="20" colspan="4"><a href="javascript:history.go(-1)">返回上一页</a></td>
    </tr>
</table>
</form>
</center>
</div>
</body>
</html>

⌨️ 快捷键说明

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