function.asp

495K 源码语言：简体中文 授权方式：免费版 源码类别：ASP源码 / OA办公 运行环境：ASP环境/ 源码更新：2007-4-5 13:30:10 页面刷新：200

<%
if IsDebug=0 then
On Error resume next
end if
Server.ScriptTimeout=99999
Function getHTTPPage(url) 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP")
       'Set Http=Server.CreateObject("MSXML2.XMLHTTP")
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
		   exit function 
		end if 
		getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
		set http=nothing
		if err.number<>0 then err.Clear  
	End function
		
	Function BytesToBstr(body,Cset)
		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 = Cset
		BytesToBstr = objstream.ReadText 
		objstream.Close
		set objstream = nothing
	End Function


dim StealUrl
StealUrl   = "http://www.7kkt.com/"
MyUrl   = "http://www.jjan.cn/"
Mysay   = "-→ 极界动漫---Http://WWW.JJAN.CN---QQ:325206666 ←-"
Plsay   = "极界动漫"
Plsay2   = "请跟据网速选择不同的服务器观看"
%>