") if first=0 then%>没有找到你想要的图片<% else betw=instr(overdate,"下一页>>")-first+5 overdate = Mid(overdate,first,betw) overdate=replace(overdate,"search?","pic.asp?") overdate=replace(overdate,"searchdtl_v3.html?","http://image.yahoo.com.cn/searchdtl_v3.html?") 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 %>