asp視頻上傳

4. 我建的是asp網頁，在上傳視頻的時候只能上傳100K的視頻，不知怎麼改，請知到的回復我一下，謝謝！

有兩種可能,一是代碼中限制了最大慎沖上傳的輪陸文件大小(或寬桐殲是通過配置參數限制),二是IIS默認的ASP上傳大小限制,這個限制默認是200K.
第一種情況可以修改代碼或配置文件,第二種要修改IIS的配置文件,一個XML文件,可網路到解決方法.
先確定是哪個原因.再對應去解決.

5. ASP中如何上傳視頻文件並將路徑保存到sql資料庫中

保存文件名「upload.inc」 <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim Data_5xsoft

Class upload_5xsoft

dim objForm,objFile,Version

Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function

Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function

Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
Version="化境HTTP上傳程序 Version 2.0"
set objForm=Server.CreateObject("Scripting.Dictionary")
set objFile=Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes<1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set Data_5xsoft = Server.CreateObject("adodb.stream")
Data_5xsoft.Type = 1
Data_5xsoft.Mode =3
Data_5xsoft.Open
Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes)
Data_5xsoft.Position=0
RequestData =Data_5xsoft.Read

iFormStart = 1
iFormEnd = LenB(RequestData)
vbCrlf = chrB(13) & chrB(10)
sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)
iStart = LenB (sStart)
iFormStart=iFormStart+iStart+1
while (iFormStart + 10) < iFormEnd
iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3
tStream.Type = 1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iFormStart
Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
tStream.Close
'取得表單項目名稱
iFormStart = InStrB(iInfoEnd,RequestData,sStart)
iFindStart = InStr(22,sInfo,"name=""",1)+6
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'如果是文件
if InStr (45,sInfo,"filename=""",1) > 0 then
set theFile=new FileInfo
'取得文件名
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileName=getFileName(sFileName)
theFile.FilePath=getFilePath(sFileName)
'取得文件類型
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileStart =iInfoEnd
theFile.FileSize = iFormStart -iInfoEnd -3
theFile.FormName=sFormName
if not objFile.Exists(sFormName) then
objFile.add sFormName,theFile
end if
else
'如果是表單項目
tStream.Type =1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iInfoEnd
Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sFormValue = tStream.ReadText
tStream.Close
if objForm.Exists(sFormName) then
objForm(sFormName)=objForm(sFormName)&", "&sFormValue
else
objForm.Add sFormName,sFormValue
end if
end if
iFormStart=iFormStart+iStart+1
wend
RequestData=""
set tStream =nothing
End Sub

Private Sub Class_Terminate
if Request.TotalBytes>0 then
objForm.RemoveAll
objFile.RemoveAll
set objForm=nothing
set objFile=nothing
Data_5xsoft.Close
set Data_5xsoft =nothing
end if
End Sub

Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function

Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function
End Class

Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
End Sub

Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=true
if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=FileStart
Data_5xsoft.to dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=false
end function
End Class
</SCRIPT>
文件二 upload.asp
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" >
照片上傳
<input type="file" name="file1" >
<input type="submit" value="提 交">
</form>
文件三 upfile.asp
<!--#include FILE="upload_5xsoft.inc"-->
<link href="MAIN1024.css" rel="stylesheet" type="text/css">
<%
Set upload = New upload_5xsoft
f= Server.MapPath("pic")&"/"
Set file = upload.file("file1")
n = right(file.FileName,4)
s=replace(now(),":","")
s=replace(now(),"-","")
s=replace(now()," ","")
file.SaveAs f&s&n
session("image")=s&n
Response.Write "上傳成功"
%>

6. ASP.NET網站中怎麼限制上傳視頻格式 比如限定為WMV格式的 需要怎麼做 求幫助 求解答

//up_file為前台的<asp:FileUpload />控櫻御件
if (up_file.PostedFile != null)
{
//要上傳的路徑

string Url = "FilesUpload/video/";
string filename;//文件名字
string hz;//後綴名
filename = up_file.FileName;
int pos = filename.IndexOf(".");
hz = filename.Substring((pos + 1)).ToLower();
if (hz != "mp4" && hz != "wmv" && hz != "桐頌肆avi" && hz != "rmvb"局轎)
{
Response.Write("<script>alert('本平台只支持上傳mp4，avi，wmv，rmvb為後綴的視頻文件！')</script>");
return;
}
//這里可以判斷下文件大小
else

{
//上傳方法

}
}

7. 如何在ASP.NET上上傳視頻

