📄 upfileform2.asp

📁 客户管理系统使用ASP.NET和Access
💻 ASP
字号:
<html>
<head>
<title>添加文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
@import url("../style/admin.css");
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
}
-->
</style>
</head>
<body>
<!--#include file="../include/UPLOAD.INC"-->
<%
set upload=new upload_F ''建立上传对象
 	'--------将日期转化成文件名--------
	function MakedownName()
		dim fname
	  	fname = now()
		fname = replace(fname,"-","")
	 	fname = replace(fname," ","") 
		fname = replace(fname,":","")
	  	fname = replace(fname,"PM","")
	  	fname = replace(fname,"AM","")
		fname = replace(fname,"上午","")
	  	fname = replace(fname,"下午","")
	  	fname = int(fname) + int((10-1+1)*Rnd + 1)
		MakedownName=fname
	end function 
formPath=upload.form("filepath")
iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 s="." & mid(file.FileName,InStrRev(file.FileName, ".")+1)
			if inStr(":.jpg:.gif:.jpeg:.jpe:.png:.bmp:.psd:.tif:.JPG:.GIF:.pbm:",":" & s & ":") = 0 then
	 			response.write "文件格式不正确　[ <a href=#3333 onclick=history.go(-1)>重新上传</a> ]"
				response.end
			end if
 if file.FileSize>300000 then
 response.Write("<table width=100%  border=0 cellspacing=0 cellpadding=0><tr><td height=26 valign=middle>禁止上传大于300K的图片<A HREF=javascript:history.back(1)>返回</A></td></tr></table>") 
response.End
else

if file.FileSize>0 and file.FileSize<300000 then ''如果 FileSize > 0 说明有文件数据
newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)

  file.SaveAs Server.mappath(formPath&newname) ''保存文件
  iCount=iCount+1
 else 
  response.write "<table width=100%  border=0 cellspacing=0 cellpadding=0><tr><td height=26 valign=middle>未找到文件 &nbsp;&nbsp;<A HREF=javascript:history.back(1)>返回</td></tr></table></A>"
  response.end
 end if
 end if
next
%>
<%
response.write "<script language='JavaScript'>parent.document.forms[0].images.value='upload/"& newname &"'</script>"
%><div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <TR> 
         <TD><font color="#FF0000">上传完毕：</font>
           <%response.write "upload/"&newname&" ("&cint(file.FileSize/1024)&"K)"%>
         <a href="UpFileForm.asp?newname=<%=newname%>">重新上传</a></TD>          
      </TR>
  </table>
</div>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -