📄 type.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private" 
%>
<%const title="仓库物品分类"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>

<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>

<body topmargin="0">
<%
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
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag = 4 then
	FlagUser = session("flag")
		'该录入人员的客服的DC和PROD
		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")
		'该录入人员的客服的DC和PROD
		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

Showtitle(title)
randomize()
u = int(10000001*rnd+1)
	' 选则dc
	if flag = 4 then
		sql="select dc_id,dc_code,dc_name,dc_disabled from dc where dc_id in ("&dcservice&")"
	elseif flag = 5 then 
		sql="select dc_id,dc_code,dc_name,dc_disabled from dc where dc_id in ("&dcservice&")"
	elseif flag < 4 or flag=6 then
		sql="select * from dc where dc_companyid = "&newcompanyid&""
	end if
	set rs = server.CreateObject("adodb.recordset")
	rs.open sql,conn,3,2
	if not rs.eof then
	rs.movefirst
		do while not rs.eof
     	response.write "<font color=green><li><a href=typeview.asp?dc_id="&rs("dc_id")&"&companyid="&newcompanyid  &"&tt="&u&">"&rs("dc_name")&"</font>(<font color=red>"&rs("dc_code")&")</a> </font></li>"
		 rs.movenext
		loop
	end if

	rs.close
	set rs = nothing
	call closedatabase
%>

<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -