asp视频上传
1. ASP.NET对于后台上传视频，前台播放是怎么做的，能否提供下思路
上传视频有几种，
1、普通上传，就是视频文件不大，大概10M左右，直接上橘哪洞传，一般都是flv格式的文件
2、大文件上传，通过ftp上传到圆枯指定的路径，后台就输入文件名就可以了。一般也是flv格式
3、就是第三方的视频，比如优酷之类，就可以直接报第三方的视频复制过来。
1和2，需要在前台有专门播放flv的swf文件进行播放。
第三种就直接显示在页面上。因为从第三方复制过缓返来的视频都是swf结尾的
2. asp做的网站一般能上传多大的视频
一、通常情况下是不允许上传拍薯视频的,专用空间例梁贺兆外;
二、上传限制是橡租服务器上设置的,一般是2~4兆左右
3. 我想用asp实现视频上传，但提示ADODB.Stream (0x800A0BBA)错误，不能实现视频上传代码如下：
楼主好，你的问题出现在这地方 <form action="upload.asp" method="post" enctype="multipart/form-data" name="form">
注意表单属性的 enctype 的值multipart/form-data 它的意思是以二进制的数据格式来传输，所以传输到你的程序里是二进制数据，
如果你更改下你的程序，设置enctype="multipart/form-data" 你就会发现可以上传文件了，但是此时新的问题又来了：
你发现 Request("name") 无法获取到值了，非常令人抓狂，解决办法如下：
1，不设置form的属性 enctype="multipart/form-data"； 此时可以获取客户端体积的text类型的值 request("name")
2, 上传文件采取弹出窗口或者iframe来实现，上传成功后通过js脚本设置当前表单对应的图片字段的值，
form表单只保存上传成功后的文件名(路径)即可。
附件是我08年写的示例代码，请参考，有不明白的地方，请通过网络留言给我。
此外，我建议你使用“无惧上传组件”，毕竟自己写会出现不少问题，而且代码无法复用。请参考
http://www.codefans.net/down/3757.shtml 。
4. 我建的是asp网页，在上传视频的时候只能上传100K的视频，不知怎么改，请知到的回复我一下，谢谢！
有两种可能,一是代码中限制了最大慎冲上传的轮陆文件大小(或宽桐歼是通过配置参数限制),二是IIS默认的ASP上传大小限制,这个限制默认是200K.
第一种情况可以修改代码或配置文件,第二种要修改IIS的配置文件,一个XML文件,可网络到解决方法.
先确定是哪个原因.再对应去解决.
保存文件名“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(); }} 这上在上传的文件中插入数据库代码----------------------------------------------------------------------------------- 也可以先获得播放器地址后,再插进去啊