Convertir les personnages pleine largeur en personnages de demi-largeur, convertissez les personnages de demi-largeur en personnages pleine largeur
<%
FondageDSConvert (VString, VFLAG)
Lorsque REMVFLAG est 0, cela signifie qu'il passe de pleine largeur à la demi-largeur, et quand il est autre, cela signifie qu'il passe de la demi-largeur à la largeur pleine largeur
Dimi, Tmpsinglecharaasc, Tempsult, 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,65,66,67,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,102,1,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, -23665, -23664, -23663, -23662, -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, -23616, -23615, -23614, -23613, -23615, -23614, -23613, -23614, -23613, -23614, -23613, -23614, -23613, -23614, -23613, -2 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, -2355 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, -23558, -23557, -23556, -23555, -23554 "
Tempresult = ""
Iflen (vString) <= 0TheNResponse.write "Paramètres Enerror!
Fori = 1Tolen (vstring)
tmpsinglecharaasc = ASC (mid (vstring, i, 1))
Ifvflag = 0Then
IFinstr (dascstring, tmpsinglecharaasc) <> 0andlen (cstr (tmpsinglecharaasc)) = 6Then
Tempresult = Tempsult & Chr (Tmpsinglecharaasc + 23680)
Autre
Tempresult = Tempsult & Chr (Tmpsinglecharaasc)
Endire