Bagaimana menampilkan gambar acak menggunakan ASP

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 247745
Perbesar semua | Perkecil semua

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.

Properti

ID Artikel: 247745 - Kajian Terakhir: 21 September 2011 - Revisi: 2.0
Kata kunci: 
kbcodesnippet kbfso kbhowto kbscript kbmt KB247745 KbMtid
Penerjemahan Mesin
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.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com