flag.incx

来自「电子商务 物流 ASP+SQL2」· INCX 代码 · 共 125 行

<%
'	The Free Developer's version of "ASP2ASP.NET Converter" supports converting source
'	code with maximum 50 lines. To convert source code of more than 50 lines, you have 
'	to purchase this product.
%>
<%
	'###########################################################################################
	'#                                                                                         #
	'#    This page is generated by ASP2ASP.Net Converter, a product of Halcyon Software, Inc. #
	'#    Copyright (c) 2001, all rights reserved. Halcyon Software Inc.                       #
	'#                                                                                         #
	'###########################################################################################
%>


<%' HALCYON: All local variables have been declared in the <Script> tag 
' to make their scope global. %>

<Script Language=VB runat=Server>
Dim newcompanyid
</Script>
<%	
newcompanyid = request("COMPANYID")	
If newcompanyid = "" Then	
	Response.Write ("<script language=javascript>")	
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	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



<%
'	The Free Developer's version of "ASP2ASP.NET Converter" supports converting source
'	code with maximum 50 lines. To convert source code of more than 50 lines, you have
'	to purchase this product. Below is the unconverted code (after line No. 50).
%>

			end if
		next
elseif flag = 5.0 then
	FlagUser = session("flag")
		dcservice = ""
		prodservice = ""
		dcFlag = false
		prodFlag = false
		
		for ver=0.0 to userno	
			if clng(newcompanyid) = clng(FlagUser(ver,2.0)) then
					if instr(dcservice,FlagUser(ver,0.0)) < 1.0 then
						if dcFlag = true then
							dcservice = dcservice &","& FlagUser(ver,0.0)
						else
							dcservice = dcservice & FlagUser(ver,0.0)
							dcFlag = true
						end if
					end if
					if instr(prodservice,FlagUser(ver,1.0)) <  1.0 then
						if prodFlag = true then
							prodservice = prodservice &","& FlagUser(ver,1.0)
						else
							prodservice = prodservice & FlagUser(ver,1.0)
							prodFlag = true
						end if
					end if
			end if
		next	
		
end if

%>




<%
'		you can purchase the full product through any of the following means:

'		1. Online at http://www.halcyonsoft.com/shopping_reg/shopdisplayproducts.asp
'		2. Call toll free [phone]
'		3. Email to [e-mail]
%>