如果文件较大，要用第三方组件来上传，如：ASPUpload
如果是小文件（<肢丛1MB）,可以用无组件轮饥毕上传，baidu一下腊芹"无组件上传"
/// <summary>/// 上传图片到临时目录或者直接保存正式目录
/// </summary>
/// <param name="uploadfile">上传的文件</param>祥旁正
/// <param name="schoolID">学校ID</param>
/// <param name="catalog">临时目录或者正式目录(临时目录 Temp)</param>
/// <param name="server"></param>
/// <param name="result">返回结果状态码 1-成功 2-格式不正确 3-图片不存启尘在</param>
/// <returns></returns>
public static string Upload(HttpPostedFileBase uploadfile, int schoolID, string catalog, HttpServerUtilityBase server, out int result)
{
try
{
if (uploadfile != null &&uploadfile.ContentLength >0)
{
var fileName = Path.GetFileName(uploadfile.FileName)
string[] AllowExts = { ".jpg", ".png", ".bmp", ".gif" }
//判断扩展名是否符合要求
var ext = Path.GetExtension(uploadfile.FileName).ToLower()
if (string.IsNullOrEmpty(ext))
{
//上传图片格式不正确
result = 2
return ""
}
if (!string.IsNullOrEmpty(ext) &&!AllowExts.Contains(ext))
{
//上传图片格式不正确
result = 2
return ""
}
//图片的大小不能超过2M
if (!IsUploadPhotoSize(uploadfile.ContentLength))
{
result = 5
return ""
}
fileName = DateTime.Now.Ticks.ToString() + ext
var FilePath = server.MapPath((GlobalConfiguration.Configuration["ImagePath"] + "谨悔/" + schoolID + "/" + catalog))
if (!Directory.Exists(FilePath))
{
Directory.CreateDirectory(FilePath)
}
var path = Path.Combine(FilePath, fileName)
uploadfile.SaveAs(path)
string relativePath = Path.Combine((GlobalConfiguration.Configuration["ImagePath"] + "/" + schoolID + "/" + catalog), fileName)//得到相对路径
//上传成功
result = 1
return relativePath
}
else
{
//上传图片不存在
result = 3
}
}
catch
{
//上传图片格式不正确
result = 4
return ""
}
return ""
}
这是做的一个上传图片的。 你可以参考改下， 逻辑是一样的！
望采纳！！！
给你段代码，两个文件，你上面的要求都能达到：《upload_file.asp》此页面作为d出窗口，代码如下：
<!--#include file="UploadClass.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title>文件上传</title>
<link href="images/css.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" leftmargin="5" topmargin="20">
<%
Dim Admin_Flag,action
Dim File_ext,UploadSize,Uploadpath
Dim Filepath,Filename,Randnum
Dim Fileext_a,Fileext,UpMode
formname=Request.QueryString("formname")'父页面form表单名字
textname=Request.QueryString("textname")'父页面form内存放图片上传后路径的文本框名字
if textname="AdsFilePath" then '根据文本框名字确定文件保存的路径
UploadPath="adpic/"
elseif textname="WebLogo" then
UploadPath="磨悉WebLogoFile/"
elseif textname="ShopPic" then
UploadPath="Shop_Pic/"
elseif textname="Smaillpic" then
UploadPath="Smaill_pic/"
elseif textname="Bannapic" then
UploadPath="Banna_pic/"
end if
UploadSize=1000
File_ext="jpg,gif,swf"
Select Case Request.QueryString("action")
Case "upload"
Call Main()
Call UpLoad()
Case Else
Call Main()
End Select
Sub Main()
%>
<Form name="myform" method="post" action="?action=upload&formname=<%=formname%>&textname=<%=textname%>" enctype="multipart/Form-data" >
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr>
<th align="center" class="table_titl">文件上传</th>
</tr>
<tr>
<td height="30" align="center" class="wz" ID="strMsg">允许上传的文件类型：<%=file_ext%></td>
</tr>
<tr>
<td height="30" align="center" class="wz">文件上传大小限制：<%=UploadSize%>K </td>
</tr>
<tr>
<td height="30" align="center" class="wz">请选择上传文件：
<input type="file" name="file1" size=20 class=text>
<input type="hidden" name="filename">
</td>
</tr>
<tr>
<td height="30" align="center" class="wz">隐敬
<input type="submit" name="Submit" value="上传" onClick="filename.value=file1.value" class=button>
</td>
</tr>
</table>
</Form>灶游慎
</body>
</html>
<%
End Sub
Sub UpLoad()
soft_upload()
End Sub
Sub Soft_Upload()
Dim upload,file,uploadsuc,splitFile
Dim upName
set upload=new upfile_class
upload.GetData (-1)
filePath=UploadPath
If right(filePath,1)<>"/" Then filePath=filePath&"/"
For Each upName In upload.file
Set file=upload.file(upName)
If file.filesize<1 Then
Response.Write "<script language=javascript>strMsg.innerHTML='请先选择你要上传的文件'</script>"
Response.end
End If
fileExt=LCase(file.FileExt)
uploadsuc=False
splitFile=Split(File_ext,",")
For i=0 to UBound(splitFile)
If fileEXT=Trim(LCase(splitFile(i))) Then
uploadsuc=True
Exit For
Else
uploadsuc=False
End If
Next
If uploadsuc=False Then
Response.Write "<script language=javascript>strMsg.innerHTML='文件格式不正确'</script>"
Response.end
End If
If file.FileSize>UploadSize*1024 Then
Response.Write "<script language=javascript>strMsg.innerHTML='文件大小超过了限制'</script>"
Response.end
End If
Randomize
filename=filePath&"Love_"&Year(Now)&Month(Now)&Day(Now)&hour(Now)&minute(Now)&second(Now)&randNum&"."&fileExt
file.SaveToFile Server.mappath("../"&FileName) ''保存文件
Check_picwords("../"&FileName) '检查上传文件是否存在违法代码
Response.Write "<script>"
Response.Write "opener."&formname&"."&textname&".value='"&filename&"'"
Response.Write "window.close()"
Response.Write "</script>"
Next
Set file=Nothing
Set upload=Nothing
End Sub
%>
等下补充
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）