outsearch_edit2.asp

来自「1.多种查询方式」· ASP 代码 · 共 64 行

ASP
64
字号
<%@language=vbscript%>
<% response.buffer=true %>
<%On Error Resume Next%>
<%const title="出库单修改"%>
<html>
<head>
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<script language="JavaScript">
<!--
function fanhui()
{
window.location.href="manage.asp";
}

// -->
</script>
<script language="vbscript">
<!--
Sub datacheck()
if trim(hamier.b.value)=empty then
   msgbox "「查询条件不得为空,请填写」!", 64, "请输入!"
     document.hamier.b.focus()
     Exit Sub
  End if
  
  hamier.Submit
End sub
-->
</script>
</head>

<body topmargin="0" onload="javascript:hamier.b.focus()">
<!--#include file=../data/myprg.asp-->
<!--#include file=../data/adminid.inc-->
<%
showtitle(title)
%>
<font color=blue>
     
            
                   <form method="POST" action="outsearchaction.asp" name="hamier">
           <p align=center><font color=red>请输入要修改的出库单号</font>
<p>     <table align=center border=0>
   <tr> 
                  <td  nowrap>SRA:</td>
               	  <td> <input  class=smallInput type="text" name="b" size="15" maxlength="20">
           </td>
                </tr>
               
 <tr>
   <td>
   <td><br>&nbsp;&nbsp;<input class=buttonface type=button onclick="datacheck()"  name=ok value=查询> 
           <input class=buttonface type=button name=retu value=返回 onclick="fanhui()">
 </tr>
              </table> 
          </form> 
  
<!--#include file=../data/copyright.asp-->

</body>
</html>

⌨️ 快捷键说明

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