ASP网站制作之ASP做的剪包锤游戏

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。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对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的