📄 outsearch.asp
字号:
{
document.hamier2.action='db2excel_out.asp';
document.hamier2.submit();
}
// -->
</script>
</head>
<body topmargin="0">
<%
showtitle(title)
year_now =year(date())
month_now = month(date())
day_now = day(date())
%>
<font color=blue>
<form method="POST" action="baobiao_out_view.asp" name="hamier2" LANGUAGE="javascript" onsubmit="return datacheck()">
<p align=center><font color=red>请在以下的表格中选择相关的查询条件</font>
<p> <table align=center border=0>
<tr>
<td nowrap> 起始日期：</td>
<td>
<select name="start_year" onchange="javascript:changeSelectDay(1)">
<%for i=2001 to 2008 %>
<%
if clng(i) = clng(year_now) then
%>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>年
<select name="start_month" onchange="javascript:changeSelectDay(1)">
<% for i=1 to 12%>
<%
if clng(i) = clng(month_now) then %>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>月
<select name="start_day" onchange="javascript:changeSelectDay(1)">
<% for i=1 to 31%>
<%
if clng(i) = clng(day_now) then %>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>日
</td>
<td>
</td>
</tr>
<tr>
<td nowrap> 截止日期：</td>
<td>
<select name="end_year" onchange="javascript:changeSelectDay(2)">
<%for i=2001 to 2008 %>
<%
if clng(i) = clng(year_now) then
%>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>年
<select name="end_month" onchange="javascript:changeSelectDay(2)">
<% for i=1 to 12%>
<%
if clng(i) = clng(month_now) then %>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>月
<select name="end_day" onchange="javascript:changeSelectDay(2)">
<% for i=1 to 31%>
<%
if clng(i) = clng(day_now) then %>
<option selected value="<%Response.Write i%>" ><%Response.Write i%></option>
<%else%>
<option value="<%Response.Write i%>" ><%Response.Write i%></option>
<%end if%>
<%next%>
</select>日
</td>
</tr>
<tr>
<td nowrap> 仓库编号：</td>
<td>
<%
response.write " <select class='smallinput' name='dc_id' size='1'>"
response.write "<option value=''>=======请选择仓库=======</option>"+chr(13)+chr(10)
if flag = 4 or flag = 5 then
sql="select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&" and dc_id in ("&dcservice&")"
elseif flag < 4 then
sql = "select dc_id,dc_code,dc_name from dc where dc_disabled = 0 and dc_companyid = "&newcompanyid&""
end if
'Response.Write sql
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
'if prod_id = rs("prod_id") then
' response.write "<option value='"+CStr(rs("prod_id"))+"' selected>"+rs("prod_no")+" "+rs("prod_type")+" "+rs("prod_danwei")+"</option>"+chr(13)+chr(10)
'else
response.write "<option value='"+CStr(rs("dc_id"))+"'>"+rs("dc_code")+" "+rs("dc_name")+" </option>"+chr(13)+chr(10)
'end if
rs.movenext
loop
else
response.write "<option value='0'>没有DC编号</option>"+chr(13)+chr(10)
end if
rs.close
set rs = nothing
response.write " </select>"
'response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
%>
</td>
</tr>
<tr>
<tr>
<td nowrap align=right>货物类型：</td>
<td>
<select class='smallinput' name='wood_type' size='1'>
<option value="">=====请选择货物类型=====</option>
<option value="1">非散货</option>
<option value="2">散货</option>
</td>
</tr>
<td nowrap> 物品类别：</td>
<td>
<select name="biglocation" onChange="javascript:changelocation(document.hamier2.biglocation.options[document.hamier2.biglocation.selectedIndex].value)">
<option selected value="">========物品类别========</option>
<%
if flag = 4 or flag = 5 then
sql = "select id,type_name from prod_type where type_companyid = "&newcompanyid&" and id in ("&prodservice&") order by id asc"
elseif flag < 4 then
sql = "select id,type_name from prod_type where type_companyid = "&newcompanyid&" order by id asc"
else
call closedatabase
Response.Write "操作无效!"
Response.End
end if
'Response.Write sql
'Response.End
set rs10 = conn.Execute (sql)
do while not rs10.eof
%>
<option value="<%=trim(rs10("id"))%>"><%=trim(rs10("type_name"))%></option>
<%
rs10.movenext
loop
rs10.close
set rs10 = nothing
%>
</select>
</td>
</tr>
<tr>
<td nowrap><input type="radio" name="oddsia" value="1" checked>物品编号：</td>
<td>
<select name="smalllocation">
<option selected value="">========物品编号========</option>
</select>
</td>
</tr>
<tr>
<td bgcolor="#CCCCCC" bordercolor="#D6E3B9" nowrap><input type="radio" name="oddsia" value="2">物品型号：</td>
<td>
<select name="prod_type">
<option selected value="">========物品型号========</option>
</select>
</td>
</tr>
<tr>
<td bgcolor="#CCCCCC" bordercolor="#D6E3B9" nowrap> 物品单位：</td>
<td>
<select name="prod_danwei">
<option selected value="">========物品单位========</option>
</select>
</td>
</tr>
<tr>
<td nowrap><input type="radio" name="oddsra" value="1" checked>S R A ：</td>
<td><input class=smallInput type="text" name="sra" size="27" maxlength="20" onfocus="javascript:document.hamier2.oddsra[0].checked=true;">
</td>
</tr>
<td>
<td><br>
<input class=buttonface type=hidden name=companyid value=<%=newcompanyid%>>
<input class=buttonface type=submit name=ok value=" 查 询 ">
<input class=buttonface type=button name=ok2 value="报表生成" onclick="javascript:db2excel();">
</tr>
</table>
</form>
<script LANGUAGE="javascript">
changelocation(document.hamier2.biglocation.options[document.hamier2.biglocation.selectedIndex].value);
</script>
<!--#include file=../data/copyright.asp-->
<%
call closedatabase
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -