- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
[轉貼] 刷一次變一次圖的ASP代碼
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
 <%
 '----------------------------------------------------------------------------------------
 '轉發時請保留這段聲明不並會影響你的顯示速度!
 '************************* 隨機圖片顯示 ****************************
 '使用實例:img.asp?list=圖片存放目錄
 '使用注意:圖片目錄放於本文件同目錄下!需要FSO支持!
 '說明:只要將變化圖片放於一個目錄下,修改下面程序的(需要修改的地方)成你的目錄名稱!
   上傳本程序和圖片文件夾到同一目錄下,在發帖時候使用UBB代碼形如:即可!
 '----------------------------------------------------------------------------------------
 Function AllPath()
   Dim Domain,GFilePath
   Domain = Request.ServerVariables("SERVER_NAME")
   GFilePath = Request.ServerVariables("PATH_INFO")
   GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   AllPath = "http://"&Domain&GFilePath
 End Function
  
 Function ShowFileList(folderspec)
   Dim Path,objFSO,objFolder,count,objFile,nume,S
   Path = Server.MapPath(folderspec)
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   If objFSO.FolderExists(Path) Then
   Set objFolder = objFSO.GetFolder(Path)
   count = 0
   For Each objFile in objFolder.Files
   count = count+1
   Next
   randomize
   nume = Int((count*rnd)+1)
   S = 0
   ShowFileList = ""
   For Each objFile in objFolder.Files
   S = S + 1
   If S = nume Then
   ShowFileList = objFile.Name
   Exit For
   End If
   Next
   Set objFolder = Nothing
   Else
   ShowFileList = "NO"
   End If
   Set objFSO = Nothing
 End Function
  
 Dim list,filename,address,str
  
 list = trim(Request.QueryString("list"))
 if list = "" then
   Response.write "本頁需要正確參數引入,您缺少相關的參數!正確格式如下:"&AllPath&"img.asp?list=(需要修改的地方)"
   Response.End()
 end if
  
 filename = ShowFileList("./"&list&"/")
 if filename = "NO" then
   Response.write "您指定的目錄<b>"&list&"</b>不存在,請重新指定!"
   Response.End()
 end if
  
 if filename = "" then
   Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在,請重新指定!"
   Response.End()
 end if
  
 str = right(filename,3)
 if str<>"jpg" and str<>"gif" then
 filename = "erro.gif"
 end if
  
 address = AllPath&list&"/"
 address = address&filename
 %>
 <%Response.redirect(address)%>



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2017 COOLASP All Rights Reserved