Konversi karakter lebar penuh menjadi karakter setengah lebar, ubah karakter setengah lebar menjadi karakter lebar penuh
<%
FunctionDSConvert (VString, VFLAG)
Saat Remvflag adalah 0, itu berarti berubah dari lebar penuh menjadi setengah lebar, dan ketika itu adalah yang lain, itu berarti itu berubah dari setengah lebar ke lebar penuh
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,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,71,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.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, -236662, -23664, -23663, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -23662, -2366, -2366, -2366, -2366, -2366, -2366, -2366, -23661, -23660, -23659, -23658, -23657, -23656, -23655, -23654, -23653, -23647, -23646, -23645, -23644, -23646. 2, -23641, -23640, -23639, -23638, -23637, -23636, -23635, -23634, -23633, -23632, -23631, -23630, -23629, -2363 627, -23626, -23625, -23624, -23623, -23622, -23621, -23620, -23619, -23618, -23617, -23616, -23615, -23614, -23616, -23615, -23614, -23616 23612, -23611, -23610, -23609, -23608, -23607, -23606, -23605, -23604, -23603, -23602, -23601, -23600, -23599, -2359. , -23597, -23596, -23595, -23594, -23593, -23592, -23591, -23590, -23589, -23588, -23587, -23586, -23585, -23587 83, -23582, -23581, -23580, -23579, -23578, -23577, -23576, -23575, -23574, -23573, -23572, -23571, -23570, -23572 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)
Kalau tidak
Tempresult = Tempresult & Chr (Tmpsinglecharaasc)
Endif