Преобразовать персонажей полной ширины в персонажей полугодии, преобразовать персонажей полугодии в персонажей полной ширины
<%
Functiondsconvert (vstring, vflag)
Когда Remvflag равен 0, это означает, что он превращается из полной ширины к полугодности, и когда он другой, это означает, что он превращается из полугодности к полной ширине
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,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,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 03,104,105,106,107 108,109,110,111112,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, -23631, -23630, -23629, -23628 627, -23626, -23625, -23624, -23623, -23622, -23621, -23620, -23619, -23618, -23617, -23616, -23615, -23614, -236113, -23615, -23614, -23613, -23615, -23614, -23613, -23615, -23614, -23613, -23615, -23614, -23613, -23615, -23614, -23617, -23616, -23615, -23614, -23617 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 "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 & Chr (tmpsinglecharaasc+23680)
Еще
Tempresult = Tempresult & Chr (tmpsinglecharaasc)
Эндиф