?? outsearch.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 from product where prod_companyid = "&newcompanyid&" and prod_flag in ("&prodservice&") and prod_disabled = 0 and prod_dir_flag = 0"
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 from product where prod_companyid = "&newcompanyid&" and prod_disabled = 0 and prod_dir_flag = 0"
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_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%>;
var onecount2;
onecount2=0;
subcat2 = new Array();
<%
count2 = 0
do while not rs_sql2.eof
%>
subcat2[<%=count2%>] = new Array("<%response.write trim(rs_sql2("prod_type"))%>","<%= trim(rs_sql2("prod_flag"))%>","<%= trim(rs_sql2("prod_type"))%>");
<%
count2 = count2 + 1
rs_sql2.movenext
loop
rs_sql2.close
set rs_sql2=nothing
%>
onecount2=<%=count2%>;
var onecount3;
onecount3=0;
subcat3 = new Array();
<%
count3 = 0
do while not rs_sql3.eof
%>
subcat3[<%=count3%>] = new Array("<%response.write trim(rs_sql3("prod_danwei"))%>","<%= trim(rs_sql3("prod_flag"))%>","<%= trim(rs_sql3("prod_danwei"))%>");
<%
count3 = count3 + 1
rs_sql3.movenext
loop
rs_sql3.close
set rs_sql3=nothing
%>
onecount3=<%=count3%>;
function changelocation(locationid)
{
document.hamier2.smalllocation.length = 0;
document.hamier2.prod_type.length = 0;
document.hamier2.prod_danwei.length = 0;
var locationid=locationid;
var i;
document.hamier2.smalllocation.options[0] = new Option('========物品編號========','');
document.hamier2.prod_type.options[0] = new Option('========物品型號========','');
document.hamier2.prod_danwei.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]);
}
}
for (i=0;i < onecount2; i++)
{
if (subcat2[i][1] == locationid)
{
document.hamier2.prod_type.options[document.hamier2.prod_type.length] = new Option(subcat2[i][0], subcat2[i][2]);
}
}
for (i=0;i < onecount3; i++)
{
if (subcat3[i][1] == locationid)
{
document.hamier2.prod_danwei.options[document.hamier2.prod_danwei.length] = new Option(subcat3[i][0], subcat3[i][2]);
}
}
}
function datacheck()
{var counter;
counter = 0;
if (document.hamier2.biglocation.value != "")
{
if (document.hamier2.smalllocation.value == "")
{
counter = counter + 1;
}
if (document.hamier2.prod_type.value == "")
{
counter = counter + 1;
}
if (document.hamier2.prod_danwei.value == "")
{
counter = counter + 1;
}
//alert(counter);
if (counter == 3)
{
alert("由于您選擇了物品類別,所以[物品編號],[物品型號],[物品單位]必須選擇其一!");
document.hamier2.smalllocation.focus();
return false;
}
}
}
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()
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -