Ⅰ Word文件上傳只限20M,且只要doc和docx格式的,怎麼操作
doc文檔格式是指Word2003及以下版本生成的文件格式。docx文檔格式是指Word2007及以上版本生成的文件格式。Word 2007及以上版本可兼容doc文檔格式。
可以使用Microsoft Office辦公套裝軟體中的 Word 或 WPS Office辦公套裝軟體中的WPS文字來製作並編輯doc或docx文檔。
20M是指文件的大小，在文件圖標上「右擊 / 屬性」，在彈出的屬性對話框中查看文件容量大小，見下圖。
Word文件只限20M，20M的Word文檔已經很大了，日常辦公文檔絕對不超過這個限制。
請採納！
Ⅱ 怎麼限制上傳文件格式
在源代碼裡面該嘛
給你一段你照抄
UpFile.asp文件
<!--#include file="conn.asp"-->
<%
'這里是接受COOKice
username=session("username")
passwd=session("Passwd")
%>
<%
' 整個網站的安全要緊啊!如果沒登陸那就給我到Login.asp頁面去吧!
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where username='"&username&"'and passwd='"&passwd&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "login.asp"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
function mysubmit(theform)
{
if(theform.Text_Files.value=="")
{
alert("請點擊瀏覽按鈕，選擇您要上傳的jpg或gif文件!")
return (false);
}
else
{
str= theform.Text_Files.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("請選擇jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>
</head>
<body>
<table width="293" border="0" cellspacing="0">
<tr>
<td> <form name="FileForm" method="post" enctype="multipart/form-data" action="Save_UpFiles.asp" onsubmit="return mysubmit(this)">
<input name="Text_Files" type="file" style="width:80%">
<input type="submit" name="Submit" value="上傳">
</form></td>
</tr>
</table>
</body>
</html>
Save_UpFiles.asp文件
<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<!--#include file="Class_UpFiles.asp" -->
<%
'限制從外部非法提交
If Instr(Request.ServerVariables("http_referer"),"http://" & Request.Servervariables("host") ) < 1 Then
Response.Write "處理 URL 時伺服器上出錯!請與管理員聯系..."
Response.End
End If
Const G_FS_FSO = "Scripting.FileSystemObject" 'FSO組件名稱
'---------------------------------------------
Dim AllowFileType
AllowFileType = "jpg|gif"
Dim AllowFileSize
AllowFileSize = 10240
Dim Create_DateCatalog
Create_DateCatalog = True '是否開啟創建日期目錄
'---------------------------------------------
Dim AutoReName,UpFileObj,FileObject,FormName,FileName,FileExtStr,strFileName
Dim Fso,SavePath,AutoSavePath,AppearErr,ClueOn_Msg,StrJs
Dim SameFileTF,No_UpFileTF,RealityPath
'---------------------------------------------
SavePath = "/" '保存文件目錄
If Right(SavePath,1) <> "/" Then
SavePath = SavePath & "/"
End If
Set UpFileObj = New UpFile_Class
UpFileObj.GetData(10240000)
AutoReName = Trim(UpFileObj.Form("AutoRename")) '是否自動重命名文件
ClueOn_Msg = ""
No_UpFileTF = True
AppearErr = False
If IsObjInstalled(G_FS_FSO) = True Then
'------------------------------------------------------------------------------
Set Fso = Server.CreateObject(G_FS_FSO)
'--------------------------------------------------------------------------
For Each FormName in UpFileObj.File '列出所有上傳了的文件
Set FileObject = UpFileObj.File(FormName) '生成一個文件對象
SameFileTF = False
FileName = FileObject.FileName
If NoIiiegalStr(FileName) = False Then
ClueOn_Msg = "文件：上傳被禁止!"
AppearErr = True
End If
FileExtStr = FileObject.FileExt
If FileObject.FileSize > 1 Then '如果有文件上傳
'----------------------------------------------------------------------
If Fso.FolderExists(Server.MapPath(SavePath)) = True Then '檢測目錄是否存在
If Create_DateCatalog = True Then '如果開啟了自動創建日期目錄
AutoSavePath = Year(Now()) & Right("0" & Month(Now()),2) & "/"
SavePath = SavePath & AutoSavePath
If Not Fso.FolderExists(Server.MapPath(SavePath)) Then '如不存在目錄則建立
Fso.CreateFolder Server.MapPath(SavePath)
End If
End If
Else
ClueOn_Msg = "目錄不存在,無法上傳文件!"
AppearErr = True
End If
RealityPath = Server.MapPath(SavePath) & "\" '轉換虛擬路徑為實際路徑
'----------------------------------------------------------------------
No_UpFileTF = False
If FileObject.FileSize > Clng(AllowFileSize)*1024 Then
ClueOn_Msg = FileName & "文件超過了限制!\n\n最大隻能上傳" & AllowFileSize & "K的文件"
AppearErr = True
End If
If AutoRename = "2" Then '如果不是自動從命名文件
If Fso.FileExists(RealityPath & FileName) = True Then
ClueOn_Msg = "文件:存在同名文件"
AppearErr = True
Else
SameFileTF = False
End If
Else
SameFileTF = True
End If
If CheckFileType(AllowFileType,FileExtStr) = False Then '如果文件後綴名不合格
ClueOn_Msg = "此文件不允許上傳!\n\n允許上傳文件類型有"& AllowFileType &""
AppearErr = True
End If
StrJs = "<script language=javascript>" & vbcrlf
If AppearErr <> True Then
If SameFileTF = True Then
strFileName = DateStr & rndStr(5) & "." & DealExtName(FileExtStr)
Else
strFileName = ReplaceExt(FileName,"shit")
End If
FileObject.SaveToFile Server.MapPath(SavePath & strFileName) '保存文件
' ClueOn_Msg = "文件上傳成功!"& SavePath & strFileName &"" '上傳成功信息
StrJs = StrJs & "document.write ('<font size=2>[sayyes]"& SavePath & strFileName &"[/sayyes]');" & vbcrlf '上傳成功後顯示文件所在
StrJs = StrJs & "document.write ('<a href=javascript:history.go(-1)>[繼續上傳]</a></font>');" & vbcrlf '上傳成功後繼續上傳
End If
' StrJs = StrJs & "alert('" & ClueOn_Msg & "');" & vbcrlf
' StrJs = StrJs & "history.go(-1);" & vbcrlf
StrJs = StrJs & "</script>"
Response.Write strJS
Response.End
Else
Response.Write( "請選擇你要上傳的文件！")
Response.End
End If
Next
Set FileObject = Nothing
Set Fso = Nothing
Else
Response.Write "上傳功能需要FSO組件支持,請檢查該組件是否安裝正確!"
Response.End
End If
Set UpFileObj = Nothing
'//驗證上傳文件的合法性
Function CheckFileType(AllowExtStr,FileExtName)
Dim i,AllowArray,LenTmp
LenTmp = Len(FileExtName)
AllowArray = Split(AllowExtStr,"|")
FileExtName = DealExtName(Trim(LCase(FileExtName)))
CheckFileType = False
For i = LBound(AllowArray) to UBound(AllowArray)
If LCase(AllowArray(i)) = LCase(FileExtName) Then
CheckFileType = True
End If
Next
If FileExtName = "asp" or FileExtName = "asa" or FileExtName = "aspx" or FileExtName = "cer" or FileExtName = "php" or FileExtName = "cdx" or FileExtName = "htr" or FileExtName = "exe" Then
CheckFileType = False
Else
If LenTmp <> Len(FileExtName) Then
CheckFileType = False
End If
End If
End Function
'//檢查文件名格式
Function NoIiiegalStr(Byval FileNameStr)
Dim Str_Len,Str_Pos
Str_Len = Len(FileNameStr)
Str_Pos = InStr(FileNameStr,Chr(0))
If Str_Pos = 0 or Str_Pos = Str_Len then
NoIiiegalStr = True
Else
NoIiiegalStr = False
End If
End function
'//替換掉禁止的文件類型
Function DealExtName(Byval UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
DealExtName = Lcase(UpFileExt)
DealExtName = Replace(DealExtName,Chr(0),"")
DealExtName = Replace(DealExtName," ","")
DealExtName = Replace(DealExtName," ","")
DealExtName = Replace(DealExtName,Chr(255),"")
DealExtName = Replace(DealExtName,".","")
DealExtName = Replace(DealExtName,"'","")
DealExtName = Replace(DealExtName,"asp","")
DealExtName = Replace(DealExtName,"asa","")
DealExtName = Replace(DealExtName,"aspx","")
DealExtName = Replace(DealExtName,"cer","")
DealExtName = Replace(DealExtName,"cdx","")
DealExtName = Replace(DealExtName,"htr","")
DealExtName = Replace(DealExtName,"php","")
DealExtName = Replace(DealExtName,"exe","")
End Function
'//如果不開啟自動命名,則執行替換
'//替換非法文件為自定義字元串
Function ReplaceExt(Byval ExtStr,Byval RepExt)
If IsEmpty(ExtStr) or IsEmpty(RepExt) Then Exit Function
ReplaceExt = Lcase(ExtStr)
ReplaceExt = Replace(ReplaceExt,Chr(0),"")
ReplaceExt = Replace(ReplaceExt," ","")
ReplaceExt = Replace(ReplaceExt," ","")
ReplaceExt = Replace(ReplaceExt,Chr(255),"")
ReplaceExt = Replace(ReplaceExt,"'","")
ReplaceExt = Replace(Replace(ReplaceExt,"asp",RepExt),".asp","sp" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"asa",RepExt),".asa","sa" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"aspx",RepExt),".aspx","spx" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"cer",RepExt),".cer","er" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"cdx",RepExt),".cdx","dx" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"htr",RepExt),".htr","tr" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"php",RepExt),".php","hp" & RepExt)
ReplaceExt = Replace(Replace(ReplaceExt,"exe",RepExt),".exe","xe" & RepExt)
End Function
'//產生一個日期字元串
Function DateStr()
Dim iYear,iMonth,iDay,iHour,iMinute,iScond
iYear = Year(Now)
iMonth = Month(Now)
iDay = Day(Now)
iHour = CStr(Hour(Now()))
If Len(iHour) = 1 Then
iHour = "0" & iHour
End If
iMinute = CStr(Minute(Now()))
If Len(iMinute) = 1 Then
iMinute = "0" & iMinute
End If
iScond = CStr(Second(Now()))
If Len(iScond) = 1 Then
iScond = "0" & iScond
End If
DateStr = iYear & iMonth & iDay & iHour & iMinute & iScond
End Function
'//生成指定位數的字元
Function rndStr(strLong)
Dim tempStr
Randomize
Do while Len(rndStr) < strLong
tempStr = CStr(Chr((57-48)*rnd+48))
rndStr = rndStr & tempStr
Loop
rndStr = rndStr
End Function
'//檢查組件是否安裝
Function IsObjInstalled(ByVal strClassString)
Dim xTestObj,ClsString
On Error Resume Next
IsObjInstalled = False
ClsString = strClassString
Err = 0
Set xTestObj = Server.CreateObject(ClsString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
Exit Function
End Function
%>
當然照搬是肯定是不能正常使用的
需要按照你的網站具體修改!!
有什麼需要問的可以在我的貼吧
http://post..com/f?kw=%C1%FA%B7%C9%D1%EF
留言
或
我的博客
http://hi..com/%D6%B1%B5%BD%D3%F6%B5%BD%B7%EF%C7%E1%CE%E8
留言
或加我 QQ:284610811
Ⅲ 上傳格式怎麼限制asp的
suffixFlag = flase
fileType = right(fileType,len(fileType)-instr(fileType,".")) //用這個取後綴名就可以了
FileSuffix = "jpg|@gif|@png" //在這里設置可上傳文件的類型，以|@分隔
FileSuffixArr = split(FileSuffix,"|@",-1,1)
For Each SuffixList in FileSuffixArr
if fileType = SuffixList then
suffixFlag = true
Exit For
end if
Next
if suffixFlag = flase then
response.write "不能上傳" & fileType & "文件！"
Exit sub
end if
Ⅳ 上傳文件怎麼限制文件的格式上傳
可以通過檢驗上傳文件的後綴名進行判斷是否是需要的格式，如果不是就重新選擇啊
Ⅳ asp.net以及VB做的網站，現在需要限制上傳文件的格式，比如我只想上傳jpg和doc格式的文件，求教方法
<%@ language="javascript"%>
<%
var self = Request.serverVariables("SCRIPT_NAME");
if (Request.serverVariables("REQUEST_METHOD")=="POST")
{
var oo = new uploadFile();
oo.path = "../../images/swf/"; //存放路徑,為空表示當前路徑,默認為uploadFile
oo.named = "date"; //命名方式,date表示用日期來命名,file表示用文件名本身,默認為file
oo.ext = "all"; //允許上傳的擴展名,all表示都允許,默認為all
oo.over = true; //當存在相同文件名時是否覆蓋,默認為false
oo.size = 1*1024*1024; //最大位元組數限制,默認為1G
oo.upload();
Response.write('<script type="text/javascript">location.replace("'+self+'")</script>');
}
//ASP無組件上傳類
function uploadFile()
{
var bLen = Request.totalBytes;
var bText = Request.binaryRead(bLen);
var oo = Server.createObject("ADODB.Stream");
oo.mode = 3;
this.path = "uploadFile";
this.named = "file";
this.ext = "all";
this.over = false;
this.size = 1*1024*1024*1024; //1GB
//文件上傳
this.upload = function ()
{
var o = this.getInfo();
if (o.size>this.size)
{
alert("文件過大,不能上傳!");
return;
}
var f = this.getFileName();
var ext = f.replace(/^.+\./,"");
if (this.ext!="all"&&!new RegExp(this.ext.replace(/,/g,"|"),"ig").test(ext))
{
alert("目前暫不支持擴展名為 "+ext+" 的文件上傳!");
return;
}
if (this.named=="date")
{
var f = new Date().toLocaleString().replace(/\D/g,"") + "." + ext;
}
oo.open();
oo.type = 1;
oo.write(o.bin);
this.path = this.path.replace(/[^\/\\]$/,"$&/");
var fso = Server.createObject("Scripting.FileSystemObject");
if(this.path!=""&&!fso.folderExists(Server.mapPath(this.path)))
{
fso.createFolder(Server.mapPath(this.path));
}
try
{
oo.saveToFile(Server.mapPath(this.path+f),this.over?2:1);
Response.write('<script type="text/javascript">parent.form.swf_Pic.value=("images/swf/'+f+'")</script>');
alert(f);
}
catch(e)
{
alert("對不起,此文件已存在！");
}
oo.close();
delete(oo);
}
//獲取二進制和文件位元組數
this.getInfo = function ()
{
oo.open();
oo.type=1;
oo.write(bText);
oo.position = 0;
oo.type=2;
oo.charset="unicode";
var gbCode=escape(oo.readText()).replace(/%u(..)(..)/g,"%$2%$1");
var sPos=gbCode.indexOf("%0D%0A%0D%0A")+12;
var sLength=bLen-(gbCode.substring(0,gbCode.indexOf("%0D%0A")).length/3)-sPos/3-6;
oo.close();
oo.open();
oo.type = 1;
oo.write(bText);
oo.position=sPos/3;
var bFile=oo.read(sLength);
oo.close();
return { bin:bFile, size:sLength };
}
//獲取文件名
this.getFileName = function ()
{
oo.open();
oo.type = 2;
oo.writeText(bText);
oo.position = 0;
oo.charset = "gb2312";
var fileName = oo.readText().match(/filename=\"(.+?)\"/i)[1].split("\\").slice(-1)[0];
oo.close();
return fileName;
}
function alert(msg)
{
Response.write('<script type="text/javascript">alert("'+msg+'");</script>');
}
}
%>
<body topmargin="0" marginwidth="0">
<form action="<%=self%>" method="POST" enctype="multipart/form-data" onSubmit="return (this.upFile.value!='');" name="myform" style="border: 1px solid #C0C0C0">
<input type="file" name="upFile" size="21"/>
<input type=submit name=submit value=上傳 class="tx1">
</form>
Ⅵ 怎麼在網頁上限制上傳圖片的格式
string fileContentType = fileupload.PostedFile.ContentType; if (fileContentType == "image/bmp" || fileContentType == "image/gif" || fileContentType == "image/pjpeg") { FileInfo finlinfo = new FileInfo(fileupload.PostedFile.FileName); string filename = DateTime.Now.ToString("yyyyMMddhhmmss") + fileupload.PostedFile.FileName.Substring(fileupload.PostedFile.FileName.LastIndexOf('.')); fileupload.SaveAs(System.Web.HttpContext.Current.Server.MapPath("~/File/" + saveFolder + "/") + filename); filpath = "~/File/" + saveFolder + "/" + filename; errinfo = "成功"; } else { errinfo = "上傳文件類型不正確"; }
滿意請採納
Ⅶ 如何限制上傳文件的大小和類型
有兩種方式，
1、用fileupload控制項在後台判斷
FileUpload1.FileContent.Length判斷大小，
System.IO.Path.GetExtension(FileUpload1.FileName)獲取文件後綴
2、用jquery上傳控制項，可以直接判斷類型和大小
另外js也可以在前台判斷文件類型，但不能獲取文件大小，需要引用插件
Ⅷ ASP如何有效限制上傳文件格式類型 程序是用ADODB.stream直接上傳到伺服器的 非組件和寫到資料庫模式
'============================================================
'函數名 CheckFileType
'作 用：檢查文件是否為圖片文件
'參 數：file_name：本地文件的路徑
'其 它：如果是文件jpeg,gif,bmp,png圖片中的一種，函數返回true，否則返回false
'============================================================
const adTypeBinary=1
dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)
dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)
dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)
dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)
function CheckFileType(file_name)
on error resume next
CheckFileType=false
dim fstream,fileExt,stamp,i
fileExt=mid(file_name,InStrRev(file_name,".")+1)
set fstream=Server.createobject("ADODB.Stream")
fstream.Open
fstream.Type=adTypeBinary
fstream.LoadFromFile file_name
fstream.position=0
select case fileExt
case "jpg","jpeg"
stamp=fstream.read(2)
for i=0 to 1
if ascB(MidB(stamp,i+1,1))=jpg(i) then CheckFileType=true else CheckFileType=false
next
case "gif"
stamp=fstream.read(6)
for i=0 to 5
if ascB(MidB(stamp,i+1,1))=gif(i) then CheckFileType=true else CheckFileType=false
next
case "png"
stamp=fstream.read(4)
for i=0 to 3
if ascB(MidB(stamp,i+1,1))=png(i) then CheckFileType=true else CheckFileType=false
next
case "bmp"
stamp=fstream.read(2)
for i=0 to 1
if ascB(MidB(stamp,i+1,1))=bmp(i) then CheckFileType=true else CheckFileType=false
next
end select
fstream.Close
set fseteam=nothing
if err.number<>0 then CheckFileType=false
end function
肯定可以用的，我寫的程序正在用這個函數，希望對您有幫助！
Ⅸ 手機怎麼粘貼圖片到文件上超出10 mb上傳限制怎樣辦會員
圖片上傳文件APP官方渠道辦理會員。
一、改變圖片格式，如將體積較大的bmp格式轉為體積較小新浪博客同樣支持的jpg格式。二、縮小圖片解析度達到減小圖片體積的效果。某些百萬像素的相機拍出圖片解析度會在1xxx。1xxx以上，圖片的大小達到1M，新浪博客的文章圖片上傳最大支持大小為300k，解析度為480*360的圖片，如果超出這個范圍，圖片會超出版心，以至於顯示不全。1、轉換圖片格式首先用ACDSee打開要修改的圖片，單擊「工具→轉換格式」，彈出「格式轉換」對話框。既然是要壓縮圖片，當然要選擇其中體積最小巧的JPG格式，在「格式」框選中「jpg」格式，設置好轉換後文件的輸出路徑，謹慎勾選「刪除替換原始圖片」，這樣會刪除你原來的圖片，點擊「確定」完成轉換。2、縮小圖片解析度。在修改圖片解析度時盡量將圖片的寬高像素控制在480*360之間，首先用ACDSee打開要修改的圖片，單擊「工具→調整大小」，彈出「圖像調整大小」對話框，在「像素」處將「寬度」和「高度」的像素質設定在480和360之內，同樣在「格式」框選中「jpg」格式，設置好轉換後文件的輸出路徑，謹慎勾選「刪除替換原始圖片」，點擊「確定」完成轉換。經過兩步調整，圖片的體積就基本符合新浪博客的上傳要求。
Ⅹ asp.net上傳視頻如何限制格式
if (FileUpload1.HasFile)
{
string kzm = System.IO.Path.GetExtension(FileUpload1.FileName).ToLower();
if (kzm != ".jpg" && kzm != ".bmp" && kzm != ".gif" && kzm != ".png")
throw new Exception("請選擇jpg,bmp,gif,png的圖片格式！");
xwxx.tplx = kzm;
}
把if里的條件改一下就行了，就是判斷的後綴名