一個加強的文件上傳（VB.Net）

2024-07-10 13:01:07

字體：大中小

來源：轉載

供稿：網友

這個文件上傳應該可以滿足一般的需要了，其中的添加到數據庫記錄，您可以按需要省略掉。

代碼：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" onclick="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>

收集最實用的網頁特效代碼！

上一篇：VB.NET編程之托盤程序篇

下一篇：asp.net中單擊Datagrid列頭排序(vb.net)