asp将全角的字符转变成半角字符，将半角转变成(2)

           Else
                 If InStr(SAscString,tmpSingleCharaASC) <> 0 and Len(Cstr(tmpSingleCharaASC))<=4 Then
                       TempResult = TempResult & Chr(tmpSingleCharaASC-23680)
                 Else
                       TempResult = TempResult & Chr(tmpSingleCharaASC)
                 End If
           End If
     Next
     DSConvert = TempResult
End Function
%>
全角转半角
<%= DSConvert("１２３４５６６４６５４５４",0)%>
半角转全角
<%= DSConvert("1234567890132131",1)%>