刷一次变一次图的ASP代码

刷一次变一次图的ASP代码
( U4 _0 s: B* J" C3 f( f5 [; e9 U% G
: ]1 c9 f" |! f; W
8 I& a2 m* Q- m* T+ f3 F4 ~
' n- O  N% `/ j  P' I4 l

( p, L8 r" B1 B%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
% `2 U( X' Q9 L- d1 @' x
# p* i& o* c9 |5 X% : T& q- [* X, f% Z* T
) o3 i8 T3 P$ Q
---------------------------------------------------------------------------------------- & I; h2 y' q4 @; ~, r5 V9 }
9 i% V8 E. {5 d
转发时请保留松?餍畔?这段声明不并会影响你的显示速度!
% @3 u$ k! ~9 N* t; V& i/ B  s/ V" I' _+ D9 @% j/ p  }4 i7 s9 E5 ^
************************* 随机图片显示 **************************** . l: s3 f6 l, z. J
" W- l4 P- Z- v% [
使用实例:img.asp?list=图片存放目录 ! _3 N' R9 W  D1 _" n3 [* d# b

2 I7 G( u5 z3 g9 O' }# r 使用注意:图片目录放于本文件同目录下!需要FSO支持! 9 W/ D3 O1 Z2 a8 f
6 J9 A2 |$ [( W/ D3 K' J* R2 b
说明：只要将变化图片放于一个目录下，修改下面程序的（需要修改的地方）成你的目录名称！ 7 c+ x1 M# c3 v. @4 _! Q" d
& b8 w3 ]/ _& e) Y
  上传本程序和图片文件夹到同一目录下，在发帖时候使用UBB代码形如：即可！
3 f. N* |% `1 {
8 E9 P+ j# V0 i% d3 T8 s3 e' ~ ---------------------------------------------------------------------------------------- % }$ Q0 H6 E- w
5 ?7 |/ c# I) A# `# z: g) }/ g1 T
Function AllPath() * i5 Y: o' m4 m( ^) D+ h
. {5 S; X+ Q* q3 k  w) K) F
  Dim Domain,GFilePath / T* G/ d/ s/ t( w6 a

8 X, U0 s- R3 ]  W  Domain = Request.ServerVariables("SERVER_NAME")
# ]1 g# j; F. V2 B
  O" [4 x. W9 n- t  D+ v  GFilePath = Request.ServerVariables("PATH_INFO") % S2 _. s/ D. M) F4 `* Q2 I

7 d1 y' E( {. A& N- A# C, I+ {  GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/"))) 6 X: c: ~8 O, ^% \6 ~! J

8 D- i- t. c  m, w  AllPath = "http://"DomainGFilePath
1 x% z  a( y! F+ P  e/ k# H1 f7 r* S1 X% y
End Function ) A8 d6 j# G1 Y3 f% Y

, p) W, V, q* L  - i* S; `1 v' |) L; L* H3 `3 D1 `4 ~
- v' b  A' f; a: q
Function ShowFileList(folderspec)
& T$ a% E- }2 y- a4 o4 X9 K* W2 I/ q% Y0 l3 v
  Dim Path,objFSO,objFolder,count,objFile,nume,S / ]) j3 T. F- E7 m4 f+ P  G

9 e! Y; H$ q1 x9 Y+ N9 U  Path = Server.MapPath(folderspec) ( K, q5 T' `9 C4 E' N0 l) c

