国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbs模擬的一個asp的分頁顯示功能

2020-07-26 12:03:33
字體:
來源:轉載
供稿:網友
剛做完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&" 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="&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&" onclick=window.location.reload()>"&"["&i&"]"&"</a> "
    document.write showINDEX
next
</script>


[Ctrl+A 全選 注:引入外部Js需再刷新一下頁面才能執行]

另:
取得#后面的內容可以使用

replace(window.location.hash,"#","")
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 辽宁省| 赤城县| 达州市| 庆云县| 南溪县| 徐州市| 兴和县| 雷山县| 广宁县| 怀集县| 建宁县| 文成县| 同江市| 水富县| 景德镇市| 兴义市| 长乐市| 胶南市| 威宁| 甘肃省| 长兴县| 兴仁县| 宁南县| 平谷区| 望都县| 沙田区| 通化市| 平阴县| 饶阳县| 来安县| 万年县| 阜阳市| 砚山县| 克东县| 剑河县| 浪卡子县| 汉沽区| 玛多县| 武乡县| 静乐县| 泾川县|