摘要： 1汉字转换为UTF-8 2Function trans()Function trans(str) 3 dim strlen 4 dim conertstr 5 if IsNull(str) then 6 Trans=str 7 else 8 position=1 9 strlen=Len(str) 10 ... 阅读全文