位置：首页>> 网络编程>> Asp编程>> 如何实现文本的卷屏浏览？

如何实现文本的卷屏浏览？

　　发布时间：2010-05-24 18:36:00　

标签：浏览,asp

reader.html

<html>
<head>
<meta  http-equiv="Content-Type"  content="text/html;  charset=gb_2312-80">
<title>精彩春风之文本自动卷屏</title>
<base  target="main">
head>
<body  background="_themes/blends/blegtext.gif">
<form  action="read.asp"  method="post"  name="test"  onSubmit="init()"  target="display">
    文件名:<input  type="file"  name="filename"  size="15">
    <input  type="submit"  value="阅读"  name="b1">
    <input  type="button"  name="b2"  value="停止"  onClick="stop()">
    卷屏速度:<input  type="text"  name="speed"  value="1"  size="2">
    <input  type="button"  value="改变速度"  name="b3"  onClick="change()">
</form>
<script  Language="JavaScript">
        var  y  =  0
        var  flag  =  0
        var  speed  =  1
        function  init(){
                setTimeout("scrolling()",2000);
                flag  =  1;
                y  =  0;
                return  true;
        }
        function  scrolling(){
                if  (flag  ==  1)  {
                    parent.display.scroll(0,y);
                            y=  y  +  speed
                            setTimeout("scrolling()",5);
                }
        }
        function  stop(){
              if  (  flag  ==  1  )  {
                        flag  =  0;
                        document.test.b2.value  =  "Start";
      }
              else  {
                        flag  =  1;
                        document.test.b2.value=  "Stop";
                        setTimeout("scrolling()",500);
                        }
            }
        function  change(){
            speed  =  parseInt(document.test.speed.value,10);
        }
</script>
</body>
</html>

display.asp

<html>
<head>
<meta  http-equiv="Content-Type"  content="text/html;  charset=gb_2312-80">
<title>精彩春风之文本显示</title>
</head>
<body  background="_themes/blends/blegtext.gif"  bgproperties="fixed">
<％
Const  ForReading  =  1,  ForWriting  =  2,  ForAppending  =  8
Const  TristateUseDefault  =  -2,  TristateTrue  =  -1,  TristateFalse  =  0
Dim  filename,  fs,  f,  s  ,  readf  ,  skip  ,  I
filename  =  Request.Form("filename")
Set  fs  =  Server.CreateObject("Scripting.FileSystemObject")
If  fs.FileExists(filename)  then
        Set  f  =  fs.GetFile(filename)
        Set  readf  =  f.OpenAsTextStream(ForReading,TristateFalse)
Else
        Response.Write(filename & "噢,这个文件不存在!")
End  if
i  =  1
Do  While  readf.AtEndOfStream  <>  True
        S  =  readf.ReadLine
        Response.Write cstr(i) &" " & S & "<br>"
        i  =  i  +  1
Loop
％>
</body>
</html>

投稿

如何实现文本的卷屏浏览？

猜你喜欢