<%

　　Dim varNumber ’定義一個訪問次數(shù)變量

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

　　if varNumber="" then

　　varNumber=1 ’如果是第一次，則令訪問次數(shù)為1

　　Else

　　varNumber=varNumber+1 ’如果不是第一次，則令訪問次數(shù)加1

　　End If

　　Response.Write "您是第" & varNumber & "次訪問本站"

　　Response.Cookies("Number")=varNumber ’將新的訪問次數(shù)存到Cookies中

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

　　%>

　　2、

　　dim n， s， number

　　s=1

　　number=prompt( "請輸入一個數(shù)")

　　n=number

　　if n<1000 and n>=1 then

　　for i=1 to n

　　s=s*i

　　next

　　document.write"計算結(jié)果為："

　　for i=1 to n-1

　　document.write i & "*"

　　next

　　document.write n & "="

　　document.write s

　　else document.write"輸入有誤"

　　end if