16.显示在某一页停留的时间
<Html>
<Head>
<Title>
显示在某一页停留的时间
</Title>
</Head>
<Body>
<%
If Request.QueryString("time")="" then
%>
你还未点击过下面的链接。<BR>
<%
Else
%>
你在上页停留了<%=DateDiff("s",Request.QueryString("time"),Now())%>
秒。
<BR>
<%End if%>
<Br>
<A href=onlinetime.asp?time=<%=server.URLEncode(Now())%>>
我在这一页停留了多久了?</A><BR>
<BR>
</Body>
</Html>
17.禁止鼠标右键
<html>
<head>
<title>禁止鼠标右键</title>
</head>
<body>
<script language="Javascript">
var mMsg = "你的鼠标右键被禁止了!";
function disableRightClick(btnClick)
{
if (navigator.appName == "Netscape" && btnClick.which == 3)
{
alert(mMsg);
return false;
}
else if (navigator.appName =="Microsoft Internet Explorer" && event.button == 2)
{
alert(mMsg);
return false;
}
}
document.onmousedown = disableRightClick;
</script>
</body>
</html>
18.NT身份认证
<%
authUser=trim(request.servervariables("AUTH_USER"))
IF authUser="" Then
Response.Status="401 Not Authorized"
Response.AddHeader "WWW-Authenticate","Basic Realm="" SUPEREXPERT"""
Response.End
End if
%>
<Html>
<Head>
<Title>
NT身份认证
</Title>
</Head>
<Body>
<font face=华文彩云 size=5 color=Red><b>
<center>
<%=authUser%>你好!<br>
欢迎你光临我的主页<br>
你已经成功通过身份认证。
</center>
</Body>
</Html>
19.石头、剪子、布小游戏
<%
Function ComputerChoose()
Dim RandomNum
Dim choice
Randomize
RandomNum=int(rnd*3)+1
if RandomNum=1 then
choice="R"
elseif RandomNum=2 then
choice="S"
else
choice="P"
end if
ComputerChoose=choice
End Function
Sub DetermineWinner(playerChoice,computerChoice)
if playerChoice="R" then
if computerChoice="R" then
response.write "<font color=red>石头</font>-----<font color=blue>石头</font><br>"
response.write "我们平手了"
elseif computerChoice="S" then
response.write "<font color=red>石头</font>-----<font color=blue>剪子</font><br>"
response.write "恭喜你，你赢了"
elseif computerChoice="P" then
response.write "<font color=red>石头</font>-----<font color=blue>布</font><br>"
response.write "恭喜你，你赢了"
end if
elseif playerChoice="S" then
if computerChoice="R" then
response.write "<font color=red>剪子</font>-----<font color=blue>石头</font><br>"
response.write "恭喜你，你赢了"
elseif computerChoice="S" then
response.write "<font color=red>剪子</font>-----<font color=blue>剪子</font><br>"
response.write "我们平手了"
elseif computerChoice="P" then
response.write "<font color=red>剪子</font>-----<font color=blue>布</font><br>"
response.write "恭喜你，你赢了"
end if
elseif playerChoice="P" then
if computerChoice="R" then
response.write "<font color=red>布</font>-----<font color=blue>石头</font><br>"
response.write "恭喜你，你赢了"
elseif computerChoice="S" then
response.write "<font color=red>布</font>-----<font color=blue>剪子</font><br>"
response.write "这次我赢了"
elseif computerChoice="P" then
response.write "<font color=red>布</font>-----<font color=blue>布</font><br>"
response.write "我们平手了"
end if
end if
End sub
%>
<html>
<title>石头、剪子、布小游戏</title>
<body>
<center>
玩家:<font color=white>------</font>电脑:<br>
<%
dim player
dim computer
player=request("choice")
if player="P" or player="R" or player="S" then
computer=ComputerChoose()
call DetermineWinner(player,computer)
end if
%>
<hr>
请选择你的武器:
<form action=index.asp method=post>
<input type=radio name=choice value="R">石头<br>
<input type=radio name=choice value="S">剪子<br>
<input type=radio name=choice value="P">布 <br>
<input type=submit value=开战>
</form>
</center>
</body>
</html>
20.显示SessionID
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<SCRIPT LANGUAGE = VBScript>
Sub showsessionID()
MsgBox "你的SessionID是:" & <%= Session.SessionID %>
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>显示SessionID</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<B>本实例显示SessionID</B><P>
<INPUT TYPE=Button VALUE="点击此处" ONCLICK=showsessionID>
</BODY>
</HTML>