⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 img_upfile.asp

📁 新的文章管理系统
💻 ASP
字号:
<!--#include file="upload.inc"-->
<html>
<head>
<title>文件上传</title>
<LINK href="../style.css" rel=stylesheet>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF" marginwidth="0" marginheight="0" >
<table width="350" border="1" cellspacing="10" cellpadding="5" bordercolor="#CCCCCC" height="250">
  <tr> 
    <td width="388" bgcolor="#f7f7f7" align="center"> 
      <%
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象

 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 


iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.filesize<100 then
 	response.write "<font size=2>请先选择你要上传的文件 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if
 	
 if file.filesize>100000 then
 	response.write "<font size=2>文件大小超过了限制 100K [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if

 fileExt=lcase(right(file.filename,4))

 if fileEXT<>".gif" and fileEXT<>".jpg" then
 	response.write "<font size=2>文件格式不正确 [ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if 

 randomize
 ranNum=int(90000*rnd)+10000
 filename=formPath&year(now)&month(now)&day(now)&ranNum&fileExt
 
' filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(FileName)   ''保存文件
'  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"
 	if fileEXT=".gif" then
 	weizhi=FileName
 	elseif fileEXT=".jpg" then
 	weizhi=FileName
 	end if
 iCount=iCount+1
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象
response.write "<br>"
dim image
if session("image")="" then
session("image")=weizhi
end if
%>
      <div align="center">图片已经成功上传!请选择参数:<br>
        <br>
      </div>
        
      <table border="0" cellspacing="8" cellpadding="0" width="264">
        <form method="post" action="img_scdm.asp">
          <tr> 
            <td><a href="<%=weizhi%>" target="_blank"><img src="<%=weizhi%>" width="100" border="0"></a></td>
            <td> 
              <div align="center"> 
                <input type="hidden" value=<%=weizhi%> name="weizhi">
                <input type="submit" name="Submit" value="生成代码" class="buttonface">
              </div>
            </td>
          </tr>
        </form>
      </table>   
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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