[javascript]代码库
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="en-us" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="GENERATOR" content="Microsoft FrontPage 4.0" />
<meta name="ProgId" content="FrontPage.Editor.Document" />
<title>WEB在线编辑器---娱乐在线,超级搜索,搜软件, 电影下载, 变态资源, 图片搜索, 小说搜索, 论坛搜索, 搜索助手, 桌面搜索, 搜索推广, 搜索优化, 搜索软件, 海量搜索,电骆,BT</title>
<style type="text/css">
/*<![CDATA[*/
BODY {
MARGIN-TOP: 8px
}
.style1 {
COLOR: #ff6633
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 15pt
}
A:link {
COLOR: #333333; TEXT-DECORATION: none
}
A:visited {
COLOR: #333333; TEXT-DECORATION: none
}
A:active {
COLOR: #ff6600; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff6600
}
.upline {
BORDER-TOP: #ff6633 1px solid
}
.downline {
BORDER-BOTTOM: #ff6633 1px solid
}
.f1 {
FONT-SIZE: 12px; COLOR: #ff6633; FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif"; TEXT-DECORATION: none
}
.f2 {
FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif"; TEXT-DECORATION: none
}
/*]]>*/
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="760">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
<tr>
<td width="100%">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" id="AutoNumber8" style="border-collapse: collapse">
<tr>
<td width="103%" align="left" height="30">
<p align="center"><b><font face="宋体">WEB在线编辑器</font></b></p>
</td>
</tr>
<tr>
<td width="100%" align="left" bgcolor="#EEEEEE">
<script type="text/javascript">
//<![CDATA[
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
//]]>
</script> <script type="text/javascript">
//<![CDATA[
function look(){
if(event.keyCode==113){liulan.onclick()}
}
if(document.onkeydown==null)
{document.onkeydown=look}
//]]>
</script> <script language="VBScript" type="text/vbscript">
'<![CDATA[
sub helpa()
msgbox"技巧1:[shift+回车键]为软回车,可以避免硬回车带来的一次空两行,不防试试"+Chr(10)&Chr(10)+"技巧2:脱离编辑窗口以后按下F2键可以直接开新窗口浏览你正编辑的网页"+Chr(10)&Chr(10)+"技巧3:保存功能,你可以把你编辑的HTML代码复制到里面,然后在去[我的文档]中打开"+Chr(10)&Chr(10)+"技巧4:应当注意使用右键,你现在在编辑窗内单击右键看看,有很多的实用功能"+Chr(10)&Chr(10)+"技巧5:说明窗口,你可以将鼠标靠近你不懂的地方,下面应该有说明"+Chr(10)&Chr(10)&Chr(10)+"注意1:对选中的文本进行编辑功能有限,只能对一小段文本,如果处理很多他不会起作用"+Chr(10)&Chr(10)+"注意2:HTML编辑模式时是不支持你编写head内的代码的,只能翻译body内的文本,注意哦"+Chr(10)&Chr(10)+"注意3:插入代码时,编辑窗口应该无反映,只有你在[浏览网页]时才会起作用"+Chr(10)&Chr(10)+"注意4:其实此编辑器提供的功能并不多,要做到某些效果还是得靠你手工修改HTML代码"+Chr(10)&Chr(10)+"注意5:如果你右键选择了[浏览网页]不能在编辑了,这时你试着用上面的[工作状态]"+Chr(10)&Chr(10)&Chr(10)+"秘籍:本人从来都靠HTML走天下,但很费力,后来发明了他,[拖放复制]人家东西太方便了"+Chr(10)&Chr(10)&Chr(10)+"版权:Qinmo,QQ:641121000,有[素质]的各位站长转载请声明出处,谢谢",4096,"在线WEB页制作器帮助信息"
end sub
']]>
</script>
<table id="iihj" style="BORDER-TOP: 0px; BORDER-LEFT: 0px" cellspacing="0" bordercolordark="white" cellpadding="0" width="750" align="center" bgcolor="#CCCCCC" bordercolorlight="#555555" border="2">
<tbody>
<tr>
<td width="787" height="15"><input onmouseover="hll('将正编写的数据全部清除')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="if(edit.document.body.innerHTML==''){alert('文件已经是空白状态')}else{if(confirm('清除所有正在编辑的网页内容?')){edit.document.body.innerHTML=''}}" onmouseout="hll('')" type="button" value="新建" /><input onmouseover="hll('把原代码保存在你的记事本里')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="window.open('view-source:file:///c:/my documents/在线web作品之一.html','_self')" onmouseout="hll('')" type="button" value="保存" /><input onmouseover="hll('打开论坛把数据保存在那')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="window.open('http://forum.web888.org/');alert('以打开论坛,你做好了网页,就把HTML代码临时放在那里把')" onmouseout="hll('')" type="button" value="寄存" /><input onmouseover="hll('输入正确网址,学用原代码')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="var sa=window.prompt('请问你要盗窃谁家的网页原文件?','http://');window.location='view-source:'+sa" onmouseout="hll('')" type="button" value="盗用" /><input onmouseover="hll('复制选择的某段文本')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="if(edit.document.selection.createRange().text!=''){edit.document.selection.createRange().text+=edit.document.selection.createRange().text}else alert('请选择一段文本')" onmouseout="hll('')" type="button" value="复写" /><input onmouseover="hll('删除选择的某段文本')" style="WIDTH: 40pt; BACKGROUND-COLOR: #aaaaaa" onclick="if(edit.document.selection.createRange().text!=''){edit.document.selection.createRange().text=''}else alert('请选择一段文本')" onmouseout="hll('')" type="button" value="删除" /><input style="WIDTH: 40pt; CURSOR: help; BACKGROUND-COLOR: #aaaaaa" onclick="helpa()" type="button" value="帮助" /><select onclick="bbks.height=this.value" size="1">
<option value="300" selected="selected">
高度
</option>
<option value="100">
100
</option>
<option value="150">
150
</option>
<option value="200">
200
</option>
<option value="250">
250
</option>
<option style="COLOR: red" value="300">
300
</option>
<option value="350">
350
</option>
<option value="400">
400
</option>
<option value="450">
450
</option>
<option value="500">
500
</option>
</select><select onchange="edit.document.designMode=this.value" size="1">
<option value="on" selected="selected">
工作状态
</option>
<option value="on">
编辑状态
</option>
<option value="off">
浏览状态
</option>
</select><input id="neweck" onmouseover="hll('选中进入学习html模式')" style="BACKGROUND-COLOR: #aaaaaa" onclick="if(eck.checked==false){if(this.checked){bbks.height=200;newtd.height=100;div1.style.visibility='';div1.style.zIndex='0';newa2.innerText='恢复'}else{bbks.height=300;newtd.height='';div1.style.visibility='hidden';div1.style.zIndex='-1';newa2.innerText='视窗'}}else{alert('此功能不可以在HTML编辑模式进行!');this.checked=false}" onmouseout="hll('')" type="checkbox" value="ON" /><a id="newa2" style="FONT-SIZE: 12pt">视窗</a><input style="WIDTH: 40pt; CURSOR: text; BACKGROUND-COLOR: #cccccc" disabled="disabled" name="newtime" size="20" /><span style="FONT-SIZE: 12pt">秒<input style="WIDTH: 75pt" onclick="forzijie();edit.focus();" value="0字节" name="zijie" size="20" /></span></td>
</tr>
<tr>
<td><input onmouseover="hll('加粗选中文本')" style="FONT-WEIGHT: 900; WIDTH: 20pt" onclick="loot('<b>'+edit.document.selection.createRange().text+'</b> ')" onmouseout="hll('')" type="button" value="粗" /><input onmouseover="hll('让选中文本倾斜')" style="WIDTH: 20pt; FONT-STYLE: italic" onclick="loot('<i>'+edit.document.selection.createRange().text+'</i> ')" onmouseout="hll('')" type="button" value="斜" /><input onmouseover="hll('让选中文本加下划线')" style="WIDTH: 20pt; TEXT-DECORATION: underline" onclick="loot('<u>'+edit.document.selection.createRange().text+'</u> ')" onmouseout="hll('')" type="button" value="A" /><input onmouseover="hll('让选中文本加删除线')" style="WIDTH: 20pt; TEXT-DECORATION: line-through" onclick="loot('<s>'+edit.document.selection.createRange().text+'</s> ')" onmouseout="hll('')" type="button" value="A" /><input onmouseover="hll('让选中文本加上划线')" style="WIDTH: 20pt; TEXT-DECORATION: overline" onclick="loot('<span style="text-decoration:overline">'+edit.document.selection.createRange().text+'</span> ')" onmouseout="hll('')" type="button" value="A" /><input onmouseover="hll('让选中文本变大')" style="FONT-SIZE: 11pt; WIDTH: 20pt" onclick="loot(edit.document.selection.createRange().text.big()+' ')" onmouseout="hll('')" type="button" value="大" /><input onmouseover="hll('让选中文本变小')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot('<small>'+edit.document.selection.createRange().text+'</small> ')" onmouseout="hll('')" type="button" value="小" /><input onmouseover="hll('让选中文本靠上显示')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot(edit.document.selection.createRange().text.sup()+' ')" onmouseout="hll('')" type="button" value="上" /><input onmouseover="hll('让选中文本靠下显示')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot(edit.document.selection.createRange().text.sub()+' ')" onmouseout="hll('')" type="button" value="下" /><input onmouseover="hll('让选中文本成超连接')" style="WIDTH: 20pt" onclick="maxH()" onmouseout="hll('')" type="button" valu
e="∞" /><input onmouseover="hll('让选英文变成大写格式')" style="FONT-SIZE: 9pt; WIDTH: 25pt" onclick="loot(edit.document.selection.createRange().text.toUpperCase())" onmous="" eout="hll('')" type="button" value="大写" /><input onmouseover="hll('让选英文变成小写格式')" style="FONT-SIZE: 9pt; WIDTH: 25pt" onclick="loot(edit.document.selection.createRange().text.toLowerCase())" onmouseout="hll('')" type="button" value="小写" /><input onmouseover="hll('让选中文本向左缩进')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot('<p align=left>'+edit.document.selection.createRange().text+'</p> ')" onmouseout="hll('')" type="button" value="左" /><input onmouseover="hll('让选中文本居中缩进')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot('<center>'+edit.document.selection.createRange().text+'</center> ')" onmouseout="hll('')" type="button" value="中" /><input onmouseover="hll('让选中文本往右缩进')" style="FONT-SIZE: 9pt; WIDTH: 20pt" onclick="loot('<p align=right>'+edit.document.selection.createRange().text+'</p> ')" onmouseout="hll('')" type="button" value="右" /><select onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onchange="maxM()" size="1" name="zihao">
<option value="" selected="selected">
字号
</option>
<option value="8">
8
</option>
<option value="">
9
</option>
<option value="">
9
</option>
<option value="">
10
</option>
<option value="">
10
</option>
<option value="11">
11
</option>
<option value="12">
12
</option>
<option value="13">
13
</option>
<option value="14">
14
</option>
<option value="15">
15
</option>
<option value="16">
16
</option>
<option value="17">
17
</option>
<option value="18">
18
</option>
<option value="19">
19
</option>
<option value="20">
20
</option>
<option value="21">
21
</option>
<option value="22">
22
</option>
<option value="23">
23
</option>
<option value="25">
25
</option>
<option value="28">
28
</option>
<option value="30">
30
</option>
<option value="35">
35
</option>
<option value="40">
40
</option>
<option value="45">
45
</option>
<option value="50">
50
</option>
<option value="60">
60
</option>
<option value="70">
70
</option>
<option value="85">
85
</option>
<option value="100">
100
</option>
<option value="120">
120
</option>
<option value="150">
150
</option>
</select><select onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onchange="maxI()" size="1" name="uyr">
<option value="" selected="selected">
粗度
</option>
<option value="100">
100
</option>
<option value="200">
200
</option>
<option value="300">
300
</option>
<option value="400">
400
</option>
<option value="500">
500
</option>
<option value="600">
600
</option>
<option value="600">
600
</option>
<option value="700">
700
</option>
<option value="800">
800
</option>
<option value="900">
900
</option>
</select><select onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onchange="maxJ()" size="1" name="ytt">
<option selected="selected">
字色
</option>
</select><select style="WIDTH: 40pt" onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onchange="maxK()" size="1" name="koob">
<option selected="selected">
字体
</option>
<option value="黑体">
黑体
</option>
<option value="楷体_gb2312">
楷体
</option>
<option value="隶书">
隶书
</option>
<option value="仿宋_gb2312">
仿宋
</option>
<option value="Arial">
Arial
</option>
<option value="Arial Black">
Arial
</option>
<option value="Arial Narrow">
Arial
</option>
<option value="Comic Sans">
Comic
</option>
<option value="Courier New">
Couri
</option>
<option value="System">
Syste
</option>
<option value="Times New">
Times
</option>
<option value="Verdana">
Verda
</option>
<option value="Wingdings">
图形
</option>
<option value="Kantipur">
Kanti
</option>
</select><select onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onchange="maxL()" size="1" name="bbiu">
<option value="" selected="selected">
背景
</option>
</select><select onmouseover="hll('给选中文本加些特殊效果')" onclick="if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')" onmouseout="hll('')" onchange="if(this.options[1].selected){var arv=prompt('请输入他的基本颜色,默认red,为红色,你也可以输入ffedff[粉红]做为颜色','red');this.options[1].value='glow(color='+arv+')'};if(this.options[3].selected){var arv1=prompt('请输入下落阴影的颜色,例如lime[亮绿]色的颜色代码,默认为白色','white');this.options[3].value='shadow(color='+arv1+')'};if(this.options[5].selected){var arv2=prompt('请输入立体文字的颜色,默认为black[黑色],你也可更改,例如改成red代码,他表示[红色]','black');this.options[5].value='dropshadow(color='+arv2+')'};maxN()" size="1" name="sppn">
<option value="" selected="selected">
效果
</option>
<option value="glow">
光晕
</option>
<option value="blur">
模糊
</option>
<option value="shadow">
阴影
</option>
<option value="alpha(opacity=10)">
透明
</option>
<option value="dropshadow">
立体
</option>
</select></td>
</tr>
<tr>
<td id="fortab"> </td>
</tr>
<tr>
<td id="bbks" height="300">
<table height="100%" cellspacing="0" cellpadding="0" width="10" align="left">
<tbody>
<tr>
<td><input onmouseover="hll('单击编辑窗口[换一行]')" style="WIDTH: 20pt; HEIGHT: 10%; BACKGROUND-COLOR: #bbbbbb" onclick="edit.document.body.innerHTML+='<br>';edit.focus();" onmouseout="hll('')" type="button" value="↓" /><br />
<input onmouseover="hll('单击编辑窗口[空一格]')" style="WIDTH: 20pt; HEIGHT: 10%; BACKGROUND-COLOR: #bbbbbb" onclick="edit.document.body.innerHTML+=' ';edit.focus()" onmouseout="hll('')" type="button" value="." /><br />
<input onmouseover="hll('插入[水平线]')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){var hrtt=prompt('请输入[水平线的颜色]的HTML代码,例如输入red代表红色,如果任何不输入则默认水平线颜色为gray[灰色]','');edit.document.body.innerHTML+='<hr size=2 color="'+hrtt+'" style="">'}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="━" /><br />
<input onmouseover="hll('插入图片')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){img11()}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="囍" /><br />
<input onmouseover="hll('插入动画字幕')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){mar()}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="~~" /><br />
<input onmouseover="hll('插入表格,值请自行修改')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){fortab1()}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="Ⅲ" /><br />
<input onmouseover="hll('插入启动outlook邮件')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){var mail=prompt('请输入电子邮件地址',' @ .com');edit.document.body.innerHTML+='<a href=mailto:'+mail+'>与我联系</a>'}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="E" /><br />
<input onmouseover="hll('插入浮动窗口iframe')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){forme1()}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="□" /><br />
<input onmouseover="hll('插入一个立体图层')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){edit.document.body.innerHTML+='<div style="position:absolute;top:30px;left:35px;width:300;height:200;z-index:2;background- color:eeeeee;overflow:scroll;" id=div1>请修改他的元素属性</div>';alert('[立体图层]已经插入,你可单击浏览网页查看样式,修改请进入HTML编辑模式')}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="层" /><br />
<input onmouseover="hll('插入一个多媒体播放器')" style="WIDTH: 20pt; HEIGHT: 10%" onclick="if(eck.checked==false){edit.document.body.innerHTML+='<embed src="rtsp://ent.online.ln.cn/ent.online.ln.cn/LegendofZu_01.rm" type="audio/x-pn-realaudio-plugin" console=Clip1 controls=IMAGEWINDOW,ControlPanel,StatusBar height=200 width=200 autostart=true></embed>';alert('[realplayer播放器]已经插入,你可单击浏览网页查看正播放的电影,修改请进入HTML编辑模式,如果想保持播放器正常,你必须装有realplayer播放器软件')}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="音" /></td>
</tr>
</tbody>
</table><!--webbot bot="HTMLMarkup" startspan --><iframe id="edit" marginwidth="0" marginheight="0" src="about:blank" frameborder="1" width="100%" height="100%"><!--webbot bot="HTMLMarkup" endspan -->
<p><!--webbot bot="HTMLMarkup" startspan --></p></iframe><!--webbot bot="HTMLMarkup" endspan -->
</td>
</tr>
<tr>
<td id="newtd" align="left">
<div id="div1" onmouseover="hll('原代码显示图层')" style="Z-INDEX: -1; VISIBILITY: hidden; OVERFLOW: scroll; WIDTH: 100%; POSITION: absolute; HEIGHT: 100%; BACKGROUND-COLOR: #dddddd" onmouseout="hll('')" align="left"></div>
</td>
</tr>
<tr>
<td width="787"><input id="eck" onmouseover="hll('编辑状态的切换方式')" onclick="if(neweck.checked==false){if(this.checked){edit.document.body.style.fontSize='12pt';edit.document.body.style.fontFamily='System';var kaocao=edit.document.body.innerHTML;edit.document.body.innerText='<html>\n<head>\n<title>欢迎光临我的主页</title>\n<META http-equiv=Content-Type content=text/html; charset=gb2312>\n<!--this webpage work by http://www.k369.com-->\n<style type=text/css>\nbody,th,td{font-size:'+cs2.value+';color:'+cs3.options[cs3.selectedIndex].value+';font-family:'+cs4.options[cs4.selectedIndex].value+';}\na.link{color:'+cs5.options[cs5.selectedIndex].value+';text-decoration:none;}\nimg{}\ninput{}\n</style>\n</head>\n<body topmargin=2 leftmargin=2 bgcolor='+cs9.options[cs9.selectedIndex].value+' background='+cs10.value+'>\n\n'+kaocao+'\n\n</body>\n</html>';newa.innerText='选中进入皮肤编辑模式'}else{edit.document.body.style.fontSize=cs2.value;edit.document.body.style.fontFamily=cs4.value;edit.document.body.innerHTML=edit.document.body.innerText;newa.innerText='选中进入HTML编辑模式'}}else{alert('请把视窗功能关闭!否则不可进行');this.checked=false}" onmouseout="hll('')" type="checkbox" value="ON" /><a id="newa">选中进入HTML编辑模式</a> <a id="liulan" onmouseover="this.style.color='white';hll('查看在浏览器运行的效果')" style="CURSOR: hand; COLOR: red" onclick="if(eck.checked==false){var asb=edit.document.body.innerHTML;op=window.open('','newin','');op.document.open();op.focus();op.document.write('<html>\n<head>\n<title>欢迎光临我的网页</title>\n<META http-equiv=Content-Type content=text/html; charset=gb2312>\n<!--this webpage work by http://www.k369.com-->\n<style type=text/css>\nbody,th,td{font-size:'+cs2.value+';color:'+cs3.options[cs3.selectedIndex].value+';font-family:'+cs4.options[cs4.selectedIndex].value+';}\na{color:'+cs5.options[cs5.selectedIndex].value+';text-decoration:none;}\nimg{}\ninput{}\n</style>\n</head>\n<body topmargin=2 leftm
argin=2 bgcolor='+cs9.options[cs9.selectedIndex].value+' background='+cs10.value+'>\n\n'+asb+'\n\n</body>\n</html>');op.document.close()}else {var asb=edit.document.body.innerHTML;op=window.open('','newin','');op.document.open();op.focus();op.document.write(edit.document.body.innerText);op.document.close()}" onmouseout="this.style.color='red';hll('')">浏览网页</a> <input style="WIDTH: 35pt" onclick="if(eck.checked==false){if(iiss.options[0].selected==false){edit.document.body.innerHTML+=iiss.value}else alert('[选择表单]无数据,请选择他覆盖的元素')}else alert('此功能不可以在HTML编辑模式使用')" type="button" value="Enter" /><select id="iiss" size="1">
<option selected="selected">
选择表单
</option>
<option value="<input type=text name='' size=''>">
小文本框
</option>
<option value="<textarea cols='25' rows='3' name=''></textarea>">
大文本框
</option>
<option value="<input type=radio name=''>">
单选按纽
</option>
<option value="<input type=checkbox name=''>">
复选按纽
</option>
<option value="<input type=button value='按纽' name=''>">
普通按纽
</option>
<option value="<select name=''><option selected>下拉菜单<option>数据未添<option>数据未添<option>数据未添</select>">
下拉菜单
</option>
<option value='<input type=image src="http://图片地址" onclick="" name="" style="">'>
图形按纽
</option>
<option value='<input type=submit style="" onclick="" name="" value="提交">'>
提交按纽
</option>
<option value='<input type="reset" onclick="" name="" value="重填" style="">'>
重添按纽
</option>
<option value="<input type=file name=''>">
小浏览框
</option>
</select><input onmouseover="hll('插入右方的wingding字体文本')" style="WIDTH: 35pt" onclick="if(eck.checked==false){if(ire.value!=''){edit.document.body.innerHTML+='<font face=wingdings>'+ire.value+'</font>'}else alert('请在右面填写[数字][英文][特殊字符]等数据,不可为空')}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="Enter" /><input onmouseover="hll('输入字符转为wingdings图形')" style="WIDTH: 45pt; CURSOR: text; BACKGROUND-COLOR: #cccccc" onmouseout="hll('')" value="1" name="ire" size="20" /><input style="WIDTH: 20pt" onclick="ire.value++" type="button" value="+" /><input style="WIDTH: 20pt" onclick="ire.value--" type="button" value="-" /><input onmouseover="hll('操作说明窗口')" style="WIDTH: 160pt" value="说明窗口" name="help" size="20" /></td>
</tr>
<tr>
<td width="787">
<textarea onmouseover="hll('html或脚本编辑区')" style="WIDTH: 460pt; BACKGROUND-COLOR: #cccccc" onmouseout="hll('')" name="ror" rows="1" cols="20">
</textarea><a title="欢迎访问" href="http:///"></a><select onchange="ror.value=this.value" size="1">
<option value="请选择我覆盖的一个小脚本" selected="selected">
常用代码
</option>
<option value=" <script>window.open('http://目标网址','','width=400,height=200')</script>">
弹出窗口
</option>
<option value=" <script>with(document.body.style){borderWidth='10';borderStyle='solid'; borderColor='activeborder'}</script>">
加厚页框
</option>
<option value=" <script>fortim=new Date();document.write('现在时间:'+fortim.toLocaleString())</script>">
现在时间
</option>
<option value="你停留了约<input type=text name=time10 size=5>秒<script>function newtiim(){time10.value++;}setInterval('newtiim()','1000')</script>">
停留时间
</option>
<option value=" <script src='http://正确的JS文件目标.js'></script>">
引用脚本
</option>
<option value=' <link rel="stylesheet" href="目标的文件.css" type="text/css">'>
引用CSS
</option>
<option value=" <script>self.moveTo(0,0);self.resizeTo(screen.availWidth,screen.availHeight)</script>">
页最大化
</option>
<option value="<a href='javascript:window.external.AddFavorite(location.href,document.title)'>加入收藏</a>">
收藏功能
</option>
<option value="<a onclick=this.style.behavior='url(#default#homepage)';this.setHomePage('http://你的网址,别忘修改哦')>设为首页</a>">
设为首页
</option>
<option style="COLOR: red" value="这些是一些dhtml代码,单击插入程序以后,好象无任何效果,只有单击[浏览网页]才能看到效果">
说明....
</option>
</select><input onmouseover="hll('插入左面的代码')" style="WIDTH: 35pt" onclick="if(eck.checked==false){var ror1=ror.value;if(ror1!=''){edit.document.body.innerHTML+=ror1}else alert('请填写需要插入的HTML代码')}else alert('此功能不可以在HTML编辑模式使用')" onmouseout="hll('')" type="button" value="插入" /></td>
</tr>
<tr>
<td bordercolorlight="black" width="787" bgcolor="#AAAAAA" bordercolordark="white" name="tuyi"><input style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 65pt; BACKGROUND-COLOR: #aaaaaa; border-down: 0px" onclick="alert('对页面的整体风格设置,原代码同时自动生成');" type="button" value="CSS页总设→" /><select onclick="edit.document.body.style.fontSize=this.value" onchange="" size="1" name="cs2">
<option value="" selected="selected">
字大小
</option>
<option value="8">
8
</option>
<option value="">
9
</option>
<option value="">
9
</option>
<option value="">
10
</option>
<option value="">
10
</option>
<option value="11">
11
</option>
<option value="12">
12
</option>
<option value="13">
13
</option>
<option value="14">
14
</option>
<option value="15">
15
</option>
<option value="16">
16
</option>
<option value="17">
17
</option>
<option value="18">
18
</option>
<option value="19">
19
</option>
<option value="20">
20
</option>
<option value="21">
21
</option>
<option value="22">
22
</option>
<option value="23">
23
</option>
<option value="25">
25
</option>
<option value="28">
28
</option>
<option value="30">
30
</option>
<option value="35">
35
</option>
<option value="40">
40
</option>
<option value="45">
45
</option>
<option value="50">
50
</option>
<option value="60">
60
</option>
<option value="70">
70
</option>
<option value="85">
85
</option>
<option value="100">
100
</option>
<option value="120">
120
</option>
<option value="150">
150
</option>
</select><select onclick="edit.document.body.style.color=this.options[this.selectedIndex].value" size="1" name="cs3">
<option value="black" selected="selected">
文本颜色
</option>
</select><select onclick="edit.document.body.style.fontFamily=this.options[this.selectedIndex].value" size="1" name="cs4">
<option selected="selected">
文本字体
</option>
<option value="黑体">
黑体
</option>
<option value="楷体_gb2312">
楷体
</option>
<option value="隶书">
隶书
</option>
<option value="仿宋_gb2312">
仿宋
</option>
<option value="Arial">
Arial
</option>
<option value="Arial Black">
Arial Black
</option>
<option value="Arial Narrow">
Arial Narrow
</option>
<option value="Comic Sans MS">
Comic Sans
</option>
<option value="Courier New">
Courier New
</option>
<option value="System">
System
</option>
<option value="Times New Roman">
Times New
</option>
<option value="Verdana">
Verdana
</option>
<option value="Wingdings">
Wingdings
</option>
<option value="Kantipur">
Kantipur
</option>
</select><select onclick="edit.document.body.link=this.value" size="1" name="cs5">
<option value="blue" selected="selected">
连接颜色
</option>
</select><select onclick="edit.document.bgColor=this.value" size="1" name="cs9">
<option value="dddddd" selected="selected">
页面背景
</option>
</select><a onmouseover="this.style.color='white';hll('更新右方输入的背景')" title="立即更换右放WEB网址的图片" style="CURSOR: hand; COLOR: navy" onclick="if(cs10.value.indexOf('http://')!=0||cs10.value==''||cs10.value=='http://'){alert('右放图象网址输入有错,请仔细检查是否有空格或字母错误?')}else{edit.document.body.background=cs10.value;alert('输入无错,现在立即更新背景,请少等10秒')}" onmouseout="this.style.color='navy';hll('')"><br />
背景图片</a>→<input onmouseover="hll('输入正确图片地址为背景')" style="WIDTH: 140pt; CURSOR: text; BACKGROUND-COLOR: #cccccc" onmouseout="hll('')" value="http://" name="cs10" size="20" /></td>
</tr>
</tbody>
</table><script type="text/javascript">
//<![CDATA[
function setment(){
if(neweck.checked){
if(div1.innerText!=edit.document.body.innerHTML)
{
div1.innerText=edit.document.body.innerHTML;
}}
setTimeout('setment()',100)
}
setTimeout('setment()',100)
//]]>
</script> <script type="text/javascript">
//<![CDATA[
function loot(forloo){
var loo2=edit.document.selection.createRange().text;
if(loo2==''){alert('请你选择一段文本')}
else{
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(loo2,forloo);
}}
function maxH()
{
if(edit.document.selection.createRange().text=='')alert('请你选择一段文本')
else{
var maxx1=prompt('请你输入该连接的目标网址','http://');
var edii=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii,"<a href="+maxx1+" title='单击进入'>"+edii+"<\/a> ");
}}
function maxI()
{
edii6=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii6,"<span style='font-weight:"+uyr.value+"'>"+edii6+"<\/span> ");
uyr.options[0].selected=true
}
function maxJ()
{
edii5=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii5,"<font color='"+ytt.value+"'>"+edii5+"<\/font> ");
ytt.options[0].selected=true
}
function maxK()
{
var edii2=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii2,"<font face='"+koob.value+"'>"+edii2+"<\/font> ");
koob.options[0].selected=true
}
function maxL()
{
var edii1=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii1,"<span style='background-color:"+bbiu.value+"'>"+edii1+"<\/span> ");
bbiu.options[0].selected=true
}
function maxM()
{
edii3=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii3,"<font style='font-size:"+zihao.value+"pt'>"+edii3+"<\/font> ");
zihao.options[0].selected=true
}
function maxN()
{
edii4=edit.document.selection.createRange().text;
edit.document.body.innerHTML=edit.document.body.innerHTML.replace(edii4,"<span style='filter:"+sppn.value+";width:100pt;'>"+edii4+"<\/span>");
sppn.options[0].selected=true
}
function tabb(){
var tdtd="<Td>"+foot.value+"<\/td>";
for(var i=0;i<=taab.value;i++){
tdtd=tdtd+"<td>"+foot.value+"<\/td>"
}
var tsss="";
for(var i=0;i<=taab1.value;i++){
tsss+="<tr>"+tdtd+"<\/tr>";
}
edit.document.body.innerHTML+="<table border="+tabor.value+" cellspacing="+cell.value+" cellpadding="+padd.value+" width=300 height=200 align='"+align1.value+"' align='"+align2.value+"' rules="+rules1.value+" frame="+frame1.value+">"+tsss+"<\/table>";
}
function fortab1(){
fortab.innerHTML='<input type=button onclick="if(eck.checked==false){tabb();fortab.innerHTML=""}else alert("不许在HTML编辑模式用此功能,请手工转为皮肤编辑模式")" value="画出表格" style="width:60pt;color:red"><input type=button value="取消" onclick="fortab.innerHTML=""">列数<input type=text name=taab value="5">行数<input type=text name=taab1 value="3">快捷字<input type=text name=foot>框粗<input type=text value="2" name=tabor>缝隙<input type=text value="2" name=cell>内空<input type=text value="2" name=padd><select name=rules1><option value="all" style="color:Red">分割线<option value="all" selected>全显示<option value="rows">显示行<option value="cols">显示列<option value="none">不显示<\/select><select name=frame1><option value="box" style="color:Red">边框<option value="box" selected>全部<option value="above">上边<option value="below">下边<option value="lhs">左边<option value="rhs">右边<option value="hsides">上下<option value="vsides">左右<option value="void">不要<\/select><select name=align1><option style="color:red">位置<option value="left" selected>左边<option value="center">中间<option value="right">右边<\/select><select name=align2><option style="color:red">对齐<option value="top" selected>上沿<option value="center">中间<option value="down">下沿<\/select>'
}
function forme1(){
fortab.innerHTML='<input type=button onclick="if(eck.checked==false){forme11();fortab.innerHTML=""}else alert("不许在HTML编辑模式用此功能,请手工转为皮肤编辑模式")" value="画出视窗" style="width:60pt;color:Red"><input type=button value="取消" onclick="fortab.innerHTML=""">目标网址[必添]<input type=text value="http://" name=formea1 style="width:150pt">上下间距<input type=text value="2" name=formea2>左右间距<input type=text value="2" name=formea3>无边框<input type=radio value="0" name=formea4 checked>有边框<input type=radio value="1" name=formea4>'
}
function forme11(){
var radio1;
if(formea4[0].checked==true)
{radio1="0";}
else
{radio1="1";}
edit.document.body.innerHTML+="<iframe src="+formea1.value+" marginwidth="+formea2.value+" marginheight="+formea3.value+" frameborder="+radio1+"><\/iframe>"
}
function mar(){
fortab.innerHTML='<input type=button onclick="if(eck.checked==false){mar1();fortab.innerHTML=""}else alert("不许在HTML编辑模式用此功能,请手工转为皮肤编辑模式")" value="画出字幕" style="width:60pt;color:Red"><input type=button value="取消" onclick="fortab.innerHTML=""">具体数据<input type=text value="请你修改,支持HTML" style="width:150pt" name=mar11>移动速度<input type=text name=mar2 value="7">停顿时间<input type=text name=mar22 value="100"><select name=mar3><option style="color:red">滚动方向<option value="right">向右滚动<option value="left" selected>向左滚动<option value="up">向上滚动<option value="down">向下滚动<\/select><select name=mar4><option style="color:red">滚动样式<option value="scrool" selected>平常滚动<option value="slide">碰壁结束<option value="alternate">循环碰壁<\/select>'
}
function mar1(){
edit.document.body.innerHTML+="<marquee direction='"+mar3.value+"' behavior='"+mar4.value+"' scrollamount='"+mar2.value+"' scrolldelay='"+mar22.value+"' loop=100000>"+mar11.value+"<\/marquee>"
}
function img11(){
fortab.innerHTML='<input type=button onclick="if(eck.checked==false){img22();fortab.innerHTML=""}else alert("不许在HTML编辑模式用此功能,请手工转为皮肤编辑模式")" value="画出图片" style="width:60pt;color:Red"><input type=button value="取消" onclick="fortab.innerHTML=""">图像网址<input type=text value="http://" style="width:150pt" name=img1>说明文本<input type=text value="一副图象" style="width:60pt" name=img2><select name=img3><option style="color:Red" selected>不须效果<option value="gray">黑白效果<option value="xray">X光效果<option value="alpha(opcaity=40)">透明效果<option value="blur">模糊效果<option value="invert">失真效果<option value="fliph">左右反转<option value="flipv">上下颠倒<option value="shadow">阴影效果<option value="dropshadow">立体效果<option value="glow">发光效果<option value="wave">水波效果<option value="chroma">框架效果<option value="light">全黑轮廓<\/select>效果统一颜色代码<input type=text value="ffedff" name=img4 style="width:50pt">'
}
function img22(){
edit.document.body.innerHTML+="<img src="+img1.value+" title="+img2.value+" style='filter:"+img3.value+"(color=#"+img4.value+")'>";
}
function hll(llp){
help.value=llp
}
function forzijie(){
alert("你编的网页结构:\n\n你的网页大小约大于==["+edit.document.body.innerHTML.length+"]字节\n\n你总共呆了大约==["+newtime.value+"]秒,\n\n你网页中有["+edit.document.links.length+"]个连接\n\n你网页有["+edit.document.images.length+"]个图象\n\n你网页有["+edit.document.forms.length+"]个form表单")
}
function stat(){
var edit1=edit.document.body.innerHTML.length;
zijie.value=edit1+"字节";
setTimeout('stat()',500)
}
setTimeout('stat()',500)
//]]>
</script> <script type="text/javascript">
//<![CDATA[
function fortime(){
newtime.value++
setTimeout('fortime()','1000')
}
fortime()
//]]>
</script> <script type="text/javascript">
//<![CDATA[
function bgbg(){
if(edit.document.bgColor!='dddddd'){edit.document.bgColor='dddddd'}
}
setTimeout('bgbg()',1000)
//]]>
</script>
<div align="center"></div><script language="vbscript" type="text/vbscript">
'<![CDATA[
sub back_onclick( )
history.back( )
end sub
']]>
</script>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
[代码运行效果截图]
中级程序员
by: 汉代风云 发表于:2013-07-19 09:51:27 顶(0) | 踩(0) 回复
还不错啊,值得学习学习啊!!
回复评论