腾讯微博

<% On Error Resume Next Server.ScriptTimeOut=360 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 Function getHtmls(url,code) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send getHtmls = BytesToBstr(.ResponseBody ,code) End With Set Retrieval = Nothing End Function Dim url , str On Error Resume Next url="http://www.116.com/?q="& keyword str = getHtmls(url,"utf-8") set regEx = new RegExp regEx.Pattern= "" regEx.IgnoreCase = True regEx.Global = True Set Matches=regEx.Execute(str) response.Write("

"&vbcrlf) For Each Matche In Matches response.Write "
• "& Matche &"
"&vbcrlf next response.Write("

"&vbcrlf) %>

---

<% if isArray(textArr) then k=0'//初始化 dim newArr(888)' //显示10个 for i =1 to 888 Randomize timer() n = Int(textRows * Rnd) 'response.Write n &"
" flag = 0 for j=0 to 9 if n=newArr(j) then flag=1 : exit for next if flag=0 then newArr(k)=n response.Write(""& textArr(n) &"  ") k=k+1 end if if k =888 then exit for next end if %>