如何用JAVASCRIPT取得IFRAME显示内容

yang6130 2008-06-06 11:10:31
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<iframe name="userIP" id="userIP" src="http://www.ip138.com/ip2city.asp" frameborder="0" scrolling="no" width="100%" height="10%"></iframe>
</body>
</html>

以上HTML文件中用框架来显示用户IP归属地，结果内容为：“您的IP地址是：[125.76.232.90] 来自：陕西省西安市 电信”，请问在同一页面中如何用JAVASCRIPT取得结果并赋值给变量VAR IP("陕西省西安市 电信")；
...全文
531 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
一把编程的菜刀 2008-06-07
  • 打赏
  • 举报
 回复 
<style type="text/css">

<!--

body{background: #fff;margin:0;}

table,td,img,form{border: none;margin: 0;padding: 0;}

td,p,li,select,input,textarea{font-size:12px;}

a{text-decoration:underline;}

a:link{color:#00007f;}

a:visited{color:#00007f;}

a:active,a:hover{color:#f00;}

-->

</style>

<% 

On Error Resume Next 

Server.ScriptTimeOut=9999999 

Function getHTTPPage(Path) 

t = GetBody(Path) 

getHTTPPage=BytesToBstr(t,"GB2312") 

End function 

Function GetBody(url) 

on error resume next 

Set Retrieval = CreateObject("Microsoft.XMLHTTP") 

With Retrieval 

.Open "Get", url, False, "", "" 

.Send 

GetBody = .ResponseBody 

End With 

Set Retrieval = Nothing 

End Function 



Function BytesToBstr(body,Cset) 

dim objstream 

set objstream = Server.CreateObject("adodb.stream") 

objstream.Type = 1 

objstream.Mode =3 

objstream.Open 

objstream.Write body 

objstream.Position = 0 

objstream.Type = 2 

objstream.Charset = Cset 

BytesToBstr = objstream.ReadText 

objstream.Close 

set objstream = nothing 

End Function 

Function Newstring(wstr,strng) 

Newstring=Instr(lcase(wstr),lcase(strng)) 

if Newstring<=0 then Newstring=Len(wstr) 

End Function 





Dim wstr,str,url,start,over,dtime 



url="http://www.ip138.com/ip2city.asp"

wstr=getHTTPPage(url) 

start=Newstring(wstr,"[") 

over=Newstring(wstr,"]") 

body=mid(wstr,start+1,over-start-1)

start1=Newstring(wstr,"来自：") 

over1=Newstring(wstr,"</center>")

body1=mid(wstr,start1+3,over1-start1-3)

response.write body

response.write body1

%>
一把编程的菜刀 2008-06-07
  • 打赏
  • 举报
 回复 
<style type="text/css">

<!--

body{background: #fff;margin:0;}

table,td,img,form{border: none;margin: 0;padding: 0;}

td,p,li,select,input,textarea{font-size:12px;}

a{text-decoration:underline;}

a:link{color:#00007f;}

a:visited{color:#00007f;}

a:active,a:hover{color:#f00;}

-->

</style>

<% 

On Error Resume Next 

Server.ScriptTimeOut=9999999 

Function getHTTPPage(Path) 

t = GetBody(Path) 

getHTTPPage=BytesToBstr(t,"GB2312") 

End function 

Function GetBody(url) 

on error resume next 

Set Retrieval = CreateObject("Microsoft.XMLHTTP") 

With Retrieval 

.Open "Get", url, False, "", "" 

.Send 

GetBody = .ResponseBody 

End With 

Set Retrieval = Nothing 

End Function 



Function BytesToBstr(body,Cset) 

dim objstream 

set objstream = Server.CreateObject("adodb.stream") 

objstream.Type = 1 

objstream.Mode =3 

objstream.Open 

objstream.Write body 

objstream.Position = 0 

objstream.Type = 2 

objstream.Charset = Cset 

BytesToBstr = objstream.ReadText 

objstream.Close 

set objstream = nothing 

End Function 

Function Newstring(wstr,strng) 

Newstring=Instr(lcase(wstr),lcase(strng)) 

if Newstring<=0 then Newstring=Len(wstr) 

End Function 





Dim wstr,str,url,start,over,dtime 



url="http://www.ip138.com/ip2city.asp"

wstr=getHTTPPage(url) 

start=Newstring(wstr,"[") 

over=Newstring(wstr,"]") 

body=mid(wstr,start,over-start)

start1=Newstring(wstr,"来自：") 

over1=Newstring(wstr,"</center>")

body1=mid(wstr,start1,over1)

response.write body

response.write body1

%>
一把编程的菜刀 2008-06-07
  • 打赏
  • 举报
 回复
你这个调用的是别人网站的，使用这种方法是不行的
要使用xmlhttp方法
yang6130 2008-06-07
  • 打赏
  • 举报
 回复
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<iframe name="userIP" id="userIP" src="http://www.ip138.com/ip2city.asp" frameborder="0" scrolling="no" width="100%" height="10%"> </iframe>
<form id="form1" name="form1" method="post" action="">
<label>
<input type="button" name="test" value="测试" onclick="javascript:alert(window.frames["userIP"].document.body.innerHTML)" />
</label>
</form>
</body>
</html>

好像不行呀，各位再帮助看看，最好能帮助测试OK！
懒牛科技 2008-06-07
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 btbtd 的回复:]
function fIframeContent(XIframe){return XIframe.contentWindow.document.body.innerHTML;}
[/Quote]
lfywy 2008-06-07
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 btbtd 的回复:]
function fIframeContent(XIframe){return XIframe.contentWindow.document.body.innerHTML;}
[/Quote]
guilin_gavin 2008-06-06
  • 打赏
  • 举报
 回复
如果想从外面的页面获取iframe页面中的内容，可以使用如下的调用：
document.userIP.IP 即可获得iframe页面中的变量IP的值
当然也可以是写成window.frames[0].IP,都是一个意思
如果想从irame页面访问父页面的变量内容，可以写成window.top.document.IP即可，想必可以解决楼主的问题~
太乙 2008-06-06
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 tantaiyizu 的回复:]
alert(window.frames["userIP"].document.body.innerHTML)
[/Quote]
btbtd 2008-06-06
  • 打赏
  • 举报
 回复
function fIframeContent(XIframe){return XIframe.contentWindow.document.body.innerHTML;}
tantaiyizu 2008-06-06
  • 打赏
  • 举报
 回复
alert(window.frames["userIP"].document.body.innerHTML)
jQuery取得iframe中元素的常用方法详解
本文将详细讲解如何使用jQuery来取得`iframe`中元素的方法。 首先，我们要明确一点：跨域的`iframe`是无法直接进行DOM操作的，这是浏览器的安全策略，以防止恶意网站对其他网站的页面进行篡改。但如果是同源策略下...
JavaScript 经典代码大全
12. 取得控件的绝对位置：通过JavaScript或VBScript可以获取页面上某个元素相对于文档顶部和左边的偏移值，这对于定位和布局非常有用。 13. 光标自动定位到文本框末尾：`onfocus="cc()"`事件绑定的函数`cc()`会确保...
《程序天下：JavaScript实例自学手册》光盘源码
9.24 用JavaScript隐藏或显示表格列 9.25 滚动的表格 9.26 交换表的行 9.27 动态拖放表格的宽度 9.28 可输入内容的表格 9.29 可以分级的表格隐藏 9.30 动态创建表格并实现分页 9.31 删除表格指定行 9.32 设置表格的...
JavaScript实用技巧集锦
通过使用 JavaScript 函数 getIE(e)，可以取得控件的绝对位置。 14. 光标是停在文本框文字的最后 通过使用 JavaScript 函数 cc()，可以使光标停在文本框文字的最后。 15. 判断上一页的来源 通过使用 JavaScript ...
js判断iframe中元素是否存在的实现代码
// 显示iframe中body元素的内容 $("#testId", document.frames("iframename").document).html(); // 根据iframename取得其中ID为"testId"元素 $(window.frames["iframeName"].document).find("#testId").html(); ...
JavaScript

87,996

社区成员

224,708

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章