daohang.asp

来自「迅时后台可以 对新闻栏目进行管理」· ASP 代码 · 共 50 行

<%
CODEPAGE=65001
Function GetBody(Url) 
  Dim objXML
        On Error Resume Next
        Set objXML = CreateObject("Microsoft.XMLHTTP") 
        With objXML 
        .Open "Get", Url, False, "", "" 
        .Send 
        GetBody = .ResponseBody
        End With 
        GetBody=BytesToBstr(GetBody,"GB2312")
        Set objXML = Nothing 
End Function

'使用Adodb.Stream处理二进制数据
Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = Server.CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText 
        objStream.Close
        set objStream = nothing
End Function
 
xuas="http://daohang.google.cn/"
nr=getBody(xuas)
nr=replace(NR,"/f/","http://daohang.google.cn/f/")
nr=replace(NR,"_blank","")
'nr=replace(NR,"href=""","href=""http://daohang.google.cn/")
nr=replace(NR,"","")
nr=replace(NR,"","")
nr=replace(NR,"","")
nr=replace(NR,"","")
nr=replace(NR,"","")
nr=replace(NR,"","")


Response.Write NR
%>