📄 typeview.asp

📁 1.多种查询方式
💻 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 + -