📄 insearch.asp
字号:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%'On Error Resume Next%>
<%const title="入库报告查询"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<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">
<%
if flag = 4 or flag = 5 then
sql = "select prod_id,prod_no,prod_type,prod_danwei,prod_flag,prod_pinming from product where prod_companyid = "&newcompanyid&" and prod_flag in ("&prodservice&") and prod_disabled = 0 and prod_dir_flag = 0 order by prod_no asc"
sql2 = "select distinct prod_type,prod_flag from product where prod_flag in (select prod_flag from product where prod_companyid = "&newcompanyid&" and prod_flag in ("&prodservice&") group by prod_flag) and prod_dir_flag = 0 order by prod_flag asc"
sql3 = "select distinct prod_danwei,prod_flag from product where prod_flag in (select prod_flag from product where prod_companyid = "&newcompanyid&" and prod_flag in ("&prodservice&") group by prod_flag) and prod_dir_flag = 0 order by prod_flag asc"
elseif flag < 4 then
sql = "select prod_id,prod_no,prod_type,prod_danwei,prod_flag,prod_pinming from product where prod_companyid = "&newcompanyid&" and prod_disabled = 0 and prod_dir_flag = 0 order by prod_no asc"
sql2 = "select distinct prod_type,prod_flag from product where prod_flag in (select prod_flag from product where prod_companyid = "&newcompanyid&" group by prod_flag) and prod_dir_flag = 0 order by prod_flag asc"
sql3 = "select distinct prod_danwei,prod_flag from product where prod_flag in (select prod_flag from product where prod_companyid = "&newcompanyid&" group by prod_flag) and prod_dir_flag = 0 order by prod_flag asc"
end if
set rs10 = conn.execute(sql)
set rs_sql2 = conn.execute(sql2)
set rs_sql3 = conn.execute(sql3)
%>
<script language="JavaScript">
<!--
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs10.eof
%>
subcat[<%=count%>] = new Array("<%response.write trim(rs10("prod_no"))&" " & rs10("prod_pinming") & " " & rs10("prod_type") & " "&rs10("prod_danwei")%>","<%= trim(rs10("prod_flag"))%>","<%= trim(rs10("prod_id"))%>");
<%
count = count + 1
rs10.movenext
loop
rs10.close
set rs10=nothing
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.hamier2.smalllocation.length = 0;
var locationid=locationid;
var i;
document.hamier2.smalllocation.options[0] = new Option('========货物信息========','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.hamier2.smalllocation.options[document.hamier2.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
function changeSelectDay(x){
var yy,mm,dd;
var i,j;
if (x == 1)
{
yy=parseInt(document.hamier2.start_year.value);
mm=parseInt(document.hamier2.start_month.value);
i=document.hamier2.start_day.options.length;
}
else if (x == 2)
{
yy=parseInt(document.hamier2.end_year.value);
mm=parseInt(document.hamier2.end_month.value);
i=document.hamier2.end_day.options.length;
}
dd=getDay(yy,mm);
if (dd!=0){
if (dd>i){
if (x == 1){
for(j=i;j<dd;j++){
document.hamier2.start_day.options[j]=new Option(j+1,j+1);
}
}
else if (x == 2){
for(j=i;j<dd;j++){
document.hamier2.end_day.options[j]=new Option(j+1,j+1);
}
}
}
else if(dd<i){
if (x == 1) {
for(j=i;j>dd;j--){
document.hamier2.start_day.options[j-1]=null;
}
}
else if (x ==2){
for(j=i;j>dd;j--){
document.hamier2.end_day.options[j-1]=null;
}
}
}
}
}
function getDay(yy,mm){
//((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0))
var iyear,imonth;
iyear=parseInt(yy);
imonth=parseInt(mm);
switch (imonth){
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:
return 31;
break;
case 4:
case 6:
case 9:
case 11:
return 30;
break;
case 2:
if(((iyear%4==0) && (iyear%100!=0)) || (iyear%400==0))
return 29;
else
return 28;
break;
default:
return 0;
break;
}
}
function db2excel()
{
document.hamier2.action='db2excel_in.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_in_view.asp" name="hamier2">
<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
sql = sql + " order by dc_code asc"
'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>
<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
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 nowrap>进仓编号SIA：</td>
<td><input class=smallInput type="text" name="sia" size="27" maxlength="20">
</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>
<!--#include file=../data/copyright.asp-->
<script LANGUAGE="javascript">
changelocation(document.hamier2.biglocation.options[document.hamier2.biglocation.selectedIndex].value);
</script>
</body>
</html>
<%
call closedatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -