整理编辑：China ASP

答:sub ShowHex(data)
    dim l
    dim i
    dim ch
    l=lenB(data)
    for i = 1 to l
        ch=midB(data,i,1)
        h=trim(hex(ascB(ch)))
        if len(h)=1 then
           h="0"+h
        end if
        response.write h+" "
        if i mod 15 =0 then
           response.write "<br>"
        end if
    next
end sub

加入时间：1999-11-8
阅读次数：635