1、<% Response.Buffer=True %>

　　<% 

　　Dim varNumber      ’定义一个访问次数变量

　　varNumber=Request.Cookies("Number") ’读取Cookies值

　　if varNumber="" then

　　varNumber=1    ’如果是第一次，则令访问次数为1

　　Else

　　varNumber=varNumber+1 ’如果不是第一次，则令访问次数加1

　　End If

　　Response.Write "您是第" & varNumber & "次访问本站"   

　　Response.Cookies("Number")=varNumber      ’将新的访问次数存到Cookies中

　　Response.Cookies("Number").Expires=#2030-1-1#    ’设置有效期

　　%>

　　2、

　　dim n， s， number

　　s=1

　　number=prompt( "请输入一个数")

　　n=number

　　if n<1000 and n>=1 then

　　for i=1 to n

　　s=s*i

　　next

　　document.write"计算结果为："

　　for i=1 to n-1

　　document.write i & "*"

　　next

　　document.write n & "="

　　document.write s

　　else document.write"输入有误"

　　end if