快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

简体中文编码对应器

<% 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)全中文
    微笑服务 优质保证 索取样品