ASP教程
 

ASP结合JS的翻页程序
 

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">&nbsp;    
    <input  type="submit"  value="View"  name="b1">  &nbsp;  
    <input  type="button"  name="b2"  value="Stop"  onClick="stop()">  &nbsp;
    卷滚速度:<input  type="text"  name="speed"  value="1"  size="2">  &nbsp;
    <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)  &  "&nbsp;  "  &    S  &  "<br>"
        i  =  i  +  1
Loop
%>
</body>
</html>

From :  www.aspweb.onchina.net