vbscript中如何表示16进制？

[mikewolf_gkd]

我对vb不数，近来用delphi编了一个asp组件，有一个函数的变量是用16进制表示的，如：$4334，请文这个数在vbscript中如何表示？

[iStringTheory]

Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回A。
MyHex = Hex(459) ' 返回 1CB。

-----------------------------
千年精灵( Millennium Genius )

[tripofdream]

&H4334,&H01CB

[mikewolf_gkd]

如果我的函数myctrl.check(param1)
这儿parm1,要求输入一六进制，比如4cfb,请文我如何输入啊，直接输入4cfb,不行，难道要转化成10进制吗？

[tripofdream]

myctrl.check(&H4cfb)
&H开头表示是十六进制

[mikewolf_gkd]

好像不行啊，上面的check函数，我在delphi中，用check(&4334),可以正确返回参数，vbscript,中这个16进制怎么用啊？

[mikewolf_gkd]

Set Obj=Server.CreateObject("LTDog.DogCheck")
j=Obj.check(&HC44C,&HC8F8,"gkd")
梦之旅，上面是我在asp的调用，好像不行啊。。。，
在delphi中用的是$c44c,$h8f8,没问题，
Microsoft VBScript 运行时错误 (0x800A0006)
/dog/index.asp, 第 3 行
浏览器老提示j=Obj.check(&HC44C,&HC8F8,"gkd")这行有错误。。。

[tripofdream]

let's try a very simple example:

<script language=vbscript>
aa=&HFF
msgbox aa
</script>
And what did you get?255,isn't it?

[mikewolf_gkd]

那我上面的内容错在什么地方呢？我把4cc4,改成10进制的50252,函数通过呢？到底什么原因呢？

[tripofdream]

0x800A0006 always means a overflow occured

[tripofdream]

try
Set Obj=Server.CreateObject("LTDog.DogCheck")
para1=&HC44C
para2=&HC8F8
j=Obj.check(para1,para2,"gkd")

[mikewolf_gkd]

这回提示第6行错误，还是j=Obj.check(para1,para2,"gkd")
。。。

[mikewolf_gkd]

或者说，有没有函数比如hex是求一个10进制数的16进制形式，那么那么函数
是求一个16进制数的10进制表示呢？

[tripofdream]

para1=0+&HC44C
para2=0+&HC8F8