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

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   9 U# j6 r& }) a8 ^
2. <%
   
3. Function AllPath()
   - l7 W: D- i8 I! P
4. Dim Domain,GFilePath
   0 a& ]) w, f- ], J" j3 k
5. Domain = Request.ServerVariables("SERVER_NAME")
   3 T) L/ O  a* W! q/ y" P2 X
6. GFilePath = Request.ServerVariables("PATH_INFO")
   
7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
   / g7 d( M3 o' \( I1 O( @
8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
   ' I& n6 o. ~3 b' W! y) z5 P
9. End Function
   
10. Function ShowFileList(folderspec)
    
11. Dim Path,objFSO,objFolder,count,objFile,nume,S
      I9 l! X( U. J# F6 @6 s0 q8 s
12. Path = Server.MapPath(folderspec)
    + q4 c- _8 k, f/ \( v; O
13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    
14. If objFSO.FolderExists(Path) Then
    
15. Set objFolder = objFSO.GetFolder(Path)
    ' @* v+ I, ?3 k! o/ i7 z& {
16. count = 0
    " C2 d" K# B( o' i  w( B8 _
17. For Each objFile in objFolder.Files
    
18. count = count+1
    
19. Next
    
20. randomize
    
21. nume = Int((count*rnd)+1)
    - {" ~  z* P, K  j# E
22. S = 0
    ! |9 G3 t! h; W4 i; U
23. ShowFileList = ""
    , j  @" W( f% A2 Z- J
24. For Each objFile in objFolder.Files
    
25. S = S + 1
    9 a. q, K' n' _; U- ^
26. If S = nume Then
    " n% _, V2 U9 H+ W
27. ShowFileList = objFile.Name
    2 u! E$ Q  I+ u7 U* Y5 Q
28. Exit For
    
29. End If
    6 U5 n2 t: ^/ o# p
30. Next
    * T6 u+ ~7 n( w& G. r
31. Set objFolder = Nothing
    
32. Else
    
33. ShowFileList = "NO"
    
34. End If
    1 @% U! H. i+ j) v6 i& a, A, m
35. Set objFSO = Nothing
    
36. End Function
    * n3 X$ `9 {; @7 \
37. Dim list,filename,address,str
    4 p, {- {0 G9 k  p& z' O
38. list = trim(Request.QueryString("list"))
    
39. if list = "" then
    
40. Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    ; p0 V, [2 N& V; X5 ?; B! D. @/ P3 r
41. Response.End()
    : w1 `( i/ w& P0 i7 k9 Z3 P
42. end if
    + d0 `6 h1 N( q+ @- p2 f5 }
43. filename = ShowFileList("./"&list&"/")
    
44. if filename = "NO" then
    
45. Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
    
46. Response.End()
    6 z4 E; ~6 A4 d# q6 _8 O
47. end if
    7 [7 l- G- M. U0 q7 S
48. if filename = "" then
    
49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
    ! k4 i1 i1 p6 k6 p+ \
50. Response.End()
    
51. end if
    6 D* ], Y" z0 u+ \, J# Y; r
52. str = right(filename,3)
    2 M; K6 W' N# L" K+ U: ^
53. if str<>"jpg" and str<>"gif" then
    
54. filename = "erro.gif"
    
55. end if
    
56. address = AllPath&list&"/"
    
57. address = address&filename
    1 a" V4 j* x/ n. c5 A0 W" c, z& R
58. %>
    
59. <%Response.redirect(address)%>
    + [8 Z4 d7 A/ l, a# H
60. 把這段代碼保存為im.asp
    ( B, L& f: x1 P- P: v, o" C0 x
61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演

複製代碼

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

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

看看