整理编辑: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
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3387
Powered by: 博客园 Copyright © 2024 csdnexpert Powered by .NET 8.0 on Kubernetes