中科新闻网造梦西游4火兽翎:asp如何实现引用另一个网站的主页
来源：百度文库 编辑：中科新闻网 时间：2024/05/05 04:08:58
self!=top 这类语句 刷新整个页面？
恩，就是要跳过人家页面里的self!=top 之类语句调用。也就是说人家的主页只在我的框架里显示，不满屏。
反对Copy别人答案！
使用 XMLHTTP 组件抓取对方网页的源码，然后判断如果有self!=top这句则替换掉，然后再添加到框架里就可以了。
我这里刚好有个从网站抓手机号码的函数，你可以看看
<%
response.write getarea("1350696")
Function getarea(mobile)
if not left(mobile,2)="13" then
getarea=""
exit Function
end if
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://www.shouji.com.cn/ip/simcard.jsp?pn="+mobile, False
xml.Send
rt=server.HTMLEncode(xml.responseText)
'提取所需的内容
k1=Instr(rt,"class=tdc2")
rt=mid(rt,k1+14,len(rt)-k1-14)
k1=Instr(rt,"class=tdc2")
rt=mid(rt,k1+14,len(rt)-k1-14)
k1=Instr(rt,"TD")
'在调用位置输出
getarea=left(rt,k1-6)
Set xml = Nothing
End Function
%>
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
不是很明白,是可以跳过self!=top的情况下调用对吗?
参考资料：http://web.playis.cn
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■
■■■■■■■■支持楼上朋友的方法■■■■■■■■■