方法网页flash动画的保存程序源代码（Webpage flash animation preservation program source code）

网页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 # dce0e2scrollbar-highlight-color #ffffff立体滚动条阴影的颜色 #

687888 scrollbar-3dlight-color # 687888scrollbar-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 > &nbsp &nbsp &nbsp &nbsp <输入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” >&nbsp &nbsp系统帮助 <BR>&nbsp&nbsp 1、预览帮助您找到你所需要的闪光文件 <BR>&nb sp&nbsp

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 (' } ' ) ;