主题:  ????怎样实现浏览器的上一页,下一页,功能啊?回个帖啊!

qiutingmo

职务:普通成员
等级:1
金币:0.0
发贴:55
#12003/10/30 8:44:23
主要就是想实现四项功能,上一页,下一页,返回,!这四个功能都是要在浏览器中实现的,谢谢了!代码怎么写啊?

编辑历史:[此帖被qiutingmo编辑过(编辑时间2003-10-30 16:01:37)]
[此帖被qiutingmo编辑过(编辑时间2003-10-30 17:09:37)]


啄木鸟

职务:普通成员
等级:1
金币:0.0
发贴:18
#22003/10/30 10:54:16
帮你顶一下!


http://www.miao-design.com/妙涂设计

qiutingmo

职务:普通成员
等级:1
金币:0.0
发贴:55
#32003/10/30 11:49:08
???????????别逗我了,很着急的!



Super ChiCk

职务:版主
等级:5
金币:15.0
发贴:3502
#42003/10/30 11:55:23
应该是这样写吧,我没有试过,是54zq的脚本,应该是好用的

前进
on mouseUp
global gFileList, gFileIndex
set gFileIndex = gFileIndex + 1
if gFileIndex > count(gFileList) then
set gFileIndex = 1
end if
set whichFile = getAt (gFileList, gFileIndex)
sprite(1).navigate(the moviepath&whichFile)
updateStage
end
后退
on mouseUp
global gFileList, gFileIndex
set gFileIndex = gFileIndex - 1
if gFileIndex = 0 then
set gFileIndex = count(gFileList)
end if
set whichFile = getAt (gFileList, gFileIndex)
sprite(1).navigate(the moviepath&whichFile)
updateStage
end
不明白你的返回是什么意思?还有这个应该是用activex引用html时用到的代码,我还没研究过,仅仅是引用54zq的东西。



qiutingmo

职务:普通成员
等级:1
金币:0.0
发贴:55
#52003/10/30 12:20:50
谢谢你了!我试试看,返回我会,呵呵。对了,你给我发的那个查询的,收到了,本来想用上的,可是闲麻烦不就加那个功能了,呵呵!



Super ChiCk

职务:版主
等级:5
金币:15.0
发贴:3502
#62003/10/30 12:34:47
呵呵,如果有人能用上那太好了



qiutingmo

职务:普通成员
等级:1
金币:0.0
发贴:55
#72003/10/30 12:54:34
不对啊,那两个功能实现不了啊!
list expected for handler
是这句:if gFileIndex > count(gFileList) then
还有set whichFile = getAt (gFileList, gFileIndex)
我这个浏览器浏览存在同目录下的东西就可以了,我只想实现上一页,下一页这样的功能,也就是可以一页页的浏览就可以了!不知道说明白了吗?



Super ChiCk

职务:版主
等级:5
金币:15.0
发贴:3502
#82003/10/30 13:18:44
这个可以实现呀,你把你的网页存成htm或者html放在dir文件同一目录,这个代码应该就是实现浏览一页一页的网页的,他的原理好像是读取htm文件放在一个list里,然后顺序向前,后退吧,不知道我说的对不对54zq大侠



D计划-混沌

职务:管理员
等级:6
金币:15.2
发贴:3528
#92003/10/30 13:29:54
四项功能,上一页,下一页,返回

pageup,pagedown?



qiutingmo

职务:普通成员
等级:1
金币:0.0
发贴:55
#102003/10/30 14:43:45
哎呀呀,居然笑我!对啊,就是PAGEUP,PAGEDOWN啊,54ZQ大侠用了那位仁兄给的代码,就是出现我上面写的毛病,怎么办呢?????



Super ChiCk

职务:版主
等级:5
金币:15.0
发贴:3502
#112003/10/31 9:27:07
这里还应该加上
global gFileList
on exitFrame me
whichFile = getAt (gFileList, 1)
sprite(1).navigate(the moviepath&whichFile)
end
这段代码,来建立一个html文件列表吧,放在帧脚本的第一帧
不知道说的对不对



Super ChiCk

职务:版主
等级:5
金币:15.0
发贴:3502
#122003/10/31 9:27:31
on startMovie
global gFileIndex
set gFileIndex = 1
buildList
end

on buildList
global gFileList
set gFileList = []
repeat with i = 1 to the maxInteger
set thisFile = getNthFileNameInFolder(the pathName, i)
if thisFile = EMPTY then exit repeat
if thisFile = the movie then next repeat
set fileTypes = [".htm", ".html"]
set howManyTypes = count(fileTypes)
repeat with thisType = 1 to howManyTypes
set extension = getAt(fileTypes, thisType)
if thisFile contains extension then
append(gFileList, thisFile)
end if
end repeat
end repeat
end buildList