savetofile.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 83 行

ASP
83 行
字号 
<%OPTION EXPLICIT%>
<!--#include FILE="clsUp.asp"-->
<%
if session("admin_name")="" then
    response.redirect "../default.asp"
end if
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
upfilecount=0
set upfile=new clsUp ''建立上传对象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"	'设置上传类型的黑名单
upfile.GetData (10240000)   '取得上传数据,限制最大上传10M
%>
<html>
<head>
<style type="text/css">
<!--
.p9{ font-size: 9pt; font-family: 宋体 }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body text="#000000" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0" BGCOLOR="#ffffff" CLASS="p9">
<%
if upfile.isErr then  '如果出错
    select case upfile.isErr
	case 1
	Response.Write "你没有上传数据呀???是不是搞错了??"
	case 2
	Response.Write "你上传的文件超出我们的限制,最大10M"
	end select
	else
%>
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#6699CC" class="p9" style="border-collapse: collapse">
  <tr bgcolor="#BBD1E8"> 
    <td align=center>图片名</td>
    <td align=center>大小(字节)</td>
    <td height="25" align=center>本地路径</td>
    <td align=center>状态</td>
  </tr>  
<%
	FSPath=GetFilePath(Server.mappath("upfiletofile.asp"),"\")'取得当前文件在服务器路径
	ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
	for each formName in upfile.file '列出所有上传了的文件
	   set oFile=upfile.file(formname)
	   FileName=upfile.form(formName)'取得文本域的值
	   if not FileName>"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
	   upfile.SaveToFile formname,FSPath&FileName   ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
 %>
<tr> 
    <td align=center><input type=text value="<%=ServerPath%><%=FileName%>" size="30"></td>
    <td align=center><%=oFile.filesize%></td>
    <td height="20" align=center><input type=text value="<%=oFile.FilePath&oFile.FileName%>" size="25">　</td>
    <td align=center><%
    if upfile.iserr then 
		Response.Write upfile.errmessage
		else
		upfilecount=upfilecount+1
		Response.Write "上传成功"
		end if
		%></td>
  </tr><%
	 set oFile=nothing
	next
%>
  <tr> 
    <td colspan="3" height="25" valign='middle'>　一共上传了<%=upfileCount%>张图片&nbsp;&nbsp;&nbsp;[<a href="upfiletofile.asp">继续上传</a>]</td>
  </tr>
<%
end if
set upfile=nothing  '删除此对象
%>
</table>
</body>
</html>
<%
function GetFilePath(FullPath,str)
  If FullPath <> "" Then
    GetFilePath = left(FullPath,InStrRev(FullPath, str))
    Else
    GetFilePath = ""
  End If
End function
%>

savetofile.asp - 源码说明

本页面展示了「能进行网上购物的需求」中的 savetofile.asp 源码文件，采用 ASP 编程语言编写，共 83 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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