protected bool btnFileUpload_Click()
{
Boolean fileOK = false;
//拿純獲取上傳的文件名
string fileName = this.FileUpload1.FileName;
//獲取物理路徑
String path = Server.MapPath("images/");
//判斷上傳控制項是否上傳文件
if (FileUpload1.HasFile)
{
//判斷上傳文件的擴展名是否為允許的擴名".gif", ".png", ".jpeg", ".jpg" ,".bmp"
String fileExtension = System.IO.Path.GetExtension(fileName).ToLower();
String[] Extensions = { ".gif", ".png", ".jpeg", ".jpg", ".bmp" };
for (int i = 0; i < Extensions.Length; i++)
{
if (fileExtension == Extensions[i])
{
fileOK = true;
}
}
}
//如果上傳文件擴展名為允許的擴展名，則將文件保存在伺服器上指定的目錄中
if (fileOK)
{
try
{
ViewState["凳敏悉pic"] = "images/" + fileName.ToString();//獲取上傳成功後的路徑
this.FileUpload1.PostedFile.SaveAs(path + fileName);
return true;
//MessageBox("文件上傳完畢");
}
catch (Exception ex)
{
MessageBox("文件不能上傳，原因：" + ex.Message);
return false;
}
}
else
{
MessageBox("請正確的上傳圖片");
return false;
}
}

protected void MessageBox(string str)
{
Page.ClientScript.RegisterStartupScript(Page.GetType(), "message", "<script language='javascript' defer>alert('" + str + "');</script>");
}

把擴展棗乎名改為你需要的就可以了

8. asp 不能上傳視頻文件

