注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

&#106avascript翻页程序  

2011-05-29 12:25:42|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
不知道你们最近忙不忙,反正我是忙得够呛。
要组织班上的活动,还要折腾我的新机器。(我新买的计算机,没买声卡,更可气的是没法上网)
昨天晚上看《鹿鼎记》觉得翻页太不舒服了,自己写了一个翻页的,JavaScript不能对一个text/plain类型的进行scroll,只好结合ASP来做了。
Reader.html
html
head
meta http-equiv=Content-Type content=text/html; charset=gb_2312-80
titleText 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
titleText 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 i
i = 1
Do While readf.AtEndOfStream  True
S = readf.ReadLine
Response.Write cstr(i) &   &S & br
i = i + 1
Loop
%
/body
/html
  评论这张
 
阅读(169)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017