过期域名预定抢注

 找回密碼
 免费注册

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

[複製鏈接]
發表於 2007-6-3 16:44:33 | 顯示全部樓層 |閱讀模式
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> : h( A5 P; ]9 m% s, U! T( O
  2. <% 4 D, c9 y1 C% @  S! e# ?5 t) t0 E
  3. Function AllPath() ! r# h) o' }2 M' j) r
  4. Dim Domain,GFilePath 3 W1 I+ {: e) Q% D8 C3 q
  5. Domain = Request.ServerVariables("SERVER_NAME") 4 w5 f# ^& Z& i% O
  6. GFilePath = Request.ServerVariables("PATH_INFO") 0 a: Q9 y5 i- y, Z2 C6 A/ w
  7. GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))   I/ p6 ?  B/ }4 U
  8. AllPath = "http://www.w16888.com/" //唯一需要修改的地方,你的圖片目錄如果是在http://xxxx/myfile/angie/pic,這裡就寫http://xxx.com/myfile/angie/ ;
    . B! F/ y5 D. Q6 E' A: e: i* s5 T5 T0 m
  9. End Function
    # ~( d% h4 f& E: w* M
  10. Function ShowFileList(folderspec) / N! t  j8 z( h7 Q/ e
  11. Dim Path,objFSO,objFolder,count,objFile,nume,S 2 M. K; D/ e3 F9 N- y3 o
  12. Path = Server.MapPath(folderspec)
    8 t9 U2 K; D2 z" ^& n. Z
  13. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    9 e' B: U& S& w; `/ f
  14. If objFSO.FolderExists(Path) Then 9 F' U* N* z2 B) g/ f% v
  15. Set objFolder = objFSO.GetFolder(Path)
    4 C$ g: n5 P' {
  16. count = 0 & f. ~2 T8 ~; m& k: b9 ?
  17. For Each objFile in objFolder.Files & A( J* C/ q# p  a& h) H. f
  18. count = count+1 ' ]' Z* s! t3 P
  19. Next
    8 y, e7 X, }$ ?: W3 Q
  20. randomize ; j. ?+ U& ^5 N7 W4 l+ l# P
  21. nume = Int((count*rnd)+1)
    8 a6 j% z$ p6 s6 \2 M# e* L
  22. S = 0 7 Y$ ~4 e9 @, l3 I) e$ E+ ^3 x
  23. ShowFileList = "" - E$ _+ v" ^3 f  {2 \/ G: F
  24. For Each objFile in objFolder.Files ' j1 Z* M3 C: d3 e7 B5 [0 o+ i  s
  25. S = S + 1 ' E+ I7 C4 }( r% P9 H! k5 g
  26. If S = nume Then " u' g7 t+ @' l: r3 a/ u
  27. ShowFileList = objFile.Name . B/ u# K: ]9 @/ `0 O
  28. Exit For
    5 k% q  T/ U4 ~3 Y' ?- k
  29. End If . [4 A: M$ `3 \  Y% @1 H- ^
  30. Next 3 m, z  z; c. s
  31. Set objFolder = Nothing ! e, {% d! }3 y6 y1 G/ E, R
  32. Else , A3 q. t1 x& z( V# o
  33. ShowFileList = "NO"
    ! B9 o7 `5 y, k- |6 b0 a3 T
  34. End If 8 |2 u0 y8 _  ~; u$ }
  35. Set objFSO = Nothing
    # I! F: [' j; s
  36. End Function : F; Q2 [6 g+ f) a5 ?+ F) w
  37. Dim list,filename,address,str + `6 {% _& w: Z$ N
  38. list = trim(Request.QueryString("list"))
    7 d- R+ O* L5 j% A4 r; J
  39. if list = "" then
    # {$ q& U+ D0 ]* n
  40. Response.write "本頁需要正確參數引入,您缺少相關的參數!正確格式如下:"&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
    4 c( a8 S  i, Q* L0 @+ S* Y
  41. Response.End() ( ], x' h2 h+ {
  42. end if % D5 G4 {, `3 ^: B
  43. filename = ShowFileList("./"&list&"/")
    / S  o/ d1 @% A) Q' j1 e( a4 j
  44. if filename = "NO" then & e& t. I2 b4 _/ ^; x
  45. Response.write "您指定的目錄<b>"&list&"</b>不存在,請重新指定!" ! \+ r# K, J( q5 A
  46. Response.End() # ^2 x4 w9 a3 N2 H- M8 a2 d
  47. end if ( g  ?2 Z4 n% z2 e% T
  48. if filename = "" then & D2 R9 h' J2 e3 ~: {
  49. Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在,請重新指定!" 0 T, I* h8 X3 i& ~; W. U
  50. Response.End()
    4 x& S( T, `9 g6 U. j8 a6 }# C
  51. end if
    7 w: f) Z; f% U# Z
  52. str = right(filename,3)
    ( M6 \$ s9 @* A1 r+ v# t
  53. if str<>"jpg" and str<>"gif" then ( ]/ V1 W2 r  ~5 [6 H
  54. filename = "erro.gif" 7 f7 ~/ k+ @8 p1 N$ H+ ]6 X  {! y
  55. end if
    8 B0 W) _3 I5 K) Q+ {- x# V
  56. address = AllPath&list&"/" 1 G* N0 a8 D, K
  57. address = address&filename 0 f- }4 P1 z2 h, l& e7 O
  58. %>
    4 r) T9 D  t6 Q7 L: ^" o
  59. <%Response.redirect(address)%> 0 A, Z) ~7 }$ B! S5 U/ z
  60. 把這段代碼保存為im.asp% w+ b2 y3 k0 w& b+ q, o% y; V
  61. 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演
複製代碼

) k7 N7 |' d% K" W; I$ g[ 本帖最後由 tcbxh2008 於 2007-6-3 16:47 編輯 ]
發表於 2007-6-9 21:55:56 | 顯示全部樓層
呵呵,這個玩過的哦,不錯的`
回復 给力 爆菊

使用道具 舉報

發表於 2007-7-30 13:07:24 | 顯示全部樓層
看看
回復 给力 爆菊

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 免费注册

本版積分規則

过期高净值品牌域名预定抢注

4um點基跨境網編創業社區

GMT+8, 2024-10-31 05:35

By DZ X3.5

小黑屋

快速回復 返回頂部 返回列表