www.pudn.com > WLGL.rar > flag.incx

 
<% 
'	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  
<%	 
newcompanyid = request("COMPANYID")	 
If newcompanyid = "" Then	 
	Response.Write ("" 
	Response.End 
elseif not isnumeric(newcompanyid) then 
	Response.Write "" 
	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 +1 (888) 333-8820 
'		3. Email to sales@halcyonsoft.com 
%>