|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。<%
*********************************************
THISISASIMPLEGAMEOFROCKSCISSORSPAPER
FEELFREETODOWHATEVERYOULIKEWITHTHIS
SCRIPT!-IANS.CARROLL
*********************************************
*********************************************
THISFUNCTIONGENERATESARANDOMNUMBER
*********************************************
FunctioncomputerChooses()
DimrandomNum
Dimchoice
randomize
randomNum=int(rnd*15)+1
IfrandomNum=1ORrandomNum=3ORrandomNum=7ORrandomNum=8ORrandomNum=15ORrandomNum=12Then
choice="R"
ElseIfrandomNum=2ORrandomNum=6ORrandomNum=11ORrandomNum=13Then
choice="S"
Else
choice="P"
EndIf
computerChooses=choice
EndFunction
*********************************************
THISFUNCTIONSIMPLYDETERMINESTHEWINNER
OFTHEGAME
*********************************************
SubdetermineWinner(playerChoice,computerChoice)
ConstRock="R"
ConstScissor="S"
ConstPaper="P"
DimtempPlayer,tempComputer
IfplayerChoice=RockThen
IfcomputerChoice=ScissorThen
%>
<P><CENTER>
YourSCISSORScutupthecomputersPAPER!</CENTER>
<%
EndIf
ElseIfplayerChoice=PaperThen
IfcomputerChoice=RockThen
%>
<P><CENTER>
Weseemtohaveatie!</CENTER>
<%
EndIf
IfcomputerChoice=RockThen
IfplayerChoice=ScissorThen
%>
<P><CENTER>
Weseemtohaveatie!</CENTER>
<%
EndIf
ElseIfcomputerChoice=ScissorThen
IfplayerChoice=PaperThen
%>
<P><CENTER>
<IMGSRC="http://www.163design.net/a/y/images/scissors_beats_paper.gif">
ThecomputersSCISSORcutupyourPAPER!</CENTER>
<%
ElseIfplayerChoice=computerChoiceThen
%>
<P><CENTER>
&nbs</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|