gusucode.com > 爱美尔女性商城源码 1.0源码程序 > BJXupfile.asp
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <!--#include file="upload.inc"--> <% Set Upload = New UpFile_Class ''建立上传对象 Upload.InceptFileType = "gif,jpg,bmp,jpeg,png" '上传类型限制 Upload.MaxSize = 10240000 '限制大小 Upload.GetDate() '取得上传数据 If Upload.Err > 0 Then Select Case Upload.Err Case 1 : Response.Write "请先选择你要上传的文件 [ <a href=# onclick=history.go(-1)>重新上传</a> ]" Case 2 : Response.Write "图片大小超过了限制 "&Dvbbs.Forum_Setting(56)&"K [ <a href=# onclick=history.go(-1)>重新上传</a> ]" Case 3 : Response.Write "所上传类型不正确 [ <a href=# onclick=history.go(-1)>重新上传</a> ]" End Select Else FormPath=Upload.Form("filepath") For Each FormName in Upload.file ''列出所有上传了的文件 Set File = Upload.File(FormName) ''生成一个文件对象 If File.Filesize<10 Then Response.Write "请先选择你要上传的图片 [ <a href=# onclick=history.go(-1)>重新上传</a> ]" End If FileExt = FixName(File.FileExt) If Not ( CheckFileExt(FileExt) and CheckFileType(File.FileType) ) Then Response.Write "文件格式不正确 [ <a href=# onclick=history.go(-1)>重新上传</a> ]" End If FileName=FormPath&UserFaceName(FileExt) If File.FileSize>0 Then ''如果 FileSize > 0 说明有文件数据 File.SaveToFile Server.mappath(FileName) ''保存文件 response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>" Response.Write "<script language=""javascript"">window.alert(""文件上传成功!请不要修改生成的链接地址!"");window.close();</script>" End If Set File=Nothing Next End If Set Upload=Nothing '判断文件类型是否合格 Private Function CheckFileExt(FileExt) Dim ForumUpload,i ForumUpload="gif,jpg,bmp,jpeg,png" ForumUpload=Split(ForumUpload,",") CheckFileExt=False For i=0 to UBound(ForumUpload) If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then CheckFileExt=True Exit Function End If Next End Function '格式后缀 Function FixName(UpFileExt) If IsEmpty(UpFileExt) Then Exit Function FixName = Lcase(UpFileExt) FixName = Replace(FixName,Chr(0),"") FixName = Replace(FixName,".","") FixName = Replace(FixName,"asp","") FixName = Replace(FixName,"asa","") FixName = Replace(FixName,"aspx","") FixName = Replace(FixName,"cer","") FixName = Replace(FixName,"cdx","") FixName = Replace(FixName,"htr","") End Function '文件名明名 Private Function UserFaceName(FileExt) Randomize RanNum = Int(90000*rnd)+10000 UserFaceName = UserID&Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&RanNum&"."&FileExt End Function '文件Content-Type判断 Private Function CheckFileType(FileType) CheckFileType = False If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True End Function %>