asp文件二次上传漏洞_asp漏洞 admin editor_表单多文件上传

修补upfile.asp上传漏洞

ASP文件相关的一些函数。有以下几个：

1. 得到文件扩展名

2. ASP上传文件漏洞检测

3. 格式化显示文件大小

4. asp检测上传图片是否为真实图片

5. 上传文件扩展名检测

6. 取得文件对应的图标

7. 下载文件等相关函数

程序代码：

<%

’*******************************************************

’作 用: 得到文件扩展名

’函数名: GetFileExt(fileTrue)

’参 数: sFileName 文件名

’返回值: 返回文件扩展名

’*******************************************************

function GetFileExt(sFileName)

GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, “.”)+1)) ’下面有附

End function

’*******************************************************

’作 用: ASP上传漏洞 “″ 防范

’函数名: TrueStr(fileTrue)

’参 数: sFileName 文件名

’返回值: 合法文件返回 True ,否则返回False

’*******************************************************

function IsTrueFileName(sFileName)

dim str_len,pos

str_len=len(sFileName)

pos=Instr(sFileName,chr(0))

If pos=0 or pos=str_len then

IsTrueFileName = true

else

IsTrueFileName = false

End If

End function

’*******************************************************

’作 用: 检测上传的图片文件(jpeg,gif,bmp,png)是否真的为图片

’函数名: TrueStr(fileTrue)

’参 数: sFileName 文件名(此处文件名是文件夹的物理全路径)

’返回值: 确实为图片文件则返回 True ,否则返回False

’*******************************************************

function IsImgFile(sFileName)

const adTypeBinary=1

dim return

dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)

dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)

dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)

dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-52876-1.html