<%

DIM FirstCHR,LastCHR

DIM K,I,J

DIM HttpAddress

'FirstCHR="45217" '定义起始值

FirstCHR = Request("FirstCHR")

'LastCHR ="63486" '定义终结值

LastCHR = Request("LastCHR")

Sub MakeChineseWord()

Response.write "起始值："&FirstCHR&" "

Response.write "终止值："&LastCHR&" "

Response.write "差值= "&LastCHR-FirstCHR+1&"

"

K=0

FOR J = FirstCHR TO LastCHR

RESPONSE.WRITE ""&J&")"&CHR(J)&" "

k = k+1

if (k mod 94) = 0 then

J = J + 162

RESPONSE.WRITE "

"

end if

NEXT

RESPONSE.WRITE "

共有："& K &"中文字
"

End Sub

%>

[简体中文编码对应器]

<%

if FirstCHR <> "" and LastCHR <> "" then

Call MakeChineseWord()

end if

%>