·您的位置: 首页 » 资源教程 » 编程开发 » JavaScript » JAVASCRIPT翻页程序

JAVASCRIPT翻页程序

类别: JavaScript教程  评论数:0 总得分:0
不知道你们最近忙不忙,反正我是忙得够呛。
要组织班上的活动,还要折腾我的新机器。(我新买的计算机,没买声卡,更可气的是没法上网)
昨天晚上看《鹿鼎记》觉得翻页太不舒服了,自己写了一个翻页的,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>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1