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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   
2. <%
   6 p' v8 c2 a! E, w5 E7 q1 x4 O
3. Function AllPath()
   9 Q# o' |: Q- E$ g# V6 L
4. Dim Domain,GFilePath
   ! K8 p, C6 w# w( \2 [
5. Domain = Request.ServerVariables("SERVER_NAME")
   2 W" o# p& }$ Q9 }
6. GFilePath = Request.ServerVariables("PATH_INFO")
   * N( y& B8 `) [$ U/ c( ?& g
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   . Z0 h  x+ x6 c/ J- D; d- I
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   
9. End Function
   ) I$ N8 _- n5 O5 G1 @5 V: c2 |& U
10. Function ShowFileList(folderspec)
    ; p, U3 o" E* }2 [
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    8 N+ S. }+ F) H8 A- t/ K
12. Path = Server.MapPath(folderspec)
    & W9 J% _6 M' M& W8 W
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    
14. If objFSO.FolderExists(Path) Then
      v! r" p# |" @/ ~, k( D+ R. f
15. Set objFolder = objFSO.GetFolder(Path)
    
16. count = 0
    
17. For Each objFile in objFolder.Files
    
18. count = count+1
    
19. Next
    
20. randomize
    2 P2 O& |- J/ i7 C, U
21. nume = Int((count*rnd)+1)
    4 I  n/ H  E. _2 s+ v  ?
22. S = 0
    
23. ShowFileList = ""
    6 Q4 U" P0 x2 M/ C9 i2 Q- R2 L" n
24. For Each objFile in objFolder.Files
    ( @1 F7 c! m1 D$ T2 \- [9 }1 c7 d5 ?
25. S = S + 1
    
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    / I( Q5 R' q& U- q$ D' ]
28. Exit For
    
29. End If
    * L+ w) ~9 K" m/ m; E$ I
30. Next
    ' S; H! x2 d5 k
31. Set objFolder = Nothing
    , J! F0 @6 d6 s* E, ~) t) e- V
32. Else
    3 T- H& ~6 p; s( `* m4 o( w6 L1 a
33. ShowFileList = "NO"
    " e6 l" m6 @/ O0 ^
34. End If
    # u/ [9 C) V& ~
35. Set objFSO = Nothing
    
36. End Function
    0 M! E( l( k8 j- O8 S
37. Dim list,filename,address,str
    
38. list = trim(Request.QueryString("list"))
    . b- j! E; Y9 s$ v. S
39. if list = "" then
    
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    # v: N8 M% \, c. h# z" c" O
41. Response.End()
    ; |; W2 O$ y% e7 Y
42. end if
    
43. filename = ShowFileList("./"&list&"/")
    
44. if filename = "NO" then
    
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    
46. Response.End()
    . B- N6 X1 W) G6 ^% d: d: G& W
47. end if
    
48. if filename = "" then
    ) ~9 A/ a% J% x6 Z* Q' m& a4 T, J
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
      ]. P: w9 z8 a8 A& C) M
50. Response.End()
    1 Y5 t: g1 P- e! G+ x. n
51. end if
    
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    
54. filename = "erro.gif"
    8 P: h/ |: E6 |0 V) u
55. end if
    
56. address = AllPath&list&"/"
    1 }' A' h/ `# \' v/ Y& ~! s
57. address = address&filename
    + G2 f; [; O- O
58. %>
    
59. <%Response.redirect(address)%>
    # e& ~$ h* L5 E6 X2 O( y) v9 s
60. 把這段代碼保存為im.asp
    3 F0 [7 U' i3 ^- H  u. g5 i+ j& y
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

( a7 U8 y/ {# U, j: N, m% c$ i[ 本帖最後由 tcbxh2008 於 2007-6-3 16:47 編輯 ]

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

看看