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

答案：<%
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&"<P>"
  K=0
  FOR J = FirstCHR TO LastCHR 
        RESPONSE.WRITE "<a title='"&J&"'>"&J&")"&CHR(J)&"</a>  "        
        k = k+1                                    
        if (k mod 94) = 0 then
        J = J + 162
        RESPONSE.WRITE "<p>"
        end if
      NEXT
  RESPONSE.WRITE "<p>共有："& K &"中文字<br>"
End Sub
%>


[简体中文编码对应器]<BR>
<form action="<%=Request.ServerVariables("url")%>" 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
%>

上一个：asp搜索的特殊问题
下一个：VBscript 类的设计（二）