将全角的字符转变成半角字符，将半角转变成全角 <% Function DSConvert(vString,vFlag) Rem vFlag为0时表示从全角转为半角,为其他时表示从半角转为全角 Dim i,tmpSingleCharaASC,TempResult,SAscString,DAscString SAscString = “1,2,3,4,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,27,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,
