upload1.asp

来自「web development asp languages easy sourc」· ASP 代码 · 共 77 行

<!-- #include file="upload.inc" -->
<%
set nowupload=new upload
set file=nowupload.file("file1")
if file.fileSize>0 and file.filesize<3000000 then
    '自动生成文件名
    filename=now()
    filename=replace(filename,"-","")
    filename=replace(filename,":","")
    filename=replace(filename," ","")
    usefilename=filename
    filename=filename+"."
    filenameend=file.filename
    filenameend=split(filenameend,".")    
  if filenameend(1)="gif" or filenameend(1)="jpg" then
        filename=filename&filenameend(1)
        file.saveAs Server.mappath("upload/"&filename) 
        if filenameend(1)="gif" then
          session("filename")="upload/"&usefilename&".gif"
        end if
        if filenameend(1)="jpg" then
          session("filename")="upload/"&usefilename&".jpg"
        end if
  else
%>
<table width=500 border="0">
 <form name='pic' method='post' action=upload1.asp enctype='multipart/form-data'>
   <tr>
    <td>
<%
        response.write "文件格式不对"
        response.write "<a href=uploadpic.asp>返回</a>"
%>
    </td>
   </tr>
  </form> 
</table>
<%
        response.end
    end if
    set file=nothing
else
%>
<table width=500 border="0" bordercolor="#ececec">
 <form name='pic' method='post' action=upload1.asp enctype='multipart/form-data'>
   <tr>
    <td>
<%
    response.write "文件大小超过了限制"
    response.write "<a href=uploadpic.asp>返回</a>"
%>
    </td>
   </tr>
  </form> 
</table>
<%
response.end
end if
set nowupload=nothing
%>
<table width=500 border="0" bordercolor="#ececec">
 <form name='pic' method='post' action=upload1.asp enctype='multipart/form-data'>
   <tr>
    <td>&nbsp;
    </td>
   </tr>
  </form> 
</table>
<script>
img="<%=replace(session("filename"),"upload/","")%>"
img2="../upload/<%=replace(session("filename"),"upload/","")%>"
parent.document.all.form2.photo.value=img
parent.document.all.pic.innerHTML="<img src="+img2+" width=100>"
</script>
<%
session("filename")=""
%>