用vbs模拟的一个asp的分页显示功能

2020-03-24 18:05:04

字体：大中小

来源：转载

供稿：网友

刚做完1个项目，闲的无聊，想改改自己HomePage，但没有Asp权限，所以突发奇想，用vbs模拟了一个图片分页显示功能！由于写的是适合自己使用的功能，难免很多地方不是很完善！也请各位路过的提些意见，若有朋友正好想找类似的功能，或许可以帮助一下，另外，祝论坛的每一位朋友元旦快乐！
复制代码代码如下:
script language=VBS
Function showINDEXPAGE()
JS=1
webPath=window.location
Do until Left(webPATH,1)="#" or JS=len(window.location)
JS=JS+1
webPATH=Right(window.location,JS)

Loop
if JS=len(window.location) then showINDEXPAGE=1 else showINDEXPAGE=Replace(webPATH,"#","")
END Function

QZ="" '需要显示的图像文件前缀
HZ=".gif" '需要显示的图像文件后缀
theMAX=98 '最大显示图像个数
theSKIP=5 '每行显示多少图像个数
thePAGE=20 '每页显示多少图像个数

theINDEX=int(theMAX/thePAGE)
if theMAX mod thePAGE 0 then theINDEX=theINDEX+1

for i=1 to theINDEX
showINDEX=" a href=#"&i&" indow.location.reload() "&"["&i&"]" /a "
document.write showINDEX
next
document.write " br br hr "

if thePAGE=0 then thePAGE=theMAX
for i=1 to thePAGE
theNUM=i+thePAGE*(showINDEXPAGE()-1)
if theNum theMAX then EXIT FOR
if theNUM 10 then
temp=" img src="&QZ&"00"&theNUM&HZ /img "
else if theNum 100 then
temp=" img src="&QZ&"0"&theNUM&HZ /img "
else
temp=" img src="&QZ&theNUM&HZ /img "
end if
end if
document.write temp
if theSKIP 0 then if i mod theSKIP = 0 then document.write " br "
next

document.write " hr br br "
for i=1 to theINDEX
showINDEX=" a href=#"&i&" indow.location.reload() "&"["&i&"]" /a "
document.write showINDEX
next
/script

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]
另：
取得#后面的内容可以使用

replace(window.location.hash,"#","")html教程

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

上一篇：用VBS调用程序并对程序的运行情况进行监控的两个代码

下一篇：改进后的mkw3site.vbs(创建虚拟目录)