领新手走出迷惑-ASP各类基础代码收集！贴出来

[wukaitoumai]

本板块给新手一个入门天地
请各位把精简短小代码贴出来 或者 一些基础语句
不散分，靠自觉！谢谢

[wukaitoumai]

asp循环语句
1.Do...Loop循环
使用Do...Loop语句多次执行语句块，当条件为True时或条件变为True之前，重复执行语句块
While 关键字用于检查Do...Loop语句中的条件。有两种检查方式：①在进入循环之前检查条件；②或者在循环至少运行完一次之后检查条件
下为两实例
①<Script Language="VBS">
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
document.write("循环重复了 " & counter & " 次。")
</Script>
程序先判断while条件是否成立，如果成立则执行循环体中的语句，每次执行前检查一下while语句后面的条件，如果条件不成立就退出循环
②<Script Language="VBS">
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
document.write( "循环重复了 " & counter & " 次。")
</Script>
while条件拿到程序后面，条件写在前面先判断，写在后面后判断。还可以用 Exit Do 语句强制退出循环

2.While...Wend
使用方法：
<Script Language="VBS">
Dim counter, myNum
counter = 0
myNum = 0
While myNum <10
myNum = myNum + 1
counter = counter + 1
Wend
document.write("循环重复了 " & counter & " 次。")
</Script>
先判断while后面的条件是否成立，成立则执行循环体中的内容，直到不成立为止。While和Wend必须配对使用，Wend是End While的缩写形式。

3.For...Next循环
For...Next语句用于将语句块运行指定的次数。在循环中使用计数器变量，该变量的值随每一次循环增加或减少。
①<Script Language="VBS">
Dim x
For x = 1 To 10
Document.write(x & "<br>")
Next
</Script>
语句重复执行10次。For语句指定计数器变量X及其起始值与终止值。
②<Script Language="VBS">
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
document.write("总和为 " & total & "。")
</Script>
关键字Step用于指定计数器变量每次增加的值。此程序变量j每次增加2

ps:Step关键字省略，则循环变量每次加一，当有Step关键字时，每次循环完后，循环变量加上Step后面的值。要使计数器变量递减，可将Step设为负值。可以使用Exit For 语句强制退出

4.For Each...Next循环
与For...Next循环类似。For Each...Next不是将语句运用指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复执行。
<Script Language="VBS">
Dim d '创建一个变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "0", "Athens" '添加键和项目
d.Add "1", "Belgrade"
d.Add "2", "Cairo"
For Each I in d
document.write(I & " = " & d.Item(I) & "<BR>")
Next
</Script>
首先利用语句"Set d = CreateObject("Scripting.Dictionary")"创建一个字典对象d，因为使用CreateObject创建出来的是对象,所以需要加上关键字Set.然后向字典中添加三个单词"0","1","2",其意思是:"Athens","Belgrade","Cairo".最后利用循环将其中的内容显示出来.

[wu128529]

你说发就发呀。不发可行