?? typeview.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請先選擇公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必須為整數！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
dc_id = request("dc_id")
dc_id = replace(dc_id,"'","")
%>
<%const title="倉庫分類情況"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<script language=javascript>
var myTime = new Date();
var timeNow = myTime.getTime();
function init()
{
document.onkeydown=keydown;
}
function keydown()
{
key = event.keyCode;
switch (key)
{
case 13:
window.location.href="typeview.asp?dc_id=<%=dc_id%>&companyid=<%=newcompanyid%>&pagesize=" + pagesize.value +"&prod_flag="+biglocation.options[biglocation.selectedIndex].value+"&tt="+timeNow;
break;
case 27:
window.location.href="typeview.asp?dc_id=<%=dc_id%>&companyid=<%=newcompanyid%>&pagesize=" + pagesize.value +"&prod_flag="+biglocation.options[biglocation.selectedIndex].value+"&tt="+timeNow;
break;
}
}
function change_flag()
{
window.location.href="typeview.asp?dc_id=<%=dc_id%>&companyid=<%=newcompanyid%>&prod_flag=" + biglocation.options[biglocation.selectedIndex].value+"&tt="+timeNow;
}
</script>
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0" onload="init()">
<%
Showtitle(title)
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag = 4 then
FlagUser = session("flag")
dim dcservice,prodservice
dcservice = ""
prodservice = ""
dim dcFlag,prodFlag
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,9)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
elseif flag = 5 then
FlagUser = session("flag")
dcservice = ""
prodservice = ""
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,2)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
end if
companyid = newcompanyid
sql = "select dc_code,dc_name,dc_companyid from dc where dc_id = "&dc_id&""
set rs_dc = conn.execute(sql)
dc_companyid = rs_dc("dc_companyid")
dc_code = rs_dc("dc_code")
dc_name = rs_dc("dc_name")
rs_dc.close
set rs_dc = nothing
Response.Write "您的位置： <a href=type.asp?companyid="&newcompanyid&"> 倉庫分類</a> -> "&dc_name&"( "&dc_code&" ) "
Response.Write "<select name=""biglocation"" onChange=""javascript:change_flag()"" style=""font-size:9pt;BORDER-TOP-WIDTH: 0px;BORDER-BOTTOM-WIDTH: 0px;BORDER-LEFT-WIDTH: 0px;BORDER-RIGHT-WIDTH: 0px"">"
if flag = 4 then
sql = "select id,type_name from prod_type where type_companyid = "&newcompanyid&" and id in ("&prodservice&") order by id asc"
elseif 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)
dim ty
ty = 0
do while not rs10.eof
if ty = 0 then
if prod_flag = "" then
prod_flag = rs10("id")
end if
ty = ty + 1
end if
if cstr(prod_flag) = cstr(rs10("id")) then
%>
<option value="<%=trim(rs10("id"))%>" selected><%=trim(rs10("type_name"))%></option>
<%
else
%>
<option value="<%=trim(rs10("id"))%>"><%=trim(rs10("type_name"))%></option>
<%
end if
rs10.movenext
loop
rs10.close
set rs10 = nothing
Response.Write "</select>"
response.write "<hr size=1>"
%>
<table border='0' width='100%' bordercolorlight='#c0c0c0' cellspacing='1' bordercolordark='#FFFFFF' height='26'>
<%
if prod_flag = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請先設置物品類別!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(prod_flag) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""prod_flag必須為整數！"");history.go(-1);"
Response.Write "</script>"
Response.End
end if
' <tr bgcolor='#ff bc bc'><td colspan=9>
sql="select * from inventory,product where inventory.inve_prod_id = product.prod_id and inventory.inve_dc_id = " & dc_id & " and inventory.inve_flag = "&prod_flag&" order by product.prod_no asc"
'Response.Write sql
'Response.End
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
response.write " <tr bgcolor='#0000A0'>"
response.write " <td nowrap align=center><font color=white>物品編號</font></td>"
response.write " <td nowrap align=center><font color=white> 品名 </font></td>"
response.write " <td nowrap width = 50 align=center><font color=white> 單位 </font></td>"
response.write " <td nowrap align=center><font color=white> 重量 </font></td>"
response.write " <td nowrap align=center><font color=white> 尺碼 </font></td>"
response.write " <td nowrap align=center><font color=white> 上下車金額 </font></td>"
response.write " <td nowrap align=center ><font color=white>庫存數量</font></td>"
'response.write " <td nowrap align=center ><font color=white>出庫數量</font></td>"
'response.write " <td nowrap align=center ><font color=white>總庫存</font></td>"
if flag < 4 then
'response.write " <td nowrap align=center ><font color=white>操作</font></td>"
end if
'response.write " <td nowrap align=center ><font color=white>更新時間</font></td>"
response.write " </tr>"
total_sum_fore_no = 0
total_sum_ruku = 0
total_sum_zaitu = 0
total_sum_fenpei = 0
total_sum_chuku = 0
total_sum_maysent = 0
total_sum_total = 0
record=0
if rs.eof and rs.bof then
response.write "<center>沒有記錄</center>"
else
dim curpage, i
if request("page")="" then
curpage = 1
else
curpage = clng(request("page"))
end if
pagesize = trim(request("pagesize"))
typeview_cookies = Request.Cookies("typeview_cookies")
if isNumeric(pagesize) then
if cint(pagesize) > 0 then
typeview_cookies = Request.Cookies("typeview_cookies")
rs.pagesize = clng(pagesize)
Response.Cookies("typeview_cookies") = cint(pagesize)
typeview_cookies = cint(pagesize)
else
rs.pagesize = 5
end if
elseif typeview_cookies <> "" then
rs.pagesize = typeview_cookies
else
rs.pagesize = 5
end if
rs.absolutepage = curpage
for i = 1 to rs.pagesize
record=record+1
if record/2=int(record/2) then
bgclr="#c0cccc"
else
bgclr="#ECECF0"
end if
total_sum_fore_no = total_sum_fore_no + rs("inve_fore_no")
total_sum_ruku = total_sum_ruku + rs("inve_ruku")
total_sum_zaitu = total_sum_zaitu + rs("inve_zaitu")
total_sum_fenpei = total_sum_fenpei + rs("inve_fenpei")
total_sum_chuku = total_sum_chuku + rs("inve_chuku")
total_sum_maysent = total_sum_maysent + rs("inve_maysent")
total_sum_total = total_sum_total + rs("inve_total")
response.write "<tr bgcolor="&bgclr&">"
response.write "<td align=center>"&rs("prod_no")&"</td>"
response.write "<td align=center><font color=blue>" &rs("prod_pinming") &"</font></td>"
response.write "<td align=center><font color=green>" &rs("prod_danwei") &"</font></td>"
response.write "<td align=center><font color=green>" &rs("prod_weight") &"</font></td>"
response.write "<td align=center><font color=green>" &rs("prod_tiji") &"</font></td>"
response.write "<td align=center><font color=green>" &rs("prod_danjia") &"</font></td>"
'response.write "<td align=center><a href=edit.asp?id="&rs("inve_id")&"><font color=green>[ " &rs("inve_fore_no") &" ]</font></a></td>"
'response.write "<td align=center><a href=ruku.asp?id="&rs("inve_id")&"&companyid="&newcompanyid&"><font color=navy>[ " &rs("inve_ruku") &" ]</font></a></td>"
response.write "<td align=center><a href=zaitu.asp?id="&rs("inve_id")&"&companyid="&newcompanyid&"><font color=green>[ " &rs("inve_zaitu") & " ]</font></a></td>"
'response.write "<td align=center><font color=green>" &rs("inve_fenpei") &" </font></td>"
'response.write "<td align=center><font color=navy>" &rs("inve_chuku") &"</font></td>"
'response.write "<td align=center><font color=green>" &rs("inve_maysent") &"</font></td>"
'response.write "<td align=center><font color=navy>" &rs("inve_total") &"</font></td>"
'response.write "<td align=center><font color=navy>"&formatdatetime(rs("inve_last_date"),2)&"</font></td>"
if flag < 4 then
'response.write "<td align=center>"
'response.write "<a href=edit.asp?id="&rs("inve_id") &"&page="&curpage&"&companyid="&newcompanyid&">修改</a>"
'response.write "</td>"
end if
response.write "</tr>"
rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next
end if
%>
<tr bgcolor=#ffffff>
<td></td>
<td></td><td></td><td></td><td></td>
<td><font color=blue>統計：</font> </td>
<td bgcolor=red align=center><font color=yellow><%=total_sum_zaitu%></font></td>
<td></td>
</tr>
<%
else
Response.Write "<font color=red><center>無物品!!!</center></font>"
end if
%>
</table>
<%
response.write "<p align=center>"
'Response.Write "<form method=""POST"" name=""typeview"">"
if typeview_cookies <> "" then
Response.Write "<input type=textbox name=""pagesize"" value='"&typeview_cookies&"' size=2 maxlength=3 style=""font-size:9pt;width=26;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"">"
else
Response.Write "<input type=textbox name=""pagesize"" value='5' size=2 maxlength=3 style=""font-size:9pt;width=26;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"">"
end if
'Response.Write "</form>"
response.write "第" + cstr(curpage) + "頁/總" + cstr(rs.pagecount) + "頁 "
response.write "本頁" + cstr(i-1) + "條/總" + cstr(rs.recordcount) + "條 "
if curpage = 1 then
response.write "首頁 前頁 "
else
response.write "<a href='typeview.asp?page=1&companyid="&newcompanyid&"&dc_id="&dc_id&"&prod_flag="&prod_flag&"'>首頁</a> <a href='typeview.asp?page=" + cstr(curpage-1) + "&companyid="&newcompanyid&"&dc_id="&dc_id&"&prod_flag="&prod_flag&"'>前頁</a> "
end if
if curpage = rs.pagecount then
response.write "后頁 末頁"
else
response.write "<a href='typeview.asp?page=" + cstr(curpage+1) + "&companyid="&newcompanyid&"&dc_id="&dc_id&"&prod_flag="&prod_flag&"'>后頁</a> <a href='typeview.asp?page=" + cstr(rs.pagecount) + "&companyid="&newcompanyid&"&dc_id="&dc_id&"&prod_flag="&prod_flag&"'>末頁</a>"
end if
%>
<hr size=1>
<!--#include file=../data/copyright.asp-->
<%
rs.Close
set rs = nothing
call closedatabase
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -