JavaScript翻页程序

新客网 XKER.COM 2003-07-11 来源：收藏本文

不知道你们最近忙不忙，反正我是忙得够呛。
要组织班上的活动，还要折腾我的新机器。（我新买的计算机，没买声卡，更可气的是没法上网）
昨天晚上看《鹿鼎记》觉得翻页太不舒服了，自己写了一个翻页的，JavaScript不能对一个text/plain类型的进行scroll，只好结合ASP来做了。
Reader.html
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Text Auto Scroll Reader</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="View" name="b1">
  <input type="button" name="b2" value="Stop" 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>Text Display</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>

上一篇：dhtml:围着鼠标转的小鸟(飞鸟：不是我) 下一篇：动态添加form项

【收藏】【评论】【推荐】【投稿】【打印】【关闭】