1、<% Response.Buffer=True %>
<%
Dim varNumber ’定義一個(gè)訪問(wèn)次數(shù)變量
varNumber=Request.Cookies("Number") ’讀取Cookies值
if varNumber="" then
varNumber=1 ’如果是第一次,則令訪問(wèn)次數(shù)為1
Else
varNumber=varNumber+1 ’如果不是第一次,則令訪問(wèn)次數(shù)加1
End If
Response.Write "您是第" & varNumber & "次訪問(wèn)本站"
Response.Cookies("Number")=varNumber ’將新的訪問(wèn)次數(shù)存到Cookies中
Response.Cookies("Number").Expires=#2030-1-1# ’設(shè)置有效期
%>
2、
dim n, s, number
s=1
number=prompt( "請(qǐng)輸入一個(gè)數(shù)")
n=number
if n<1000 and n>=1 then
for i=1 to n
s=s*i
next
document.write"計(jì)算結(jié)果為:"
for i=1 to n-1
document.write i & "*"
next
document.write n & "="
document.write s
else document.write"輸入有誤"
end if
<%
Dim varNumber ’定義一個(gè)訪問(wèn)次數(shù)變量
varNumber=Request.Cookies("Number") ’讀取Cookies值
if varNumber="" then
varNumber=1 ’如果是第一次,則令訪問(wèn)次數(shù)為1
Else
varNumber=varNumber+1 ’如果不是第一次,則令訪問(wèn)次數(shù)加1
End If
Response.Write "您是第" & varNumber & "次訪問(wèn)本站"
Response.Cookies("Number")=varNumber ’將新的訪問(wèn)次數(shù)存到Cookies中
Response.Cookies("Number").Expires=#2030-1-1# ’設(shè)置有效期
%>
2、
dim n, s, number
s=1
number=prompt( "請(qǐng)輸入一個(gè)數(shù)")
n=number
if n<1000 and n>=1 then
for i=1 to n
s=s*i
next
document.write"計(jì)算結(jié)果為:"
for i=1 to n-1
document.write i & "*"
next
document.write n & "="
document.write s
else document.write"輸入有誤"
end if