Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Bagaimana menampilkan gambar acak menggunakan ASP

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:247745
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan “sebagaimana adanya” dan tidak akan diperbarui.
RINGKASAN
Artikel ini menjelaskan proses untuk kembali gambar acak dari folder dalam situs Web Anda menggunakan Microsoft Active Server Pages (ASP) dan Scripting.FileSystemObject.
INFORMASI LEBIH LANJUT
Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Gambar acak dari ASP

Gunakan langkah berikut untuk membuat berkas meliputi untuk digunakan dengan ASP mengandung RandomImage() fungsi. The RandomImage() fungsi secara acak kembali nama gambar berdasarkan isi dalam folder, yang disahkan oleh nama fungsi, atau didasarkan pada nama gambar default jika tidak ada gambar yang ditemukan di folder.
  1. Membuat folder bernama "Gambar" di situs Web Anda root folder.Menyalin beberapa .jpg atau .gif gambar ke dalam folder foto.Menyimpan halaman ASP berikut sebagai "RandomTest.asp" di situs Web Anda root folder:
    <% @Language="VBScript" %><% Option Explicit %><html><head><!--#include virtual="/includes/RandomImage.inc"--></head><body><div align="center"><center><table border="1">  <tr>    <td bgcolor="#ffffff">      <img src="<%=RandomImage("/images/","/images/default.gif")%>">    </td>  </tr></table></center></div></body></html>						
    Catatan: Panggilan untuk RandomImage() fungsi melewati nama gambar bawaan sebagai /Images/Default.gif. Anda akan perlu untuk mengubah nama gambar dan jalan ketika Anda ingin fungsi untuk kembali gambar bawaan ketika folder berisi tidak ada gambar.

    Membuat folder bernama "Termasuk" di direktori root situs Web Anda.Simpan kode ASP berikut di folder termasuk sebagai RandomImage.inc:
    <%  Function RandomImage(strPath,strDefault)    On Error Resume Next    Randomize Timer    ' declare all variables    Dim objFSO, objFolder, objFiles, objFile    Dim strFiles, strImages, strPhysical, strFile    ' this constant has the names of valid image file name    ' extensions and can be modified for more image types    Const strValid = ".gif.jpg.png"    ' make sure we have a trailing slash in the path    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)    ' get the physical path of the folder    strPhysical = Server.MapPath(strPath)    ' get a File System Object    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    ' create a folder object    Set objFolder = objFSO.GetFolder(strPhysical)    ' get the files collection    Set objFiles = objFolder.Files    ' enumerate the files collection looking for images    For Each objFile in objFiles      strFile = LCase(objFile.Name)      If Instr(strValid,Right(strFile,4)) Then        ' add vaild images to a string of image names        strFiles = strFiles & strFile & vbTab      End If    Next    ' split the image names into an array    strImages = Split(strFiles,vbTab)        ' if we have an array...    If UBound(strImages) > 1 Then      ' get a random name      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))    Else      ' otherwise return the default      RandomImage = strDefault    End If  End Function%>						
    Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.
  2. Menyalin beberapa .jpg atau .gif gambar ke dalam folder foto.Menyimpan halaman ASP berikut sebagai "RandomTest.asp" di situs Web Anda root folder:
    <% @Language="VBScript" %><% Option Explicit %><html><head><!--#include virtual="/includes/RandomImage.inc"--></head><body><div align="center"><center><table border="1">  <tr>    <td bgcolor="#ffffff">      <img src="<%=RandomImage("/images/","/images/default.gif")%>">    </td>  </tr></table></center></div></body></html>						
    Catatan: Panggilan untuk RandomImage() fungsi melewati nama gambar bawaan sebagai /Images/Default.gif. Anda akan perlu untuk mengubah nama gambar dan jalan ketika Anda ingin fungsi untuk kembali gambar bawaan ketika folder berisi tidak ada gambar.

    Membuat folder bernama "Termasuk" di direktori root situs Web Anda.Simpan kode ASP berikut di folder termasuk sebagai RandomImage.inc:
    <%  Function RandomImage(strPath,strDefault)    On Error Resume Next    Randomize Timer    ' declare all variables    Dim objFSO, objFolder, objFiles, objFile    Dim strFiles, strImages, strPhysical, strFile    ' this constant has the names of valid image file name    ' extensions and can be modified for more image types    Const strValid = ".gif.jpg.png"    ' make sure we have a trailing slash in the path    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)    ' get the physical path of the folder    strPhysical = Server.MapPath(strPath)    ' get a File System Object    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    ' create a folder object    Set objFolder = objFSO.GetFolder(strPhysical)    ' get the files collection    Set objFiles = objFolder.Files    ' enumerate the files collection looking for images    For Each objFile in objFiles      strFile = LCase(objFile.Name)      If Instr(strValid,Right(strFile,4)) Then        ' add vaild images to a string of image names        strFiles = strFiles & strFile & vbTab      End If    Next    ' split the image names into an array    strImages = Split(strFiles,vbTab)        ' if we have an array...    If UBound(strImages) > 1 Then      ' get a random name      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))    Else      ' otherwise return the default      RandomImage = strDefault    End If  End Function%>						
    Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.
  3. Menyimpan halaman ASP berikut sebagai "RandomTest.asp" di situs Web Anda root folder:
    <% @Language="VBScript" %><% Option Explicit %><html><head><!--#include virtual="/includes/RandomImage.inc"--></head><body><div align="center"><center><table border="1">  <tr>    <td bgcolor="#ffffff">      <img src="<%=RandomImage("/images/","/images/default.gif")%>">    </td>  </tr></table></center></div></body></html>						
    Catatan: Panggilan untuk RandomImage() fungsi melewati nama gambar bawaan sebagai /Images/Default.gif. Anda akan perlu untuk mengubah nama gambar dan jalan ketika Anda ingin fungsi untuk kembali gambar bawaan ketika folder berisi tidak ada gambar.

    Membuat folder bernama "Termasuk" di direktori root situs Web Anda.Simpan kode ASP berikut di folder termasuk sebagai RandomImage.inc:
    <%  Function RandomImage(strPath,strDefault)    On Error Resume Next    Randomize Timer    ' declare all variables    Dim objFSO, objFolder, objFiles, objFile    Dim strFiles, strImages, strPhysical, strFile    ' this constant has the names of valid image file name    ' extensions and can be modified for more image types    Const strValid = ".gif.jpg.png"    ' make sure we have a trailing slash in the path    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)    ' get the physical path of the folder    strPhysical = Server.MapPath(strPath)    ' get a File System Object    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    ' create a folder object    Set objFolder = objFSO.GetFolder(strPhysical)    ' get the files collection    Set objFiles = objFolder.Files    ' enumerate the files collection looking for images    For Each objFile in objFiles      strFile = LCase(objFile.Name)      If Instr(strValid,Right(strFile,4)) Then        ' add vaild images to a string of image names        strFiles = strFiles & strFile & vbTab      End If    Next    ' split the image names into an array    strImages = Split(strFiles,vbTab)        ' if we have an array...    If UBound(strImages) > 1 Then      ' get a random name      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))    Else      ' otherwise return the default      RandomImage = strDefault    End If  End Function%>						
    Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.
  4. Membuat folder bernama "Termasuk" di direktori root situs Web Anda.Simpan kode ASP berikut di folder termasuk sebagai RandomImage.inc:
    <%  Function RandomImage(strPath,strDefault)    On Error Resume Next    Randomize Timer    ' declare all variables    Dim objFSO, objFolder, objFiles, objFile    Dim strFiles, strImages, strPhysical, strFile    ' this constant has the names of valid image file name    ' extensions and can be modified for more image types    Const strValid = ".gif.jpg.png"    ' make sure we have a trailing slash in the path    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)    ' get the physical path of the folder    strPhysical = Server.MapPath(strPath)    ' get a File System Object    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    ' create a folder object    Set objFolder = objFSO.GetFolder(strPhysical)    ' get the files collection    Set objFiles = objFolder.Files    ' enumerate the files collection looking for images    For Each objFile in objFiles      strFile = LCase(objFile.Name)      If Instr(strValid,Right(strFile,4)) Then        ' add vaild images to a string of image names        strFiles = strFiles & strFile & vbTab      End If    Next    ' split the image names into an array    strImages = Split(strFiles,vbTab)        ' if we have an array...    If UBound(strImages) > 1 Then      ' get a random name      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))    Else      ' otherwise return the default      RandomImage = strDefault    End If  End Function%>						
    Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.
  5. Simpan kode ASP berikut di folder termasuk sebagai RandomImage.inc:
    <%  Function RandomImage(strPath,strDefault)    On Error Resume Next    Randomize Timer    ' declare all variables    Dim objFSO, objFolder, objFiles, objFile    Dim strFiles, strImages, strPhysical, strFile    ' this constant has the names of valid image file name    ' extensions and can be modified for more image types    Const strValid = ".gif.jpg.png"    ' make sure we have a trailing slash in the path    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)    ' get the physical path of the folder    strPhysical = Server.MapPath(strPath)    ' get a File System Object    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    ' create a folder object    Set objFolder = objFSO.GetFolder(strPhysical)    ' get the files collection    Set objFiles = objFolder.Files    ' enumerate the files collection looking for images    For Each objFile in objFiles      strFile = LCase(objFile.Name)      If Instr(strValid,Right(strFile,4)) Then        ' add vaild images to a string of image names        strFiles = strFiles & strFile & vbTab      End If    Next    ' split the image names into an array    strImages = Split(strFiles,vbTab)        ' if we have an array...    If UBound(strImages) > 1 Then      ' get a random name      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))    Else      ' otherwise return the default      RandomImage = strDefault    End If  End Function%>						
    Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.
  6. Browse halaman RandomTest.asp; ini harus menampilkan satu gambar dalam tabel.

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 247745 - Tinjauan Terakhir: 09/21/2011 12:14:00 - Revisi: 2.0

  • kbcodesnippet kbfso kbhowto kbscript kbmt KB247745 KbMtid
Tanggapan