asp里如何循环输出26个英文字母
发布时间：2022-01-10 09:39: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/h
|
<%@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> （编辑：应用网_常德站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
