<% Response.Expires = 0 Response.expiresabsolute = Now () - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" Response .Buffer = true response.clearserver.scripttimeout = 999999999on error resume next '********************************************* *************************** * Define from template from reading home function '* Description: Template file name: index_template.asp '********************************************************** ************* Function GetPage (URL) Set Retrieval = CreateObject ("Microsoft.xmlhttp") with retrieval .open "get", url, false, "," "" .send getpage = Bytestobstr (.responsebody) end with set retrieval = Nothing end function
Function BytesToBstr (body) dim objstream set objstream = Server.CreateObject ( "adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" bytestobstr = objstream.readtext objstream.close set objstream = Nothingend Function
