刷落伍推荐网站的Asp版代码

瓦赛,我是天才,这样的玩意,我想得出来.

PHP:

Function GetHttpPage(HttpUrl)
   If IsNull(HttpUrl)=True Or Len(HttpUrl)<11 Or HttpUrl="$False$" Then
      GetHttpPage="$False$"
      Exit Function
   End If
   Dim Http,webbody
   Set Http=server.createobject("MSXML2.XMLHTTP")
   Http.open "GET",HttpUrl,False
   Http.Send()
   If Http.Readystate<>4 then
      Set Http=Nothing 
      GetHttpPage="$False$"
      Exit function
   End if
   GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
   '特别的规则，全局过滤''单引号
   '双引号的另外处理
   GetHTTPPage=replace(GetHTTPPage,"'","")
   GetHTTPPage=replace(GetHTTPPage,"''","")
   GetHTTPPage=replace(GetHTTPPage,"target='_blank'","")
   Set Http=Nothing
   If Err.number<>0 then
      Err.Clear
   End If
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 url
Dim id
id=request("id")
url ="http://www.im286.com/freeunion.php?go=112&id="&id&""
dim counts
counts=GetHttpPage(url)

 

傻乎乎的,我有了,,不用你去刷,再说这个代码缺少了一个关键的循环部分.

 

刷得落伍挂了,鱼就生气了.