- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
% c) s* N4 H& ~* q! x7 I5 |" q7 d - <%
: O1 G% V9 |( i - Function AllPath() 8 T5 Q" E% Y% L" `
- Dim Domain,GFilePath : }% l1 }$ \1 B4 ^- M
- Domain = Request.ServerVariables("SERVER_NAME") 7 c" }3 Z- Q" N& _) t
- GFilePath = Request.ServerVariables("PATH_INFO")
; c) O# o. i+ V0 i8 ?& R - GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/"))) ( [ k, G- z! i8 x! y
- AllPath = "http://www.w16888.com/" //唯一需要修改的地方，你的圖片目錄如果是在http://xxxx/myfile/angie/pic，這裡就寫http://xxx.com/myfile/angie/ ;
5 p* Z0 H% \: B - End Function $ T$ s) m% ^1 F7 ]
- Function ShowFileList(folderspec) + D( T" |1 m' S" e# {+ G" h
- Dim Path,objFSO,objFolder,count,objFile,nume,S 2 O- Z5 J# Y$ n& t
- Path = Server.MapPath(folderspec) / G, l9 D, }0 }/ V k7 m# @
- Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
" |) I; Y& \2 N( U9 A7 o - If objFSO.FolderExists(Path) Then * J0 V" G7 O6 y5 K
- Set objFolder = objFSO.GetFolder(Path) 3 U$ T, I% U7 J3 s2 m6 S- x- P
- count = 0
8 Z& l+ q/ C& |2 A$ r' U, h, W - For Each objFile in objFolder.Files
/ M9 X( D/ ^6 E- h+ f$ ] - count = count+1 8 X3 l U# O: p! B, Z- m! X1 x
- Next : t' h' T2 A- e4 ^1 ~ C" ?/ d
- randomize
]3 ?. h' O1 l+ B8 Y0 p/ |' s& g( k - nume = Int((count*rnd)+1)
5 t( k$ O6 A+ e9 R7 T' U; V: ? - S = 0
; l, }. Z) s0 Y+ d! l( z9 h - ShowFileList = "" * S$ Q1 M: _, g; v* u) f, h
- For Each objFile in objFolder.Files " f6 [/ E( k+ b
- S = S + 1 7 P' C7 }1 j" m# p) r/ P
- If S = nume Then
5 d. \1 ?1 F, C( z6 X# ^: C9 Z7 f - ShowFileList = objFile.Name
* R. y5 [ E7 b8 K7 U" S. t - Exit For # O5 G4 |4 P: q1 U2 h) S8 y
- End If
7 |' y. K* @: o6 Y7 H" p$ S - Next
0 M1 R3 D' P' I, L9 g! v - Set objFolder = Nothing
|8 ?. @' H) n1 k# R - Else 2 F# z' ]0 H! B/ M2 J2 x& G5 o5 L
- ShowFileList = "NO" 8 L5 `* b5 N9 {5 j" N' \" W( Y
- End If
0 {; w2 ?, U& v1 S4 E - Set objFSO = Nothing
1 z9 ?! h) \# i1 p9 A) `. ^3 D! l - End Function
% v$ A: V4 D( `; f2 T, y+ P - Dim list,filename,address,str
+ p. F0 W) a& e& J5 d - list = trim(Request.QueryString("list"))
1 o3 P1 F% L$ P. v - if list = "" then & K1 ?& c, \# l1 j5 |0 t9 ?2 I; O
- Response.write "本頁需要正確參數引入,您缺少相關的參數！正確格式如下："&AllPath&"xxxxxx.asp?list=xxxxxx.jpg"
0 ^, I1 h/ q* v - Response.End()
5 r, s, L: O/ k6 j' ]8 [ - end if ) a/ b i2 V6 G# Q" d" G; @; L
- filename = ShowFileList("./"&list&"/") & V/ k# ^4 J% T g
- if filename = "NO" then 2 R! a- Q/ k! B
- Response.write "您指定的目錄<b>"&list&"</b>不存在，請重新指定！"
; \/ k6 j/ `; ^: Z5 y8 j% T3 B - Response.End()
; [5 t/ ^+ L9 i7 u3 d1 H0 E' ~ - end if
9 T4 l6 p2 f2 D& ~; g$ j - if filename = "" then 8 K W4 D; g, A7 @/ h
- Response.write "您指定的目錄<b>"&list&"</b>沒有相關的圖片文件存在，請重新指定！"
7 ^; g. \( d2 z+ ` - Response.End() 7 _7 V4 N+ N* ~9 g" }
- end if
$ d! ?+ w% R$ I4 ]7 ]/ i - str = right(filename,3)
' C+ x+ o* j4 k# {% a; | - if str<>"jpg" and str<>"gif" then
8 P% z ~$ Y' X! C3 W7 l) u - filename = "erro.gif" ' s* b9 j, H$ x
- end if
5 v# o, B0 f$ x3 C- t" _! d2 R - address = AllPath&list&"/" 4 H' b( N& F; a1 H, e- I6 T2 S; S
- address = address&filename ( y8 j+ H, R: m
- %> 5 ~- v, h- h- r" @: |1 s/ k
- <%Response.redirect(address)%>
' a, _( W5 ~( J! _ - 把這段代碼保存為im.asp
: s7 d2 r9 w0 l - 把美女圖片放在pic文件夾下,把pic文件夾和im.asp放在網站根目錄下,在瀏覽器裡打開演
' ]9 B- Z* I: ]; H) s[ 本帖最後由 tcbxh2008 於 2007-6-3 16:47 編輯 ] |
|
發表於 2007-6-3 16:44:33
提升卡
沉默卡
变色卡