?? userinsearch.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='userdb2excel_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="userbaobiao_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>進倉編號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 + -