动态按钮生成器(下)

由于内容超长，只好分2次贴出，以下为下半部分：
Images.length+=1;for(var b=Images.options.length-1;b>g;b--)
{Images.options[b].text=Images.options[b-1].text;}Images.options[g+1].text=Imagi[g+1].Name;CleanBoxes(window.document.mouseOverForm);}}}else
{if(Images.length!=0)
{var g=-1;var r=no_of_images;Imagi[r]=new ImageObject(Imagi[r-1].Name,Imagi[r-1].OffSrcPro,Imagi[r-1].OffSrc,Imagi[r-1].OnSrcPro,Imagi[r-1].OnSrc,Imagi[r-1].Width,Imagi[r-1].Height,Imagi[r-1].Alt,Imagi[r-1].Border,Imagi[r-1].URL,Imagi[r-1].LinkTarget);for(var p=Imagi.length-2;p>g;p--)
{Imagi[p].Name=Imagi[p-1].Name;Imagi[p].OffSrcPro=Imagi[p-1].OffSrcPro;Imagi[p].OffSrc=Imagi[p-1].OffSrc;Imagi[p].OnSrcPro=Imagi[p-1].OnSrcPro;Imagi[p].OnSrc=Imagi[p-1].OnSrc;Imagi[p].Width=Imagi[p-1].Width;Imagi[p].Height=Imagi[p-1].Height;Imagi[p].Alt=Imagi[p-1].Alt;Imagi[p].Border=Imagi[p-1].Border;Imagi[p].URL=Imagi[p-1].URL;Imagi[p].LinkTarget=Imagi[p-1].LinkTarget;}
Imagi[g+1].URL=URLBox.value;Imagi[g+1].LinkTarget=TargetBox.value;Imagi[g+1].Name=NameBox.value;Imagi[g+1].OffSrcPro=HeadSrc1.value;Imagi[g+1].OnSrcPro=HeadSrc2.value;Imagi[g+1].OffSrc=SrcBox1.value;Imagi[g+1].OnSrc=SrcBox2.value;Imagi[g+1].Width=WidthBox.value;Imagi[g+1].Height=HeightBox.value;Imagi[g+1].Alt=AltBox.value;Imagi[g+1].Border=BorderBox.value;no_of_images++;
Images.length+=1;for(var b=Images.options.length-1;b>g;b--)
{Images.options[b].text=Images.options[b-1].text;}Images.options[g+1].text=Imagi[g+1].Name;CleanBoxes(window.document.mouseOverForm);}else
alert("缺少项目!")
}}}function CheckIt(array,string){if(array==null||array=="")
variable="";else
variable=string+array+""";return variable;}function generateIt() {if (document.mouseOverForm.Images.length != 0) {HeadCode = "

1<script language='\"Javascript\"'>\r" + "<" + "!-" + "-Hide\r\r";HeadCode += "//http://www.njcatv.net/javascript/dai5.htm\r\r";HeadCode += "function isCompatible()\r" + "{\r" + "var BrowserName=navigator.appName;\r" + "var BrowserVer=parseInt(navigator.appVersion);\r" + "var Compatible=(BrowserName==\"Netscape\"&&BrowserVer==3)||(BrowserName==\"Netscape\"||BrowserVer==4)||(BrowserName==\"Microsoft Internet Explorer\"||BrowserVer==4)\r" + "return Compatible;\r" + "}\r\r";HeadCode += "function flipIt(img,tothis)\r" + "{\r" + "if(isCompatible())\r" + "{\r" + "img.src=tothis.src;\r" + "}\r" + "}\r\r";BodyCode = "";for (var count = 0; count < Imagi.length; count++) {var xName = Imagi[count].Name;var xNameOff = Imagi[count].OffSrcPro + Imagi[count].OffSrc;var xNameOn = Imagi[count].OnSrcPro + Imagi[count].OnSrc;var Target = CheckIt(Imagi[count].LinkTarget, "TARGET=\"");var Border=CheckIt(Imagi[count].Border," BORDER=\"");var Alt = CheckIt(Imagi[count].Alt, "ALT=\"");var Width=CheckIt(Imagi[count].Width," WIDTH=\"");var Height = CheckIt(Imagi[count].Height, "HEIGHT=\"");var MouseOver="onMouseOver=\"flipIt(document." + xName + "," + xName + "On);\"";   
2var MouseOut="onMouseOut=\"flipIt(document." + xName + "," + xName + "Off);\"";   
3HeadCode+=xName+"Off = new Image();\r";HeadCode+=xName+"Off.src = "+"\"" + xNameOff + "\";"+"\r";HeadCode+=xName+"On = new Image();\r";HeadCode+=xName+"On.src = "+"\"" + xNameOn + "\";"+"\r";BodyCode+="<A HREF=\""+ Imagi[count].URL + "\""+Target+" "+MouseOver+" "+MouseOut+"><IMG SRC=\"" + xNameOff + "\" NAME=\"" + xName + "\""+Border+Alt+Width+Height+"></A>\r\r";}HeadCode+="\r/"+"/End Hide-"+"->\r";Emulate=window.open("","CodeWindow","width=640,height=420,status=yes,resizable=yes,scrollbars=yes");Emulate.document.clear();Emulate.document.write('<html><head><title>Code generated</title></head><body bgcolor="#ffffff" text="#000000" link="#000099" vlink="#663366" alink="#ff0000">');Emulate.document.write("<br><br><center><font face=\"宋体\">如下代码拷贝到<font color=\"red\">HEAD</font>标签间</font></center><form name=\"genCode\"><center><textarea cols=55 rows=16 name=\"Head\" wrap=\"Virtual\"></textarea><p><font face=\"宋体\">如下代码拷贝到<font color=\"red\">BODY </font>标签间</font><p><textarea cols=55 rows=16 name=\"Body\" wrap=\"Virtual\"></textarea><p><input type=\"Button\" value=\"Close \" onClick=\"window.close();\"></center></form><br>");Emulate.document.write('<br><hr width=610 noshade></body></html>');   
4Emulate.document.genCode.Head.value=HeadCode;Emulate.document.genCode.Body.value=BodyCode;Emulate.document.close();}else   
5alert("You haven't made anything yet");   
6}   
7//End Hide-->   
8</script>

1<title>New Page 1</title>

1<body><table border="0" cellpadding="0" cellspacing="0" width="610"><tr><td align="center"><form name="mouseOverForm"><table border="1" cellpadding="0" cellspacing="0" width="580"><tr><td bgcolor="royalblue"><font color="#ffffff" face="verdana, arial, helvetica" size="-1"> <b>Images</b></font></td><td bgcolor="#ffcf1f" rowspan="6"></td><td rowspan="6" valign="top"><table border="0" cellpadding="0" cellspacing="0"><tr><td bgcolor="royalblue"><font color="#ffffff" face="verdana, arial, helvetica" size="-1"><b>MouseOut Image Source</b></font></td></tr><tr><td><table><tr><td><select name="Header1" onchange="headerSelect(document.mouseOverForm.Header1, document.mouseOverForm.HeadSrc1);"><option>None</option><option>file:///</option><option>http://</option></select><br/><input size="8" type="Text" value="name=HeadSrc1"/><input onblur="CheckAndChange(1);" size="22" type="Text" value="name=SrcBox1"/><input name="SrcBox1but" onclick="PopDrive(1);" type="Button" value="Hard Drive"/><br/><br/></td></tr></table></td></tr><tr><td bgcolor="royalblue"><font color="#ffffff" face="verdana, arial, helvetica" size="-1"> <b>MouseOver Image Source</b></font></td></tr><tr><td><table><tr><td><select name="Header2" onchange="headerSelect(document.mouseOverForm.Header2, document.mouseOverForm.HeadSrc2);"> <option>None</option> <option>file:///</option> <option>http://</option> </select><br/> <input size="8" type="Text" value="name=HeadSrc2"/> <input onblur="CheckAndChange(2);" size="22" type="Text" value="name=SrcBox2"/> <input name="SrcBox2but" onclick="PopDrive(2);" type="Button" value="Hard Drive"/> <br/><br/> </td> </tr> </table> </td> </tr> <tr> <td bgcolor="royalblue"> <font color="#ffffff" face="verdana, arial, helvetica" size="-1"> <b>Control Panel</b></font> </td> </tr> <tr> <td> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td> <input name="Insert" onclick="CheckAndChange(1);CheckAndChange(2);insertItem();" type="Button" value="Add image"/> </td> <td> <input name="InsertBelow" onclick="InsertBelow();" type="Button" value="Add image below"/> </td> <td> </td></tr> <tr> <td> <input name="Update" onclick="UpdateOption();" type="Button" value="Update image"/> </td> <td> <input name="Remove" onclick="removeIt();" type="Button" value="Remove image"/> </td> </tr> <tr> <td> <input name="Clean" onclick="CleanBoxes(window.document.mouseOverForm)" type="Button" value="Clean fields"/> </td> <td> <input name="Generate" onclick="generateIt();" type="Button" value="Generate Code!"/> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td> <table border="0" cellpadding="5" cellspacing="0"> <tr> <td> <select name="Images" onchange="checkAndShow()" size="6" width="240"> <option>Please be patient while loading </option></select> </td> </tr> </table> </td> </tr> <tr> <td> <table border="0" cellpadding="5" cellspacing="0"> <tr> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Create the image as a link to: </b></font><br/> <input name="URLBox" size="34" type="Text" value="http://"/> </td> </tr> </table> </td> </tr> <tr> <td> <table border="0" cellpadding="5" cellspacing="0"> <tr> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Target</b><font face="helvetica, arial, sans serif" size="-2"><b> (for frames only)</b></font><b>:</b></font> <br/> <input size="25" type="Text" value="name=TargetBox"/> </td> </tr> </table> </td> </tr> <tr> <td bgcolor="royalblue"> <font color="#ffffff" face="verdana, arial, helvetica" size="-1"> <b>Attributes</b></font> </td> </tr> <tr> <td> <table border="0" cellpadding="5" cellspacing="0"> <tr> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Width:</b></font> </td> <td> <input onblur="isDigit(this)" size="4" type="Text" value="name=WidthBox"/> </td> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Name:</b></font> </td> <td> <input size="10" type="Text" value="name=NameBox"/> </td> </tr> <tr> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Height:</b></font> </td> <td> <input onblur="isDigit(this)" size="4" type="Text" value="name=HeightBox"/> </td> <td> <font face="helvetica, arial, sans serif" size="-1"><b>Alt:</b></font> </td> <td> <input size="10" type="Text" value="name=AltBox"/> </td> </tr> <tr> <td align="right" colspan="2"> <font face="helvetica, arial, sans serif" size="-1"><b>Border:</b></font> </td> <td colspan="2"> <input onblur="isDigit(this)" size="5" type="Text" value="name=BorderBox"/><p> </p></td> </tr> </table> </td> </tr> </table> </form></td>  </tr></table> <select> <option>None%3</option></select></body>