代码如下:
<HTML>
<HEAD>
<META http-equiv='Content-Type' content='text/html;charset=gb2312'>
<META name='Gemeratpr' content='网络程序员伴侣(Lshdic)2005_开拓版'>
<TITLE>LD5工具</TITLE>
<style>
*{font-size:12px;font-family:宋体}
td{width:180;cursor:hand;text-align:center}
.n1{font-size:18px}
.n2{font-size:18px;font-family:wingdings}
.n3{font-size:18px;font-family:wingdings 2}
.n4{font-size:18px;font-family:wingdings 3}
.n5{font-size:18px;font-family:webdings}
.n6{font-size:18px;font-family:Marlett}
.n7{font-size:18px;font-family:华文彩云}
</style>
</HEAD>
<BODY onselectstart='if(event.srcElement.tagName!="INPUT")return false' scroll=no style='margin:0;border:1 solid menu' bgcolor='menu'>
<table style='border-Collapse:collapse;border:2 solid white;' cellpadding=2 rules=all><tr><td style='width:100%'>
<select onchange='change1(this.selectedIndex)' id='sel1' style='width:150'><Optgroup label='特殊符号与字符集' style='color:red'>
<option>中文特殊符号<option>Assic实体对照<option>HTML已命名实体<option>HTML附加命名实体<option>他国单字与符号</Optgroup><Optgroup label='常用颜色预览表' style='color:green'><option>W3C16色对照表<option>Windows系统色盘</Optgroup><Optgroup label='图形字体集' style='color:blue'><option>Wingdings字体<option>Wingdings 2字体<option>Wingdings 3字体<option>Webdings字体<option>Marlett字体<option>华文彩云字体</Optgroup><Optgroup label='数据探测与计算' style='color:purple'><option>键盘键值探测器<option>简易计算器<option>进制转换工具</select><input style='width:80' id='txt' value='输入值'>
</td></tr><tr><td style='padding:0'>
<div style='scrollbar-shadow-color:white;scrollbar-base-color:menu;scrollbar-arrow-color:black;overflow-Y:scroll;word-Break:break-all;width:240;height:250' id='a'></div>
</td></tr></table>
<script>
/******************
Author:lshdic(FYW)
Website:http://www.lshdic.com
E-mail:lshdic@sina.com
Resume:本程序的资料整理、编写、最终审查等工作由LD2、4、5原作者独立完成,难免存在疏忽并不能保证数据100%正确,一页原代码,可独立运行于非LD2005开发环境的WEB浏览器内,另存后即可在本地使用
******************/
var str1="",toolcolor="bbbbbb",movecolor="#ffffff"
function write1(){
a.innerHTML="<table cellspacing=0 cellpadding=3 rules=all style='border-Collapse:collapse;border:1 solid cccccc;' onmouseup='if(event.srcElement.tagName==/"TD/")txt.value=event.srcElement.innerText' onmouseover='if(event.srcElement.tagName==/"TD/"&&event.srcElement.bgColor==/"/")event.srcElement.bgColor=movecolor' onmouseout='if(event.srcElement.tagName==/"TD/"&&event.srcElement.bgColor==movecolor.toLowerCase())event.srcElement.bgColor=/"/"'>"+str1+"</table>"
新闻热点
疑难解答
