< SCRIPT LANGUAGE="VBScript">

< !—

client script

< % server script %>

client script
< % server script %>

client script

……
-->

< /SCRIPT>
   

同理，在下例，我们让ASP在服务器上检索时间和日期信息，然后通过几次循环生成在用户的 Web 服务器上执行的子程序，令每个客户端子程序提出随机选择的问候，显示时间和日期信息。

< %
ServerTime = Time

ServerDate = Date
For i = 1 to 4

Randomize

GreetCondition = int(rnd * 3)

%>

< SCRIPT LANGUAGE="VBScript">

< !—

Sub ServeInfo< %= i %>()

Select Case< %= GreetCondition%>

Case 0

Msg = "精彩春风欢迎你!现在时间是:< %= ServerTime %>."

Case 1

Msg = "欢迎光临!今天的闪亮日子是:< %= ServerDate %>."

Case 2

Msg = "你好,美丽的吴晓桃欢迎你!现在是:< %= ServerDate %>< %= ServerTime %> "

End Select

Document.Write Msg

End Sub

ServeInfo< %= i %>()

//-->

< /SCRIPT>

< %