網站首頁 實踐論壇最新消息文章中心影音中心影像圖集檔案倉儲創意學習網頁特效實踐柑仔店 線上交流師生部落格 酷站推荐 自訂風格教學日誌
  您的位置: 實踐資訊管理平台 >> BLOG日誌 >> 後台管理新增線上傳送flash與影片檔隱/顯側欄   
   會 員 登 錄
帳號:
密碼:
Cookie:
  會員找回密碼
請您註冊或登錄!
   日 誌 分 類
   BLOG 日 歷
73 2019 - 12 48
1234567
891011121314
15161718192021
22232425262728
293031
   最 新 日 誌
  快速診斷出系統故障的..
  「實踐資訊管理平台」..
  觀看flash動漫程式asp..
  中醫保健
  後台管理新增線上傳送..
  blog發表測試
   精 華 日 誌
暫無
   熱 門 排 行
  觀看flash動漫程式asp..
  中醫保健
  blog發表測試
  後台管理新增線上傳送..
  快速診斷出系統故障的..
  「實踐資訊管理平台」..
   最 新 評 論
  不錯∼~!還不錯0.0繼續..
  [heart][eek]暸ㄌ
未知 後台管理新增線上傳送flash與影片檔
[時間:2007/7/16 | 來源:本站原創]
[字體: ]


後台管理新增線上傳送flash與影片檔
原先的設計只能加入url,無法在新增影片資料時同步上傳影片檔案,稍有不便。
新增以下程式碼(摘錄部份)可同步新增flash與wmv等檔案。
按此在新窗口打開圖片
<%
ztpic=Request.QueryString("ztpic")
select case request("action")
case "wmv":
call wmv()
case "media":
call media()
end select
'============================================================上傳flash
sub media()
if Request.QueryString("submit")="media" then
uploadpath="up/swf/"
uploadsize="10240"
uploadtype="swf"
Set Uprequest=new UpLoadClass
    Uprequest.SavePath=uploadpath
    Uprequest.MaxSize=uploadsize*1024 
    Uprequest.FileType=uploadtype
    AutoSave=true
    Uprequest.open
  if Uprequest.form("file_Err")<>0  then
  select case Uprequest.form("file_Err")
  case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案超過"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上傳</a>]</font></div>"
  case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案格式不對 [<a href='javascript:history.go(-1)']>重新上傳</a>]</font></div>"
  case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案太大且格式不對 [<a href='javascript:history.go(-1)'>重新上傳</a>]</font></div>"
  end select
  response.write str
  else
  response.write "<script language=""javascript"">parent.form1.url1.value='"&Uprequest.SavePath&Uprequest.Form("file")&"';" 
  response.write "</script>"
  response.write "</script>"
size=Uprequest.Form("file_size")
showsize=size & " Byte"   
         if size>1024 then  
            size=(size\1024)  
            showsize=size & " KB"  
         end if  
         if size>1024 then  
            size=(size/1024)  
            showsize=formatnumber(size,2) & " MB"          
         end if 
  response.write "<script language=""javascript"">parent.form2.url.value='"&Uprequest.SavePath&Uprequest.Form("file")&"';" 
  response.write "</script>"
  response.write "<div style=""padding-top:5px;padding-bottom:5px;""> <font color=red>檔案上傳成功</font> [<a href='javascript:history.go(-1)'>重新上傳</a>]</div>"
  end if
Set Uprequest=nothing
end if
response.write "<form name=form action=?action=media&submit=media method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class='tx' size='20'>&nbsp;"
response.write "<input type=submit name=submit value=上傳 class=""tx1"">"
response.write "</form>"
end sub

'============================================================上傳影片wmv asf flv
sub wmv()
if Request.QueryString("submit")="wmv" then
uploadpath="up/wmv/"
uploadsize="20480"
uploadtype="wmv/asf/flv/avi"
Set Uprequest=new UpLoadClass
    Uprequest.SavePath=uploadpath
    Uprequest.MaxSize=uploadsize*1024 
    Uprequest.FileType=uploadtype
    AutoSave=true
    Uprequest.open
  if Uprequest.form("file_Err")<>0  then
  select case Uprequest.form("file_Err")
  case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案超過"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上傳</a>]</font></div>"
  case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案格式不對 [<a href='javascript:history.go(-1)']>重新上傳</a>]</font></div>"
  case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""> <font color=blue>上傳不成功!檔案太大且格式不對 [<a href='javascript:history.go(-1)'>重新上傳</a>]</font></div>"
  end select
  response.write str
  else
  response.write "<script language=""javascript"">parent.form1.url1.value='"&Uprequest.SavePath&Uprequest.Form("file")&"';" 
  response.write "</script>"
  response.write "</script>"
size=Uprequest.Form("file_size")
showsize=size & " Byte"   
         if size>1024 then  
            size=(size\1024)  
            showsize=size & " KB"  
         end if  
         if size>1024 then  
            size=(size/1024)  
            showsize=formatnumber(size,2) & " MB"          
         end if 
  response.write "<script language=""javascript"">parent.form2.url1.value='"&Uprequest.SavePath&Uprequest.Form("file")&"';" 
  response.write "</script>"
  response.write "<div style=""padding-top:5px;padding-bottom:5px;""> <font color=red>檔案上傳成功</font> [<a href='javascript:history.go(-1)'>重新上傳</a>]</div>"
  end if
Set Uprequest=nothing
end if
response.write "<form name=form action=?action=wmv&submit=wmv method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class='tx' size='20'>&nbsp;"
response.write "<input type=submit name=submit value=上傳 class=""tx1"">"
response.write "</form>"
end sub

上傳後之影片欣賞範例

[本日誌由friber於2007/7/16 下午 02:48:35編輯]
引用通告(113):http://cds.sjps.ntpc.edu.tw//blog_tb.asp?id=5

上篇日誌:blog發表測試
下篇日誌:中醫保健
相關評論與引用通告
引用這個評論 發表評論:wen76566862007/10/13 下午 07:21:56 
暸ㄌ
  • 此日誌禁止發表評論
  • 當前風格:藍色理想  
    關於本站 | 友情連接 | 後台管理 |
    系統來源:HxCms V7.6  頁面執行時間:218.75MS
    實踐資訊管理平台 版權所有  網站架設管理:蔡玉貴(friber)