加入收藏 | 设为首页 | 会员中心 | 我要投稿 常州站长网 (https://www.0519zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp里如何循环输出26个英文字母

发布时间:2022-04-12 05:28:11 所属栏目:Asp教程 来源:互联网
导读:%@LANGUAGE=VBSCRIPT CODEPAGE=65001% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=http://www.w3.org/1999/xhtml head meta http-equiv=Content-Type content=text
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
asp中如何循环输出26个英文字母
<br />
1.
<%
Dim i : For i=Asc("a") To Asc("z") : Response.Write Chr(i) : Next
%>
<br />
2.
<%
str="a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
str=Split(str,"|")
For i=0 to Ubound(str)
    Response.Write(str(i)&"<br>")
Next
%>
<br />
3.
<%
'大写字母
for i=65 to 90
response.Write chr(i)
next
'小写字母
for i=97 to 122
response.Write chr(i)
next
%>
<br />
4.
<%
str="a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
str=replace(str,"|","<br>")
Response.Write(str)
%>
<br />
5.
<%
str="abcdefghijklmnopqrstuvwxyz"
for n=1 to 26
     response.write(mid(str,n,1))
next
%>
</body>  
</html>  

(编辑:常州站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读