簡體中文編碼對應器

來源:互聯網
上載者:User
編碼|中文 <% 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
%>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。