减小字体
增大字体- ·上一篇文章：用ADO连接数据库的三种方法及其性能比较
- ·下一篇文章：微软.Net卧虎藏龙
一个将半角转换为中文“的函数
function new_str(str)
if instr(str,chr(34))<>0 and str<>"" then
str_split=split(str,chr(34))
i=1
str_s=""
for j=0 to ubound(str_split)-1
if i mod 2 then
str_s=str_s&str_split(j)&"“"&str_split(j+1)
else
str_s=str_s&str_split(j)&"”"&str_split(j+1)
end if
i=i+1
next
end function
做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。
if instr(str,chr(34))<>0 and str<>"" then
str_split=split(str,chr(34))
i=1
str_s=""
for j=0 to ubound(str_split)-1
if i mod 2 then
str_s=str_s&str_split(j)&"“"&str_split(j+1)
else
str_s=str_s&str_split(j)&"”"&str_split(j+1)
end if
i=i+1
next
end function
做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。