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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   ) K5 |# c6 v3 H* D$ O4 e2 @
2. <%
   , @/ n3 Z+ I' H" m5 N# S% T! W+ M$ q2 s
3. Function AllPath()
   
4. Dim Domain,GFilePath
   ; f' w# h+ G% C8 g2 p4 a7 V
5. Domain = Request.ServerVariables("SERVER_NAME")
   
6. GFilePath = Request.ServerVariables("PATH_INFO")
   
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   ' s) q. q5 _4 l4 m7 C8 g" L- z2 G
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   6 S+ i1 Z) A! I- [
9. End Function
   : K2 ]& {9 J7 k! z
10. Function ShowFileList(folderspec)
    7 [- M$ B& z6 K8 S
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    
12. Path = Server.MapPath(folderspec)
    ( w9 i" h1 G6 Y; R' ^! o' F
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    . Z- z9 z  X4 y
14. If objFSO.FolderExists(Path) Then
    
15. Set objFolder = objFSO.GetFolder(Path)
    7 I/ t# W& q- V- [% s7 C
16. count = 0
    
17. For Each objFile in objFolder.Files
    
18. count = count+1
    
19. Next
    + f3 b3 U& k2 j% U$ O
20. randomize
    ! Z8 R2 Y. P5 k2 _# h
21. nume = Int((count*rnd)+1)
    ( K. R) o% k3 y$ J5 d
22. S = 0
    5 z) G, M" I, i$ K$ d
23. ShowFileList = ""
    9 L2 j" W+ y3 k; }( \
24. For Each objFile in objFolder.Files
    
25. S = S + 1
    ; J3 u$ B3 Q$ V' |' k
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    2 _7 B9 n: z. A# e  g$ Q6 R
28. Exit For
    
29. End If
    / |' ]  E6 W& l8 g
30. Next
    
31. Set objFolder = Nothing
    5 ^# u/ R& F$ E4 A
32. Else
    9 U# E: W+ b' V% {* ^3 j
33. ShowFileList = "NO"
    , _! R( b- C% g4 z7 x0 u1 W
34. End If
    % r* I5 z) G" U' {0 M
35. Set objFSO = Nothing
    
36. End Function
    
37. Dim list,filename,address,str
    
38. list = trim(Request.QueryString("list"))
    + Y- a  p9 U4 r0 h  ^! f; A
39. if list = "" then
    
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    
41. Response.End()
    0 g4 @% ~5 W3 J* ~
42. end if
    
43. filename = ShowFileList("./"&list&"/")
    / O) t2 A. l6 F
44. if filename = "NO" then
      b+ t! r4 I+ c$ D/ \4 t; ]6 N
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    
46. Response.End()
    # n, E# l$ e- o& ^
47. end if
    
48. if filename = "" then
    ( h* B! r; p6 w) O& w
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    
50. Response.End()
    * p- ~7 P, W) q- |8 @1 l
51. end if
    
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    
54. filename = "erro.gif"
    # Y) ]3 V4 l7 m5 ~# K% ?
55. end if
    % L; {) L2 c6 S5 ]. u
56. address = AllPath&list&"/"
    
57. address = address&filename
    
58. %>
    7 s0 I9 N$ k; d* S
59. <%Response.redirect(address)%>
    % H& k3 F& u. C3 f' D' F4 ?' K
60. 把這段代碼保存為im.asp
    
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

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

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

看看