<% DIM FirstCHR,LastCHR,K,I,J
FirstCHR = Request("FirstCHR") 'FirstCHR="45217" '定义起始值
LastCHR = Request("LastCHR") 'LastCHR="62289" '定义终结值
HttpAddress = Request.ServerVariables("url") '不要动
Sub MakeChineseWord()
Response.write "起始值:"&FirstCHR&" "
Response.write "终止值:"&LastCHR&" "
Response.write "差值= "&LastCHR-FirstCHR+1&"
"
FOR J = FirstCHR TO LastCHR
RESPONSE.WRITE ""&CHR(J)&" "
k = k+1
if (J mod 20) = 0 then
RESPONSE.WRITE "(最后为"&J&")
"
end if
NEXT
RESPONSE.WRITE "
共有:"& K &"中文字
"
End Sub
%>
选择起始值 <%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://m.hzclsc.cn/anzhuo/2329.html
推荐访问:简体中文的英语 dhl简体中文