<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
要组织班上的活动，还要折腾我的新机器。（我新买的计算机，没买声卡，更可气的是没法上网）
昨天晚上看《鹿鼎记》觉得翻页太不舒服了，自己写了一个翻页的，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" οnsubmit="init()" target="display">
文件名：<input type="file" name="filename" size="15">
<input type="submit" value="view" name="b1">
<input type="button" name="b2" value="stop" οnclick="stop()">
卷滚速度：<input type="text" name="speed" value="1" size="2">
<input type="button" value="改变速度" name="b3" οnclick="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>
< <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
不知道你们最近忙不忙，反正我是忙得够呛。
要组织班上的活动，还要折腾我的新机器。（我新买的计算机，没买声卡，更可气的是没法上网）
昨天晚上看《鹿鼎记》觉得翻页太不舒服了，自己写了一个翻页的，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" οnsubmit="init()" target="display">
文件名：<input type="file" name="filename" size="15">
<input type="submit" value="view" name="b1">
<input type="button" name="b2" value="stop" οnclick="stop()">
卷滚速度：<input type="text" name="speed" value="1" size="2">
<input type="button" value="改变速度" name="b3" οnclick="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>
< <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
