<html>
<head>
<title>学校办公OA系统</title>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<% 
   
   strip=Request.ServerVariables("REMOTE_ADDR")
   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro.YFSchoolDll")
    str=MyOAASPObj.OA_LoginDanDian(strip)
   set MyOAASPObj=nothing		   
			  
	dim str1
    str1=split(str,"|",-1,1)
    Session("Tname")=str1(0)
	response.cookies("Tname")=str1(0)
	response.cookies("imgdir")=str1(1)
	response.cookies("nowxueqi")=str1(2)
	response.cookies("varset")=str1(4)
	 
	response.cookies("filelength")=10	 '这个1是表示上传文件的长度不能超过1M，控制整个系统的文件大小 


	response.redirect("OA/Index.asp")    
%>
</body>
</html>
 