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

📄 search_ruku.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>
<style type="text/css">
<!--
.style1 {
	font-size: 24px;
	font-weight: bold;
	font-family: "黑体";
}
-->
</style>
<link href="../../MYDZSW/Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
<center>
<%
    dim rs,sql
	
	set rs=server.createobject("adodb.recordset")

%>

<form action="search_ruku_result.asp" method="post" name="myform" id="myform">
<table width="528" border="0" cellspacing="0" cellpadding="0">
  <!--DWLayoutTable-->
  <tr align="center" valign="middle" bgcolor="#6500CA">
    <td height="77" colspan="3" valign="middle"><span class="style1">请选择查询入库信息的方式</span></td>
    </tr>
  <tr align="center" valign="middle">
    <td width="218" height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="inpid" checked>
      按照入库产品型号查询</td>
    <td colspan="2" align="left" valign="middle" bgcolor="#C184FF"><select name="inpid" id="inpid">
              <%  
        sql="select distinct sm_inpid from GSCOTT.stock_management_table where sm_inpid<>' ' "
        rs.open sql,connstr,1,1
		do while not rs.eof
	  %>
              <option value="<%=rs("sm_inpid")%>"><%=rs("sm_inpid")%></option>
              <%
	    rs.movenext
		loop
		rs.close
	  %>
    </select></td>
    </tr>
  <tr align="center" valign="middle">
    <td height="27" align="left" valign="middle" bgcolor="#9326FF" class="bd_font_size"><input name="type" type="radio" value="handle">
按照经手人查询 </td>
    <td colspan="2" align="left" valign="middle" bgcolor="#9326FF"><select name="handle" id="handle">
              <%  
        sql="select distinct sm_handle from GSCOTT.stock_management_table where sm_inpid<>' ' "
        rs.open sql,connstr,1,1
		do while not rs.eof
	  %>
              <option value="<%=rs("sm_handle")%>"><%=rs("sm_handle")%></option>
              <%
	    rs.movenext
		loop
		rs.close
	  %>
    </select></td>
    </tr>
  <tr align="center" valign="middle">
    <td height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="detail">      
      按照细节查询</td>
    <td width="142" align="left" valign="middle" bgcolor="#C184FF">
              <select name="city" id="city">
                <option value="1">按照入库日期查询</option>
                <option value="2">按照入库类型查询</option>
          </select>      </td>
    <td width="168" align="left" valign="middle" bgcolor="#C184FF"><input name="detail1" type="text" id="detail1"></td>
  </tr>
  <tr align="center" valign="middle">
    <td height="27" colspan="2" align="center" valign="middle" bgcolor="#9326FF"><input type="submit" name="Submit" value="搜索"></td>
    <td align="right" valign="top" bgcolor="#9326FF" class="bd_font_size"><a href="javascript:history.go(-1)">返回上一页</a></td>
  </tr>
  <tr align="center" valign="middle">
    <td height="141">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
</table>
</form>
</center>
</div>
<% set rs=nothing %>
</body>
</html>

⌨️ 快捷键说明

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