ASP生成由客户浏览器处理的客户端脚本

答案：
< 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 
%> 

上一个：如何把IP表存到SQL数据库里去？
下一个：如何把错误写入事件日志？