Convertir personajes de ancho completo en personajes de medio ancho, convertir personajes de medio ancho en personajes de ancho completo
<%
ForceDSconvert (VString, VFLAG)
Cuando RemVFlag es 0, significa que pasa de ancho completo a medio ancho, y cuando es otro, significa que pasa de medio ancho a todo el ancho completo
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,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,67,68,69,70,71,72 , 73,74,75,77,77,777,777,7979,80,8182,82,837,847,87,87,87,87,897,990,9192,93,947,947,97,97,97,97,97,97,97,997,97,9190,912,92,947,97,97,97,97,97,97,97,99999997,97,97,97,97,97,97,97,97,97,97,997,997,97,97,97,97,97,97,997,997,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,101. 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, -23665, -23664, -23663, -2362, -23661, -23660, -23659, -23658, -23657, -23656, -23655, -23654, -23653, -23647, -23656, -23655, -23654, -23653, -23647, -23646, -23645, -23644, -23643, -2364444444 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, -23616, -23615, -23614, -23613,------------------------ 23612, -23611, -23610, -23609, -23608, -23607, -23606, -23605, -23604, -23603, -23602, -23601, -23600, -23599, -23598 , -23597, -23596, -23595, -23594, -23593, -23592, -23591, -23590, -23589, -23588, -23587, -23586, -23585, -23584, -2355588 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, -235558, -23557, -23556, -235555, -23554 "
TEMPRESULT = ""
Iflen (vstring) <= 0thenResponse.write "ParametersError! ¡PleaseCheckYourParameters!": Respuesta.End: ExitFunction
Fori = 1Tolen (VString)
tmpsinglecharaasc = ASC (Mid (Vstring, I, 1))
Ifvflag = 0then
Ifinstr (dascstring, tmpsinglecharaasc) <> 0andlen (cstr (tmpsinglecharaasc)) = 6Then
TEMPRESULT = TEMPRESULT & CHR (TMPSINGLECHARAASC+23680)
Demás
TEMPRESULT = TEMPRESULT & CHR (TMPSINGLECHARAASC)
Endif