这是个跨域时调整iframe高度的代码,是个ASP版的。谁能帮我把下面的a.asp中的ASP代码改成javascript的,做个HTML版!
******a.asp******
<body>
<table width="770" align="center">
<tr><td>
xxxxxx<br>
xxxxxxxxxxx<br>
xxxxxxxxxxxxxxxx<br>
</td></tr>
</table>
<div align="center">
<iframe width=770 id="myiframe" src="b.htm" style="height:expression(autoResize())" marginwidth="0" marginheight="0" frameborder="0" scrolling="no"></iframe>
</div>
<table align="center">
<tr><td>
xxxxxx<br>
xxxxxxxxxxx<br>
xxxxxxxxxxxxxxxx<br>
</td></tr>
</table>
<!--页面加载时自动刷新一次-->
<script language="javascript">
function reurl(){
url = location.href;
var times = url.split("?");
if(times[1] != 1){
url += "?1";
self.location.replace(url);
}
}
window.onload=reurl
</script>
<!--调整myiframe的高度-->
<%
dim hhhh
hhhh=request.cookies("mms_h")
hhhh=Cstr(hhhh)
Response.write("<script language='javascript'>")
Response.write("function autoResize(){")
Response.write("document.all('myiframe').style.height="+hhhh+";")
Response.write("}")
Response.write("</script>")
%>
</body>
******b.htm******
<body>
<table width=100% bgcolor="#988990" height="1200">
<tr>
<td height=1000 valign=top>wochaowochaowocaho</td>
</tr>
</table>
<!--使用cookie-->
<script>
var doc_h=document.body.scrollHeight;
var name="mms_h",value=doc_h;
document.cookie=name+"="+value+";"
</script>
</body>
參考答案:**************************************************
用ASP输出语句。
response.write("<script src='"&rs("add")&".js'></script>")
**************************************************
topic.asp
调用时使用<SCRIPT LANGUAGE="JavaScript" SRC="topic.asp"></SCRIPT>
<%
if MDBpath="" then
MDBpath="admin/"
end if
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="admin/mdb_path_down.asp"-->
<%
i=0
sql="select top 12 cxn,cxv,id,tid,date,hits from down order by date desc"
rs.open sql,conn,1,1
if rs.eof then%>
<%
else
do while not rs.eof
response.write "document.write ('<IMG height=7 src=""newgif/dot1.gif"" width=6 border=0>['); "
rs_type.open "select tname from downtype where id=" & rs("tid"),conn,1,1
if not rs_type.EOF then
TN=split(rs_type("tname"),"|")
response.write "document.write ('<a href=""sort/" & rs("tid") & "_1.htm"">" & TN(ubound(TN)-2) & "</a>');"
end if
rs_type.close
response.write "document.write (']<a href=""soft/" & rs("id") & ".htm"">" & rs("cxn") & " " & rs("cxv") & "</a></td> ';"
i=i+1
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
%>