<!--#include file="fy.Function.asp"-->
<%
	Dim strpage
	strpage=getverage("http://www.fycms.com/sys/versioninfo.asp?ver="&fycms.Version&"&lan=asp&url="&Request.Servervariables("Server_Name")&"&char="&Response.Charset)
	
	Function getverage(url)
 	 Dim Http,ServerConn
	Dim j
	For j=0 To 2
		Set Http=server.createobject("Msxml2.ServerXMLHTTP")
		Http.setTimeouts 5*1000,5*1000,4*1000,10*1000
		Http.open "GET",url,False
		Http.send()
		If Err Then
			Err.Clear
			Set http = Nothing
			ServerConn = False
		Else 
			ServerConn = true
		End If
		If ServerConn Then
			Exit For
		End If
	Next 
	If ServerConn = False Then
		getverage = False
		Exit Function
	End If
	 If http.Status=200 Then
		'getverage=Http.ResponseText
		getverage=fycms.BytesToBstr(Http.ResponseBody,"gb2312")
	Else
		getverage = False
	End If
	Set http=Nothing
	End Function
	If strpage<>"false" Then 
%>document.writeln("<div class=\"tips\" id=\"versioninfo\"> <%=strpage%><\/DIV>");
<%End If %>
 