动态按钮代码生成器

来源：作者：出处：巧巧读书 2006-09-23 进入讨论组

脚本说明：
第一步:把如下代码加入<head>区域中:
<SCRIPT LANGUAGE="JavaScript">
<!--
var a = 21
function create() {
this.line = ''
}

function skrivut(formet) {
bild1 = formet.bilden.value;
bild2 = formet.bildtva.value;
kall1 = formet.srcen.value;
kall2 = formet.srctva.value;
bildnamn = formet.bildnmn.value;
widd = formet.widden.value;
hojd = formet.hojden.value;

line = new Array()
for(var i=1; i<=a; i++) { line[i] = new create() }
line[1] = '<HTML><head><title>Code Window</title></head><body bgcolor="#FFFFFF">'
line[2] = '<HTML><HEAD><br><TITLE>Title of your page</title><P>'
line[3] = '<SCRIPT LANGUAGE="JavaScript"><BR><BR>'
line[19] = '</SCRIPT><P></HEAD><br><BODY><P>Here comes the link:<BR>'
line[20] = '<A HREF=../../".HTML" onMouseOver="byt(''+bildnamn+'',''+bild2+'')" onMouseOut="byt(''+bildnamn+'',''+bild1+'')">'
line[21] = '<IMG SRC="'+kall1+'" NAME="'+bildnamn+'" HEIGHT="'+hojd+'" WIDTH="'+widd+'" BORDER="0"></A>'
line[22] = '<P></BODY></HTML><P><FORM><INPUT TYPE="button" VALUE="关闭" OnClick="self.close()"></FORM></BODY></HTML>'
nyaWin = window.open('','utskrift','toolbar=0,location=0,directories=0,status=1,menubar=1,scrollbars=1,resizable=0,copyhistory=0,width=600,height=400')
nytt ()
}
g = 0
function nytt() {
g++
nyaWin.document.writeln(line[g]);
if (g < (a+1)) nytt()
nyaWin.document.close()
g = 0
}
Browser = false ;
if(navigator.appName.indexOf("Netscape") != -1)
{ if( (navigator.appVersion.indexOf("3.") != -1) ||
(navigator.appVersion.indexOf("4.") != -1) )
{ Browser = true;
fredrik= new Image();
fredrik.src = "knapp1.gif";
sover = new Image();
sover.src = "knapp2.gif";
} }
function byt(place, imgName) {
if (Browser == true) {
document[place].src =eval(imgName + ".src");
} }
//-->
</SCRIPT>

第二步:把如下代码加入<body>区域中:
<form>
图片1的名字：
<INPUT TYPE="text" NAME="bilden" class="pt9" value="mouseoutpic">
<BR>
图片1的路径：
<INPUT TYPE="text" NAME="srcen" class="pt9" value="images/pic1.gif">
<BR>
图片1的宽度：
<INPUT TYPE="text" NAME="widden" class="pt9" value="100">
<BR>
图片1的高度：
<INPUT TYPE="text" NAME="hojden" class="pt9" value="50">
<P> 图片2的名字：
<INPUT TYPE="text" NAME="bildtva" class="pt9" value="mouseoverpic">
<BR>
图片2的路径：
<INPUT TYPE="text" NAME="srctva" class="pt9" value="images/pic2.gif">
<BR>
操作的名字：
<INPUT TYPE="text" NAME="bildnmn" class="pt9" value="first_pic">
<BR>
<INPUT TYPE="BUTTON" VALUE="生成代码" OnClick="skrivut(this.form)" class="pt9">
</FORM>
<P>
<P>说明：图片1==》mouse out时的图片，正常显示时。图片2==》mouse over时的图片。图片的名字和操作的名字可以随便取。有所区别即可。
<P>2个图片的尺寸必须一致才可以。来自:http://www.qqread.com/asp/2006/10/a231918.html进入讨论组讨论。