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

　　相關推薦：

　　2014年計算機等考上機六大注意事項

　　2014年計算機二級WEB程序復習重點匯總

　　2014年計算機二級WEB模擬試題及答案匯總