<% DIM FirstCHR,LastCHR,K,I,J

FirstCHR = Request("FirstCHR") 'FirstCHR="45217" '定义起始值

LastCHR = Request("LastCHR") 'LastCHR="62289" '定义终结值

HttpAddress = Request.ServerVariables("url") '不要动

Sub MakeChineseWord()

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

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

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

"

FOR J = FirstCHR TO LastCHR

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

k = k+1

if (J mod 20) = 0 then

RESPONSE.WRITE "（最后为"&J&"）

"

end if

NEXT

RESPONSE.WRITE "

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

End Sub

%>

<%

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

Call MakeChineseWord()

end if

%>