视频图片上传网站源码(上传视频生成网址)
本文目录一览:
我有个图片要上传替换到网站源代码
你这段代码中压根就不包含图片,你可以把整个文件发出来,帮你看下怎么修改!
可以上传播放本地视频网站的源代码
你是说
要上传
自己电脑里的mv么?根据步骤,我建议的步骤如下:1.你可以去土豆(或者是别的什么视频网站,56、优酷什么都行)申请个号,先上传到土豆上。2.打开,在视频下面就能看到
“把视频贴到我的博客或BBS”这个选项,点开,有三个地址,选FLASH的那个复制(我建议你复制这个,因为这个一般不会卡,当然也可以用
另外两个地址,不过要在空间建的
模块就不同了而已,但基本步骤一样的)3.再在
空间
自定义
里选择
模块
新建模块
FLASH
模块
在
“Flash动画地址:”
那把复制的那个地址粘贴上(要是你开始复制是
HTML代码
,那就选择
视频模块)。
4.建好了,可以改变大小,位置什么的了----估计你也是肯定会了。5.最后保存好了。要是直接要从
网上来贴mv
,就从第二步开始好了(也就是不用自己费事往别的地方上传了)。这全我自己打出来的哈,够意思的吧……
如果帮助到您,请记得采纳为满意答案哈,谢谢!祝您生活愉快!
参考资料:
怎样上传网站源码
一、安装cuteftp:一步步按提示点选“下一步”,或“是”直到完成安装。最后单击“我同意”。
二、根据向导,完成上传站点设置:
1.输入上传站点的标志(可以任意);
2.设置上传站点的地址,(由教师或服务器指定,如:172.21.15.22);
3.填写上传的用户名和密码(由教师或申请上传服务时指定,如:用户名stu,密码123);
4.可以先设置默认本地目录(要上传文件所在目录),也可直接点“下一步”跳过;
5.单击“完成”。
三上传文件:
1. 在弹出的窗口中,左窗口是本地窗口,在其中选择要上传的文件;
2. 点击上传按钮“upload”;
3. 就会在右边的窗口中看到以上传的文件。
可以自己上传图片和视频,然后把链接放到自己网站上的,这种网站叫什么?
不要使用不懂的什么人都什么模板,直接使用大型开源程序安装一个网站,就可以达到你说的那个功能
图片上传的ASP源代码
4个文件实现无组件上传4个文件实现无组件上传
嵌套式调用:
iframe name="ad" frameborder=0 width=100% height=50 scrolling=no src=uploada.asp/iframe
直接链接:uploada.asp
文件保存路径:upload
上传文件类型和大小自己设置
===========================================
第一个文件:inc/confing.asp(inc为文件夹名称)
%
Const EnableUploadFile="Yes" '是否开放文件上传
Const MaxFileSize=200 '上传文件大小限制
Const UpFileType="gif|jpg|bmp|png|swf|doc|txt|rar|zip" '允许的上传文件类型
%
===========================================
第二个文件:inc/upload.asp
dim oUpFileStream
Class upload_file
dim Form‚File‚Version
Private Sub Class_Initialize
'定义变量
dim RequestBinDate‚sStart‚bCrLf‚sInfo‚iInfoStart‚iInfoEnd‚tStream‚iStart‚oFileInfo
dim iFileSize‚sFilePath‚sFileType‚sFormvalue‚sFileName
dim iFindStart‚iFindEnd
dim iFormStart‚iFormEnd‚sFormName
'代码开始
Version="无组件上传类 Version 0.96"
set Form = Server.CreateObject("scripting.Dictionary")
set File = Server.CreateObject("scripting.Dictionary")
if Request.TotalBytes 1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set oUpFileStream = Server.CreateObject("adodb.stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)
oUpFileStream.Position=0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = chrB(13) chrB(10)
'取得每个项目之间的分隔符
sStart = MidB(RequestBinDate‚1‚ InStrB(1‚RequestBinDate‚bCrLf)-1)
iStart = LenB (sStart)
iFormStart = iStart+2
'分解项目
Do
iInfoEnd = InStrB(iFormStart‚RequestBinDate‚bCrLf bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream‚iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
'取得表单项目名称
iFormStart = InStrB(iInfoEnd‚RequestBinDate‚sStart)-1
iFindStart = InStr(22‚sInfo‚"name="""‚1)+6
iFindEnd = InStr(iFindStart‚sInfo‚""""‚1)
sFormName = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
'如果是文件
if InStr (45‚sInfo‚"filename="""‚1) 0 then
set oFileInfo= new FileInfo
'取得文件属性
iFindStart = InStr(iFindEnd‚sInfo‚"filename="""‚1)+10
iFindEnd = InStr(iFindStart‚sInfo‚""""‚1)
sFileName = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
oFileInfo.FileName = GetFileName(sFileName)
oFileInfo.FilePath = GetFilePath(sFileName)
oFileInfo.FileExt = GetFileExt(sFileName)
iFindStart = InStr(iFindEnd‚sInfo‚"Content-Type: "‚1)+14
iFindEnd = InStr(iFindStart‚sInfo‚vbCr)
oFileInfo.FileType = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName‚oFileInfo
else
'如果是表单项目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream‚iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.Charset = "gb2312"
sFormvalue = tStream.ReadText
form.Add sFormName‚sFormvalue
end if
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
loop until (iFormStart+2) = iFormEnd
RequestBinDate=""
set tStream = nothing
End Sub
Private Sub Class_Terminate
'清除变量及对像
if not Request.TotalBytes1 then
oUpFileStream.Close
set oUpFileStream =nothing
end if
Form.RemoveAll
File.RemoveAll
set Form=nothing
set File=nothing
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
'取得扩展名
Private function GetFileExt(FullPath)
If FullPath "" Then
GetFileExt = mid(FullPath‚InStrRev(FullPath‚ ".")+1)
Else
GetFileExt = ""
End If
End function
End Class
'文件属性类
Class FileInfo
dim FormName‚FileName‚FilePath‚FileSize‚FileType‚FileStart‚FileExt
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
FileExt = ""
End Sub
'保存文件方法
Public function SaveToFile(FullPath)
dim oFileStream‚ErrorChar‚i
SaveToFile=1
if trim(fullpath)="" or right(fullpath‚1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream‚FileSize
oFileStream.SaveToFile FullPath‚2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
End Class
%
========================================
第三个文件:uploada.asp
!--#include file="Inc/config.asp"--
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
style type="text/css"
!--
BODY{
BACKGROUND-COLOR: #f5feed;
font-size:9pt
}
.tx1 { height: 20px;font-size: 9pt; border: 1px solid; border-color: #000000; color: #0000FF}
--
/style
link href="Manage/Inc/ManageMent.css" rel="stylesheet" type="text/css"
/head
body leftmargin="0" topmargin="0"
%
if EnableUploadFile="Yes" then
%
form action="upfilea.asp" method="post" name="form1" enctype="multipart/form-data"
input name="FileName" type="FILE" class="10e8-32fa-d356-e668 tx1" size="20"
input type="submit" name="Submit" value="上传" style="border:1px double rgb(88‚88‚88);font:9pt"
/form
%
end if
%
/body
/html
============================
第四个文件:upfilea.asp
!--#include file="Inc/config.asp"--
!--#include file="Inc/upload.asp"--
%
const upload_type=0 '上传方法:0=无惧无组件上传类,1=FSO上传 2=lyfupload,3=aspupload,4=chinaaspupload
dim upload‚file‚formName‚SavePath‚filename‚fileExt
dim upNum
dim EnableUpload
dim Forumupload
dim ranNum
dim uploadfiletype
dim msg‚founderr
msg=""
founderr=false
EnableUpload=false
SavePath = "Upload" '存放上传文件的目录
if right(SavePath‚1)"/" then SavePath=SavePath"/" '在目录后加(/)
%
%
ComeinSTR=lcase(request.servervariables("HTTP_HOST"))
Url=split(ComeinSTR)
yourthing=Url(0)
%
html
head
link href="Manage/Inc/ManageMent.css" rel="stylesheet" type="text/css"
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
/head
body
%
if EnableUploadFile="NO" then
response.write "系统未开放文件上传功能"
else
select case upload_type
case 0
call upload_0() '使用化境无组件上传类
case else
end select
end if
%
/body
/html
%
sub upload_0() '使用化境无组件上传类
set upload=new upload_file '建立上传对象
for each formName in upload.file '列出所有上传了的文件
set file=upload.file(formName) '生成一个文件对象
if file.filesize100 then
msg="请先选择你要上传的文件!"
founderr=true
end if
if file.filesize(MaxFileSize*1024) then
msg="文件大小超过了限制,最大只能上传" CStr(MaxFileSize) "K的文件!"
founderr=true
end if
fileExt=lcase(file.FileExt)
Forumupload=split(UpFileType‚"|")
for i=0 to ubound(Forumupload)
if fileEXT=trim(Forumupload(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
EnableUpload=false
end if
if EnableUpload=false then
'msg="这种文件类型不允许上传!\n\n只允许上传这几种文件类型:" UpFileType
response.write"script language=javascriptalert('这种文件类型不允许上传!\n\n只允许上传这几种文件类型:"
UpFileType "');"
response.write"javascript:history.go(-1)/script"
founderr=true
end if
strJS="script language=javascript" vbcrlf
if founderrtrue then
randomize
ranNum=int(900*rnd)+100
filename=SavePathyear(now)month(now)day(now)hour(now)minute(now)second(now)ranNum"."fileExt
file.SaveToFile Server.mappath(FileName) '保存文件
msg="上传文件成功!"
FileType=right(fileExt‚3)
select case FileType
case "jpg"‚"gif"‚"png"‚"bmp"
case "swf"
case else
strJS=strJS "range.text=' 点击浏览该文件';" vbcrlf
end select
end if
strJS=strJS "alert('" msg "');" vbcrlf
strJS=strJS "/script"
response.write strJS
response.write "图片上传成功!文件路径是 /" filename "br"
response.write "http://";; yourthing "/" filename "br"
set file=nothing
next
set upload=nothing
end sub
%