<%  
   strip=Request.ServerVariables("REMOTE_ADDR")
   Set MyOAASPObj = Server.CreateObject("YFSchoolOAStudentDll.Studentdll")
       str=MyOAASPObj.Login(strip) 
   set MyOAASPObj=nothing 
   
   dim str1
   str1=split(str,"|",-1,1)
   
    response.cookies("tongyibianhao")=str1(0)
	Session("Sname")=str1(1)
    response.cookies("Sname")=str1(1)   
	response.cookies("xueqi")=str1(2)
	response.cookies("权限")=str1(3)
	      
   
   response.cookies("filelength")=10	 '这个1是表示上传文件的长度不能超过1M，控制整个系统的文件大小
   response.redirect("indexOA.asp")  
   
   
%>
<%=str%>