upload.aspx
代码:upload.aspx
<%@ Page Language="VB"%>
<% @ Import Namespace=" System.IO " %>
<% @ Import Namespace=" System.DATA " %>
<%@ import Namespace="System.Data.SqlClient" %>
<SCRIPT LANGUAGE = "VB" RUNAT = "SERVER">
Dim lstrFileFolder as string
Dim lstrFileFolder_1 as string
Dim lstrFileNamePath as string
Dim lstrFileNamePath_1 as string
Sub UploadFile_Clicked ( Sender as Object, e as EventArgs )
Dim lstrFileName as string
'Dim lstrFileFolder as string
Dim CMDfilename as string '表单cmdfilename的值
CMDfilename = request("CMDfilename")
'''
'''
' 如果上传目录为空,就使用" upload "作为缺省上传目录
' 获得上传到服务器的目录名称
if dir.value <> "" then
lstrFileFolder_1 = dir.value & "/"
lstrFileFolder = trim((Server.MapPath(""))) & "/" & dir.value & "/"
else
lstrFileFolder_1 = "upload/"
lstrFileFolder = trim((Server.MapPath(""))) &"/upload/"
end if
' 获得文件名称
lstrFileName = loFile.PostedFile.FileName
' 注: loFile.PostedFile.FileName 返回的是
'通过文件对话框选择的文件名,这之中包含了文件的目录信息
'只能上传.xls文件
if instr(Path.GetFileName ( lstrFileName ),".xls")=0 and instr(Path.GetFileName ( lstrFileName ),".Xls")=0 and instr(Path.GetFileName ( lstrFileName ),".XLS")=0 then
MessageNotXLS.InnerHtml = "只能上传.xls文件"
MessageNotXLS.Style("color") = "red"
exit sub
end if
if CMDfilename = "random" then
dim lstrFileName111 as string = Path.GetFileName ( lstrFileName ) '获得原名
lstrFileName=now()
lstrFileName=replace(lstrFileName,"-","")
lstrFileName=replace(lstrFileName,":","")
lstrFileName=replace(lstrFileName," ","")
'lstrFileName=lstrFileName+"."
lstrFileName=lstrFileName & right(Path.GetFileName ( lstrFileName111 ),len(Path.GetFileName ( lstrFileName111 ))-(instr(Path.GetFileName ( lstrFileName111 ),"."))+1)
else
lstrFileName = Path.GetFileName ( lstrFileName )
end if
' 去掉目录信息,返回文件名称
' 判断上传目录是否存在,不存在就建立
If ( not Directory.Exists ( lstrFileFolder ) ) Then
Directory.CreateDirectory ( lstrFileFolder )
End If
'上传文件到服务器
lstrFileNamePath = lstrFileFolder & lstrFileName
lstrFileNamePath_1 = lstrFileFolder_1 & lstrFileName
' 得到上传目录及文件名称
loFile.PostedFile.SaveAs ( lstrFileNamePath )
' 获得并显示上传文件的属性
FileName.Text = lstrFileName
' 获得文件名称
FileType.Text = loFile.PostedFile.ContentType
' 获得文件类型
FileLength.Text = cStr ( loFile.PostedFile.ContentLength )
' 获得文件长度
FileUploadForm.visible = false
AnswerMsg.visible = true
' 显示上传文件属性
AddToDB()
End sub
'添加记录信息到数据库,可以不要这步。
sub AddToDB()
Dim MyConnection As SQLConnection = New SQLConnection (ConfigurationSettings.AppSettings("ConnStr"))
Dim InsertCmd As String = "insert into chaoqi (title,filepath) values (@title,@filepath)"
Dim MyCommand As SqlCommand = new SqlCommand(InsertCmd, MyConnection)
MyCommand.Parameters.Add(New SqlParameter("@title", SqlDbType.NVarChar, 50))
MyCommand.Parameters("@title").Value = title.value
MyCommand.Parameters.Add(New SqlParameter("@filepath", SqlDbType.NVarChar, 50))
MyCommand.Parameters("@filepath").Value = lstrFileNamePath_1
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.InnerHtml = "<b>已添加记录</b><br>" & InsertCmd.ToString()
Catch Exp As SQLException
If Exp.Number = 2627
Message.InnerHtml = "错误:已存在具有相同主键的记录"
Else
Message.InnerHtml = "错误:未能添加记录,请确保正确填写了字段"
End If
Message.Style("color") = "red"
End Try
MyCommand.Connection.Close()
end sub
</SCRIPT>
<html>
<head>
<title>上传文件</title>
<link href="style/main.css" type="text/css" rel="stylesheet" />
</head>
<BODY>
<ASP:panel id = "FileUploadForm" visible = " true " runat = "server">
<form method = "post" enctype = "multipart/form-data" runat = "server">
<p>
</p>
<table style="BORDER-RIGHT: #999999 1px; BORDER-TOP: #999999 1px; BORDER-LEFT: #999999 1px; WIDTH: 100%; BORDER-BOTTOM: #999999 1px; BORDER-COLLAPSE: collapse; BACKGROUND-COLOR: white" bordercolor="#999999" cellspacing="0" cellpadding="3" rules="cols" border="1">
<tbody>
<tr>
<td bgcolor="#000084" colspan="2">
<font color="#ffffff"><b>超期记录文件上传(Excel文件)</b></font></td>
</tr>
<tr>
<td width="20%">
请输入该文件要显示的名称:</td>
<td>
<input id = "title" type = "text" runat = "server"></td>
</tr>
<tr>
<td width="20%" bgcolor="#cccccc">
请选择上传到服务器的文件:</td>
<td bgcolor="#cccccc"><input id = "loFile" type = "file" runat = "server"></td>
</tr>
<tr>
<td width="20%" bgcolor="#eeeeee">
匹配类型:</td>
<td bgcolor="#eeeeee">
随机生成文件名(无重复):
<input type="radio" checked="checked" value="random" name="CMDfilename" id="CMDfilename" />
使用原名(若重复则覆盖):
<input type="radio" value="NotRandom" name="CMDfilename" id="CMDfilename" />
</td>
</tr>
<tr>
<td bgcolor="#cccccc" colspan="2">
<div class="expandable" οnclick="OnToggleTOCLevel1()" level2ID="compilerOutputDiv" style="FONT-WEIGHT: bold; CURSOR: hand; COLOR: navy; TEXT-DECORATION: underline">显示高级选项:</div>
<div id="compilerOutputDiv" style="display: none;">
<br><table width=100% bgcolor="#ffffcc">
<tr>
<td>请输入上传到服务器的目录名称:<input id = "dir" type = "text" runat = "server">【可以自定义上传目录,形式如:upload_1,将新建一个upload_1目录,请确定您有上传到此目录的权限。当前程序目录:<font color=red><b><%response.write (trim((Server.MapPath(""))))%>/</b></font>】</td>
</td></tr></table></div>
</td>
</tr>
<tr>
<td bgcolor="#cccccc" colspan="2">
<input type = "submit" value = "开始上传" OnServerClick="UploadFile_Clicked" runat ="server">
<span id="MessageNotXLS" EnableViewState="false" style="font: arial 11pt;" runat="server"/></td>
</tr>
</tbody>
</table>
</form>
</ASP:panel>
<ASP:panel id = "AnswerMsg" visible = " false " runat = "server">
<META HTTP-EQUIV=REFRESH CONTENT='5;URL=Admin_XLS_list.aspx'>
文件上传完成 <br>
成功上传 <ASP:label id = "FileName" runat = "server" /> <br>
文件大小 <ASP:label id = "FileLength" runat = "server" /> 字节 <br> 文件类型 <ASP:label id = "FileType" runat = "server" /> <br>
5秒之后自动返回....
<br>
<span id="Message" EnableViewState="false" style="font: arial 11pt;" runat="server"/>
</ASP:panel>
<script language="JavaScript">
function OnToggleTOCLevel1()
{
var elemSrc = window.event.srcElement;
var elemLevel2 = document.all(elemSrc.level2ID);
if (elemLevel2.style.display == 'none')
{
elemLevel2.style.display = '';
if (elemSrc.usesGlyph == '1')
elemSrc.innerHTML = '6';
}
else {
elemLevel2.style.display = 'none';
if (elemSrc.usesGlyph == '1')
elemSrc.innerHTML = '4';
}
}
</script>
</BODY>
</HTML>
最后演示如下:
upload.aspx相关推荐
- 基于Picture Library创建的图片文档库中的上传多个文件功能(upload multiple files)报错怎么解决?...
复现过程 首先,我创建了一个基于Picture Library的图片文档库,名字是 Pic Lib 创建完毕后,我点击它的Upload 下拉菜单,点击Upload Picture按钮 在弹出的对话框中 ...
- 用aspx开发html5页面,ASP.NET使aspx页面能接受HTML,asp的页面传送的文件-.NET教程,Asp.Net开发...
aspx接受aspx页面的文件很简单,用htmlinputfile,就可以了,但是如果接受html页面post的文件 就不怎么好办了,我仿照asp的方法做法如下,自己测试通过,拿出来给大家共享,可以限 ...
- Take a Photo and Upload it on Mobile Phones with HTML5
In my daily life, I enjoy taking photos with my smartphone and uploading them to various websites. S ...
- ASP.NET使aspx页面能接受HTML,asp的页面传送的文件
aspx接受aspx页面的文件很简单,用HtmlInputFile,就可以了,但是如果接受Html页面post的文件 就不怎么好办了,我仿照asp的方法做法如下,自己测试通过,拿出来给大家共享,可以限 ...
- LayUI upload上传组件上传文件的两种方式(手动上传、自动上传)
1 手动上传 上传文件分为两步,第一步选择文件,第二步上传文件. HTML代码: <input type='button' id='selectFile' value='选择文件'> &l ...
- 艾伟:FCKeditor 配置、扩展
一.自定义 FCKeditor 的 BasePath BasePath 即FCKeditor在网站中的相对路径,默认值是 /fckeditor/,最好在Web.config appSettings中对 ...
- 有关SwfUpLoad的2038 错误
项目需要用到大文件上传.最后选择了开源的swfupload作为上传空间,dome都运行非常良好.到了把它放到我的项目当中的时候. 出现了# 2038 error. 仔细观察后发现上传文件超过4mb就不 ...
- Windows+Nginx+IIS做图片分布式存储详细步骤
最近几天,一直在学习nginx在windows平台下的使用,为了寻找几种大量图片分布式存储而且有相对简单的存储方案 nginx是一种,还找到一种MongoDB GridFS 这两种方案我还是比较中意的 ...
- html编辑器渗透,渗透笔记40、web编辑器漏洞手册.pdf
*非常希望各位能够与我联系,一并完成本文的创作. • Redactor [北洋贱队@Bbs.SecEye.Org ~]# MIAO.猪哥靓.Hell-Phantom.Liange.Fjhh.GxM.S ...
最新文章
- windows下多版本python安装与pip安装和pip使用 吐血总结
- 挑战王者荣耀“绝悟” AI,我输了!
- 读入excel中的数据到数据库中
- 本地代码替换到某个提交点_github教程 -- Windows平台下如何将项目华丽的提交到Github上...
- Python语言学习:python编程之pip命令集合、python调式、头部代码、代码运行等常见概念详细攻略(解决问题为导向)
- 奥迪坚为中民燃气打造专业便民服务呼叫中心
- 2017(深圳) .NET技术分享交流会 第二期,将有网络直播
- Centos7安装Nginx实战
- c++:ISO C++ forbids declaration of ‘xxx’ with no type
- 基于DSP的交通灯设计
- 【学习笔记】seckill-秒杀项目--(1)搭建项目
- Oracle Database 10g for Windows安装
- 未定义标识符ULONG_PTR,BOOL等错误解决方法
- CRUD是什么意思?
- Android FrameWork 学习之Android 系统源码调试
- SQL Server 数据分区管理
- 有12个苹果,其中一个苹果只有质量与其他苹果不一样,现要求用天平秤3次,找出与其他苹果不一样的那个苹果。
- Unity3d C#实现类似于王者荣耀技能读条和CD冷却的功能(含源码)
- metasploit魔鬼训练营_XSS
- SecureCRT常见命令行