简体中文编码对应器 最新版
作者：袖梨
2022-06-30
<%
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&"
<%
if FirstCHR <> "" and LastCHR <> "" then
Call MakeChineseWord()
end if
%>
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
%>
