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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   
2. <%
   ( W' m- B! l' C! `" p
3. Function AllPath()
   
4. Dim Domain,GFilePath
   
5. Domain = Request.ServerVariables("SERVER_NAME")
   - ~% c0 Q$ u3 s% G5 T. Z
6. GFilePath = Request.ServerVariables("PATH_INFO")
   
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   " j0 J) M4 N  Q! \! @
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   . R! u* n1 I. v
9. End Function
   
10. Function ShowFileList(folderspec)
      \  O  x8 E8 m2 ?+ A
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    + o( q* t* c3 ?9 L3 \3 v
12. Path = Server.MapPath(folderspec)
    - p. n: e. X, d' c; E0 l
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    ( p9 U0 K3 I: `
14. If objFSO.FolderExists(Path) Then
    / {$ C3 q& T( Q4 T8 b
15. Set objFolder = objFSO.GetFolder(Path)
    7 Z" e9 s0 D7 l
16. count = 0
    , K+ `) p$ E9 d: J7 i
17. For Each objFile in objFolder.Files
    
18. count = count+1
    
19. Next
    
20. randomize
    
21. nume = Int((count*rnd)+1)
    : x; s( n: V3 g- M2 m( |% f* d
22. S = 0
    
23. ShowFileList = ""
    ' Z( V3 T+ ]  \" a% G
24. For Each objFile in objFolder.Files
    
25. S = S + 1
    
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    
28. Exit For
    . d3 G; Q$ v: u& S6 }  r7 a; U
29. End If
    
30. Next
    # w+ x  S$ B* w* f. O# x
31. Set objFolder = Nothing
    3 G5 ^$ k. i. E) g9 g# }
32. Else
    
33. ShowFileList = "NO"
    $ b+ `0 o2 J$ v9 g+ j
34. End If
    
35. Set objFSO = Nothing
    
36. End Function
    % Z1 A! o, R/ N+ [( H
37. Dim list,filename,address,str
    
38. list = trim(Request.QueryString("list"))
    
39. if list = "" then
    ! w/ V9 p; ]" n- r$ h2 i1 I
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    ! n+ E- P4 \' g9 H
41. Response.End()
    
42. end if
    : T: C) S5 g. I# |. h4 m
43. filename = ShowFileList("./"&list&"/")
    
44. if filename = "NO" then
    
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    
46. Response.End()
    * |: G6 F3 ~. \
47. end if
    
48. if filename = "" then
    
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    / P9 V9 `6 x; y0 G0 S1 G6 E6 ]
50. Response.End()
    ( e0 Q9 v# j3 o
51. end if
    1 D4 A) O+ Q! |/ H
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    
54. filename = "erro.gif"
    & A0 x) `6 V; G7 x0 q
55. end if
    / ?. q: a5 ^( J% A
56. address = AllPath&list&"/"
    2 m  D( A+ M; m* `
57. address = address&filename
    
58. %>
    % P, }+ A8 P. F
59. <%Response.redirect(address)%>
    
60. 把這段代碼保存為im.asp
    % y: _0 |% J5 k7 p( Z1 q4 v
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

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

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

看看