<%
function getHTTPPage(url) 
	on error resume next 
	dim http 
	set http=Server.createobject("Microsoft.XMLHTTP") 
	Http.open "GET",url,false 
	Http.send() 
	if Http.readystate<>4 then
		exit function 
	end if 
	getHTTPPage=bytes2BSTR(Http.responseBody)
	set http=nothing
	if err.number<>0 then err.Clear  
	end function
	
	Function bytes2BSTR(vIn) 
	dim strReturn 
	dim i,ThisCharCode,NextCharCode 
	strReturn = "" 
	For i = 1 To LenB(vIn) 
		ThisCharCode = AscB(MidB(vIn,i,1)) 
		If ThisCharCode < &H80 Then 
			strReturn = strReturn & Chr(ThisCharCode) 
		Else 
			NextCharCode = AscB(MidB(vIn,i+1,1)) 
			strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
			i = i + 1 
		End If 
	Next 
	bytes2BSTR = strReturn 
	End Function 


MyTest=getHTTPPage("http://www.iecity.com/other/JOYNEWSTEST.TXT")
If MyTest<>"test" then
Response.Write "您目前使用的服务器不支持此程序。<br>解决方法如下：<br>1、没办法了，只能不用。<br>2、更换或租用新的主机。（可以找我：QQ：59260969）"
Else
Response.Write "您目前使用的服务器支持此程序。<br>如果您感觉还可以，就是觉得速度不是很快，而且不太漂亮，可以向本工作室购买新版程序。速度和界面都是一流的。<br>演示地址：<a href=http://news.iecity.com >http://news.iecity.com</a>"
End if

%>