没有什么

源代码在线查看: function.asp

软件大小: 370 K
上传用户: maige49
关键词:
下载地址: 免注册下载 普通下载 VIP

相关代码

								dim errmsg
				function Checkin(s) 
				s=trim(s) 
				s=replace(s," "," ") 
				s=replace(s,"'","'") 
				s=replace(s,"""",""") 
				s=replace(s,"<","&lt;") 
				s=replace(s,">","&gt;") 
				Checkin=s 
				end function 
				
				
				function CheckAdmin1
					if Session("IsAdmin")true then response.redirect "error.asp"
				end function
				
				function CheckAdmin2
					if Session("IsAdmin")true or (session("KEY")"check" and session("KEY")"super") then response.redirect "error.asp"
				end function
				
				function CheckAdmin3
					if Session("IsAdmin")true or session("KEY")"super" then response.redirect "error.asp"
				end function
				
				sub error()
				%>
				
				
				
				
				
				 - 
				
				
				
				  
				  
				    
				      
				        
				          
				            
				              
				                Error!  !  :(
				                ...::: 点 此 返 回 
				                :::...
				              
				            
				          
				        
				      
				    
				  
				  
				
				                    
				           
								Response.end
				end sub
				%>			

相关资源