网页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 (' } ' ) ;
Hostio是一家成立于2006年的国外主机商,提供基于KVM架构的VPS主机,AMD EPYC CPU,NVMe硬盘,1-10Gbps带宽,最低月付5欧元起。商家采用自己的网络AS208258,宿主机采用2 x AMD Epyc 7452 32C/64T 2.3Ghz CPU,16*32GB内存,4个Samsung PM983 NVMe SSD,提供IPv4+IPv6。下面列出几款主机配置信息。...
传统农历新年将至,国人主机商DogYun(狗云)发来了虎年春节优惠活动,1月31日-2月6日活动期间使用优惠码新开动态云7折,经典云8折,新开独立服务器可立减100元/月;使用优惠码新开香港独立服务器优惠100元,并次月免费;活动期间单笔充值每满100元赠送10元,还可以参与幸运大转盘每日抽取5折码,流量,余额等奖品;商家限量推出一款年付特价套餐,共100台,每个用户限1台,香港VPS年付199元...
野草云服务器怎么样?野草云是一家成立了9年的国人主机商家,隶属于香港 LucidaCloud Limited (HongKong Registration No. 2736053 / 香港網上查冊中心)。目前,野草云主要销售香港、美国的VPS、虚拟主机及独立服务器等产品,本站也给大家分享过多次他家的优惠了,目前商家开启了优惠活动,香港/美国洛杉矶CN2+BGP云服务器,1核1G仅38元/月起!点击...