上传附件 - ASP技术论坛

ljjlxj

等　级：新手上路
帖　子：5
专家分：0
注　册：2013-3-27
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：4

上传附件

上传附件时文件名为什么不是附件的名称，而是随机生成的数字。
在网上找的代码，刚接触asp，菜鸟一个，帮看看在哪里改代码




<%Server.ScriptTimeOut=999999999%>
<style type="text/css">
body{
margin:0px;
font-family:"verdana";
font-size:12px;
}
table,td{font-family:"verdana";
font-size:12px;}
A:link,A:active,A:visited
{TEXT-DECORATION:none ;Color:#000000
}
INPUT {
    BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
</style>
<%
if Session("UserName")="" Then
response.write "您还没有登陆！"
response.End
end if
dim action
dim mySavePath,myformName
Dim upfilemaxsize,upfileallType
'重新设置
dim GroupInfo
GroupInfo=GetGroupInfo(Session("GroupID"))
upfilemaxsize=clng(GroupInfo(2))  '限制文件大小 KB
upfileallType=GroupInfo(1) '允许上传类型

action=trim(request("action"))
mySavePath=Request.QueryString("SavePath")
myformName=Request.QueryString("formName")
select case action
case "add"
add
case "save"
save
case else
add
end select

sub add
%>
<SCRIPT language=javascript>
function check()
{
    var strFileName=document.form1.FileName.value;
    if (strFileName=="")
    {
        alert("请选择要上传的文件。");
        document.form1.FileName.focus();
        return false;
      }
}
</SCRIPT>
<table>
<form action="?action=save&formName=<%=myformName%>&SavePath=<%=mySavePath%>" method="post" name="form1" onSubmit="return check()" enctype="multipart/form-data">
<tr><td>文件上传：<input name="FileName" type="file" id="FileName" size="40" >
<input type="submit" value="上传" name="submit" >
</form>
</td></tr>
</table>
<%
end sub
sub save
if GroupInfo(1)="" or GroupInfo(2)="" then
Response.Write("<script language=JavaScript>alert('您不允许上传文件，需要上传请与管理员联系！');document.location.href='javascript:window.history.go(-1);';</script>")
Response.End
End If
call upload_0()  '使用无组件上传类
end sub
sub upload_0()    '使用无组件上传类
dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize
dim i,myfileName
dim msg,FoundErr
msg=""
FoundErr=false

    set upload=new upfile_class ''建立上传对象
    upload.GetData(104857600)   '取得上传数据,限制最大上传100M
    if upload.err > 0 then  '如果出错
        select case upload.err
            case 1
                response.write "请先选择你要上传的文件！"
            case 2
                response.write "你上传的文件总大小超出了最大限制（100M）"
        end select
        response.end
    end if

    SavePath ="UploadFile/"   '存放上传文件的目录
    if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)

    'SavePath=CreatePath(SavePath)

    if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)

    for each formName in upload.file '列出所有上传了的文件
        set ofile=upload.file(formName)  '生成一个文件对象
        oFileSize=ofile.filesize
        if oFileSize<100 then
            msg="请先选择你要上传的文件！"
            FoundErr=True
        elseif oFileSize>(upfilemaxsize*1024*1024) then
             msg="文件大小超过了限制，最大只能上传" & CStr(upfilemaxsize) & "MB的文件！"
            FoundErr=true
        end if

        fileExt=lcase(ofile.FileExt)
        If CheckFileExt(fileExt) = False then
            msg="上传失败！只允许上传这几种文件类型：" & replace(upfileallType,"|",",")
            FoundErr=true
        end if

        if FoundErr<>true then

            filename=FormatName(fileExt)
            myfileName=filename
            filename=SavePath&filename

            ofile.SaveToFile Server.mappath(FileName)   '保存文件

            Session("filesize")=Session("filesize")+oFileSize
            response.write "文件上传成功！文件大小为：" &FormatFileSize(oFileSize)&""
            response.write"　<a href='?action=add&formName="&myformName&"&SavePath="&mySavePath&"'><font color=red>继续上传</font></a>"
Response.Write "<script>parent.AddItem('" &myfileName& "');</script>"
        else
            response.write("<font color=red>" & msg & "</font> <b><a href='javascript:history.back()'><font color=blue>返回<font></a></b>")
        end if

        set ofile=nothing
    next
    set upload=nothing
end sub

Function CheckFileExt(FileExt)
        Dim Forumupload,i
        CheckFileExt=False
        If FileExt="" or IsEmpty(FileExt) Then
            CheckFileExt = False
            Exit Function
        End If
        If FileExt="asp" or FileExt="asa" or FileExt="aspx" or FileExt="cer" or FileExt="cdx" then
            CheckFileExt = False
            Exit Function
        End If
        Forumupload = Split(LCase(upfileallType),"|")
        For i = 0 To ubound(Forumupload)
            If FileExt = Trim(Forumupload(i)) Then
                CheckFileExt = True
                Exit Function
            Else
                CheckFileExt = False
            End If
        Next
End Function
Function FormatName(Byval FileExt)
        Dim RanNum,TempStr
        Randomize
        RanNum = Int(90000*rnd)+10000
        TempStr = Year(now) & Month(now) & Day(now) & Hour(now) & Minute(now) & Second(now) & RanNum & "." & FileExt
        FormatName = TempStr
End Function

function FormatFileSize(xxx)
dim show11
show11=xxx & " Byte"
if xxx>=1024 then
   xxx=(xxx/1024)
   show11=round(xxx,2) & " KB"
end if
if xxx>=1024 then
   xxx=(xxx/1024)
   show11=round(xxx,2) & " MB"
end if
FormatFileSize=cstr(show11)
end function

Function CreatePath(PathValue)
    Dim objFSO,Fsofolder,uploadpath
        uploadpath = Year(Date) & "-" & Month(Date)
    If Right(PathValue,1)<>"/" Then PathValue = PathValue&"/"
    On Error Resume Next
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Server.MapPath(PathValue & uploadpath))=False Then
        objFSO.CreateFolder Server.MapPath(PathValue & uploadpath)
    End If
    If Err.Number = 0 Then
        CreatePath = PathValue & uploadpath & "/"
    Else
        CreatePath = PathValue
    End If
    Set objFSO = Nothing
End Function
%>

[ 本帖最后由 ljjlxj 于 2013-3-28 08:49 编辑 ]