如何实现文本的卷屏浏览?
发布时间:2010-05-24 18:36:00
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>
![](https://www.aspxhome.com/images/zang.png)
![](https://www.aspxhome.com/images/jiucuo.png)
猜你喜欢
- 原作者:Jason MannInternet Magazine showed that people do not read on the
- 1、查询语句的执行顺序select[distinct] from join(如left 
- 一、概述公司新购了一批PC,准备把几个性能较优的PC升级为数据库服务器,替换老旧的机器。公司有套POS终端软件,后台数据存储是 MySQL
- 本文实例讲述了Python实现繁體转为简体的方法。分享给大家供大家参考,具体如下:这里需要用到两个文件,可以点击此处本站下载源文件:zh_w
- 引言在经历过一些尝试之后,觉得在当下的项目中运用链路压测的能力,不等着其他人了。链路这个词其实不如路径通俗易懂,跟产品沟通这个比较有效率。具
- 一.安装mysql 运行以下命令更新YUM源。rpm -Uvh http://dev.mysql.com/get/mysql57
- 本文实例讲述了Python简明入门教程。分享给大家供大家参考。具体如下:一、基本概念1、数在Python中有4种类型的数——整数、长整数、浮
- 其所用项目由Asp.Net技术开发,仍然使用的Webform作为前端处理,但某些功能包含了jQuery的功能,他遇到的问题就是无论用IE还是
- 代码如下_init_.pyfrom flask import Flask, request, url_for, redirect, rend
- 变量不需要声明Python的变量不需要声明,你可以直接输入:>>>a = 10那么你的内存里就有了一个变量a, 它的值是1
- 百度OCR体验地址:https://ai.baidu.com/tech/imagerecognition/general腾讯OCR体验地址:
- 操作系统:macOS High Sierra 10.13.3Python3.6因为此版本自带python2.7,就下载并安装了anacond
- 前言分析任何规模的数据的重要性怎么强调都不为过。 我们日常生活的几乎每个部分都是数据驱动的,作为开发人员,在构建任何合理大小的应用程序时,首
- 背景:在做项目时,经常会遇到这样的表结构在主表的中有一列保存的是用逗号隔开ID。如,当一个员工从属多个部门时、当一个项目从属多个城市时、当一
- 数据库连接:<% set conn=server.createobject("adodb.connection&q
- 1. 池的概念主线程:相当于生产者,只管向线程池提交任务。 并不关心线程池是如何执行任务的。线程池:相当于消费者,负责接收任务,并将任务分配
- 前言: 上一篇讲了Python排序问题中比较经典的三个方法,(链接:关于Python排
- APScheduler 简介在实际开发中我们经常会碰上一些重复性或周期性的任务,比如像每天定时爬取某个网站的数据、一定周期定时运行代码训练模
- 这篇文章主要介绍了python实现实时视频流播放代码实例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的
- 概念MySQL UNION 操作符用于连接两个以上的 SELECT 语句的结果组合到一个结果集合中。多个 SELECT 语句会删除重复的数据