摘要:
function cutstr(thestr,strlen) dim l,t,c l=len(thestr) t=0 for dxy=1 to l c=Abs(asc(Mid(thestr,dxy,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then thev=left(thestr,dxy) exit for else bu=strlen-t for bui=1 to bu strbu=" " strbuall=strbuall&strbu next thev=thestr&s 阅读全文
摘要:
adDBTimeStamp 135 日期时间数据类型 adDecimal 14 十进制整数值 adDouble 5 双精度小数值 adError 10 系统错误信息 AdGUID 72 全域性唯一识别字(Globally unique identifier) adDispath 9 COM/OLE自动对象(Automation Object) adInteger 3 4字节有符号整数 adIUnknown 13 COM/OLE对象 adLongVarBinary 205 大型2字节值 adLongVarChar 201 大型字符串值 adLongVarWChar 203 大型未编码... 阅读全文