简体中文编码对应器

【 tulaoshi.com - ASP 】

       <% 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&"<P>"
  FOR J = FirstCHR TO LastCHR
  RESPONSE.WRITE "<a title='"&J&"'>"&CHR(J)&"</a> "
  k = k+1
  if (J mod 20) = 0 then
  RESPONSE.WRITE "（最后为"&J&"）<p>"
  end if
  NEXT
  RESPONSE.WRITE "<p>共有："& K &"中文字<br>"
  End Sub
  %>
  
  <form action="<%=HttpAddress%>" method="post">
  <select name="FirstCHR">
  <option value="" SELECTED>选择起始值</option>
  <%For I = 1 to 72
  Response.write "<option value="&(45217+K1)&">"&(45217+K1)&"-"&I&"</option>"
  K1 = K1 + 256
  Next%>
  </select>
  <select name="LastCHR">
  <option value="" SELECTED>选择起始值</option>
  <%For I = 1 to 72
  Response.write "<option value="&(45310+K2)&">"&(45310+K2)&"-"&I&"</option>"
  K2 = K2 + 256
  Next%>
  </select>
  
  <input type="submit" value="确定">
  </form>
  <%
  if FirstCHR <> "" and LastCHR <> "" then
  Call MakeChineseWord()
  end if
  %>