8 o3 o$ _# \  M9 {  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  s+ j4 k6 m) M
% _# Q; a; ^( W8 b8 q  If objFSO.FolderExists(Path) Then
1 U7 t: k1 L+ ]6 e6 v: |/ n- Z: f! Y5 F- h5 ?( n9 Q. P( P; o4 t
  Set objFolder = objFSO.GetFolder(Path) + B5 I  N3 D( y5 L
; l( ^6 w" A9 s2 ~) k/ V; U4 `
  count = 0 . G5 u  Q0 C5 g, @3 q' d5 v
+ z# o0 A) J) x% c) C3 M) U
  For Each objFile in objFolder.Files
0 `2 |4 F; ?& ^$ W
5 ^8 s/ b4 B8 P3 c5 X  count = count 1 7 _% B/ h/ v" e3 w  v: f

2 m) l% D* x& h  Next
, V# O  \: ?* k
/ F8 A4 I8 \' j5 V# z3 e( N  randomize 4 d3 N+ w  o6 F
) {" p- m# Q! w5 A
  nume = Int((count*rnd) 1) ! G0 H" c" K5 [) V2 t" n) j; U( Q  Q+ E
) \3 _( }6 |% {# x! \  h8 p7 c
  S = 0
* e. ?$ P& N- q. I: i" b, f; s6 q! A  O
  ShowFileList = ""
4 D# c5 |8 ?6 |8 Y* ]
7 U. V( S, ^" J- x* t+ \# V; ^% H  For Each objFile in objFolder.Files 8 d% x/ t& r  a5 @# b
8 z, ^7 j8 ]6 L) g" Q; k* W
  S = S   1
: l0 q# ?6 W$ k8 s8 Q4 [
# A4 a2 d2 s; J/ Z+ o7 i: j" h  If S = nume Then
2 I, \4 M/ q4 ?& ~! p! ]
6 ?9 x/ q& `+ L1 _% P. G  ShowFileList = objFile.Name : M2 y! o1 E* W: U* v( b4 \

: \* k% l3 m) y8 ~! P  Exit For / {/ A, c9 l' i: x, O5 y/ g

' f/ `' H; _* Z; _. O  End If
0 v6 [) w- `& L, E/ n& B! n" u& r8 k
  Next
0 G2 s7 @' v3 l3 n& U+ P$ b
8 @9 h1 O( i" s  ~: ~$ T  Set objFolder = Nothing
8 b! ?; U# N1 w3 K5 v$ ?% z2 T4 y5 l( b- ^* J; U
  Else 3 s; |( [) @; s# K6 A: ]* P

/ K% \2 p, x0 @* ^3 d  ShowFileList = "NO" / O4 x) E( C( x. x' E
8 G% A3 |: G0 N) X
  End If . f, \) ]+ {  ~( _" n3 T4 }8 X
1 a  ?2 B  Q( T- q$ g
  Set objFSO = Nothing
) n: c: Q3 i; ?. u1 X0 P% R
3 a) U1 m8 I, @End Function
1 q3 |; ?% F4 w1 P. |
0 A$ i1 ]& g, s% t' G) b" L6 G    N$ v  y. j2 s

& B' z6 y+ X& z$ g0 L- I9 Y+ tDim list,filename,address,str ( D0 Y; b$ y4 ^- p

3 `+ E# T; ~: E2 P( @; _7 j/ g  " k% w! `" t" n) T1 r

/ [4 D0 ^/ Q& ~- q0 K6 elist = trim(Request.QueryString("list"))
1 l3 i) K6 M& q4 S/ z1 n6 L8 o. S3 t/ \" m/ p
if list = "" then
+ }4 N/ s, q' G9 N% n$ _# R6 F4 @* n$ d
  Response.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："AllPath"img.asp?list=（需要修改的地方）" , }- Q- F  c; D, u% v

4 o% y2 [/ K  e  U9 L! T& U* g, \  Response.End()
5 n! P2 Z% @* F7 `4 `
5 t% O, U( R6 {+ `  C# ~- o4 _6 wend if
, |4 S' v) d& c# ]+ c
3 t" l5 X+ [/ q  @) }4 A5 o) i  ; d; w% A& Y( a

; V. ~- O. u  |0 p6 C# mfilename = ShowFileList("./"list"/")
0 P. |' `) T5 Y/ X4 {& g! D/ \0 M! }. U9 \; e( |3 P
if filename = "NO" then . E& D8 y) ~4 q. P5 \, P
) r$ u2 c: ?' V  P  j1 r8 |
  Response.write "您指定的目录b"list"/b不存在，请重新指定！"
7 J; @% b( z2 `3 @) v2 n9 m0 I- h9 w, n
  Response.End() ! e2 O) v" ?8 r% g

) I7 Z9 P! i2 _; U. y, ?9 Lend if
$ ]; L: Q6 G  x* T) l6 m) U+ F' Z
: \2 U) ~/ C' T8 I& h9 a5 F; A6 Q$ J  
- H4 @' L0 d, Y+ C
1 S- O/ c6 i  f/ l, A1 F$ n3 Mif filename = "" then $ O9 m% R0 e7 g! o; X. |

; M: m# H3 ^! R! x7 t  Response.write "您指定的目录b"list"/b没有相关的图片文件存在，请重新指定！" 5 z$ S9 u1 o( W7 \0 ^

+ M# d$ K3 V  l; V  Response.End()
) Z. P# A2 t6 M' h8 {- `7 M; p3 ?
: |# o) h0 {9 {& mend if 2 ~1 K* Z5 w1 B6 y
- q+ Q% g! K, f% b
    X- X( K7 Z6 G1 |5 P" I9 t
8 k% d% ?5 }) f+ G: s! m1 Y! X& D
str = right(filename,3) # J. N( ^( L) R' p/ G

8 K8 Z) U4 ?7 `. Aif str"jpg" and str"gif" then : V: b+ y( ]7 S' c$ @, t& V% d
1 N( K8 t$ }7 N
filename = "erro.gif"
6 Z3 h- o, {) V0 K$ ?8 F; s) Q5 Z4 q( B6 G' T- C
end if 1 _) X1 S0 G0 X+ G3 ~. Z

& F3 {% {0 T9 L( a: ]* L$ b  
0 w7 o$ C" N3 l+ Q& B6 X: M  g. v+ A" F6 c! ]
address = AllPathlist"/" / s' z9 ]2 c% ]
! E4 K3 A3 O1 v0 O; J% f
address = addressfilename
  F$ ^% e, t" h, v# c! |* J0 }7 z+ v" I5 o8 E: C6 c
%
( F9 b( D5 r  D' [. c* e! n, @$ `6 r( O* H* H7 ?# i
%Response.redirect(address)%
1 Q* m9 o2 z6 F, y
7 W/ s! r0 H: B0 V2 n/ n , ~( i5 D2 ]3 }
1 i9 n( [. a5 F# y! }/ m
/ I: G) [; Y( f) B9 o

6 X0 ]- y( _7 M- c