asp上传视频的代码

‘壹’ 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 "上传成功"
%>

‘贰’ ASP.NET里怎样上传视频啊，很急很急的说，亲们帮帮忙！请写下C#代码，感激不尽啊，多谢多谢！

恩，给你参考一下吧：

前台页面：

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script src="../../Scripts/jquery-1.4.1.min.js" type="text/javascript"></script>
<script src="../../Plug/Editor/kindeditor-min.js" type="text/javascript"></script>
<script src="../../Plug/jquery.validate/jquery.validate.js" type="text/javascript"></script>
<link href="../../Plug/jquery.validate/jquery.validate.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
$(function () {
$("#form1").validate();
});
</script>
</head>
<body>
<form id="form1" runat="server">
<div id="crumbs">
</div>
<div id="wrapper">
<div class="contain">
<table border="0" cellpadding="0" cellspacing="0" class="table">
<tr>
<th class="header" colspan="2">
企业视屏上传
</th>
</tr>
<%-- <tr>
<td class="tdl" style="width: 108px;">
<span class="red">*</span> 新闻标题：
</td>
<td class="tdr">
<asp:TextBox ID="txtName" runat="server" CssClass="tbox required" MaxLength="100"></asp:TextBox>
</td>
</tr>--%>
<tr>
<td class="tdl" style="width: 108px">
文件名：</td>
<td class="tdr ">
<asp:TextBox ID="txtName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td class="tdl" style="width: 108px">
选择文件：
</td>
<td class="tdr ">
<br />
<asp:FileUpload ID="FileUpload" runat="server" />
<%-- <asp:LinkButton ID="lbtnDelImg" runat="server" Visible="false" OnClick="lbtnDelImg_Click">【删除文件】</asp:LinkButton>
<span class="tis">图片宽高比例：600*400，仅支持jpg、gif格式，图片大小200K以内</span>--%>
</td>
</tr>
<tr>
<td class="tdl" style="width: 108px;">
作者/上传人：</td>
<td class="tdr">
<asp:TextBox ID="txtAuthor" runat="server"></asp:TextBox>
</td>
</tr>
<%--<tr>
<td class="tdl" style="width: 108px;">
<span class="red">*</span> 新闻内容：
</td>
<td class="tdr">
<textarea id="Content" runat="server" style="width: 80%; height: 300px;"></textarea>
</td>
</tr>--%>
<tr>
<td class="tdl" style="width: 108px;">
</td>
<td class="tdr">
<asp:CheckBox ID="ckRec" runat="server" Text="推荐" />
&nbsp;
<asp:CheckBox ID="ckLock" runat="server" Text="锁定" />
</td>
</tr>
<tr>
<td class="tdl" style="width: 108px">
排序ID：
</td>
<td class="tdr">
<asp:TextBox ID="txtSort" runat="server" Width="40px" MaxLength="4" Text="100" onkeyup="this.value=this.value.replace(/D/g,'')"
onafterpaste="this.value=this.value.replace(/D/g,'')"></asp:TextBox>
<span class="tis">数字越小越往前排序</span>
</td>
</tr>
<tr>
<td class="foot">
</td>
<td class="foot">
&nbsp;<asp:Button ID="btnUpImg" runat="server" Text="上传" CssClass="button" OnClick="btnUpImg_Click" />
&nbsp;<input type="button" value="返回列表" onclick="window.location.href='List.aspx'" class="button" />
</td>
</tr>
</table>
</div>
</div>
</form>
</body>
</html>

后台代码：

