回帖變美女asp源碼(挺有意思)

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   
2. <%
   6 m& ?0 Y( ^' }0 l, ^2 H3 b4 A
3. Function AllPath()
   1 Q8 X3 B. Z0 h0 }  f1 o. }
4. Dim Domain,GFilePath
   
5. Domain = Request.ServerVariables("SERVER_NAME")
   " h5 i) O2 s! X
6. GFilePath = Request.ServerVariables("PATH_INFO")
   . q  h5 R* F& q( P' F0 n" V
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   
9. End Function
   # P' |6 T! _- p% W8 `
10. Function ShowFileList(folderspec)
    - [2 @$ \3 b) l  c" W  i
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    
12. Path = Server.MapPath(folderspec)
    
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    ; E" P2 u, {& h) b0 h- Q
14. If objFSO.FolderExists(Path) Then
    9 h9 q$ Y: j9 M6 p( O/ h' |
15. Set objFolder = objFSO.GetFolder(Path)
    ( ^  K. i3 [7 X; D  B% N  }
16. count = 0
    
17. For Each objFile in objFolder.Files
    
18. count = count+1
    
19. Next
    
20. randomize
    , n7 E! g9 d/ C' ~6 h1 e  u# B
21. nume = Int((count*rnd)+1)
    # ~9 P8 u. D& s6 y6 C0 y, D4 Z( D
22. S = 0
    
23. ShowFileList = ""
    
24. For Each objFile in objFolder.Files
    1 O& S6 j, @. F
25. S = S + 1
    4 ^0 \( K* I, D5 ]7 p6 c
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    
28. Exit For
    
29. End If
    
30. Next
    
31. Set objFolder = Nothing
    # [, H7 v3 {- ?+ }2 d8 z, K! k
32. Else
    
33. ShowFileList = "NO"
    
34. End If
    
35. Set objFSO = Nothing
    9 b! p" I$ V. m, X. m- H
36. End Function
    ! L8 u/ q: b) w' m% c' @
37. Dim list,filename,address,str
    
38. list = trim(Request.QueryString("list"))
    
39. if list = "" then
    " I$ d9 p; z: [1 c9 R% T
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    
41. Response.End()
    - r7 D; |0 d6 x( b! @4 l! Q/ ]9 m3 j
42. end if
    
43. filename = ShowFileList("./"&list&"/")
    
44. if filename = "NO" then
      }3 L# ^/ M6 \$ C
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    ( a2 o9 v- x0 w- }
46. Response.End()
    ! }) [& q) i+ l  r8 }
47. end if
    4 s+ M) a) {6 @5 w- W7 l' r
48. if filename = "" then
    ( \9 ~: O  w2 f& P! x
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    
50. Response.End()
    
51. end if
    5 V; V1 O& M5 L# X
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    " G# @1 m6 v, l, u0 s
54. filename = "erro.gif"
    
55. end if
    
56. address = AllPath&list&"/"
    9 a  Z. v0 A# I- c
57. address = address&filename
    ' a) x! o- w. E. V/ H( H% ^
58. %>
    $ x( }8 d8 u, S; @
59. <%Response.redirect(address)%>
    . Z+ j+ z% y' |& c$ C3 [
60. 把這段代碼保存為im.asp
    
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

[ 本帖最後由 tcbxh2008 於 2007-6-3 16:47 編輯 ]

呵呵，這個玩過的哦，不錯的`

看看