<%
Response.Buffer = true
weekstr=Array("日","1","2","3","4","5","6")
Nweek = DatePart("w",date() ) -1 '今天是星期幾?
output "Nweek=", Nweek
Cweek = weekstr(Nweek)
Output "Cweek=",Cweek
response.Clear
%>
執行後,OUTPUT只是吧數據寫入緩衝區,若程序一切正常,則RESPONSE.CLEAR將清除緩衝區,就不會有測試數據在頁面上!