< 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>
< %
Next
%>
