upb.asp

来自「学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设」· ASP 代码 · 共 47 行

ASP
47 行
字号 
<!--#include FILE="UPC.asp"--> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ok</title> 
<style type="text/css">
<!--
.STYLE3 {
	color: #CC0033;
	font-size: 18px;
}
-->
</style>

</head>

<body>


  <% 
dim upload,file,formName,formPath,L,M,N,StuNo
set upload=new upload_5xSoft ''建立上传对象 
formPath=upload.form("filepath") ''在目录后加(/) 
if right(formPath,1)<>"/" then formPath=formPath&"/" 
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 
 

Excelname=file.FileName
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 
file.SaveAs Server.mappath(file.FileName) ''保存文件 
end if 
set file=nothing 
next 
set upload=nothing 
ErrInfo = "UPD.asp?Excelname=" & Excelname
Response.Redirect (ErrInfo)
%>
 
</body> 
</html>

upb.asp - 源码说明

本页面展示了「学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.」中的 upb.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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