全幅の文字を半幅の文字に変換し、半幅の文字をフルヴィッド文字に変換します
<％
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,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,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,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、-23662、-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、---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、-23555 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、-235555、-23554 "
tempresult = ""
iflen（vstring）<= 0thenresponse.write "parametererserror！pelaycheckyourparameters！"：respons.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）
endif