一聚教程网:一个值得你收藏的教程网站

热门教程

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

时间:2022-06-30 11:23:20 编辑:袖梨 来源:一聚教程网

<%
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">




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

热门栏目