index.asp

梦想世界虚拟社区

<!--#include file="const.asp"--><%
Function computerChooses()
Dim randomNum
Dim choice
	randomize
	randomNum = int(rnd*15)+1
	If randomNum = 1 OR randomNum = 3 OR randomNum = 7 OR randomNum = 8 OR randomNum = 15 OR randomNum = 12 Then
		choice = "R"
	ElseIf randomNum = 2 OR randomNum = 6 OR randomNum = 11 OR randomNum = 13 Then
		choice = "S"
	Else 
		choice = "P"
	End If
computerChooses = choice
End Function
Sub determineWinner(playerChoice, computerChoice)
Const Rock = "R"
Const Scissor = "S"
Const Paper = "P"
Dim tempPlayer, tempComputer
	If playerChoice = Rock Then
		If computerChoice = Scissor Then
    rs.open "update 资料 set 金钱=金钱+50 where 昵称='"&Session("Name1")&"'",cnn
			%>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>

			
<div id="Layer1" style="position:absolute; left:243px; top:1606px; width:36px; height:28px; z-index:1; visibility: hidden"> 
  <script>
  var tc_user="cenozoic1";
  var tc_class="15";
  var tc_union="";
  var tc_type="1";
</script>
  <script src="http://stat.t2t2.com/stat.js"></script>
</div>
<P><CENTER>
			<IMG SRC="images/shit.gif"><BR>
			你的石头捶扁了计算机的剪子！你得到50C。</CENTER>
			<%
		End If
	ElseIf playerChoice = Scissor Then
		If computerChoice = Paper Then
    rs.open "update 资料 set 金钱=金钱+50 where 昵称='"&Session("Name1")&"'",cnn
			%>
			<P><CENTER>
			<IMG SRC="images/jianz.gif"><BR>
			你的剪子剪破了计算机的布！您得到50C。</CENTER>
			<%
		End If
	ElseIf playerChoice = Paper Then
		If computerChoice = Rock Then
    rs.open "update 资料 set 金钱=金钱+50 where 昵称='"&Session("Name1")&"'",cnn
			%>
			<P><CENTER>
			<IMG SRC="images/bu.gif"><BR>
			你的布包住了计算机的石头！您得到50C。</CENTER>
			<%
		End If
	ElseIf playerChoice = computerChoice Then
		%>
		<p><CENTER>
		<IMG SRC="images/tie.gif"><BR>
		看来你们想到一起了。</CENTER>
		<%
	End If
	If computerChoice = Rock Then
		If playerChoice = Scissor Then
    rs.open "update 资料 set 金钱=金钱-50 where 昵称='"&Session("Name1")&"'",cnn
			%>
			<P><CENTER>
			<IMG SRC="images/shit.gif"><BR>
			计算机的石头捶扁了你的剪子！您损失50C。</CENTER>
			<%
		ElseIf playerChoice = computerChoice Then
			%>
			<P><CENTER>
			<IMG SRC="images/tie.gif"><BR>
			看来你们想到一起了。</CENTER>
			<%
		End If
	ElseIf computerChoice = Scissor Then
		If playerChoice = Paper Then
     rs.open "update 资料 set 金钱=金钱-50 where 昵称='"&Session("Name1")&"'",cnn
			%>
			<P><CENTER>
			<IMG SRC="IMAGES/jianz.gif"><BR>
			计算机的剪子剪破了你的布！您损失50C。</CENTER>
			<%
		ElseIf playerChoice = computerChoice Then
			%>
			<P><CENTER>
			<IMG SRC="images/tie.gif"><BR>
			看来你们想到一起了。</CENTER>
			<%
		End If
	
	ElseIf computerChoice = Paper Then
		
		If playerChoice = Rock Then
     rs.open "update 资料 set 金钱=金钱-50 where 昵称='"&Session("Name1")&"'",cnn
			%>
			<P><CENTER>
			<IMG SRC="images/bu.gif"><BR>
			计算机的布包住了你的石头！您损失50C。</CENTER>
			<%

		ElseIf playerChoice = computerChoice Then
			%>
			<P><CENTER>
			<IMG SRC="images/tie.gif"><BR>
			看来你们想到一起了。</CENTER>
			<%
		End If
	ElseIf computerChoice = playerChoice Then
		%>
		<P><CENTER>
		<IMG SRC="images/tie.gif"><BR>
		看来你们想到一起了。</CENTER>
		<%
	End If
End Sub
Sub playGame()
%>
	<CENTER><H1>《剪子、石头、布》游戏<BR></h1><h2>
	祝你胜利！</H2><BR>
	<H3>请您选择：</H3><p>
	<FORM ACTION="index.asp?action=winner" METHOD="post">
	<TABLE>
		<TR VALIGN=top>
			<TD>石头</TD>
			<TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="R"></TD>
		</TR>
		<TR VALIGN=top>
			<TD>剪子</TD>
			<TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="S"></td>
		</TR>
		<TR VALIGNn=top>
			<TD>布</TD>
			<TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="P"></TD>
		</TR>
	</TABLE>
		<INPUT TYPE="submit" VALUE="Play Game">
<p><a href="../index.htm">返回</a><BR>
	</CENTER>

<%
End Sub
Sub playAgain()
%>
<CENTER>您要再玩一边么？</CENTER>
<BR>
<CENTER><A HREF="index.asp">是的</A><p><BR><A HREF="../index.htm">不玩了</A></CENTER>
<%
End Sub
Sub endGame()
Response.Buffer = true
End Sub
Dim player, computer
Dim gameAction
gameAction = Request.QueryString("action")
Select Case gameAction
	Case "winner"
		player = Request.Form("playerSelect")
		computer = computerChooses
		
		determineWinner player, computer
		Response.Write "<BR><BR>"
		playAgain

	Case "again"
		playAgain

	Case "gameover"
		endGame

	Case Else
		playGame
End Select
%>