一搜图片搜索小偷

tml?")
overdate=replace(overdate,"searcheml.html?","http://image.yahoo.com.cn/searcheml.html?")
Response.Write overdate
end if

'' 获取远程HTML
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False
.Send
GetURL = .responsebody
End With
Set Retrieval = Nothing
End Function



Function Bytes2bStr2(vin)
Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0

.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr2 = StringReturn
End Function
Function bytes2bstr1(vin)
strreturn = ""
For i = 1 To lenb(vin)
thischarcode = ascb(midb(vin,i,1))
If thischarcode < &h80 Then
strreturn = strreturn & chr(thischarcode)
Else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
End If
Next
bytes2bstr1 = strreturn
End Function
%>
</body>
</html>