简体中文编码对应器
<% 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&"）<...[ 查看全文 ]
2016-01-29
标签:
