简体中文编码对应器 最新版

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 " " k = k+1 if (k mod 94) = 0 then
J = J + 162
RESPONSE.WRITE "

"
end if
NEXT
RESPONSE.WRITE "

共有："& K &"中文字
"
End Sub
%>
[简体中文编码对应器]

" method="post">

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


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



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