，還算簡單，你自己稍微修改一下設置就可以用：
---upload.asp---
<%
Dim Upfile_Kings_Stream
Class Upload_Kings
Dim Form,File
Private Sub Class_Initialize
Dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
Dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Set Form=CreateObject("Scripting.Dictionary")
Set File=CreateObject("Scripting.Dictionary")
Set Upfile_Kings_Stream=CreateObject("Adodb.Stream")
Upfile_Kings_Stream.Mode=3
Upfile_Kings_Stream.Type=1
Upfile_Kings_Stream.Open
Upfile_Kings_Stream.Write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
While iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,""""塵蘆)
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""漏正")
If iFileNameStart>0 And iFileNameStart<返兄悔iFormEnd Then
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
If iEnd>iStart Then
mFileSize=iEnd-iStart-4
Else
mFileSize=0
End If
Set theFile=New FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
File.Add mFormName,theFile
End If
iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
Wend
End Sub

Private Function subString(theStart,theLen)
Dim i,c,stemp
Upfile_Kings_Stream.Position=theStart-1
stemp=""
For i=1 To theLen
If Upfile_Kings_Stream.EOS Then Exit For
c=ascB(Upfile_Kings_Stream.Read(1))
If c > 127 Then
If Upfile_Kings_Stream.EOS Then Exit For
stemp=stemp&Chr(AscW(ChrB(AscB(Upfile_Kings_Stream.Read(1)))&ChrB(c)))
i=i+1
Else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End Function

Private Function inString(theStart,varStr)
Dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
For i=theStart To Upfile_Kings_Stream.Size-theLen
If i>Upfile_Kings_Stream.Size Then Exit Function
Upfile_Kings_Stream.Position=i-1
If AscB(Upfile_Kings_Stream.Read(1))=AscB(midB(Str,1)) Then
InString=i
For j=2 To theLen
If Upfile_Kings_Stream.EOS Then
inString=0
Exit for
End If
If AscB(Upfile_Kings_Stream.Read(1))<>AscB(MidB(Str,j,1)) Then
InString=0
Exit For
End if
Next
If InString<>0 Then Exit Function
End If
Next
End Function

Private Function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = Mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End Function

Private Function toByte(Str)
Dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=Mid(Str,i,1)
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class

Class FileInfo
Dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
End Sub

Public Function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
If trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" Then Exit Function
If FileStart=0 or right(fullpath,1)="/" Then Exit Function
Set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Upfile_Kings_Stream.Position=FileStart-1
Upfile_Kings_Stream.Copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
Set dr=Nothing
SaveAs=0
End Function
End Class
%>
---uploadfile.asp---
<!--#include file="upload.asp"-->
<%
Dim AffixSize,AffixType,FilePath
AffixSize=100 '設置上傳文件大小，單位為K
AffixType=".swf" '設置上傳文件格式，用「|」分隔
Server.ScriptTimeOut=5000 '超時設置
FilePath="UploadFiles" '設置上傳文件的目錄
If Request("action")="saveupload" Then
Dim Affix,i
Dim Upload,File,Fso
Dim formName,FileName,FileType,FileSize,TotalBytes,ErrorType,ranNum,FullPath
Set Upload=New Upload_Kings
For Each formName In Upload.File
Set File=Upload.File(formName)
FileName=File.FileName
FileType=Lcase(Mid(FileName,InStrRev(FileName, ".")))
Affix=Split(AffixType,"|")
For i = 0 To UBound(Affix)
If FileType=Affix(i) Then
ErrorType=0
Exit For
Else
ErrorType=1
End If
Next
If ErrorType=1 Then
Response.Write("文件格式錯誤！")
Response.End
End If
FileSize=File.FileSize
If FileSize<1 Then
Response.Write("請先選擇你要上傳的文件！")
Response.End
End If
If FileSize>AffixSize*1024 Then
Response.Write("文件大小不得超過 "&AffixSize&" K\n當前的文件大小為 "&Int(FileSize/1024)&" K")
Response.End
End If
FullPath=Server.Mappath(FilePath)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(FullPath) Then Fso.CreateFolder(FullPath)
Set Fso=Nothing
'Randomize
'ranNum=Int(9000*Rnd)+1000
'FileName=Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)&ranNum&FileType
File.SaveAs FullPath&"\"&FileName
Set File=Nothing
Next
Set Upload=Nothing
Response.Write "上傳成功<BR><A href="""&FilePath&"/"&FileName&""" target=_blank>查看文件</A> <A href=""javascript:history.back();"">繼續上傳</A>"
Response.End
End If
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<FORM method=post enctype=multipart/form-data action="?action=saveupload">
<TR>
<TD height="26"><INPUT type=file name=file> *大小不能超過<%=AffixSize%>K
<INPUT style=FONT-SIZE:9pt type="submit" value=" 上 傳 " name=Submit>
</TR>
</FORM>
</TABLE>

9. asp 上傳 視頻代碼，要求簡潔 規范，分多多滴

/// <summary> /// 上傳文件到伺服器 /// </summary> protected void ButtonAdd_Click(object sender, EventArgs e) { string Userid = Session["num"].ToString(); string Homeworkname; string Type; int Size; string Date; string Url; if (FULHomeWork.PostedFile.FileName != "") { string[] filename = FULHomeWork.PostedFile.FileName.Split('.'); Homeworkname = filename[0].Substring(filename[0].LastIndexOf("\\")+1); Type = filename[1]; Size = FULHomeWork.PostedFile.ContentLength; Date = System.DateTime.Now.ToShortDateString(); string uppath = @"UpLoadFiles\" + Userid; Url = uppath.Replace(@"\", "/") + "/" + Homeworkname + '.' + Type; try { if (!System.IO.Directory.Exists(Server.MapPath(uppath))) { System.IO.Directory.CreateDirectory(Server.MapPath(uppath)); } string strUrl = Server.MapPath(uppath + @"\" + this.FULHomeWork.FileName); FULHomeWork.SaveAs(strUrl); Mssql sql = new Mssql(); string str = "insert into HomeWork (UserID,CourseName,CourseCount,HomeWorkName,Type,Size,Date,Remark,Url) values('" + Userid + "','" + DDLCourse.SelectedValue + "','" + DDLCount.SelectedValue + "','" + Homeworkname + "','" + Type + "','" + Size + "','" + Date + "','"+TBRemark.Text+"','" + Url + "')"; sql.ExecuteNoReturn(str); Response.Write("<script language=\"javascript\"> window.alert(\"" + Homeworkname + '.' + Type + " 作業添加成功！" + "\");window.location.href='AddHomeWork.aspx';</script>"); } catch { LabelMessage.Text = "文件上傳失敗！"; } } else { LabelMessage.Text = "請選擇要上傳的文件！"; } } public class Mssql { public SqlConnection myconn; /// <summary> /// 構造函數，並打開資料庫 /// </summary> public Mssql() { myconn = new SqlConnection(connectionString()); myconn.Open(); } /// <summary> /// 返回資料庫連接字元串 /// </summary> private string connectionString() { return ConfigurationManager.ConnectionStrings["ERCPConnectionString"].ConnectionString; } /// <summary> /// 根據傳入sql查詢語句，返回SqlDataReader類型對象。 /// </summary> public SqlDataReader GetResultAsDataReader(string strSql) { SqlCommand command = new SqlCommand(strSql, myconn); return command.ExecuteReader(); //SqlDataAdapter cm = command.ExecuteReader(); //return cm; } /// <summary> /// 根據傳入sql插入、更新、刪除語句完成資料庫的操作。 /// </summary> public void ExecuteNoReturn(string strSql) { SqlCommand myCommand = new SqlCommand(strSql, myconn); try { myCommand.ExecuteNonQuery(); } catch (Exception ex) { throw ex; } myCommand.Dispose(); myconn.Close(); } /// <summary> /// 關閉資料庫連接。 /// </summary> public void killMe() { myconn.Close(); }} 這上在上傳的文件中插入資料庫代碼----------------------------------------------------------------------------------- 也可以先獲得播放器地址後,再插進去啊