asp中如何循环输出26个英文字母|股票教学与公式软件 - 交易者论坛

离线copy

初级站友

发帖: 446

金币: 17770

威望: 7

贡献值: 0

开心币: 21

只看楼主倒序阅读使用道具楼主发表于: 2006-10-02

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

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

1.

<%

Dim i : For i=Asc("a") To Asc("z") : Response.Write Chr(i) : Next

%>

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)&" ")

%>

3.

<%

'大写字母

for i=65 to 90

response.Write chr(i)

'小写字母

for i=97 to 122

response.Write chr(i)

%>

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,"|"," ")

Response.Write(str)

%>

5.

<%

str="abcdefghijklmnopqrstuvwxyz"

for n=1 to 26

response.write(mid(str,n,1))

%>

</body>

</html>

要好文章找我来

分享到 淘江湖新浪 QQ微博 QQ空间开心人人豆瓣网易微博百度鲜果白社会飞信

离线copy

初级站友

发帖: 446

金币: 17770

威望: 7

贡献值: 0

开心币: 21

只看该作者沙发发表于: 2006-10-02

Function   ShowDriveType(drvpath)
        Dim   fso,   d,   t
        Set   fso   =   CreateObject("Scripting.FileSystemObject")
        Set   d   =   fso.GetDrive(drvpath)
        Select   Case   d.DriveType
              Case   0:   t   =   "Unknown"
              Case   1:   t   =   "Removable"
              Case   2:   t   =   "Fixed"
              Case   3:   t   =   "Network"
              Case   4:   t   =   "CD-ROM"
              Case   5:   t   =   "RAM   Disk"
        End   Select
        ShowDriveType   =   "Drive   "   &   d.DriveLetter   &   ":   -   "   &   t
End   Function

Dim fso, d, dc, s, t
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set dc = fso.Drives
 For Each d in dc
 Select Case d.DriveType
 Case 0: t = "Unknown"
 Case 1: t = "Removable"
 Case 2: t = "Fixed"
 Case 3: t = "Network"
 Case 4: t = "CD-ROM"
 Case 5: t = "RAM Disk"
 End Select
 s = s & "Drive: " & d.DriveLetter & ": -" & t & " "
 Next