Solved

CDec in ASP

Posted on 2001-07-05
14
2,813 Views
Last Modified: 2007-11-27
Hey,
I have the folowing code in ASP file, but it seems like the third line generates an error.
this is a simple conversion from hexa value to decimal. and it works fine in VB.

HexStr = "FFFFFF"
msgbox "&h"+cstr(HexStr)
msgbox CDec("&h" +cstr(HexStr))
msgbox "end"


* The end message doesn't appere!
0
Comment
Question by:gshriki
  • 4
  • 4
  • 3
  • +1
14 Comments
 
LVL 4

Expert Comment

by:epeele
Comment Utility
msgbox and CDec are not available in ASP.
0
 

Expert Comment

by:Gizmo
Comment Utility
Msgbox is avalible if you do it in VBScript:

<SCRIPT language="VBScript">
     Dim intBoxResult

     intBoxResult = MsgBox("Blaha Blaha" & vbCrLf & vbCrLf & "Are you sure?",52,"Sure?")
                   
     select case intBoxResult
             case 6     ' Yes
                location.replace("xx.asp?do=deleteid=<%=intID%>")
             case 7     ' No
                history.go(-1)
     
     end select
     
</SCRIPT>

That will display a msgbox...
As and you can see it's possible to mix in ASP code (<%=intID%>....

~Gizmo
0
 

Expert Comment

by:Gizmo
Comment Utility
This might explain things a bit better.. =)

<%

Sub DisplayMsgBoxConfirm(intID)

<SCRIPT language="VBScript">
    Dim intBoxResult

    intBoxResult = MsgBox("Blaha Blaha" & vbCrLf & vbCrLf & "Are you sure?",52,"Sure?")
                   
    select case intBoxResult
            case 6     ' Yes
               location.replace("xx.asp?id=<%=intID%>")
            case 7     ' No
               history.go(-1)
   
    end select
   
</SCRIPT>

end sub


' blaha blaha....

DisplayMsgBoxConfirm(intID)

%>


One thing to think about is that ASP code is run before the VBScript....

~Gizmo
0
 
LVL 4

Expert Comment

by:epeele
Comment Utility
To clarify even further on what gizmo is saying...

You can use VBScript on the client-side to implement MsgBox, however, this will only be supported in IE browsers.  For Javascript on the client-side, you'd have to use

<script language=javascript>
  alert("This is your message.\n\nSee how it works?");
</script>


But CDec still is not supported.
0
 

Author Comment

by:gshriki
Comment Utility
All the other msgboxes works fine.
but, what can I do with the CDec ? how can i cnvert Hex value to Decimal ???

thank you all for your comments.
0
 

Author Comment

by:gshriki
Comment Utility
All the other msgboxes works fine.
but, what can I do with the CDec ? how can i cnvert Hex value to Decimal ???

thank you all for your comments.
0
 
LVL 4

Expert Comment

by:epeele
Comment Utility
<script language="VBScript">
    Sub Hex2Dec(Hvalue, Dvalue)
        dim q,a,p
        if Left(Hvalue,2)<>"&h" or Left(Hvalue)<>"&H" then
            alert("Wrong number format!")
        else
            q = mid(Hvalue,3)
            Dvalue=0
           
            while q<>""
                a=left(q,1)
                q=mid(q,2)
                select case a
                    case "1"
                        p=0
                    case "2"
                        p=2
                    case "3"
                        p=3
                    case "4"
                        p=4
                    case "5"
                        p=5
                    case "6"
                        p=6
                    case "7"
                        p=7
                    case "8"
                        p=8
                    case "9"
                        p=9
                    case "A","a"
                        p=10
                    case "B","b"
                        p=11
                    case "C","c"
                        p=12
                    case "D","d"
                        p=13
                    case "E","e"
                        p=14
                    case "F","f"
                        p=15
                    case else
                        p=0
                end select
               
                Dvalue=Dvalue+p*16^len(q)
            wend
        end if
    End Sub
</script>

<!---------* Call the proc *---------->

<body>
<script>
    Hvalue="&hA23"
    Call Hex2Dec(Hvalue,Dvalue)
    alert(Dvalue)
</script>
</body>
0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 

Expert Comment

by:Gizmo
Comment Utility
What I can find CDec is only supported in VBA.

The workaround I found is to do the conversation in JavaScript...
using the object.toString function...
But I'm no JavaScript expert (But MSDN makes you one.. hehe)...  

But I'm not sure that's the easiest way to do it..

~Gizmo
0
 
LVL 4

Expert Comment

by:epeele
Comment Utility
This function converts a hexadecimal value represented by a string into a decimal value.

Function HexToDec(strHex)
  dim lngResult
  dim intIndex
  dim strDigit
  dim intDigit
  dim intValue

  lngResult = 0
  for intIndex = len(strHex) to 1 step -1
    strDigit = mid(strHex, intIndex, 1)
    intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1
    if intDigit >= 0 then
      intValue = intDigit * (16 ^ (len(strHex)-intIndex))
      lngResult = lngResult + intValue
    else
      lngResult = 0
      intIndex = 0 ' stop the loop
    end if
  next

  HexToDec = lngResult
End Function


0
 
LVL 3

Expert Comment

by:nigelrowe
Comment Utility
Or try this, it's a bit simpler....

HexStr = "&h" & "FFFFFF"
If IsNumeric(HexStr) Then
    Response.Write "Dec value: " & CLng(HexStr)
End If


0
 
LVL 3

Expert Comment

by:nigelrowe
Comment Utility
But you'd better check the length of the hex string first

a = "&hffffffff"
If IsNumeric(a) Then
     response.write Cdbl(a)
End If

"ffffffff" is the largest hex number that will be converted with CLng

0
 
LVL 3

Accepted Solution

by:
nigelrowe earned 100 total points
Comment Utility
Whoops, that should be...

a = "&hffffffff"
If IsNumeric(a) Then
    response.write CLng(a)
End If
0
 

Author Comment

by:gshriki
Comment Utility
Thanks !!! it works !!!
0
 
LVL 3

Expert Comment

by:nigelrowe
Comment Utility
Yes, amazing isn't it?

Cheers, have a good day
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now