تنفيذ خلفية عشوائية باستخدام ASP+CSS

خلفية عشوائية--عندما تدخل إلى هذه الصفحة، سيتم تحديد صورة عشوائيًا من مجلد الصور المحدد لعرضها كخلفية. يتم تنفيذ الطريقة المقدمة هنا باستخدام ASP+CSS.

ASP--من ASP101

إليك الاقتباس:
 كونست IMGS_DIR = "/ الصور"
 'قم بتعيين عنوان مجلد الصور واعرض أي صورة في المجلد بشكل عشوائي
 خافت objFSO، objFolderObject، objFileCollection، objFile
 خافت intFileNumberToUse، intFileLooper
 خافت objImageFileToUse
 خافت strImageSrcText
 تعيين objFSO = Server.CreateObject("Scripting.FileSystemObject")
 تعيين objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 تعيين objFSO = لا شيء
 قم بتعيين objFileCollection = objFolderObject.Files
 تعيين objFolderObject = لا شيء
 عشوائية ()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 إنتفيليلوبير = 1
 لكل objFile في objFileCollection
 إذا كان intFileLooper = intFileNumberToUse ثم
 قم بتعيين objImageFileToUse = objFile
 الخروج ل
 نهاية إذا
 intFileLooper = intFileLooper + 1
 التالي
 تعيين objFileCollection = لا شيء
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

إليك المقتطف المرجعي:
 #صورة{
 العرض: 400 بكسل؛
 الارتفاع: 300 بكسل؛
 الخلفية: url(<%= strImageSrcText %>) بدون تكرار؛
 الهامش: 2em تلقائي؛
 }

يجب إضافة الكود أعلاه إلى منطقة الرأس ولا يمكن وضعه في ملف CSS خارجي.