变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當(dāng)前位置: 首頁IT技術(shù) → 用ASP+CSS實現(xiàn)隨機(jī)背景的實例代碼分享

用ASP+CSS實現(xiàn)隨機(jī)背景的實例代碼分享

更多

這篇文章提供給大家分享學(xué)習(xí)的是關(guān)于用ASP+CSS實現(xiàn)隨機(jī)背景的實例代碼,希望能夠給大家?guī)韼椭騿l(fā)。

隨機(jī)背景--當(dāng)你每次進(jìn)入該頁面時,從已指定的圖片文件夾中,隨機(jī)選取一個圖片作為背景顯示。這里介紹的方法是用ASP+CSS來實現(xiàn)的。

ASP--來自ASP101

以下是引用片段:
Const IMGS_DIR = "/images" 
 '設(shè)定圖片文件夾的地址,隨機(jī)顯示該文件夾內(nèi)任一張圖片
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing

CSS

以下是引用片段:
#pic{
    width: 400px;
    height: 300px;
    background: url(<%= strImageSrcText %>) no-repeat;
    margin: 2em auto;
}

上面代碼要加在header區(qū),不能放在外部CSS文件里。

熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字?jǐn)?shù): 0/500 (您的評論需要經(jīng)過審核才能顯示)
主站蜘蛛池模板: 九九在线视频 | yy6080午夜论理网 | 国产欧美专区在线观看 | 亚洲欧美18v中文字幕高清 | 欧美高清在线精品一区二区不卡 | 亚洲综合色视频 | 欧美高清xxxxbbbbd | 日韩一区二区三区四区五区 | 亚洲欧美成人综合久久久 | 台湾中文娱乐综合久久久 | 精品在线一区 | 久久久精品成人免费看 | 中文字幕网站在线观看 | 鸥美性生交xxxxx久久久 | 老太性开放bbwbbwbbw | 青草免费视频 | 午夜婷婷网 | 国产a不卡 | 欧美性猛交ⅹxxx乱大交按摩 | 色噜噜狠狠色综合网图区 | 最近的中文字幕大全免费8 最近的中文字幕2019更新 | 妞干网最新 | 日韩免费视频播放 | 成人福利小视频 | 亚洲日本中文字幕区 | 欧美精品亚洲精品日韩经典 | 一区二区三区在线视频播放 | 日韩在线视频在线观看 | 日韩一道本 | 国产97在线观看 | 玖玖成人网| 伊人久久大香焦 | 91视频最新网址 | 免费国产成人高清在线看软件 | 成人a毛片 | 人人射视频 | 日日做日日摸夜夜爽 | 日韩三级视频在线观看 | 国产色啪午夜免费视频 | 欧美极品第一页 | 免费人成在线观看视频播放 |