这段javascript 怎么用vbscript 来写呀。求助！！！

[lzt_6666]

<script language="javascript">
var sCID = "F100C3CD5C770B34040E5E5FD0A898C4F0425D00"
var iCID = parseInt(sCID.substr(0, 4), 16);
var iParentDir = Math.floor(iCID/100) % 100;
var iChildDir = iCID % 100;
alert(iParentDir);
</script>

这个结果是 16
用vbscript 如何写呀。我写出来的老是出错。

[班门弄斧]

UP！

[lamking]

<%
function HexToDec(str)
nums_len=Len(str)
For i=1 To nums_len
tmp=Mid(str,i,1)
If IsNumeric(tmp) Then
tmp=tmp * 16 * (16^(nums_len-i-1))
Else
If ASC(UCase(tmp))<65 Or ASC(UCase(tmp))>70 Then
HexToDec=False
Exit function
End If
tmp=(ASC(UCase(tmp))-55) * (16^(nums_len-i))
End If
tmpstr=tmpstr+tmp
Next
HexToDec=tmpstr
End function

dim sCID,iCID,iParentDir,iChildDir
sCID="F100C3CD5C770B34040E5E5FD0A898C4F0425D00"
iCID=HexToDec(Left(sCID,4))

iParentDir=Int(iCID/100) Mod 100
iChildDir=iCID Mod 100
Response.Write iParentDir
%>

[lzt_6666]

解决了，谢谢lamking(Lamking.Com) 结帖

[underone]

关键是要解决在vbscript里如何将字符串转换得到的整数