📄 uploadimage3_upload.asp

📁 一个不错的代码一个不错的代码一个不错的代码

💻 ASP

字号:

<%@ LANGUAGE="VBSCRIPT" %>
<%

NewsID=Request.QueryString("NewsID")
Savepath=server.MapPath("../images/news/")
iCount=1

set FileUp=server.createobject("ChinaASP.UpLoad")
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>

<body>

<p>　</p>
<form method="POST" action="AddBigClass2_submit.asp">
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <table border="0" width="450" align=center cellpadding="5" cellspacing="1" bgcolor="#000000">
    <tr> 
      <td width="100%" height="55" align="center" bgcolor="#abb8d6"><b><strong>上 
        传 结 果</strong></b></td>
    </tr>
    <%
for each f in fileup.Files

if f.isempty=false then
	
f.saveas SavePath & "\" & NewsID & "-" & cstr(iCount)&"."& getFileExtName(f.fileName)
if f.filesize<>0 then
Response.Write "<tr><td bgcolor=#FFFFFF align=center><br>已经保存：" & NewsID & "-" & cstr(iCount)&"."& getFileExtName(f.fileName) & "<br></td></tr>"
else
Response.Write "<tr><td bgcolor=#FFFFFF align=center><br>文件大小为0，文件没保存！<br></td></tr>"
end if
						
else
Response.Write "<tr><Td bgcolor=#FFFFFF align=center><br><font color=red>" & NewsID & "-" & cstr(iCount) & "没有选择！</font><br></td></tr>"
end if

iCount=iCount+1
next
%>
    <tr> 
      <td width="100%" bgcolor="#abb8d6" align="center">总共用去时间： <%=fileup.UsedTime%>秒！</td>
    </tr>
  </table>
</form>
</body>

</html>

<%
'获得文件的后缀名
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function

set fileup=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -