Converter personagens de largura completa em personagens de meia largura, converte caracteres de meia largura em personagens de largura completa
<%
FunctiondsConvert (vString, vflag)
Quando o Remvflag é 0, significa que ele gira da largura total para a meia largura e, quando é outra, significa
Dimi, 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,39,40, 43,33,34,36,37,38,39,40, 41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,68,68,69,70,71,72 73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100.101,10.94,95,96,97,99,100.10.101,102,94,96,97,99,99,100.101,10.94,95,96,97,99.100.10.10.102.1 03.104.105.106.107.108.109.110.111.112.113.114.115.116.117.118.119.120.121.122.123.124.125.126 "
DASCSTRING = "-23679, -23678, -23677, -23676, -23675, -23674, -23673, -23672, -23666, -2365, -2364, -236666666, -2365, -2664, -2366666666, -2365, -2664, -2366666666, -2365, -2664, -2366666666, -2365, -2664, -236666666, -2365, -2664, -2366666666, -2365, -2664, -23666666666, -2365, -264, -23666, -2366, -2365, -264, -23666, -2366. -23661,-23660,-23659,-23658,-23657,-23656,-23655,-23654,-23653,-23647,-23646,-23645,-23644,-23643,-23644 2,-23641,-23640,-23639,-23638,-23637,-23636,-23635,-23634,-23633,-23632,-23631,-23630,-23629,-23628,-23 627, -23626, -23625, -23624, -23623, -23622, -23621, -23620, -23619, -23618, -23617, -2616, -23615, -23614, -2617, -2616, -23615, -23614, -2617, -2616, -23615, -23614, -23617, -2616, -23611, -23617, -23611, -23616, -23617, -2366, -23616, -23617, -2366, -2616, -23615, -23614. 23612, -23611, -23610, -23609, -23608, -23607, -23606, -23605, -23604, -23603, -23602, -2601, -23600, -23599, -23602, -2601, -23600, -23599, -23602, -2601, -23597, -23596, -23595, -23594, -23593, -23592, -23591, -23590, -23589, -23588, -23587, -23586, -23585, -2358, -23587, -23586, -23585, -2358, -23587, -23586, -23585, -2358, -23587, -23587, -23586, -23585, -2358, -23587, -23586, -23585 83,-23582,-23581,-23580,-23579,-23578,-23577,-23576,-23575,-23574,-23573,-23572,-23571,-23570,-23569,-2 3568, -23567, -23566, -23565, -23564, -23563, -23562, -23561, -23560, -23559, -2355, -2557, -23556, -2355, -2358, -2557, -23556, -2355, "
Tempresult = ""
Iflen (vString) <= 0ThenResponse.Write "ParameterSerror! PleasecheckyourParameters!": Response.END: EXITFUNCTION
Fori = 1Tolen (vString)
tmpsinglecharaasc = ASC (MID (VString, i, 1))
Ifvflag = 0then
Ifinstr (dascstring, tmpsinglecharaasc) <> 0andlen (cstr (tmpsinglecharaasc)) = 6then
Tempresult = tempresult & ch (tmpsinglecharaasc+23680)
Outro
Tempresult = tempresult & ch (tmpsinglecharaasc)
Endif