標題: 互動網頁打譜工具 RenaSV0981.htm 程式碼,再多用一些下拉選單
chillystar (寒星)
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 739
閱讀權限 200
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 4321
來自 台北—CYC

124.155.133.77
分享 
發表於 2008-2-22 18:31  資料 文集 私人訊息 
互動網頁打譜工具 RenaSV0981.htm 程式碼,再多用一些下拉選單
<html>
<head>
<meta http-equiv=Content-Type c>
<style>
.hand {cursor:hand}
</style>
</head>
<body>
<applet name=Rena code='Rena.class' width=330 height=354 align='left' hspace='3'>
<param name=data value="7840">
<param name=last value="0">
<param name=update value="t">
<param name=blind value="f">
<param name=newpos value="t">
<param name=shownum value="f">
<param name=editor value="f">
<param name=small value="f">
<param name=bgcolor value="ffb030">
</applet><input type=button style="Width=49pt;FONT-SIZE:11pt;Height=17pt" value="回到首子" class=hand onclick=Rena.Back();><input type=button style="Width=85pt;FONT-SIZE:11pt;Height=17pt" value="第二子設為首子" class=hand onclick=setSecondToFirst();><input type=button style="Width=49pt;FONT-SIZE:11pt;Height=17pt" value="天元首子" class=hand onclick=H8ToFirst();>
<br><input type=button style="Width=49pt;FONT-SIZE:11pt;Height=17pt" value="顯示手順" class=hand id=RenaShowNum onclick=ShowOrHide(); paraValue="F"><INPUT size=2 value=0 name=hidenum><input type=button style="Width=85pt;FONT-SIZE:11pt;Height=17pt" value="子前不顯示手順" class=hand > <span id=hidenumStatus style="FONT-SIZE:11pt"></span>
<table border="1" cellspacing="1" cellpadding="1" >
  <tr>
    <td><span id=TI1>實戰</span></td>
    <td><input type=button style="Width=44pt;Height=15pt" value="標題切換" class=hand id=TIS onclick=TitleSwitch(); paraValue="F";><input type=button style="Width=44pt;Height=15pt" value="假先切換" class=hand id=TBS onclick=ShowTB(); TBValue="0"></td>
    <td></td>
  </tr>
  <tr>
    <td><span id=TI2>戰場</span></td>
    <td><INPUT size=40 name=I0></td>
    <td></td>
  </tr>
  <tr>
    <td><span id=TI3>黑方</span></td>
    <td><INPUT size=40 name=I1></td>
    <td></td>
  </tr>
  <tr>
    <td><span id=TI4>白方</span></td>
    <td><INPUT size=40 name=I2></td>
    <td></td>
  </tr>
  <tr>
    <td><SPAN id=TI5 >假先</SPAN></td>
    <td><SPAN id=TB>ˉ</SPAN></td>
    <td></td>
  </tr>
  <tr>
    <td>ˉ</td>
    <td>戰果:<select id="Win"><option value='黑勝'>黑勝</option><option value='白勝'>白勝</option><option value='和'>和</option></select>條件:<select id="Turn"><option value='黑先'>黑先</option><option value='白先'>白先</option></select><select id="Type"><option value='勝'>勝</option><option value='攻擊勝'>攻擊勝</option><option value='兩手勝'>兩手勝</option><option value='三手勝'>三手勝</option><option value='衝四勝'>衝四勝</option><option value='解禁勝'>解禁勝</option><option value='防點'>防點</option><option value='逼禁勝'>逼禁勝</option></select></td>
    <td></td>
  </tr>
</table>
<hR>
<table border="1" cellspacing="1" cellpadding="1" >
  <tr>
    <td align="center"> </td>
    <td align="center">日規第二手</td>
    <td align="center">國規第四手</td>
    <td align="center">五手另一打</td>
  </tr>
  <tr>
    <td align="right">座標</td>
    <td align="center"><select id="X2"><option value='A'>A</option><option value='B'>B</option><option value='C'>C</option><option value='D'>D</option><option value='E'>E</option><option value='F'>F</option><option value='G'>G</option><option value='H' selected>H</option><option value='I'>I</option><option value='J'>J</option><option value='K'>K</option><option value='L'>L</option><option value='M'>M</option><option value='N'>N</option><option value='O'>O</option></select><select id="Y2"><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9' selected>9</option><option value='10'>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></select></td>
    <td align="center"><select id="X4"><option value='A'>A</option><option value='B'>B</option><option value='C'>C</option><option value='D'>D</option><option value='E'>E</option><option value='F'>F</option><option value='G'>G</option><option value='H'>H</option><option value='I' selected>I</option><option value='J'>J</option><option value='K'>K</option><option value='L'>L</option><option value='M'>M</option><option value='N'>N</option><option value='O'>O</option></select><select id="Y4"><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9' selected>9</option><option value='10'>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></select></td>
    <td align="center"><select id="X5"><option value='A'>A</option><option value='B'>B</option><option value='C'>C</option><option value='D'>D</option><option value='E'>E</option><option value='F'>F</option><option value='G' selected>G</option><option value='H'>H</option><option value='I'>I</option><option value='J'>J</option><option value='K'>K</option><option value='L'>L</option><option value='M'>M</option><option value='N'>N</option><option value='O'>O</option></select><select id="Y5"><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9' selected>9</option><option value='10'>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></select></td>
  </tr>
