Umwandeln
<%
FunctionSdsConvert (Vstring, VFLAG)
Wenn RemvFlag 0 ist, bedeutet dies, dass es sich von der Vollbreite bis zur Halbbreite wandelt, und wenn es sich um das andere handelt, bedeutet dies, dass es von der halben Breite bis zur Vollbreite wird
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 ,19,20,214,23,24,39,40, 21,22,23,17,40,214,38,39,40,214,38,39,40,21,22,15,39,40,214,38,39,40,214,38,39,40,214,38,39,19,8,8,8,8,8,5,5,5,5,5,38,38,18,7,8,8,8,8,8,8,8,5,5,5,5,38,2. 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,71,71,71,72 , 73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,890,91,92,93,94,95,96,97,98,99,100, 101,102,1 03,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,112,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,- 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.
Tempresult = ""
Iflen (vstring) <= 0ThenResponse.Write "ParameterSerror! PleasecheckyourParameter!": Antwort.end: exitFunction
Fei = 1tolen (vstring)
tmpsinglecharaasc = ASC (Mid (Vstring, i, 1))
IFVFLAG = 0Then
IFInstr (DascString, tmpsinglecharaasc) <> 0andlen (cstr (tmpsingLecharaasc)) = 6Then
Tempresult = tempresult & chr (tmpsinglecharaasc+23680)
Anders
Tempresult = tempresult & chr (tmpsinglecharaasc)
Endif