uploadimage3_upload.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 81 行

ASP
81 行
字号 
<%@ 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">
<table border="0" width="450" align=center>
<tr>
<td width="100%"><b>上传新闻图片：</b></td>
</tr>
<tr>
<td width="100%">
<hr size="1">
</td>
</tr>
<tr>
<td width="100%"><STRONG>上传结果：</STRONG></td>
</tr>
<tr>
<td width="100%">&nbsp;&nbsp;&nbsp;</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>已经保存" & NewsID & "-" & cstr(iCount)&"."& getFileExtName(f.fileName) & "</td></tr>"
else
Response.Write "文件大小为0，文件没保存！"
end if
						
else
Response.Write "<tr><Td><font color=red>" & NewsID & "-" & cstr(iCount) & "没有选择！</font></td></tr>"
end if

iCount=iCount+1
next
%>
<tr>
<td width="100%">总共用去时间： <%=fileup.UsedTime%>秒！</td>
</tr>
<tr>
<td width="100%">　</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
%>

uploadimage3_upload.asp - 源码说明

本页面展示了「这是一个学生毕业时做的教务系统」中的 uploadimage3_upload.asp 源码文件，采用 ASP 编程语言编写，共 81 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与毕业相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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