protected void btnUpImg_Click(object sender, EventArgs e)
{
if (FileUpload.HasFile)
{
string url = "";
string type = "";
int size = 0;
string guid = "";
int pid = 57;
int id = Falcon.Function.GetQueryInt("id", 0);
string path = Server.MapPath("~/Files/");
if (FileUpload.HasFile)
{
var file = Request.Files[0];
string filename = Path.GetFileName(file.FileName);
guid = Guid.NewGuid().ToString() + "_" + filename;
string fullpath = Path.Combine(path, guid);
url = "/Files/" + guid;
type = file.ContentType;
size = file.ContentLength;
file.SaveAs(fullpath);
}
string author = txtAuthor.Text;
int sort = Falcon.Function.ToInt(txtSort.Text.Trim(), 100);
if (id == 0)
{
if (new BLL.F_Files().Add(pid, txtName.Text.Trim().ToString(), url, author, size, type, ckRec.Checked, ckLock.Checked, sort))
{
Response.Redirect("list.aspx");
}
else
{
ClientScript.RegisterStartupScript(this.GetType(), "", "alert('添加失败！')", true);
}
}
else
{
if (new BLL.F_Files().Update(id, pid, txtName.Text.Trim().ToString(), url, author, size, type, ckRec.Checked, ckLock.Checked, sort))
{
Response.Redirect("list.aspx");
}
else
{
ClientScript.RegisterStartupScript(this.GetType(), "", "alert('修改失败！')", true);
}
}
}
else
{
ClientScript.RegisterStartupScript(this.GetType(), "", "alert('请选择文件！')", true);
}
}

效果如下：

‘叁’ asp如何实现图片和视频批量上传

ASP批量上传图片代码风声无组件上传类'上传界面 up.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="../Connections/conn.asp" --><%
'主菜单
Dim zpmenurs
Dim zpmenurs_numRowsSet zpmenurs = Server.CreateObject("ADODB.Recordset")
zpmenurs.ActiveConnection = MM_conn_STRING
zpmenurs.Source = "SELECT * FROM menu_2 WHERE menu=3"
zpmenurs.CursorType = 0
zpmenurs.CursorLocation = 2
zpmenurs.LockType = 1
zpmenurs.Open()zpmenurs_numRows = 0
%><%'次级菜单
Dim zpchildrs
Dim zpchildrs_numRowsSet zpchildrs = Server.CreateObject("ADODB.Recordset")
zpchildrs.ActiveConnection = MM_conn_STRING
zpchildrs.Source = "SELECT * FROM menu_2child"
zpchildrs.CursorType = 0
zpchildrs.CursorLocation = 2
zpchildrs.LockType = 1
zpchildrs.Open()zpchildrs_numRows = 0
%>//连动菜单脚本 如果不做连动菜单可以删除//////////////////////////////////////////-------------开始----------------------------------------------------------------------
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichel = eval("submenu" + sid);
if (whichel.style.display == "none")
{
eval("submenu" + sid + ".style.display='';");
}
else
{
eval("submenu" + sid + ".style.display='none';");
}
}
</SCRIPT><SCRIPT language=JavaScript type=text/javascript>
<!--var arrDynaList = new Array();
var arrDL1 = new Array();arrDL1[1] = "mainmenu"; // Name of parent list box
arrDL1[2] = "picform1"; // Name of form containing parent list box
arrDL1[3] = "submenu"; // Name of child list box
arrDL1[4] = "picform1"; // Name of form containing child list box
arrDL1[5] = arrDynaList;

<%
Dim txtDynaListRelation, txtDynaListLabel, txtDynaListValue, = "menu_father" // Name of recordset field relating to parent
txtDynaListLabel = "menu_child" // Name of recordset field for child Item Label
txtDynaListValue = "menu_child" // Name of recordset field for child Value
Set oDynaListRS = zpchildrs // Name of child list box recordset