</table>
<hR>
<SPAN class=hand style="BACKGROUND-COLOR: #00ff80" onclick=saveFile1();>詰棋</SPAN>
<SPAN class=hand style="BACKGROUND-COLOR: #ffb030" onclick=saveFile3();>日規</SPAN>
<SPAN class=hand style="BACKGROUND-COLOR: #ffb030" onclick=saveFile5();>國際規</SPAN>
存貼譜檔
<SPAN class=hand style="BACKGROUND-COLOR: #00ff80" onclick=saveFile2();>詰棋</SPAN>
<SPAN class=hand style="BACKGROUND-COLOR: #ffb030" onclick=saveFile4();>日規</SPAN>
<SPAN class=hand style="BACKGROUND-COLOR: #ffb030" onclick=saveFile6();>國際規</SPAN>
存保存檔
<bR>
<bR>
<bR>
<HR><input type=button style="Width=96pt;FONT-SIZE:11pt;Height=17pt" value="顯示盤面棋步內碼" class=hand onclick=RenaVal.innerText=Rena.val();> <SPAN id=RenaVal></SPAN>
<br><INPUT size=40 name=inText><input type=button style="Width=72pt;FONT-SIZE:11pt;Height=17pt" value="文字轉成內碼" class=hand onclick=getANSIcode(inText.value);> <SPAN id=ANSIcd></SPAN>
<br><input type=file name=inFile size=90><input type=button style="Width=49pt;FONT-SIZE:10pt;Height=16pt" value="讀取棋譜" onclick=rFile.innerText=readFile();>
<SPAN id=rFile></SPAN>
<p>
ˉ詰棋存檔檔名:書名_題名_作者_條件
<P>
ˉ日規存檔檔名:JPN_戰場_黑方:白方_勝方ˉˉˉˉˉˉˉ天元開始復盤(3手以上有效)
<P>
國際規存檔檔名:RIF_戰場_黑方:白方_勝方ˉˉˉˉˉˉ26局開始復盤(5手以上有效)
<bR>
<bR>


<SCRIPT language=jscript>
function TitleSwitch()
{
if(TIS.paraValue == "F")
{
  TIS.paraValue = "T";
  TI1.innerText = "詰棋";
  TI2.innerText = "書名";
  TI3.innerText = "題名";
  TI4.innerText = "作者";
  TI5.innerText = "ˉˉ";
}
else
{
  TIS.paraValue = "F";
  TI1.innerText = "實戰";
  TI2.innerText = "戰場";
  TI3.innerText = "黑方";
  TI4.innerText = "白方";
  TI5.innerText = "假先";
}
}
function ShowTB()
{
if(TBS.TBValue == "0")
{ TBS.TBValue = "1";
  TB.innerText = I1.value}
else
{if(TBS.TBValue == "1")
  {TBS.TBValue = "2";
  TB.innerText = I2.value;}
else
  {TBS.TBValue = "0";
  TB.innerText = "ˉ";}}
}
function ShowOrHide()
{
if(RenaShowNum.paraValue == "F")
{
  Rena.ShowNum();
  RenaShowNum.paraValue = "T";
  RenaShowNum.innerText = "隱藏手順";<!--Rena.HideNum()-->
}
else
{
  Rena.HideNum();
  RenaShowNum.paraValue = "F";
  RenaShowNum.innerText = "顯示手順";<!--Rena.ShowNum()-->
}
}
function SetHideNumber()
{
if(!isNaN(parseInt(hidenum.value)))
{
  Rena.SetHidenum(hidenum.value);
}
else
{
  Rena.SetHidenum("0");
  hidenum.value = "0";
}
}
function getANSIcode(ch)
{
if(ch.length == 0) return("");
//ANSIcd.innerText = ch.charCodeAt(0).toString(16);//.toLowerCase();
ANSIcd.innerText = "";
for(i = 0; i < ch.length; i++)
  ANSIcd.innerText += ANSIcode(ch.charAt(i));
ANSIcd.innerText += "0";
while(ANSIcd.innerText.length % 4 != 0)
  ANSIcd.innerText += "0";
}

