| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 428 人关注过本帖
标题:请教一视频上传问题
只看楼主 加入收藏
kf6600906
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2007-1-19
收藏
 问题点数:0 回复次数:1 
请教一视频上传问题

我上传的是avi各式的。但只有我的机子能放,其他人的只有声音。请各位大虾帮忙!本人不胜感激!代码如下:<tr>
<td colspan="3" height="200">
<p align="center">
<embed type="application/x-mplayer2" src="<%=MediaSrc%>" autostart="true" loop="false" height=194 width=205 showstatusbar="1" />
</p></td>
</tr>
数据库:<%@ LANGUAGE = VBScript CodePage = 936%>
<style type="text/css">
body {
font-size:12px;
}
</style>
<%
'Option Explicit
Response.Buffer = True
If Not Response.IsClientConnected Then
Response.End()
End If
Response.Charset = "GB2312"
%>
<!--#include file="upload_5xsoft.inc"-->
<%
Dim FileMaxSize
FileMaxSize = 1048576 * 20
If Request.QueryString("act")="add" Then
Server.ScriptTimeout=999
Dim path,Upload,file1,msg
path="/trade/media"
Set Upload=new upload_5xSoft '建立上传对象
Dim mSrc
Set file1 = Upload.File("file")
'On Error Resume Next
if file1.FileSize>0 and file1.FileSize<FileMaxSize then
dim fileName, filetype
fileName = file1.filename
filetype=Right(fileName,4)
'Strcomp(str1,str2,i) i=1时不区分大小写,
If StrComp(filetype,".wmv",1)=0 or StrComp(filetype,".avi",1)=0 or StrComp(filetype,".mpg",1)=0 or StrComp(filetype,".mp3",1)=0 Then
Dim num
Randomize
num = int(rnd * 99)
fileName = Cstr( right(year(now),2) & month(now) & day(now) & hour(now) & minute(now) & Cstr(num) ) & filetype
mSrc = path & "/" & fileName
file1.SaveAs Server.Mappath(mSrc) '保存文件
Response.Write("<script>parent.document.form1.URL.value=""" & mSrc & """;</script>")
msg="上传成功!"
color="green"
else
msg="上传文件的格式不对"
color="red"
end if
else
msg="文件大小超出限额"
color="red"
end if
response.Write("<font color=" & color & ">" & msg & "</font>&nbsp;&nbsp;&nbsp;&nbsp;<a href='uploadMedia.asp'>继续上传</a>")
Response.End()
Else
%>
<script>
function formcheck() {
if(document.getElementById("file").value == "") {
alert("请选择上传文件");
document.getElementById("file").focus();
return false;
}
form_upload.Submitbtn.value = "上传中,请稍后...";
return true;
}
</script>

<form action="uploadMedia.asp?act=add" method="post" enctype="multipart/form-data" id="form_upload" name="form_upload" onsubmit="return formcheck()">
<input name="file" type="file" id="file" size="15" />
<input type="submit" name="Submitbtn" value="上传" />
文件大小&lt;<font color="#FF0000">20M</font> 文件类型:wmv,avi,mpg
</form>
<%End If%>

搜索更多相关主题的帖子: 视频 
2007-01-19 09:33
kf6600906
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2007-1-19
收藏
得分:0 
拜托给点道义上的同情行不!
2007-01-19 11:57
快速回复:请教一视频上传问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020161 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved