<html>
<title>ASCII 码查询器 - zh159@bbs.cn-dos.net</title>
<HTA:APPLICATION
ID="MyhyliApp"
APPLICATIONNAME="ASCII 查询查器"
BORDER="thin"
BORDERSTYLE=""
VERSION="1.0"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="yes"
CAPTION="yes"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
</head>
<script language="VBScript">
width=500
height=440
window.resizeTo width, height
ileft=(window.screen.width-width)/2
itop=(window.screen.height-height)/2
window.moveTo ileft,itop
Sub Convert()
Str = InputText.value
for Num = 1 to len(Str)
Str_one=Mid(Str,Num,1)
ascii = ascii & "Chr(" & int("&h" & Hex(asc(Str_one))) & ");"
next
txtOutput.innerHtml = ascii
End Sub
</script>
<style type='text/css' id='css'>
a {text-transform: none;text-decoration: none; font-size:15px;color:#ffffff;}
.button {font: 15px 宋体, Verdana;height:27;border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;cursor:hand;}
.textarea {width:100%;font: 15px 宋体, Verdana;border: 1 solid #000000;}
</style>
<body background="bg.gif" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;">
<table align="center" style="width:95%;font: 15px 宋体;">
<tr align="center"><td style="font: 24px 楷体_GB2312;filter: glow(color=#0000ff,strength=5);">ASCII 码查询器</td></tr>
<tr align="center"><td><u>2008-04-21</u><br><a href="http://bbs.cn-dos.net" target="_blank" title="中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛"><u>zh159@bbs.cn-dos.net</u></a> <a href="http://bbs.blueshow.net/?a=zh159" target="_blank" title="忧郁的蓝色－专业手机论坛"><u>zh159@bbs.blueshow.net</u></a></td></tr>
<tr><td><b>输入字符：</b><br><textarea class="textarea" name="InputText" rows="6">ASCII 码查询器</textarea></input type="text" name="InputText" size=40 value="请输入文字"></td></tr>
<tr><td><input type="button" class="button" name="Button" value=" 转 换 " onClick="Convert"> <input type="button" class="button" name="ClearText" value="复制 ASCII 码到剪贴板" onClick="copy('txtOutput')"></td></tr>
<tr><td><b>ASCII 码：</b><br><textarea class="textarea" name="txtOutput" rows="7" style="font: 13px 宋体;"></textarea></td></tr>
</table>
</body>
<script language=JavaScript>
function copy(ob){
var obj=findObj(ob); if (obj) {
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
}
function findObj(n, d) {
var p,I,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
</script>
<html>
