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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   & z: E- C3 `; C" M* p( C/ D$ r
2. <%
   
3. Function AllPath()
   ! N8 d' A2 F/ {2 w6 m
4. Dim Domain,GFilePath
   $ v2 N" I" w# t* j' d; b
5. Domain = Request.ServerVariables("SERVER_NAME")
   
6. GFilePath = Request.ServerVariables("PATH_INFO")
   
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   , ~  b3 Q) M5 h3 f/ O( R  W
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   
9. End Function
   1 j7 U4 |, C. w7 R: N
10. Function ShowFileList(folderspec)
    # O$ k( \+ L# `+ `, M, q: ~
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    
12. Path = Server.MapPath(folderspec)
    
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    4 a+ D/ v8 }* t' K  X9 Z
14. If objFSO.FolderExists(Path) Then
    
15. Set objFolder = objFSO.GetFolder(Path)
    
16. count = 0
    
17. For Each objFile in objFolder.Files
    
18. count = count+1
    " D- i- q$ V! [& I' k6 Q* x. ], Y
19. Next
    
20. randomize
    
21. nume = Int((count*rnd)+1)
    
22. S = 0
    ' l0 A4 @. n: V4 X) z* ?
23. ShowFileList = ""
    4 K6 ~+ x; T/ k7 ?3 E
24. For Each objFile in objFolder.Files
    6 P4 [# E- R  P: o4 l
25. S = S + 1
    
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    
28. Exit For
    
29. End If
    1 w1 n# M  a$ C6 V3 O6 F
30. Next
    
31. Set objFolder = Nothing
    + q8 q( I% J5 b% h4 |7 d1 D. Q& k
32. Else
    
33. ShowFileList = "NO"
    
34. End If
    
35. Set objFSO = Nothing
    & j  @. A, K# n/ Y
36. End Function
    ' I8 @3 G- g. f* @
37. Dim list,filename,address,str
    " p; l, d1 Q6 f6 [
38. list = trim(Request.QueryString("list"))
    
39. if list = "" then
    
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    
41. Response.End()
    
42. end if
    - G2 [4 S$ B! t
43. filename = ShowFileList("./"&list&"/")
    6 x1 y& {: |" J  B
44. if filename = "NO" then
    
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    ) \9 c5 H( `* {- w
46. Response.End()
    / ~+ E  ?: L1 S8 B: Y- X6 S/ _
47. end if
    ' q3 L; l" D# p2 g' I
48. if filename = "" then
    * s* f8 P1 H) U6 I3 o& E' j% L
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    
50. Response.End()
    
51. end if
    % A+ w+ `  h9 K$ M
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    / N  G: H1 B7 g. H& t
54. filename = "erro.gif"
    ) K" }' T6 J+ y& r. N
55. end if
    * r* [) p* n- M& i2 c
56. address = AllPath&list&"/"
    
57. address = address&filename
    1 Q8 u7 g* V( p2 C8 R
58. %>
    
59. <%Response.redirect(address)%>
    3 i" h& j0 ?' W2 V" ]& b( z
60. 把這段代碼保存為im.asp
    
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

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

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

看看