网页flash动画的保存程序源代码Webpage flash animationpreservation program source code
"Flash animation preservation program source code.Txt withouta line you see me online, hurry to stealth, rest assured. I'mnot going to pester you. Keep good now but never abandon theydo. - Web programming Flash animation
-- -- -- -- -- -- the following is the code of the procedure-- -- -- ---
-- -- -- -- -- -- S ave SWF.html -- -- -- --
<html>
<head>
<title> page Flash animation save program </title>
</head>
<body>
<script language= "JavaScript" >
//function is used to achieve the Flash file information intothe array
Function writearray (FILESRC, f ilewidth, f ileheight) {Swff ileurl.push (FILESRC) ;
Swffilew.push (f ilewidth) ;
Swff ileh.push (f ileheight) ;
Return;
}
URL treatment has been used for information / function Flashfile
Function processurl (myurl) {
Var endurl ;
If (myurl. indexOf ("http://") ! =-1) endurl=myurl ;
{else
Var pageurl;
Hostname=external.menuArguments. location.hostname;
Pathname=external.menuArguments. location.pathname;
Pageurl= "http://" +hostname+pathname;
Pagepath=pageurl. substring (0, pageurl. lastIndexOf ("/") +1) ;I f (myurl. charAt (0) =! ". " && myur l.charAt (0) ! = "/
endurl=pagepath+myurl") ;
Else if (myurl.charAt (0) = = "/" endurl= "http://"+hos tname+myurl) ;
{else
I f (myurl. charAt (0) = = "{. ")
Endurl=pagepath;
Whi l e (myurl. charAt (0) = = "{. ")
Myurl=myurl. substr (3) ;
Endurl=endurl. substring (0, endurl. length-1) ;
Endurl=endurl. substring (0, endurl. lastIndexOf ("/") +1) ;}
Endurl=endurl+myurl ;
}
}
}
Return (endurl) ;
}
/ / function is used to get all the Flash file informationFunction getinfo () {
For (i=0; i<srcDocument.applets. length; i++) for all pageswithin the cycle / Flash file
{tObject=srcDocument.applets[i] ; //Object reference page setT=tObject. codeBase; / / get the current Object object types(developers)
Ss=t.toLowerCase () ;
If (ss. indexOf (macromedia.com) >0) / / judge the plug-in isnot Macromedia Flash plug-in development
{tt=tObject.getAttribute ("Movie") ; / / <param name=movie. . .The value of > URL of SWF
W=tObject.width; / / Flash width value
H=tObject.height; / / Flash height
Tt=processurl (TT) ;
Writearray (TT, W, H) ;
}
}
Return;
}
// function is used to create user window for preview and saveFunction MainWindow () {
Var outstr="";
Var openwin=window.open (", ", "flashbrowser", "height=400,width=625, toolbar=no, location=no, scrollbars=yes, status=no,menubar=no, top=100, left=100") ;
With (openwin.document) {
Open () ;
Writ eln ("<HTML>") ;
Wri t eln ("<HEAD>") ;
Writeln ("<TITLE> page Flash file saver <\/TITLE>") ;
方法 “<风格类型= “文本/ CSS “>”
方法 “{”
方法 “scrollbar-face-color # dce0e2scrollbar-highlight-color #ffffff立体滚动条阴影的颜色 #
687888 scrollbar-3dlight-color # 687888scrollbar-arrow-color # 6e7e88 scrollbar-track-color #bcbfc0 scrol lbar-darkshadow-color # dce0e2 ”
方法 “} ”
方法” 。 A1 {文字装饰无颜色 # 000000 } ”
方法 “a.a1悬停{文字装饰下划线颜色红}”
方法 “a.a1主动{文字装饰下划线颜色 # 000000 } ” 方法 “a.a1参观{文字装饰下划线颜色 # 000000 } ” 方法 “< /样式”
方法 “< /头>”
方法 “<身体左边界= “0” “0”marginwidth左边空白=
= “0” = “0” >设定网页空白高度”
方法 “<表格宽度= “100%” = “0”边境cellspacing
= “0” = “0” > “cellpadding
方法 “< TR >”
方法 “< td width= “150” height= “310”调整为“正确”的垂直对齐方式为“顶” > “
方法 “<表格宽度= “150” = “0”边境cellspacing
= “0” = “0” > “cellpadding
方法 “< TR >”
方法 “< td > <divid= “div1” > < / DIV > < \/ TD >” 方法 “< / TR >”
方法 “< TR >”
方法 “< td >         <输入type= “广播” value= “浏览器” onclick= “检查getwritetype \ 'browser' ” name= “ListCtrl” > <字体大小= “2” >预览< /字体>” 方法 “<输入type= “无线电”值为“拯
救” onclick= “getwritetype \保存\ ' ” name= “Li stCtrl” > <字体大小= “2” > < > <保存\ /字体/ TD >”
方法 “< /表>”
方法 “< / TD >”
方法 “< td宽度= “1” = “bgcolor # 000000” > < / TD >” 方法 “<td宽度= “449” = “顶”垂直对齐方式对齐= “中心” > “方法 “<字体大小= “2” > <BR> < /字体>”
方法' <divid= “格式” > < / DIV >”
方法 “< / TD >”
方法 “< / TR >”
方法 “< > < TR TD height= “10”width= “150” > < / TD > < td宽度= “1” = “bgcolor # 000000” > < / TD > < td宽度= “449” >< > < \ / \ / TD TR >”
方法 “< > < TR TD colspan = “3” height= “1”背景颜色= “#
000000 “> < > < \ / \ / TD TR >”
方法 “< > < TR TD colspan = “3” height= “4” > < > < \ / \ /TD TR >”
方法 “< TR >”
方法 “< TD = “3” > “合并单元格
方法 “<字体大小= “2” >   系统帮助 <BR>   1、预览帮助您找到你所需要的闪光文件 <BR>&nb sp 
2、保存保存时请用右键点击该链接并选择” 目标另存为” 。 < /字体>”
方法 “< / TD >”
方法 “< / TR >”
方法 “< /表>”
方法 “<脚本语言JavaScr ip t \” \ “>”
/ /函数用于根据控制按纽的值动态写入文件列表
方法'function writelist() {”
方法'var文件清单= “ ” writeln ("was mysplit =" / ";") ;writeln ("if (writetype = =" url ") {' ) ; / /链接列表状态:预览writeln ("for (i = 0; i < swffileurl. length; i + +)") ; / /动态生成链接列表writeln ("filelist + =" & nbsp; & nbsp; < font size = 2 > < ahref = "\ javascript: browserswf (" + + ") ; \" > "+ swffi leurl[in] . substr (swffileurl [in] . lastindexof (mysplit) + 1) + '<\ / (a) > < br > < / font > \' ; ' ) ;writeln (' } else {' ) ; / /链接列表状态:保存writeln ("for (i = 0; i < swffileurl. length; i + +)") ; / /动态生成链接列表writeln ("filelist + =" & nbsp; & nbsp; < font size = 2 > < ahref = "\" + swffileurl [in] + "\" > "+ swff ileurl [in] . substr(swffileurl [in] . lastindexof (myspl it) + 1) + ' \ < / a > < br< / font > \ >"; ") ;writeln (' } ' ) ;
RepriseHosting是成立于2012年的国外主机商,提供独立服务器租用和VPS主机等产品,数据中心在美国西雅图和拉斯维加斯机房。商家提供的独立服务器以较低的价格为主,目前针对西雅图机房部分独立服务器提供的优惠仍然有效,除了价格折扣外,还免费升级内存和带宽,商家支持使用支付宝或者PayPal、信用卡等付款方式。配置一 $27.97/月CPU:Intel Xeon L5640内存:16GB(原...
如果我们熟悉RAKsmart商家促销活动的应该是清楚的,每个月的活动看似基本上一致。但是有一些新品或者每个月还是有一些各自的特点的。比如七月份爆款I3-2120仅30美金、V4新品上市,活动期间5折、洛杉矶+硅谷+香港+日本站群恢复销售、G口不限流量服务器比六月份折扣力度更低。RAKsmart 商家这个月依旧还是以独立服务器和站群服务器为主。当然也包括有部分的低至1.99美元的VPS主机。第一、I...
月神科技怎么样?月神科技是由江西月神科技有限公司运营的一家自营云产品的IDC服务商,提供香港安畅、香港沙田、美国CERA、华中电信等机房资源,月神科技有自己的用户群和拥有创宇认证,并且也有电商企业将业务架设在月神科技的平台上。目前,香港CN2云服务器、洛杉矶CN2云主机、华中电信高防vps,月付20元起。点击进入:月神科技官方网站地址月神科技vps优惠信息:香港安畅CN2-GIA低至20元核心:2...