<SCRIPT language=JavaScript>
step=0
function flash_title()
{
step++
if (step==3) {step=1}
if (step==1) {document.title='..::◇★☆★ 华山论坛 ☆★★◇::.. hs.gfxy.com ::..◆☆★☆ 汉字区位码查询系统 ★☆☆◆..::'}
if (step==2) {document.title='::..◆☆★☆ 华山论坛 ★☆☆◆..:: hs.gfxy.com ..::◇★☆★ 汉字区位码查询系统 ☆★★◇::..'}
setTimeout("flash_title()",200);
}
flash_title()
</SCRIPT>
<html>
<head>
<title>..::◇★☆★ 华山论坛 ☆★★◇::.. hs.gfxy.com ::..◆☆★☆ 汉字区位码查询系统 ★☆☆◆..::
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
td { font-family: Tahoma; font-size: 12px; line-height: 17px }
body { font-family: Tahoma; font-size: 12px; line-height: 17px }
p { font-family: Tahoma; margin-top: 1px; margin-bottom: 1px }
a:link { font-family: Tahoma; text-decoration: none; color: black }
a:visited { font-family: Tahoma; text-decoration: none; color: black }
a:active { font-family: Tahoma; text-decoration: none }
a:hover { font-family: Tahoma; text-decoration: none; color: black }
</style>
<BR><BR><BR><BR><BR>
<P align=center><SPAN class=no-linkcss><A href="http://hs.gfxy.com/"><FONT face=隶书 color=#ff0000 size=7>汉字区位码查询系统</FONT></A></SPAN></P><BR>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><!--written by GoldHuman li hai--><!--2000.8-->
<STYLE>BODY {
BACKGROUND-ATTACHMENT: fixed; BACKGROUND-COLOR: #edf0e1; COLOR: #0001fc; FONT-FAMILY: "宋体", "Arial", "Times New Roman"; FONT-SIZE: 9pt
}
TD {
FONT-FAMILY: "宋体", "Arial Narrow", "Times New Roman"; FONT-SIZE: 9pt; font-color: #000000
}
</STYLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0027)http://hs.gfxy.com/ -->
<HTML xmlns:qwm><HEAD><TITLE>区位码</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312"><LINK
href="区位码.files/ipage.css" type=text/css rel=stylesheet><HTA:APPLICATION id=oHTA
WINDOWSTATE="normal" VERSION="1.0" SCROLL="no" SYSMENU="yes"
SINGLEINSTANCE="yes" SHOWINTASKBAR="yes" MINIMIZEBUTTON="yes"
MAXIMIZEBUTTON="no" CONTEXTMENU="no" ICON="C:\windows\Explorer.exe"
CAPTION="yes" BORDERSTYLE="raised" BORDER="dialog" APPLICATIONNAME="QWM" />
<SCRIPT language=VBScript>
function genqw()
str=f1.txt1.value
newstr=""
for i=1 to len(str)
newstr=newstr&getqw(mid(str,i,1))
next
f1.txt2.value=newstr
end function
function getqw(ch)
casc=asc(ch)
if casc<0 then casc=casc+65535+1
if casc>255 then
b2=right("0"&((casc and 255)-160),2)
b1=right("0"&(int(casc/256)-160),2)
getqw=ch & " "&b1&b2 &" "
else
getqw=ch
end if
end function
</SCRIPT>
<SCRIPT language=javaScript>
var w1= 450;
var h1=330+18;
var x1=Math.ceil((window.screen.width-w1)/2);
var y1=Math.ceil((window.screen.height-h1)/2);
//window.resizeTo(w1,h1);
//window.moveTo(x1,y1);
function PrintDocument(){
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.CreateTextFile("LPT1", true);
f.write(f1.txt2.value);
f.Close();
}
function SaveDocument(){
//Setting CancelError to true and using try/catch allows the user to click cancel on the save as dialog without causing a script error
cDialog.CancelError=true;
try{
cDialog.Filter="HTM Files (Text Files (*.txt)|*.txt"
cDialog.ShowSave();
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.CreateTextFile(cDialog.filename, true);
f.write(f1.txt2.value);
f.Close();
}
catch(e){
var sCancel="true";
return sCancel;}
}
function LoadDocument(){
//Setting CancelError to true and using try/catch allows the user to click cancel on the save as dialog without causing a script error
cDialog.CancelError=true;
try{
cDialog.Filter="Text Files (*.txt)|*.txt"
cDialog.ShowOpen();
var ForReading = 1;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(cDialog.filename, ForReading);
var r = f.ReadAll();
f.close();
f1.txt1.value=r;
}
catch(e){
var sCancel="true";
return sCancel;}
}
</SCRIPT>
<META content="MSHTML 6.00.2900.2912" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 Marginheight="0"
marginwidth="0">
<DIV align=center>
<CENTER>
<TABLE cellSpacing=1 width=777 border=0>
<TBODY>
<TR>
<TD width="100%" bgColor=#5382d2
height=2></TD></TR></TBODY></TABLE></CENTER></DIV>
<DIV align=center>
<CENTER>
<TABLE height=25 cellSpacing=0 cellPadding=0 width=777 border=0>
<TBODY>
<TR>
<TD style="BORDER-BOTTOM: #000000 1px solid" width=216>
<P align=center>
<SCRIPT language=JavaScript class=font>
<!---
today=new Date();
var hours = today.getHours();
var minutes = today.getMinutes();
var seconds = today.getSeconds();
var timeValue = "<FONT COLOR=black>" + ((hours >12) ? hours -12 :hours); timeValue += ((minutes < 10) ? "<BLINK><FONT COLOR=black>:</FONT></BLINK>0" : "<BLINK><FONT COLOR=black>:</FONT></BLINK>") + minutes+"</FONT></FONT>";
timeValue += (hours >= 12) ? "<FONT COLOR=blue><I><B>pm</B></I></FONT>" : "<FONT COLOR=blue><B><I>am</I></B></FONT>";
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments[i] }
var d=new initArray("<font color=RED>星期日","<font color=black>星期一","<font color=black>星期二","<font color=black>星期三","<font color=black>星期四","<font color=black>星期五","<font color=GREEN>星期六"); document.write(today.getYear(),"<font color=red>年","<font color=black>",today.getMonth()+1,"<font color=red>月","<font color=black>",today.getDate(),"<font color=red>日 </FONT>",d[today.getDay()+1]," ",timeValue); //-->
</SCRIPT>
</P></TD>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#009900">
<tr>
<td height="22"><p>
<marquee scrollamount="3" onmouseover=this.stop(); onmouseout=this.start(); style="cursor:default;color:00ff00">
<a href="http://hs.gfxy.com/" class="index"><b> ◇★☆★◇ 欢迎光临 ◇★☆★◇ http://hs.gfxy.com/ ◇★☆★◇ 华山论坛 ◇★☆★◇ 欢迎使用华山论坛汉字区位码查询系统◇★☆★◇</b></a>
</marquee>
</p>
</td>
</tr>
</table>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=777 background=区位码.files/pattern1.gif
border=1>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE></CENTER></DIV>
<FORM name=f1>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=616>
<TBODY>
<TR>
<TD width="100%" colSpan=3 height=21>
<HR>
</TD></TR>
<TR>
<TD width=160 height=16><FONT color=#ff0000>输入汉字：</FONT></TD>
<TD width=80 height=16></TD>
<TD width=370 height=16><FONT color=#ff0000>区位码显示：</FONT> </TD>
<TR>
<TD width=160><TEXTAREA style="FONT-SIZE: 14px; FONT-FAMILY: 宋体" name=txt1 rows=14></TEXTAREA></TD>
<TD width=80>
<P
align=center><INPUT onclick=vbscript:genqw type=button value="查看>>"></P></TD>
<TD width=370><TEXTAREA style="FONT-SIZE: 14px; FONT-FAMILY: 宋体" name=txt2 rows=14 cols=50></TEXTAREA>
</TD></TR></TBODY></TABLE></CENTER></DIV></FORM>
<BLOCKQUOTE>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=1 width=616 border=0>
<TBODY>
<TR>
<TD width="100%">
<HR>
</TD></TR>
<TR>
<TD width="100%">
此程序可用于职称考试涂报名卡时，查找区位码，也可以用于填写其他机读卡时查找汉字区位码，它可以将大量的汉字字符快速转换成区位码，查询快捷，使用方便。<BR>
注：区位码完全从计算机内码中得出，�
