<!--#include file=../onlineupdate/function2.asp-->
<%
dim a_filelist,v_filelist,v_istart,updatelist,v_localupdate,v_updatecount
dim v_updatelist
const c_serveraddr="http://www.web08.net/onlineupdate/signle_user/updatelist/update.asp"
getpageindex=GetDesignWeb08(LoseTagA(GetFileContent("../index.html")))
if getpageindex=1 then
	getpageindex=GetDesignWeb08_1(LoseTagA(GetFileContent("../index.html")))
end if

if getpageindex=1 then
	response.redirect "../onlineupdate/update.asp"
end if

Function chkupdate()
	a_filelist=getxmltext(c_serveraddr)
	v_filelist=split(a_filelist,chr(13))
	v_localupdate=getfilecontent("../update.ini")
	call Web_L_FindStartI()
	v_updatecount=ubound(v_filelist)-v_istart-1
	response.write v_updatecount
	if v_updatecount>0 then
		response.redirect "levelup.asp"
	else  
		response.redirect "main.asp"
	end if
End Function

Function chkupdate_1()
	'response.write c_serveraddr
	a_flielist=getxmltext(c_serveraddr)
	v_filelist=split(a_flielist,chr(13))
	v_localupdate=getfilecontent("../update.ini")
	call Web_L_FindStartI()
	v_updatecount=ubound(v_filelist)-v_istart-1
	call Web_L_Getupdatelist()
	v_tmpupdatelist=replacechar(v_updatelist)
	v_tmpupdatelist=replace(v_tmpupdatelist,",","",1,1)
	chkupdate_1=v_tmpupdatelist
End Function 
%>
