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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   
2. <%
   5 }+ J+ [6 b( i$ _
3. Function AllPath()
   
4. Dim Domain,GFilePath
   
5. Domain = Request.ServerVariables("SERVER_NAME")
   
6. GFilePath = Request.ServerVariables("PATH_INFO")
   / N# {, x" D3 H% o  k! g4 j
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
   
10. Function ShowFileList(folderspec)
    
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
    . Z# a4 y+ d7 d( E
12. Path = Server.MapPath(folderspec)
    ( r6 h9 t5 G7 E
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    & m+ B+ g$ c  s. G. j
14. If objFSO.FolderExists(Path) Then
    
15. Set objFolder = objFSO.GetFolder(Path)
    0 Q6 Y/ |; @' W/ m7 r4 Q
16. count = 0
    
17. For Each objFile in objFolder.Files
      L& h" s/ c% a
18. count = count+1
      E. [$ }/ c0 v! S0 _
19. Next
    
20. randomize
    / b1 c. C5 x: V5 C3 Y0 e
21. nume = Int((count*rnd)+1)
    3 h* O) Y. M9 o9 |' X# O! h2 e5 y
22. S = 0
    
23. ShowFileList = ""
    
24. For Each objFile in objFolder.Files
    7 U$ d3 w" D  l
25. S = S + 1
    
26. If S = nume Then
    
27. ShowFileList = objFile.Name
    
28. Exit For
    . E% h- s. r0 s2 l( q. P/ Q: h3 M7 S
29. End If
    " t: p) \( }  l; P" u8 P
30. Next
    0 I( t! o: R5 ^; s# x
31. Set objFolder = Nothing
    
32. Else
      x: @3 A" N3 r4 C3 Q0 c$ b
33. ShowFileList = "NO"
    # v9 T4 ]( [+ k- p  ?
34. End If
    2 x. J( _! [  J$ T* n1 J9 ~4 J
35. Set objFSO = Nothing
    
36. End Function
    % a  v4 @+ B: y$ r* t
37. Dim list,filename,address,str
    9 ^6 Y& O+ g; _
38. list = trim(Request.QueryString("list"))
    
39. if list = "" then
    " ?$ G2 c  Y1 ^+ J
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    
41. Response.End()
    . f, K+ ~, l1 A! y6 G
42. end if
    
43. filename = ShowFileList("./"&list&"/")
    
44. if filename = "NO" then
    & ]4 X1 G! A2 k. s
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    
46. Response.End()
    ' E4 p  k! b2 i% z, K8 K
47. end if
    : B. h8 L+ Z" [9 X
48. if filename = "" then
    
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    
50. Response.End()
    
51. end if
    ' n& U- C( M  Z4 G) Q& W) O: K
52. str = right(filename,3)
    
53. if str<>"jpg" and str<>"gif" then
    
54. filename = "erro.gif"
    2 E! [# F5 d2 X; E
55. end if
    
56. address = AllPath&list&"/"
    , g+ ]6 P0 y/ }. N+ O2 y5 W
57. address = address&filename
    
58. %>
    + @3 M8 m) f, \+ y  l6 L
59. <%Response.redirect(address)%>
    0 Q* G! _' j. `, w' P( e
60. 把這段代碼保存為im.asp
    
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

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

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

看看