Dim varDynaList
varDynaList = -1Dim varMaxWidth
varMaxWidth = "1"Dim varCheckGroup
varCheckGroup = oDynaListRS.Fields.Item(txtDynaListRelation).ValueDim varCheckLength
varCheckLength = 0Dim varMaxLength
varMaxLength = 0While (NOT oDynaListRS.EOF)If (varCheckGroup <> oDynaListRS.Fields.Item(txtDynaListRelation).Value) Then
If (varCheckLength > varMaxLength) Then
varMaxLength = varCheckLength
End If
varCheckLength = 0
End If
%>
arrDynaList[<%=(varDynaList+1)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListRelation).Value)%>"
arrDynaList[<%=(varDynaList+2)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListLabel).Value)%>"
arrDynaList[<%=(varDynaList+3)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListValue).Value)%>"
<%
If (len(oDynaListRS.Fields.Item(txtDynaListLabel).Value) > len(varMaxWidth)) Then
varMaxWidth = oDynaListRS.Fields.Item(txtDynaListLabel).Value
End If
varCheckLength = varCheckLength + 1
varDynaList = varDynaList + 3
oDynaListRS.MoveNext()
WendIf (varCheckLength > varMaxLength) Then
varMaxLength = varCheckLength
End If
%>//-->
</SCRIPT><SCRIPT language=JavaScript type=text/javascript>
<!--
function setDynaList(arrDL){var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];
var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];
var arrList = arrDL[5];

clearDynaList(oList2);

if (oList1.selectedIndex == -1){
oList1.selectedIndex = 0;
}populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);
return true;
}

function clearDynaList(oList){for (var i = oList.options.length; i >= 0; i--){
oList.options[i] = null;
}

oList.selectedIndex = -1;
}

function populateDynaList(oList, nIndex, aArray){for (var i = 0; i < aArray.length; i= i + 3){
if (aArray[i] == nIndex){
oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);
}
}if (oList.options.length == 0){
oList.options[oList.options.length] = new Option("[none available]",0);
}

oList.selectedIndex = 0;
}function Kermy_JS(jsStr) {
return eval(jsStr)
}function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</SCRIPT>-------------------------------连动菜单结束-----------------------------------//以下为上传界面==============================================<TABLE borderColor=#0099ff height=80 cellSpacing=1 cellPadding=0 width="100%" bgColor=#0099ff border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width="15%" bgColor=#ffffff height=37>选择类型：</TD>
<TD vAlign=center align=left bgColor=#ffffff colSpan=2>添加具体项目：<SELECT id=mainmenu onchange="Kermy_JS('setDynaList(arrDL1)')" name=mainmenu ?> <OPTION value="<%=(zpmenurs.Fields.Item(" selected menu_father?).Value)%>"></OPTION></SELECT><SELECT id=submenu name=submenu></SELECT><% '上传文件个数
num=1

if request.querystring("number")<>"" Then

num=Trim(request.querystring("number"))end if
%>上传文件数 <SELECT onchange="MM_jumpMenu('parent',this,0)" name=menu1> <OPTION selected>== 请选择==</OPTION> <OPTION value=?number=1>1</OPTION> <OPTION value="?number=<%=i%>"></OPTION></SELECT> <INPUT id=num type=hidden value="<%=num %>" name=num></TD></TR><%
for j=1 to num
%>
<TR>
<TD vAlign=center align=left bgColor=#ffffff>上传图片<%= j %>：</TD>
<TD vAlign=center align=left bgColor=#ffffff colSpan=2><INPUT id=pic style="WIDTH: 100px" type=file onchange=null.value=no name=pic> </TD></TR><% next %>
<TR>
<TD vAlign=center align=left bgColor=#ffffff> </TD>
<TD vAlign=center align=left bgColor=#ffffff colSpan=2><INPUT type=submit value=提交 name=Submit> <LABEL><INPUT type=reset value=重置 name=Submit2> </LABEL></TD></TR>
<TR>
<TD height=1></TD>
<TD width="34%"></TD>
<TD width="51%"></TD></TR></TBODY></TABLE><%
zpmenurs.Close()
Set zpmenurs = Nothing
%><%
zpchildrs.Close()
Set zpchildrs = Nothing
%>up.asp 结束

‘肆’ 我想用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 。