function saveFile1()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + I0.value + "_" + I1.value + "_" + I2.value + "_" + Turn.value + Type.value + ".txt";
nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine( I0.value + "_" + I1.value + "_" + I2.value + "_" + Turn.value + Type.value );
nfil.writeLine('<BR>書名:' + I0.value );
nfil.writeLine('<BR>題名:' + I1.value );
nfil.writeLine('<BR>作者:' + I2.value );
nfil.writeLine('<BR>條件:' + Turn.value + Type.value );
nfil.writeLine('<BR>');
nfil.writeLine('<applet codebase="http://www.taconet.com.tw/starcoolstar/" width="330" height="330" hspace="0" code="Rena.class" tppabs="http://www.taconet.com.tw/starcoolstar/">');
nfil.writeLine('<param name=data value="' + getRenaData() + '">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=shownum value="f">');
nfil.writeLine('<param name=update value="t">');
nfil.writeLine('<param name=newpos value="t">');
nfil.writeLine('</applet>');
nfil.writeLine('<BR>棋步內碼:');
nfil.writeLine('<BR><param name=data value="' + getRenaData() + '">');
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function saveFile2()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + I0.value + "_" + I1.value + "_" + I2.value + "_" + Turn.value + Type.value + ".htm";
nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine("<applet name=Rena code='Rena.class' width=330 height=354 align='left' hspace='0'>");
nfil.writeLine('<param name=data value="' + getRenaData() + '">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=shownum value="f">');
nfil.writeLine('<param name=update value="t">');
nfil.writeLine('<param name=newpos value="t">');
nfil.writeLine('</applet>');
nfil.writeLine('<BR>書名:' + I0.value );
nfil.writeLine('<BR>題名:' + I1.value );
nfil.writeLine('<BR>作者:' + I2.value );
nfil.writeLine('<BR>條件:' + Turn.value + Type.value );
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function saveFile3()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + "JPN_" + I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value + ".txt";
        t = getRenaData();
        t1 = t.substring(0,6);
        t2 = t.substring(7);
nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine( I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value );
nfil.writeLine('<BR>戰場:' + I0.value );
nfil.writeLine('<BR>' + I1.value + ':' + I2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>日規第二手:' + X2.value + Y2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>盤面顯示一子,請將游標移至棋盤第二手位置點左鍵,以繼續復盤。左鍵前進,右鍵倒回。');
nfil.writeLine('<BR>');
nfil.writeLine('<applet codebase="http://www.taconet.com.tw/starcoolstar/" height="354" width="330" hspace="0" align="left" code="Rena.class" tppabs="http://www.taconet.com.tw/starcoolstar/">');
nfil.writeLine('<param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=newpos value="f">');
nfil.writeLine('</applet><applet codebase="http://www.taconet.com.tw/starcoolstar/" height="354" width="240" hspace="0" code="Rena.class" tppabs="http://www.taconet.com.tw/starcoolstar/"><param name=data value="7808287072616374696365292000"><param name=bgcolor value="ffb030"><param name=shownum value="f"><param name=update value="t"><param name=small value="t"></applet>');
nfil.writeLine('<BR>棋步內碼:');
nfil.writeLine('<BR><param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<BR><param name=data value="7808287072616374696365292000">');
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function saveFile4()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + "JPN_" + I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value + ".htm";
        t = getRenaData();
        t1 = t.substring(0,6);
        t2 = t.substring(7);
nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine("<applet name=Rena code='Rena.class' width=330 height=354 align='left' hspace='0'>");
nfil.writeLine('<param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=newpos value="f">');
nfil.writeLine('</applet>');
nfil.writeLine('<BR>戰場:' + I0.value );
nfil.writeLine('<BR>' + I1.value + ':' + I2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>日規第二手:' + X2.value + Y2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>盤面顯示一子,請將游標移至棋盤第二手位置點左鍵,以繼續復盤。左鍵前進,右鍵倒回。');
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function saveFile5()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + "RIF_" + I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value + ".txt";
        t = getRenaData();
        t1 = t.substring(0,14);
        t2 = t.substring(15);
        nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine( I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value );
