📄 search_chuku.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="../../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_chuku_result.asp" method="post" name="myform" id="myform">
<table width="582" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr bgcolor="#6500CA">
<td height="77" colspan="4" align="center" valign="middle"><span class="style1">请选择查询出库信息的方式</span></td>
</tr>
<tr>
<td width="218" height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="outpid" checked>
按照出库产品型号查询</td>
<td colspan="3" align="left" valign="middle" bgcolor="#C184FF"><select name="outpid" id="outpid">
<%
sql="select distinct sm_outpid from GSCOTT.stock_management_table where sm_outpid<>' '"
rs.open sql,connstr,1,1
do while not rs.eof
%>
<option value="<%=rs("sm_outpid")%>"><%=rs("sm_outpid")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr>
<td height="27" align="left" valign="middle" bgcolor="#9326FF" class="bd_font_size"><input name="type" type="radio" value="arrearage">
按照欠款查询</td>
<td colspan="3" align="left" valign="middle" bgcolor="#9326FF"><select name="arrearage" id="arrearage">
<option value="否">否</option>
<option value="是">是</option>
</select></td>
</tr>
<tr>
<td height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="handle">
按照经手人查询 </td>
<td colspan="3" align="left" valign="middle" bgcolor="#C184FF"><select name="handle" id="handle">
<%
sql="select distinct sm_handle from GSCOTT.stock_management_table where sm_outpid<>' '"
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>
<td height="27" align="left" valign="middle" bgcolor="#9326FF" class="bd_font_size"><input name="type" type="radio" value="detail">
按照细节查询</td>
<td width="169" align="left" valign="middle" bgcolor="#9326FF">
<select name="city" id="city">
<option value="1">按照出库日期查询</option>
<option value="2">按照销售项号查询</option>
</select>
</td>
<td colspan="2" align="left" valign="middle" bgcolor="#9326FF"><input name="detail1" type="text" id="detail1"></td>
</tr>
<tr>
<td height="27" colspan="3" align="center" valign="middle" bgcolor="#C184FF"><input type="submit" name="Submit" value="搜索"></td>
<td width="176" align="right" valign="middle" bgcolor="#C184FF" class="bd_font_size"><a href="javascript:history.go(-1)">返回上一页</a></td>
</tr>
<tr>
<td height="119"> </td>
<td> </td>
<td width="19"> </td>
<td> </td>
</tr>
</table>
</form>
</center>
</div>
<% set rs=nothing %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -