
<% 
   
   strip=Request.ServerVariables("REMOTE_ADDR")
   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro.YFSchoolDll")
    str=MyOAASPObj.OA_Login(strip)
   set MyOAASPObj=nothing		   
			  
	dim str1
    str1=split(str,"|",-1,1)

	response.cookies("Tname")=str1(0)
	response.cookies("imgdir")=str1(1)
	response.cookies("nowxueqi")=str1(2)
	 
	response.cookies("filelength")=10	 '这个1是表示上传文件的长度不能超过1M，控制整个系统的文件大小
    

	if  str1(3)="888" then
	     response.redirect("OA/user/password.asp")
	else
	    response.redirect("OA/Index.asp")
	end if 

    
%>