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等上传文件(包括所有插件中的上传文件)
2 Z# ]9 ]8 _& T; z' a, N
& r' g& J. R" P) t. V# v查找文件中的代码:
+ d4 K( _) Z& U. X8 K FileExt=Lcase(File.FileExt)
1 ?. c$ h2 j0 @( g6 p; \ '判断文件类型
' W' n& r( W# M, `" i; _! U If CheckFileExt(FileExt)=false then0 I5 W" e* w! N$ ?
Response.write "文件格式不正确,或不能为空 [ 重新上传 ]"( m; o- ?& B2 T4 m3 F+ K
EXIT SUB
k+ |3 H4 L. k9 U1 M4 |7 y End If/ n% L7 @( b$ H2 g2 P
) Z/ A7 b I& Y* d) X将其中的
& B9 J: Q2 b: ^9 ]FileExt=Lcase(File.FileExt)
0 I6 Q0 f# D% F6 h. z) @; ~
# W; {+ ^) Z5 f+ g; I/ V- K$ W替换为下面代码:! z4 C4 [1 C- Q# p5 [3 l- A
5 `& n4 T0 @7 {3 p2 o
FileExt=FixName(File.FileExt)
# h& M! y! \3 U! t) n* v3 ~- L L3 q8 ]6 v& p- c
formPath= Replace(Replace(formPath,Chr(0),""),".","")% f& I; F+ i* W; f
9 k. y+ t+ Y U5 D5 i
下面的代码放在asp文件的最后 "%>"前# O9 \3 u5 \9 \ @/ T
Function FixName(UpFileExt)
$ t! E" s2 k2 ~6 QIf IsEmpty(UpFileExt) Then Exit Function
7 K$ j9 e4 C$ LFixName = Lcase(UpFileExt)
; u1 Y( W( F( z9 b+ T+ dFixName = Replace(FixName,Chr(0),"")3 D6 O; b# K0 L8 [
FixName = Replace(FixName,".","")
. e$ L6 {; E2 c0 r3 Y8 |; nFixName = Replace(FixName,"asp","")
: ]3 H" R4 ?0 DFixName = Replace(FixName,"asa","")
7 B+ H1 r9 j/ N A1 R- Y3 CFixName = Replace(FixName,"aspx","")
- K: ?0 T# X; B2 {9 yFixName = Replace(FixName,"cer","")
- L* i& v' v! p$ I! S( Z9 v! _$ sFixName = Replace(FixName,"cdx","")
5 v. N$ n7 F- Z, |( s( T: [FixName = Replace(FixName,"htr","")
) i% x0 I7 ]1 u2 e: G FixName = Replace(FixName,"php","")
# X* L- ]' E- ^: v( ^; x5 |' Q% Q6 PEnd Function
& a8 V6 Q5 ]) u! i0 o3 q, \. o$ I- D. z9 k. K* F2 S, Y" }
" c* C: C, c! Z# @& y8 v3 ? |
|