美女图片~~~~来看哦

释放的爱~~~~

请问楼主，还有没啊。
养眼哦！！！！！！！！

欣云

有好多的~~~~~直接刷新就出来了~~~~~~~~~~~~上万张哦

Atlantids

想知道怎么实现的  楼主教一下呀

欣云

1. 
   
2. ************************* 随机图片显示 ****************************
   
3. 使用实例:img.asp?list=图片存放目录
   
4. 使用注意:图片目录放于本文件同目录下!需要FSO支持!
   
5. 说明：只要将变化图片放于一个目录下，修改下面程序的（需要修改的地方）成你的目录名称！
   
6. 上传本程序和图片文件夹到同一目录下，在发帖时候使用UBB代码形如：即可！
   
7. ----------------------------------------------------------------------------------------
   
8. Function AllPath()
   
9.   Dim Domain,GFilePath
   
10.   Domain = Request.ServerVariables("SERVER_NAME")
    
11.   GFilePath = Request.ServerVariables("PATH_INFO")
    
12.   GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
    
13.   AllPath = "http://"&Domain&GFilePath
    
14. End Function
    
15.   
    
16. Function ShowFileList(folderspec)
    
17.   Dim Path,objFSO,objFolder,count,objFile,nume,S
    
18.   Path = Server.MapPath(folderspec)
    
19.   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    
20.   If objFSO.FolderExists(Path) Then
    
21.   Set objFolder = objFSO.GetFolder(Path)
    
22.   count = 0
    
23.   For Each objFile in objFolder.Files
    
24.   count = count+1
    
25.   Next
    
26.   randomize
    
27.   nume = Int((count*rnd)+1)
    
28.   S = 0
    
29.   ShowFileList = ""
    
30.   For Each objFile in objFolder.Files
    
31.   S = S + 1
    
32.   If S = nume Then
    
33.   ShowFileList = objFile.Name
    
34.   Exit For
    
35.   End If
    
36.   Next
    
37.   Set objFolder = Nothing
    
38.   Else
    
39.   ShowFileList = "NO"
    
40.   End If
    
41.   Set objFSO = Nothing
    
42. End Function
    
43.   
    
44. Dim list,filename,address,str
    
45.   
    
46. list = trim(Request.QueryString("list"))
    
47. if list = "" then
    
48.   Response.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："&AllPath&"img.asp?list=（需要修改的地方）"
    
49.   Response.End()
    
50. end if
    
51.   
    
52. filename = ShowFileList("./"&list&"/")
    
53. if filename = "NO" then
    
54.   Response.write "您指定的目录<b>"&list&"</b>不存在，请重新指定！"
    
55.   Response.End()
    
56. end if
    
57.   
    
58. if filename = "" then
    
59.   Response.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在，请重新指定！"
    
60.   Response.End()
    
61. end if
    
62.   
    
63. str = right(filename,3)
    
64. if str<>"jpg" and str<>"gif" then
    
65. filename = "erro.gif"
    
66. end if
    
67.   
    
68. address = AllPath&list&"/"
    
69. address = address&filename
    
70. %>
    
71. <%Response.redirect(address)%>
    
72. 
    

复制代码

上帝

怎么就没有帅哥的图片呢？
哎～顶下～

光良

原帖由 欣云 于 2006-6-8 11:15 发表

************************* 随机图片显示 ****************************
使用实例:img.asp?list=图片存放目录
使用注意:图片目录放于本文件同目录下!需要FSO支持!
说明：只要将变化图片放于一个目录下 ...

晕....

欣云

晕什么呢?``````~~~~~:L:L:L

光海风

刷得我手都累了,还没看完美女~
如果没刷一次,那地方越大,你要我刷多少次都行.

欣云

原帖由 光海风 于 2006-6-9 14:26 发表
刷得我手都累了,还没看完美女~
如果没刷一次,那地方越大,你要我刷多少次都行.

哪地方啊?~~~~~:o:L:L

欣云

　　　　　　　　　　　　　　　　　　　　

跳舞的猪

原帖由 上帝 于 2006-6-8 12:33 发表
怎么就没有帅哥的图片呢？
哎～顶下～

想看帅哥是不是是啊??你早说吗??私下联系我!

  那天找个时间给你看看!~1:lol;P:$

欣云

顶………………………………