神马品牌网泰国驻昆明大使馆:asp与htm问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 18:21:45
如何来实现？
我要输出结果
两个页面的代码是这样的：
index.asp 包含 top.asp文件
<!--#include file="top.asp" -->
我想把这样一段代码加到top.asp里
但是加进去就出错。
于是 我做了个htm文件 这样是好用的
怎么把htm弄进去？忘记了 以前知道的。
top.asp代码：
<script language="JavaScript">
<!-- Hide
var timerID = null;
var tickerString = "信达通讯欢迎您,迎您光临信达通讯！站长：xx竭诚为您服务！！！手机：1331xx000xx Email：xx@xx.com QQ:xxx(xx)";
var showStart, showEnd;
var tickerWidth = 50;
var timerRunning = false;
function stopTicker ()
{ if(timerRunning) clearTimeout(timerID);
timerRunning = false;}
function showTicker ()
{ var showString;
if (showStart<showEnd)
showString=tickerString.substring(showStart,showEnd+2);
else showString=tickerString.substring(showStart,tickerString.length)+
tickerString.substring(0,showEnd+2);
showStart=(showStart+2)%tickerString.length;
showEnd=(showEnd+2)%tickerString.length;
document.ticker.face.value = showString;
timerID = setTimeout("showTicker()",200);
timerRunning = true;
}
function startTicker ()
{ var i;
var tmpString = "";
// append a blank string of length=tickerWidth with tickerString
for (i=0;i<tickerWidth;i++) tmpString+=' ';
tmpString+=tickerString;
tickerString=tmpString;
showStart=0;
showEnd=tickerWidth-1;
stopTicker();
showTicker();
}
// End hiding JavaScript -->
</SCRIPT>
<BODY bgcolor=white onload="startTicker()">
<CENTER>
<form name="ticker" onSubmit="0">
<input type="text" name="face" size=46 value="" onFocus="this.blur()">
</form>
问题补充：-------------第一次补充--------
不是top.asp的代码 是htm文件的代码
这个是可以用浏览器正确查看的。
在线等，回答的精彩有高分送。
我的意思是想在top.asp中显示出我的htm文件的内容。
htm内容只显示在一个规定的表格内。不要影响整体的美观
而这个top.asp又是被包含在index.asp中的。
虽然没有怎么看懂..
在你要显示htm文件的表格加进<iframe框架>
如果要改变iframe的内容
用 <a herf="***.htm" target="wload"> 内容 </a>
//wload 是框架的名字
<iframe frameborder="0" align="middle" name="wload" width="100%" src="Content.aspx?SubjectId=140"style="WIDTH: 100%; HEIGHT: 500px"></iframe>
你把思路想好再说，我看了半天不明白，top.asp和htm你想要他们有什么联系？
Response.Write "<script language=""JavaScript""> " & vbCrlf
Response.Write "<!-- Hide " & vbCrlf
Response.Write "var timerID = null; " & vbCrlf
Response.Write "var tickerString = ""信达通讯欢迎您,迎您光临信达通讯！站长：xx竭诚为您服务！！！手机：1331xx000xx Email：xx@xx.com QQ:xxx(xx)""; " & vbCrlf
Response.Write "var showStart, showEnd; " & vbCrlf
Response.Write "var tickerWidth = 50; " & vbCrlf
Response.Write "var timerRunning = false; " & vbCrlf
Response.Write "function stopTicker () " & vbCrlf
Response.Write "{ if(timerRunning) clearTimeout(timerID); " & vbCrlf
Response.Write "timerRunning = false;} " & vbCrlf
Response.Write "function showTicker () " & vbCrlf
Response.Write "{ var showString; " & vbCrlf
Response.Write "if (showStart<showEnd) " & vbCrlf
Response.Write "showString=tickerString.substring(showStart,showEnd+2); " & vbCrlf
Response.Write "else showString=tickerString.substring(showStart,tickerString.length)+ " & vbCrlf
Response.Write "tickerString.substring(0,showEnd+2); " & vbCrlf
Response.Write "showStart=(showStart+2)%tickerString.length; " & vbCrlf
Response.Write "showEnd=(showEnd+2)%tickerString.length; " & vbCrlf
Response.Write "document.ticker.face.value = showString; " & vbCrlf
Response.Write "timerID = setTimeout(""showTicker()"",200); " & vbCrlf
Response.Write "timerRunning = true; " & vbCrlf
Response.Write "} " & vbCrlf
Response.Write "function startTicker () " & vbCrlf
Response.Write "{ var i; " & vbCrlf
Response.Write "var tmpString = """"; " & vbCrlf
Response.Write vbCrlf
Response.Write "// append a blank string of length=tickerWidth with tickerString " & vbCrlf
Response.Write "for (i=0;i<tickerWidth;i++) tmpString+=' '; " & vbCrlf
Response.Write "tmpString+=tickerString; " & vbCrlf
Response.Write "tickerString=tmpString; " & vbCrlf
Response.Write "showStart=0; " & vbCrlf
Response.Write "showEnd=tickerWidth-1; " & vbCrlf
Response.Write "stopTicker(); " & vbCrlf
Response.Write "showTicker(); " & vbCrlf
Response.Write "} " & vbCrlf
Response.Write "// End hiding JavaScript --> " & vbCrlf
Response.Write vbCrlf
Response.Write "</SCRIPT> " & vbCrlf
Response.Write vbCrlf
Response.Write "<BODY bgcolor=white onload=""startTicker()""> " & vbCrlf
Response.Write "<CENTER> " & vbCrlf
Response.Write "<form name=""ticker"" onSubmit=""0""> " & vbCrlf
Response.Write "<input type=""text"" name=""face"" size=46 value="""" onFocus=""this.blur()""> " & vbCrlf
Response.Write "</form> " & vbCrlf
Response.Write vbCrlf
换成这样试试！
不知是不是这个意思:
index.asp的代码如下:
<html>
<script type="text/javascript" src="top.js"></script>
<body bgcolor=white onload="startTicker()">
<center>
<form name="ticker" onSubmit="0">
<input type="text" name="face" size=46 value="" onFocus="this.blur()">
</form>
<!--下面继续放你的index内容-->
内容...
</center>
</body>
</html>
top.js的代码如下:
<!-- Hide
var timerID = null;
var tickerString = "信达通讯欢迎您,迎您光临信达通讯！站长：xx竭诚为您服务！！！手机：1331xx000xx Email：xx@xx.com QQ:xxx(xx)";
var showStart, showEnd;
var tickerWidth = 50;
var timerRunning = false;
function stopTicker ()
{ if(timerRunning) clearTimeout(timerID);
timerRunning = false;}
function showTicker ()
{ var showString;
if (showStart<showEnd)
showString=tickerString.substring(showStart,showEnd+2);
else showString=tickerString.substring(showStart,tickerString.length)+
tickerString.substring(0,showEnd+2);
showStart=(showStart+2)%tickerString.length;
showEnd=(showEnd+2)%tickerString.length;
document.ticker.face.value = showString;
timerID = setTimeout("showTicker()",200);
timerRunning = true;
}
function startTicker ()
{ var i;
var tmpString = "";
// append a blank string of length=tickerWidth with tickerString
for (i=0;i<tickerWidth;i++) tmpString+=' ';
tmpString+=tickerString;
tickerString=tmpString;
showStart=0;
showEnd=tickerWidth-1;
stopTicker();
showTicker();
}
// End hiding JavaScript -->
分别复制以上代码存为index.asp和top.js.