最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
简体中文编码对应器 最新版
时间：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&"
<%
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
%>