◆◆◆100分求助，跨域读取HTML内容。

yzyun 2004-11-05 04:39:31

http://www.Mytest.cn
域名下面的某个asp页面实现如下功能：
读取跨域HTML页面的部分内容，显示在该asp页面中的某个<div>中，或者存储到http://www.Mytest.cn的数据库，如何实现？！！

<object id=editA style="width:400;height:280;" type="text/x-scriptlet" data="http://www.OtherA.com"></object>
不行；

<IE:Download ID="oDownload" STYLE="behavior:url(#default#download)" />
<body onload="oDownload.startDownload('http://www.OtherB.com/test.htm',onDownloadDone)">
<span id=showImport></span>
<script language=javascript></script>
也不行

...全文

245 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

Davanchi 2004-11-06

打赏
举报

有意思，顶之

Davanchi 2004-11-06

打赏
举报

to lordwudee(三屉馒头)

借楼主的光，不错不错，三屉馒头兄有源文件吗？谢谢啦：
davanchi@tom.com

lordwudee 2004-11-05

打赏
举报

我做了一个专门看源码的程序，基于XMLHTTP。挺简单的:
http://www.shiyihcc.com/xmlhttp/default.asp

lsrj 2004-11-05

打赏
举报

回复的人不多！
我顶！！

key_pwd 2004-11-05

打赏
举报

参考一些小偷程序的方法

itzhiren 2004-11-05

打赏
举报

友好帮顶帖

iuhxq 2004-11-05

打赏
举报

用XMLHTTP吧。

参考：

<html>
<head>
<title>抓歌</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<link href="style.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="mp3,mp3.asp2004.net,asp2004,原创论坛,asp,论坛,bbs,sql,数据库,文章,入门">
<meta name="author" content="小灰,quxiaohui_0@163.com">
<script language="JavaScript">
function playStart(url)
{
vPlayer.url=url;
vPlayer.controls.play();
}
</script>
<body>
<object WIDTH='300' HEIGHT='62' classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="vPlayer">
<param name='_ExtentX' value='9657'>
<param name='_ExtentY' value='847'>
<param name='AUTOSTART' value='-1'>
<param name='SHUFFLE' value='0'>
<param name='PREFETCH' value='0'>
<param name='NOLABELS' value='0'>
<param name='SRC' value='http://210.242.69.206/ramgen/broadcast/BCC/encoder/hipop.rm'>
<param name='CONTROLS' value='StatusBar,controlpanel'>
<param name='CONSOLE' value='Clip1'>
<param name='LOOP' value='0'>
<param name='NUMLOOP' value='0'>
<param name='CENTER' value='0'>
<param name='MAINTAINASPECT' value='0'>
<param name='BACKGROUNDCOLOR' value='#000000'>
</object><br>
<a href="http://mp3.asp2004.net">http://mp3.asp2004.net</a>
<%
id=request.QueryString("id")
mp3name=request("mp3name")
cxss=Request.QueryString("cxss")
set rs=server.CreateObject("adodb.recordset")

if id>0 then
sql="select * from music where id="&id
elseif mp3name<>"" then
sql="select * from music where mp3name='"&mp3name&"'"
end if

rs.open sql,conn,3,3
if rs.eof and rs.bof then
id=0
else
rs("count")=rs("count")+1
url=rs("url")
url1=rs("url1")
id=rs("id")
mp3name=rs("mp3name")
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write(mp3name&"<br>")
if cxss<>"true" And (len(url)>20 Or len(url1)>20 )then
If len(url)>0 Then
%>
数据来源于本地，如果不能播放请点<a href='mp3.asp?id=<%= id%>&cxss=true'><font color="0000FF">重新搜索</font></a><br>
<input type='button' value='播放' onclick="playStart('<%= url%>');"> <a href='<%= url%>' target='_blank'>下载</a><br>
<%
ElseIf len(url1)>0 Then
%>
数据来源于本地，如果不能播放请点<a href='mp3.asp?id=<%= id%>&cxss=true'><font color="0000FF">重新搜索</font></a><br>
<%
s=split(url1,"|")
For i= 0 To ubound(s)-1
url=s(i)
%>
<input type='button' value='播放' onclick="playStart('<%= url%>');"> <a href=shoucang.asp?id=<%= id%>&url=<%= url%> target='_blank'>收藏</a> <a href='<%= url%>' target='_blank'>下载</a><br>
<%
Next
End If
else
response.write("数据来源于Baidu<br>")
url="http://mp3.baidu.com/m?rn=&tn=baidump3&ct=134217728&word="&mp3name&"&lm=0"
str=getHTTPPage(url)
geturl id,str
end if
%>
<%
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
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
bytes2BSTR = strReturn
End Function

function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function

function geturl(id,str)
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "http://(.+?)\.mp3"""
set mm=objRegExp1.Execute(str)
For Each tt in mm
temp=left(tt.value,len(tt.value)-1)
if id>0 then
strss="<a href=shoucang.asp?id="&id&"&url="&temp&" target='_blank'>收藏</a>"
elseif session("mp3login")="login" then
strss="<a href=addmp3name.asp?action=add&mp3name="&mp3name&"&url="&temp&" target='_blank'>收藏</a>"
end if
%>
<input type='button' value='播放' onclick="playStart('<%= temp%>');"> <%= strss%> <a href='<%= temp%>' target='_blank'>下载</a><br>
<%
next
end function
%>
</body>
</html>