nfil.writeLine('<BR>戰場:' + I0.value );
nfil.writeLine('<BR>' + I1.value + ':' + I2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>假先:' + TB.innerText );
nfil.writeLine('<BR>國規第四手:' + X4.value + Y4.value );
nfil.writeLine('<BR>五手另一打:' + X5.value + Y5.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>盤面顯示三子,請將游標移至棋盤第四手位置點左鍵,以繼續復盤。左鍵前進,右鍵倒回。');
nfil.writeLine('<BR>');
nfil.writeLine('<applet codebase="http://www.taconet.com.tw/starcoolstar/" height="354" width="330" hspace="0" align="left" code="Rena.class" tppabs="http://www.taconet.com.tw/starcoolstar/">');
nfil.writeLine('<param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=newpos value="f">');
nfil.writeLine('</applet>');
nfil.writeLine('<applet codebase="http://www.taconet.com.tw/starcoolstar/" height="354" width="240" hspace="0" code="Rena.class" tppabs="http://www.taconet.com.tw/starcoolstar/"><param name=data value="7808287072616374696365292000"><param name=bgcolor value="ffb030"><param name=shownum value="f"><param name=update value="t"><param name=small value="t"></applet>');
nfil.writeLine('<BR>棋步內碼:');
nfil.writeLine('<BR><param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<BR><param name=data value="7808287072616374696365292000">');
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function saveFile6()
{
fso = new ActiveXObject("scripting.fileSystemObject");
s = new String(document.URL);
fil = fso.getFile(s.substr(s.indexOf("//") + 2));
/*ANSIcd.innerText = document.URL;
ANSIcd.innerText += "\n" + fil.name;
ANSIcd.innerText += "\n" + fil.path;
ANSIcd.innerText += "\n" + fil.shortname;
ANSIcd.innerText += "\n" + fil.shortpath;
ANSIcd.innerText += "\n" + fil.type;*/
s = new String(fil.path);
newFileName = s.substring(0, s.lastIndexOf("[url=file://\\]\\")+1[/url] ) + "RIF_" + I0.value + "_" + I1.value + ":" + I2.value + "_" + Win.value + ".htm";
        t = getRenaData();
        t1 = t.substring(0,14);
        t2 = t.substring(15);
nfil = fso.createTextFile(newFileName);
//nfil.write(document.documentElement.innerHTML);
nfil.writeLine("<applet name=Rena code='Rena.class' width=330 height=354 align='left' hspace='0'>");
nfil.writeLine('<param name=data value="' + t1 + '8' + t2 + 'ff40">');
nfil.writeLine('<param name=bgcolor value="ffb030">');
nfil.writeLine('<param name=newpos value="f">');
nfil.writeLine('</applet>');
nfil.writeLine('<BR>戰場:' + I0.value );
nfil.writeLine('<BR>' + I1.value + ':' + I2.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>假先:' + TB.innerText );
nfil.writeLine('<BR>國規第四手:' + X4.value + Y4.value );
nfil.writeLine('<BR>五手另一打:' + X5.value + Y5.value );
nfil.writeLine('<BR>');
nfil.writeLine('<BR>盤面顯示三子,請將游標移至棋盤第四手位置點左鍵,以繼續復盤。左鍵前進,右鍵倒回。');
RenaVal.innerText = "";
ANSIcd.innerText = "";
inText.value = "";
nfil.close();
fld = null;
fso = null;
alert("file " + newFileName + " saved");
}
function getRenaData()
{
RenaVal.innerText = Rena.val()
s = new String(RenaVal.innerText);
// this "s" is same as the "s" in saveFile()
switch(s.substr(s.length - 2))
{
case "00":
  return(s);
  break;
case "40":
  getANSIcode(inText.value);
  t = ANSIcd.innerText;
  if(t.length != 0)
   return(s.substr(0, s.length - 1) + "8" + t);
  else
   return(s);
  break;
default:
  return("7840");
}
}
function readFile()
{
ForReading = 1
ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile(inFile.value, ForReading);
n = new String(f.ReadAll());
n1 = n.substring( n.indexOf("data value")+12 , n.indexOf("param name",n.indexOf("data value"))-5 );
Rena.Set(n1);
return(n1);
}
function setSecondToFirst()
{
s = new String(Rena.val());
Rena.Set(s.substr(4, 4));
}
function H8ToFirst()
{
Rena.Set(7840);
}
</SCRIPT>
<SCRIPT language=vbs>   
function ANSIcode(ch)
ANSIcode = lcase(hex(asc(ch)))
end function
</SCRIPT>
</body>
</html>
頂部