刚做完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
theINDEX=int(theMAX/thePAGE) if theMAX mod thePAGE <> 0 then theINDEX=theINDEX+1
for i=1 to theINDEX showINDEX="<a href=#"&i&" onclick=window.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="/UploadFiles/2021-04-08/&QZ&"> else if theNum<100 then temp="<img src="&QZ&"> else temp="<img src="&QZ&theNUM&HZ&"> 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&" onclick=window.location.reload()>"&"["&i&"]"&"</a> " document.write showINDEX next </script>