【www.gdgbn.com--中文酷站】

<%
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
%>
[简体中文编码对应器]

" method="post">

选择起始值
<%For I = 1 to 72
Response.write ""&(45217+K1)&"-"&I&""
K1 = K1 + 256
Next%>


选择终止值
<%For I = 1 to 72
Response.write ""&(45310+K2)&"-"&I&""
K2 = K2 + 256
Next%>

<%
if FirstCHR <> "" and LastCHR <> "" then
Call MakeChineseWord()
end if
%>

本文来源：http://www.gdgbn.com/kuzhan/3765/