网页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 (' } ' ) ;
RFCHOST,这个服务商我们可能有一些朋友知道的。不要看官网是英文就以为是老外服务商,实际上这个服务商公司在上海。我们实际上看到的很多商家,有的是繁体,有的是英文,实际上很多都是我们国人朋友做的,有的甚至还做好几个品牌域名,实际上都是一个公司。对于RFCHOST商家还是第一次分享他们家的信息,公司成立大约2015年左右。目前RFCHOST洛杉矶机房VPS正进行优惠促销,采用CN2优化线路,电信双...
3C云国内IDC/ISP资质齐全商家,与香港公司联合运营, 已超6年运营 。本次为大家带来的是双12特惠活动,香港美国日本韩国|高速精品|高防|站群|大带宽等产品齐全,欢迎咨询问价。3C云科技有限公司官方网站:http://www.3cccy.com/客服QQ:937695003网页客服:点击咨询客户QQ交流群:1042709810价目表总览升级内存 60元 8G内存升级硬盘 1T机械 90元 2...
mineserver怎么样?mineserver是一家国人商家,主要提供香港CN2 KVM VPS、香港CMI KVM VPS、日本CN2 KVM VPS、洛杉矶cn2 gia端口转发等服务,之前介绍过几次,最近比较活跃。这家新推出了洛杉矶CN2 GIA VPS,512MB内存/20GB NVME/800GB流量/200Mbps/KVM,58元/季,并且进行了带宽升级,同时IP更改为美国IP。点击...