代码另存为
十六进制转十进制.hta
<HTML>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<title>十六进制转十进制</title>
<BODY>
<SCRIPT LANGUAGE="VBScript">
Sub Hex_to_Dec(hex_value)
MsgBox CLng("&h" & hex_value)
End Sub
</SCRIPT>
请输入十六进制数 :<BR>
<INPUT TYPE="text" ID="text1" NAME="text1" maxlength=8 size=8>
<INPUT TYPE="button" value="开始转换" ID="button1" NAME="button1" onclick="hex_to_dec(text1.value)">
</BODY>
</HTML>