剛做完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&" 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
