|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 %> 返回类别: 教程 上一教程: ASP实例之计数器程序详解 下一教程: 不刷新页面筛选数据库中的数据 您可以阅读与"简体中文编码对应器"相关的教程: · Microsoft 脚本编码器Script Encoder介绍(3)全中文 · MICROSOFT 脚本编码器SCRIPT ENCODER介绍(4)全中文 · MICROSOFT 脚本编码器SCRIPT ENCODER介绍(1)全中文 · MICROSOFT 脚本编码器SCRIPT ENCODER介绍(2)全中文 · Microsoft 脚本编码器Script Encoder介绍(1)全中文 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |