<%
class possible 【程序编程相关:Linux C 函数参考(内存及字符串操】 【推荐阅读:Linux C 函数参考(日期时间) 】 dim aso 【扩展信息:Linux C 函数参考(常用数学函数)】 private sub class_initialize set aso=createobject("adodb.stream") aso.mode=3 aso.type=1 aso.open end sub private sub class_terminate set aso=nothing end subprivate function bin2str(bin)
dim i, str for i=1 to lenb(bin) clow=midb(bin,i,1) if ascb(clow)<128 then str = str & chr(ascb(clow)) else i=i+1 if i <= lenb(bin) then str = str & chr(ascw(midb(bin,i,1)&clow)) end if next bin2str = str end function private function num2str(num,base,lens) dim ret ret = "" while(num>=base) ret = (num mod base) & ret num = (num - num mod base)/base wend num2str = right(string(lens,"0") & num & ret,lens) end function ... 下一页