外部数据库利用问题

[zhijun123]

我怎么才能用不如百度的MP3搜索引擎
在我网页上显示搜索完的数据连接
我还不想让别人看见百度的页面
谢谢

[xlou]

晕 ! 你岛版也太厉害了吧!


一个偷机的方式

用框夹 在下面框夹部分显示搜索结果,让搜索结果页比你的下面框夹大

这样上面部分就可以隐藏了! 但 其他部分我就不知道怎么弄了!!

[mesher]

你可以使用XMLHTTP对象直接获取搜索结果页面的原代码,存入一个变量中,同时还可以对这些代码处理后(滤去网站的标志性代码),在用response.write 变量名 显示在你的页面上即可
'下面是两个转换和判断函数,不用管
Function bytes2BSTR(vIn)
strReturn = ""
For j = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,j,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,j+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
j = j + 1
End If
Next
bytes2BSTR = strReturn
End Function

Function ChkPage(SourceCode,SucKey,ErrKey)
if Instr(SourceCode,SucKey) > 0 then
ChkPage=true '页面返回成功
exit function
end if
if Instr(SourceCode,ErrKey) > 0 then
ChkPage=false '页面出错
exit function
end if
ChkPage=false '关键字信息不对或者是页面未连接
response.write("关键字信息不对或者是页面未连接")
response.end
End Function

'这里是关键之处
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET","URL",false)
oSend.send()
SourceCode=bytes2BSTR(oSend.responseBody)
response.write SourceCode
其中URL是你要获取的页面的地址