简体中文编码对应器

% DIM FirstCHR,LastCHR,K,I,J
0 s( h8 f4 ?, g# yFirstCHR = Request("FirstCHR") 'FirstCHR="45217" '定义起始值
! `: p5 t! Z, J4 _0 G% ILastCHR = Request("LastCHR") 'LastCHR="62289" '定义终结值: x/ T. J' I* ~& T# G
HttpAddress = Request.ServerVariables("url") '不要动 6 p  x( t" [7 h% k7 G; {' f

; w! z0 K2 L8 T2 }6 k5 F0 v* \  " Q/ D9 ?4 V$ x8 |9 S5 g
% P* @- k- f; f' d! |
Sub MakeChineseWord()
) i4 f& D2 Y6 o, EResponse.write "起始值："FirstCHR" "
9 s) X) ]+ B$ _Response.write "终止值："LastCHR" "7 V3 U. t$ l2 {' @
Response.write "差值= "LastCHR-FirstCHR 1"P"/ U  `3 k' B- a: f, I( {) Y
FOR J = FirstCHR TO LastCHR . y: Z! u% N/ f, P2 `
RESPONSE.WRITE "a title='"J"'"CHR(J)"/a "
4 h- O& ?/ V$ `0 ^+ F+ O% Fk = k 1 3 g/ w4 N, f2 s) P' k) b- u* D
if (J mod 20) = 0 then
. R1 h( R) a; q1 R! A0 vRESPONSE.WRITE "（最后为"J"）p" / y  k9 N5 ~& l9 u
end if
" t: K  R: f: d6 N$ ]% L; O1 GNEXT
/ w& r/ A6 p9 o8 P; A+ V9 x2 L% vRESPONSE.WRITE "p共有：" K "中文字br"
$ A" V0 E4 i  F# _' T% HEnd Sub5 o* A5 [( Y( s" v2 B4 {
%  
3 ^! q0 f0 S8 n, |: h/ ^  K( o
1 w+ r5 A7 t( Q) U# Eform action="%=HttpAddress%" method="post"
! V" M) Y3 G  v7 a+ Y  Pselect name="FirstCHR"$ A+ l, \+ W1 A% o, A6 q
option value="" SELECTED选择起始值/option
. ]7 x% W1 |; `% ^%For I = 1 to 722 c3 d6 o+ r7 J: f; v
Response.write "option value="(45217 K1)""(45217 K1)"-"I"/option"
$ |( ]; ]) W- e' B" X7 ^% E% @K1 = K1   256
  R2 E  ~) m- _; F! WNext%1 E+ n1 [. a. e' @' [) i
/select
  |. f* |' Y. S5 p. ~8 I' W2 sselect name="LastCHR"  U- K  A% m5 r, h2 u9 F
option value="" SELECTED选择起始值/option8 C" Z9 m* Z- M$ a; t9 u, f
%For I = 1 to 72
9 Y5 v0 z2 U8 }; U7 jResponse.write "option value="(45310 K2)""(45310 K2)"-"I"/option"
7 O& @) t2 c0 l* TK2 = K2   256
1 }/ R# _. @8 m3 \- fNext%
+ t1 k7 f5 V( a# J: @) _4 d/select  
9 T. Z+ {/ B/ i/ S. P+ ?! W
. \: [2 U! q/ n  Q) }) d. l6 Iinput type="submit" value="确定"9 T/ h8 v4 X" v+ c4 a. O+ h. N! I
/form
% @2 g8 p- P  s%
# P% |% r* S; K8 ^7 Z  ~if FirstCHR  "" and LastCHR  "" then
( o7 h2 F- ?$ w9 y) F- I7 }  O2 OCall MakeChineseWord()$ R# z% m. h9 E5 z2 q) U  c7 _
end if* N) W4 j4 z' R1 U8 M: s
%