asp中以十六进制显示字串数据

整理编辑：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    nextend sub

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