代码如下:
<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>
metinfo.cn/product/ 响应式网站模板，不妨到这一看。我喜欢用这个网站的原因是他的很多模板都是免费的，最主要的一点是，这个网站的页面非常的好看，对于我这个非常喜欢完美的人来说，这个网站满足了我对模板的需求。
用dreaweaver做网站模板里用不了框架。框架：用于可变的内容区（用于前台比较多）
模板：用于不可变的内容区（用于后台比较多）
一个网页的左边导航菜单是固定的，而页面中间的信息可以上下移动，这一般就可以认为是一个框架型网页。在设计过程中，模板里是用不了框架的。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）