Js+Dhtml:WEB程序員簡易開發工具包(預先體驗版)

2024-09-06 12:44:34

字體：大中小

來源：轉載

供稿：網友

代碼如下:
<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>"