TA的每日心情 | 慵懒 2014-10-21 10:00 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
找到 post_upfile.asp、upfile.asp、z_visual_upfile.asp、NF_visual_upfile.asp、saveannouce_upfile.asp等上传文件(包括所有插件中的上传文件)4 v; o* j; o0 h- R" j
1 G6 V2 O4 P5 f A. ]查找文件中的代码:
* R( W: w [/ Q6 h FileExt=Lcase(File.FileExt)
7 n$ V, S& Y7 d+ y* \8 k '判断文件类型
- }0 ^' D! a J5 U7 ]2 A# N% L/ v If CheckFileExt(FileExt)=false then F# _2 E0 o# b, L- i
Response.write "文件格式不正确,或不能为空 [ 重新上传 ]"
6 L3 g4 G! j; P5 @3 X% t) G EXIT SUB! t+ j, x, |3 v! P) q' L0 }* I: G
End If
/ V1 E5 v' d& Y$ l5 B0 r4 n6 @5 f6 w3 Z2 L& s) ?2 J, c9 ~; N
将其中的
: B- q+ `6 k0 t2 D! uFileExt=Lcase(File.FileExt). Q# X' m- ~6 e K' Y
. u) h) y8 }2 v
替换为下面代码:0 d7 S. Q6 @0 W4 ~, d0 g c
/ L# O9 B, ?1 l7 L7 P9 s4 A# [FileExt=FixName(File.FileExt)- Y( P# N, s( k0 Z: z: d
+ F9 A/ k* S" VformPath= Replace(Replace(formPath,Chr(0),""),".","")
# u& D0 {. M% w( z: P; N% t0 P" s) K2 E: b. p: }( G! K
下面的代码放在asp文件的最后 "%>"前% \# b9 L& S c+ u2 o
Function FixName(UpFileExt)
% ^& @& s8 q3 o# \; B! T: iIf IsEmpty(UpFileExt) Then Exit Function1 R; f* ?+ N- ^7 P5 D+ ?
FixName = Lcase(UpFileExt)
, a. _# [+ Z- Q) O) r* dFixName = Replace(FixName,Chr(0),"")3 D" C/ [, f8 @% {/ m1 q
FixName = Replace(FixName,".","")
6 J( [& b! u C) d4 G) U/ D5 X, iFixName = Replace(FixName,"asp","")+ N( E+ ~3 [/ x, {
FixName = Replace(FixName,"asa","")0 n# i% Q' s- a0 W. \
FixName = Replace(FixName,"aspx",""); H$ r2 ~/ Y' j' A: _1 U
FixName = Replace(FixName,"cer","")8 f+ w2 o6 R6 q: `
FixName = Replace(FixName,"cdx","")1 D7 T: p t' X4 m9 ] v) R+ ^
FixName = Replace(FixName,"htr","")$ c* T1 K0 j" D$ b0 R
FixName = Replace(FixName,"php","")* L4 }& M7 T5 M5 r" h
End Function
8 K5 \1 ^" {% Z
. h; F/ g4 u' y0 r
* u2 u b7 C: p5 l |
|