代码如下:
<html>
<head>
<title>仿框架网页</title>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<script language="JavaScript">
function viewSource(urlStr)
{
if (urlStr)
{ //用于读取CSS/Script/robots.txt
try
{
var srcStr=''
var objHTTP=new ActiveXObject("MSXML2.XMLHTTP")
with(objHTTP)
{
open("GET",urlStr,false)
onreadystatechange=function(){
if(readyState==4)
if(status==200)
srcStr=RSBinaryToString(responseBody)
}
try{ send()}
catch(e){
srcStr="错误".fontcolor("red")+": <br>获取 "+urlStr.bold().link(urlStr)+" 发生错误<br>可能该地址已失
效或没有权限."
}
}
objHTTP=null
}
catch(e){srcStr=ImgWarn+"错误".fontcolor("red")+": <br>获取 "+urlStr.bold().link(urlStr)+" 发生错误<br>可能该地址已失
效或没有权限."}
return srcStr
}
}
function C4(urlStr)
{
window.status='正在载入源码...(可能需要几分钟)'
srcMap.innerHTML=viewSource(urlStr)
window.status=''
}
</script>
<body>
<input size=50 id=str type=text value="http://www.baidu.com">
<input type=button value=go onclick="C4(str.value)">
<div class="mdiv" id=srcMap style="border: thin solid #FF6633width:expression(document.body.offsetWidth-
50)height:expression(document.body.offsetHeight-110)overflow:autobackground:#FFFFFF" align="center">
这里是仿框架显示网页!</div>
<script language="vbscript">
function RSBinaryToString(xBinary)
Dim Binary
If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Dim RS, LBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)
If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
RSBinaryToString = RS("mBinary")
Else
RSBinaryToString = ""
End If
End Function
</script>
</body>
</html>
常用窗口标记<FRAMESET>...</FRAMESET>定义分割窗口。
相关属性 :
·BORDER 边框
·COLS 行 , 设定分割左右窗口宽度 ( 用『,』分隔，可设百分比 % 『*』表示剩余部份 )
·FRAMEBORDER 显示边框
·ROWS 列 , 设定分割上下窗口高度 ( 用『,』分隔，可设百分比 % 『*』表示剩余部份 )
<FRAME>定义窗口。
相关属性 :
·FRAMEBORDER 显示边框
·NAME 名称
·NORESIZE 设定是否可以调整窗口大小
·SRC 文件或URL位址
·SCROLLING 设定是否可以卷动
<NOFRAMES>...</NOFRAMES>无支援分割窗口浏览器显示文字。
<IFRAME>...</IFRAME>插入浮动窗口。
相关属性 :
·BORDER 边框
·FRAMEBORDER 显示边框
·NORESIZE 设定是否可以调整窗口大小
·SRC 文件或URL位址
·SCROLLING 设定是否可以卷动
举例
如 : 本站窗口架构。
( 先分割成上下窗口，再于窗口各分割成左右窗口。 )
<FRAMESET ROWS=74,* COLS=140,* FRAMEBORDER=NO BORDER=0>
<FRAME SRC=rad.htm NAME=RAD NORESIZE SCROLLING=NO>
<FRAME SRC=a-1.htm NAME=FRAME1 NORESIZE SCROLLING=NO>
<FRAME SRC=b-1.htm NAME=FRAME2 NORESIZE SCROLLING=AUTO>
<FRAME SRC=c-1.htm NAME=FRAME3 NORESIZE SCROLLING=AUTO>
</FRAMESET>
如 : 浮动窗口
<CENTER>
<IFRAME FRAMEBORDER=YES SCROLLING=YES SRC=c1-01.htm>
</IFRAME>
</CENTER>
注意
窗口基本架构的文件，通常放在HTML文件的第一页，如 : index.htm 。此HTML文件的基本架构并不需要本文区 ( BODY )，只需定义窗口架构，而其他HTML文件可用连结方式 ( A HREF=...连结标记 TARGET属性 ) 显示于指定的窗口中。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）