[原创] 用ASP实现网上“五子棋”大赛

飓风

正式落户草根

认证草根

Rank: 5 Rank: 5

帖子: 725
积分: 640
威望: 1445
金币: 59 元

楼主大中小发表于 2008-6-8 00:15 只看该作者 ( 看帖回帖是一种美德，您的回帖是对楼主最大的支持。)

用ASP实现网上“五子棋”大赛

“五子棋”是大家都非常熟悉的一种益智类游戏，相关的游戏软件也非常多，在此我向大家隆重推出一款新的纯“网络版”的五子棋，它利用ASP做为开发环境，因此在Internet上对战的时候无需下载客户端软件，只要你有一个浏览器就可以了。你也可以在局域网上进行这个游戏。 8 |# G% `. {0 ~: @  O# {
对于ASP，我不想做过多的说明，在以前的文章中，我已经说过很多。
游戏的过程是这样的，我们首先登录，然后可以选择战场，有“金星”、“木星”、“水星”、“火星”、“土星”等五个战场，如果你自认为是一个高手，可以选择金星，否则可以依次选择其它几个星球做为战场。如果这个星球上没有擂主，你就应该以擂主的身份进入，然后别人就可以和你进行对战了。当然，如果所有的星球上都已经开始了战争，那么你就只能等一会儿了。
如果你是以擂主身份进入的，你可以等待别人来和你对战，如果你是以攻擂手的身份登录，你可以很快的和擂主展开战斗。开始战斗后，由擂主执黑先行，然后由攻擂手出招，如此这般。当最后决出胜负的时候，会有相应的提示。 $ D, m. y% _* @: N& U2 S; I3 P
该站点有几个主要的文件是：
Index.asp 登录文件：
Index0.asp中间文件： & c0 V+ V" O% h# ~
Match.asp 比赛文件：
Back0.jpg white0.jpg black0.jpg 中间用到的图形文件，分别指的棋盘，白子和黑子，如下图：
在程序的初始化的时候，将棋盘上分成若干的表格，将背景图片放入其中，形成一个棋盘，然后在放上一个棋子后，再将图片换上相应的白子或黑子就可以了。 $ b( e5 W& R6 q: E/ y- X+ s
先看看登录文件： * N" {: E! y8 L2 q
＜%@ Language=VBScript %＞ 2 q/ r) V4 w7 q% n1 f, A0 T0 Q
＜HTML＞ 4 o( r) c, }5 \" i: ]1 I& N4 _
＜HEAD＞
＜META NAME="GENERATOR" C＞ $ ?' k9 L/ a( h8 L6 }4 Z' {' ?
＜title＞星球大战之“五子连珠”大赛！＜/title＞ 2 k: h3 Q. D+ H* s& R" h, [! ~
＜/HEAD＞
＜BODY＞ 4 |( U. m' W. g% }" q# p
　
＜p align=center＞＜font size=6＞星球大战＜/font＞＜/P＞
＜table border=1 width=80% align=center＞ 3 H; ~4 p, y' {
＜tr＞＜td＞星球＜/td＞＜td＞擂主＜/td＞＜td＞大战＜/td＞＜td＞攻擂＜/td＞＜/tr＞ 9 D* x7 s8 n$ ^0 Z* v4 T) Q5 _
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first1")="" then
%＞ 7 y; \. g; T! f: g
＜form action=index0.asp?flag=First1 method=post＞ / G- _7 F, n9 P
＜INPUT id=text1 name=txtFirst1 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else 6 x( V1 N6 ?) s3 A
response.write application("first1")
end if - U% l9 o3 R. T
%＞
＜/td＞ / }9 N$ \  K) }7 Q2 h5 e
＜td＞大战＜/td＞ 3 I# j' T0 E" T4 ?8 a
＜td＞ * a- M8 ]" E) v% U! Z
＜%
if application("second1")="" then
%＞ 4 u- [) U: C) I
　 1 }0 |9 L# B* k( l, w
＜form action=index0.asp?flag=second1 method=post＞
＜INPUT id=text1 name=txtSecond1 size=10＞＜INPUT id=submit1 ( ^. {1 v: T+ c7 d! u# i4 z
name=submit1 type=submit value=进入＞ ( J# E/ f6 o" S4 d3 m' v  L' {0 n
＜/form＞ / y$ `6 r) R/ K4 e
＜% 3 F5 Z# y' {7 Q7 D# y
else
response.write application("Second1")
end if 7 Q  j3 b$ V. x
%＞
＜/td＞
＜/tr＞
　 - h1 T2 U0 P6 w
＜tr＞ 7 @+ F* Y6 b" Q$ F8 [
＜td＞木星＜/td＞
＜td＞ ! q$ N0 |( K( o/ R
＜% ' A3 E# Q+ u+ D
if application("first2")="" then 3 [/ ]/ ^/ \, z
%＞
＜form action=index0.asp?flag=First2 method=post＞
＜INPUT id=text1 name=txtFirst2 size=10＞＜INPUT id=submit1 name=submit1 9 ?: ^5 {2 H) V
type=submit value=进入＞
＜/form＞
＜%
else & e3 P) e- v. ?1 e& y  x( s. A
response.write application("first2")
end if
%＞ * j( f( V9 D. g; F: P  Z
＜/td＞
＜td＞大战＜/td＞ . W& U; D. V& I
＜td＞
＜%
if application("second2")="" then 2 t* y; Z" h0 C7 }. ~; C  X
%＞ 1 z7 j' _! y4 x
　
＜form action=index0.asp?flag=second2 method=post＞
＜INPUT id=text1 name=txtSecond2 size=10＞＜INPUT id=submit1 : R9 ~3 M1 V9 {; C: I
name=submit1 type=submit value=进入＞
＜/form＞ 8 ~% a) c# T- G8 [# g, o
＜%
else # t6 T( d( i+ S0 n$ z- I
response.write application("Second2") & I. c# R+ b% l' Q
end if $ d8 |+ @$ c7 @
%＞
＜/td＞
＜/tr＞ 4 k4 Z" F% f3 I$ a; t% _" G
　 - J* ?' |+ n) L0 W# d
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first3")="" then
%＞
＜form action=index0.asp?flag=First3 method=post＞
＜INPUT id=text1 name=txtFirst3 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞ 0 c1 R& r6 Z" T! X1 r
＜/form＞ # C/ l" f+ p7 l8 {, o+ q
＜%
else
response.write application("first3") 8 u3 F# j' R* H# I! `
end if ' A0 B6 Q  @* i( r
%＞
＜/td＞
＜td＞大战＜/td＞ % b& D* E0 c" m. ~: w& }% L
＜td＞
＜% ) H" J8 h. i  m& k, m0 B
if application("second3")="" then
%＞ , V. s6 s. y2 y! b! j, }6 K9 i( I
　 5 g! m& Z1 `9 E% D* r
＜form action=index0.asp?flag=second3 method=post＞
＜INPUT id=text1 name=txtSecond3 size=10＞＜INPUT id=submit1   t- h* }  O9 m/ x0 T+ V; Y# h' [
name=submit1 type=submit value=进入＞
＜/form＞ 7 s& R; |  m$ @. G: v9 I$ \
＜% - W+ }9 @, v) t/ M* E
else ( ]2 }# z2 u1 B
response.write application("Second3")
end if ' F* N- [! p& z/ ^
%＞ % \; ~4 G/ N6 b
＜/td＞
＜/tr＞
　
＜tr＞ # j% p$ O, j7 x9 N
＜td＞金星＜/td＞ 4 i3 N4 [# t1 j( ^; ?  v" S
＜td＞ ; r/ L$ t* |9 A
＜% ; m( {' [) J& n! `' h- S
if application("first4")="" then + w" B" T0 b/ U5 m
%＞ $ i. @" ^  X' c
＜form action=index0.asp?flag=First4 method=post＞ % `8 C7 M8 J" J
＜INPUT id=text1 name=txtFirst4 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞ * b  \6 K* X+ {1 E
＜/form＞
＜%
else * x0 y: {* p+ I0 V) ]
response.write application("first4")
end if
%＞ + f# |/ o6 E8 t" B! o
＜/td＞ ) e5 X6 d% m2 [5 t
＜td＞大战＜/td＞ ! j* k+ }1 J9 V! l. I" X# N
＜td＞ * ~2 \  C* ?  B
＜% 2 E& [. F$ S4 X/ e$ u+ o. p  Z
if application("second4")="" then
%＞
　 ! r1 @$ I8 a! L8 \2 D$ ?
＜form action=index0.asp?flag=second4 method=post＞
＜INPUT id=text1 name=txtSecond4 size=10＞＜INPUT id=submit1 & r" M$ y  Q7 [- K/ U, g3 j
name=submit1 type=submit value=进入＞
＜/form＞ * B; ~5 ?  w1 G1 H8 s
＜% & L: u. u, r' g, L! r0 U
else 6 q8 d7 F/ o3 A+ Y
response.write application("Second4")
end if
%＞
＜/td＞ $ f" u, g3 V9 k+ i* z' e6 L
＜/tr＞
　
＜tr＞ 5 H8 @) \% N0 t9 m
＜td＞金星＜/td＞ 6 g" R) z7 k) B5 J: }
＜td＞
＜% 8 x- I7 ^8 a0 @5 F  P4 `/ K
if application("first5")="" then 8 @5 t+ J% G/ w0 N) Z( L
%＞ 5 V3 E3 }  I& B) c- t4 K
＜form action=index0.asp?flag=First5 method=post＞ 4 ^& Y- V# F) L
＜INPUT id=text1 name=txtFirst5 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜% 5 C# Q8 ]( r" H+ C3 \- {) e0 q
else
response.write application("first5")
end if 1 M$ q/ J4 H! S. M! {! ]/ `, l% t' k
%＞
＜/td＞
＜td＞大战＜/td＞ 6 N, T6 a, \3 p) t: V- \
＜td＞ 9 x, Z) m5 g, Q& h5 `
＜%
if application("second5")="" then 7 E+ P; r; s8 X. m: |$ q& J, D; s: Q
%＞
　
＜form action=index0.asp?flag=second5 method=post＞ " ^9 W0 Z6 f# D' ~
＜INPUT id=text1 name=txtSecond5 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜% 9 v& v. e, Y& h; L
else % i7 m0 D+ J9 d4 x3 T, M3 M
response.write application("Second5")
end if
%＞
＜/td＞ 1 A7 S  g; I* ?, }+ l
＜/tr＞　 6 [  k9 q, V6 r: m) [* }
＜/table＞ " H, H, y( [7 n% @/ x/ b* h
＜/BODY＞ 1 m+ G6 c' N+ e3 R2 I
＜/HTML＞
这个文件不用做过多的说明，就是一个大的表格，大家可以从那里进入，如果某个位置已经被使用，则它会变成该大侠的名字，不允许重复登录。在登录后进入
index0.asp，这是一个中间交换文件，在里面进行一些变量的处理及赋值，然后再进入match.asp，进行正式的比赛。我们来看一下index0.asp的内容： 4 }' e: {5 E$ w8 z; E8 N9 @
＜%@ Language=VBScript %＞ ) v0 c$ p% W4 S1 Z2 S7 e; c
＜% : d- j% p; u9 p0 R
if Request.Form("txt" & request.querystring("flag"))＜＞"" then
'response.write "in!" & ""
session("nice")=Request.Form("txt" & request.querystring("flag"))
'response.write session("nice") & ""
'response.write application(request.querystring("flag"))
if application(request.querystring("flag"))="" then
application(request.querystring("flag"))=session("nice")
session("class")=right(request.querystring("flag"),1) 8 H- U! \2 X3 F% }, i
if left(request.querystring("flag"),1)="f" then 6 y6 `  \  U9 d/ Y8 [  [/ z
application(session("nice"))=false * p9 z7 [& {" X; {3 u
elseif left(request.querystring("flag"),1)="s" then 2 p0 W& N  N3 }7 w- M
application(session("nice"))=false
application(application("first" & session("class")))=true
end if 9 R/ y8 V% B4 P$ ]- W' N
Response.Redirect "match.asp" ; p& s9 h' Q$ m$ n
end if
　 . J5 O2 k# g+ A% @8 {+ O5 U- B
　 9 i5 U9 C- N! s% x: u& H  P
end if " J& `8 D5 e, k4 `
　
%＞ 6 k3 m+ g  h  L1 U% J" n' W
＜HTML＞ 1 `% o6 N5 H6 y/ _6 g9 L# J
＜/HTML＞ 7 t  d( k5 u% {3 P5 V. G
该程序中，用session(“nice”)来记录您登录的大名，以后的处理中，很多都要用到它，用它来区分很多的用户。如果您是从擂主的位置进入，则您的权利是 7 y; W% I/ n; y& {. [( J
first，否则是second，用session("class")来记录位于哪个战场场，“金”“木”
“水”“火”“土”分别表示为1、2、3、4、5，因为有多个战场可能同时开战，如果不能正确地区分开，则可能导致一片混乱。application(session("nice"))是一个逻辑型变量，用真假来表示您是否可以出棋，如果是假，您要等待一个，如果是真，您就可以下棋了。只有一个战场上的两个人都进入了以后，擂主方可以下棋，而且只有当擂主出子以后，攻擂手才可以下棋。准备好以后，下面就进入赛场，请看文件match.asp

＜html＞
＜head＞
＜meta http-equiv="Content-Type" c＞
＜meta name="GENERATOR" c＞
＜meta name="ProgId" c＞
＜META http-equiv=refresh content=3＞ $ p3 |8 |, p8 b' u
＜title＞连珠大赛...＜/title＞
＜/head＞
＜% ' \0 \) A# |1 w8 Y
Response.Write "擂主:" & application("first" & session("class"))
& " 攻擂：" & application("second" & session " t. X4 E# g8 }& S/ O
("class"))
if Request.QueryString("pos")＜＞"" then
application("pos" & session("class") & Request.QueryString("pos"))
=true % t1 @! d) j- p( U4 b1 J5 e+ K( o
end if * e. e: T5 F) j' Q( L4 J
%＞
＜body＞
＜% - B, R0 H# v* M; J! v# H) S
'Response.Write application("aaa") . U4 \7 Z. _: ~1 x+ z9 f
if application("first" & session("class"))=session("nice") then 0 B# a  j' K8 Z5 }& ?
color="black" : G1 ]2 l" ?# O2 p$ E4 c
if Request.QueryString("pos")＜＞"" then
if session("last")="" then session("last")="abc"
if session("last")＜＞ Request.QueryString("pos") then 5 t: K8 Y3 o9 P- c) x
application(application("first" & session("class")))=false 5 c6 O8 e, @6 ]  q( N! q
if application("second" & session("class"))＜＞"" then application - X0 y6 K& L& r8 P: \0 ]2 u/ z$ Q
(application("second" & session("class")))=true
session("last")=Request.QueryString("pos") + [0 k' S+ J5 a
END IF
end if
else / U" m) ?7 v  y: I1 l) o  S4 F$ ~6 @
if application("second" & session("class"))=session("nice") then
color="white" 1 s& s! S0 Y+ D  C9 f
if Request.QueryString("pos")＜＞"" then
'if session("last")="" then session("last")="abc" : H* M! |6 u( }$ w6 s5 ?, D
if session("last")＜＞ Request.QueryString("pos") then 2 z, X  E0 v: i) h1 ]8 T1 s
application(application("first" & session("class")))=true - D& ?* a7 _% A! y
application(application("second" & session("class")))=false
session("last")=Request.QueryString("pos") ( i7 O$ g: x# {$ t; a
END IF 5 O. f: _( |( U: z* O- l
end if , _' x3 Z5 R) m& w( y, Z9 t* p8 a
else
if application("second" & session("class"))="" then 3 M3 g/ \& C( j3 D! }
application("second" & session("class"))=session("nice")
color="white"
if Request.QueryString("pos")＜＞"" then 0 ~) \& ]$ Y) ^
if session("last")="" then session("last")="abc" " _, P+ ?) ~- `# n* d% }
if session("last")＜＞ Request.QueryString("pos") then % A/ G) A2 z) \: u3 J
application(application("first" & session("class")))=true 1 P& W! d, b% h1 b  X
application(application("second" & session("class")))=false ' T& z: T. c+ F/ |; y0 Q7 p- q
session("last")=Request.QueryString("pos")
END IF . j; j9 k+ ]+ n# F! t5 g+ S$ N/ E
end if , i* c1 Z- ]% J3 L0 F
else % V9 ^" N9 X/ ?& j1 O
color=""
end if
end if * h* w/ U  d! S+ k2 }" x8 h
end if   E% v% `- v. q, }( L; h
Response.Write "＜table width=400 height=400 border=0 cellspacing=0
cellpadding=0＞"
for i=1 to 16
Response.Write "＜tr＞" 3 a$ R: H7 K7 C; `
for j=1 to 16
if application("pos" & session("class") & cstr(i) & "_" & cstr(j))=""
then
application("color" & session("class") & "_" & Request.QueryString
("pos"))=color
Response.Write "＜td width=25 height=25＞" # k2 g% x/ L0 F4 F/ J
'response.write application(application("first" & session("class")))
if application(session("nice"))=true then
response.write "＜a href=match.asp?pos=" & cstr(i) & "_" & cstr(j) 1 G5 u9 i1 a0 S3 [5 Z
& "＞＜img border=0 src=back0.jpg width=25 height=25＞＜/a＞" % f; m9 Q, ~% C* L. o" V" {
else 1 r1 p$ M5 W6 N; g/ w; `
response.write "＜img border=0 src=back0.jpg width=25 height=25＞" % t# a0 y) T( z' ^/ R+ R) t, I
end if
response.write "＜/td＞"
else ; W& ]+ f# f; r2 F. ^3 q6 U( C! g, ^
Response.Write "＜td width=25 height=25＞＜img border=0 src=" & - G5 \/ }7 x% O7 g, I) |
application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(j)) & "0.jpg width=25 height=25＞＜/td＞" & chr(13) 4 \+ c8 o  \2 x6 X6 J5 s9 s6 D
end if + q, m( I% [' w& h+ ~
next / p3 R; h) \% E& D/ O
Response.Write "＜/tr＞"
next - K8 D1 S( n- I& S. ^4 z
Response.Write "＜/table＞" 3 l# U# b* V2 j2 {) U' c2 \0 w
'判断输赢
if application("first" & session("class"))=session("nice") then " t' y0 g; P$ i) d6 J. m
m="black" ) M8 b& ~/ v! _5 w* s- Y
h="white"
else ' m3 a' j$ I3 A
h="black"
m="white"
end if
'横向判断"-"
for i=1 to 15
win=false
loss=false
five_me=0   ~) C; \; [( W+ C* W# S4 c, n. T% v
five_he=0 % Y! N9 b  V1 D* R" s/ x! v: W
for j=1 to 15 - @% ~) w  ?. m/ |
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr 2 P6 j) @! A+ q* d$ B4 Y. U- w& o
(j))=m then 0 i2 ^/ T3 Y' n  N/ Y  g! d$ g) \- C
five_me=five_me+1 ) y8 Y9 l8 X) T) u
five_he=0 9 ^- u1 b+ C: k/ ~' C: O
elseif application("color" & session("class") & "_" & cstr(i) & "_" &
cstr(j))=h then 8 y$ i- p! N9 @8 r+ J
five_me=0 1 G2 R6 B! J1 q2 o/ l- n  a
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then
win=true * S. m, O; W4 a+ s" o- u
loss=false
exit for 4 v9 f  ~& e' n# s5 \
elseif five_he=5 then   M& k8 N5 _' b2 B8 c
win=false
loss=true
exit for - \8 X( K2 J& B5 Z: T) S9 j' w1 K
end if
next
if win or loss then exit for : z  k7 U6 a5 o; m; Q8 R
next 5 a1 V% ^6 Y4 X6 `$ u4 y
if win then " ]- w- k" O9 D8 ?- r2 f" F* Y
response.write "你赢了！" ; S" I8 U  N" R3 u: O/ ]! `
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false 7 U# S8 w" F6 L. Y4 h
end if
if loss then 4 l9 \/ u% T2 m* {0 M: u: X
response.write "对不起，你输了！"
application(application("first" & session("class")))=false 1 L* V5 Q$ s4 H5 y/ J3 ?
application(application("second" & session("class")))=false
end if
　 9 v2 B; R" u; A5 Z. H* H
'列向判断"|"
for j=1 to 15
win=false & _  U8 F9 g; O& u
loss=false # J, Z/ K6 \2 Z
five_me=0   U( q; s3 ]7 R) o- {( e; [
five_he=0 " Q$ K5 h! ?; S; Z
for i=1 to 15
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr 1 ~# s# J$ h& c% U: O/ N
(j))=m then - ^' Q0 G/ k0 b) C8 M6 }
five_me=five_me+1 ; K% ~: s9 g8 o4 _4 S* ?, @- j. B
five_he=0
elseif application("color" & session("class") & "_" & cstr(i) & "_" & 1 @1 v7 u$ E6 l6 a7 p) m6 p# [
cstr(j))=h then ! _9 f! ]8 r8 W" F! Y
five_me=0
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then   f3 N: J+ n0 f" S6 b
win=true
loss=false
exit for . ?3 d+ H( p- m, b  b) L3 D
elseif five_he=5 then ) @2 m1 k5 l  z5 t) M6 s. ]
win=false
loss=true & g5 ]: M4 e/ r8 N. c; y' j
exit for
end if : |5 _1 x8 I& n
next
if win or loss then exit for , \7 Y3 e" i  j" R% g
next
if win then
response.write "你赢了！" 8 T7 Q* A+ t/ B0 K8 E8 d
application(application("first" & session("class")))=false " e5 _' i8 a; T" A0 z$ f/ R# ^
application(application("second" & session("class")))=false 0 v+ v; [* J  O* z- d# y5 W
end if + C9 z/ n/ R8 I
if loss then
response.write "对不起，你输了！" 5 T( [7 L$ r+ s7 m
application(application("first" & session("class")))=false   y3 o8 T2 V: j- }' A
application(application("second" & session("class")))=false 5 u( g3 J9 }. Z1 I8 y! N! j! d
end if 9 t7 ]+ F& q  m, @4 R0 n
　
'斜向判断"/"
for i=1 to 11
win=false 8 B  W5 x9 t- e$ K& F9 k( `1 {0 D* z
loss=false
five_me=0 4 P' {+ Y+ H# _; c' ^6 O* R0 V% X/ w
five_he=0 " I' {9 {7 e1 U9 m5 V3 c
for j=i+4 to 1 step -1
if application("color" & session("class") & "_" & cstr(j) & "_" & cstr 2 P  n/ x3 B, O3 x2 m0 R* C9 u  F8 o
(i+5-j))=m then 3 O+ o! b- S0 t. m- k
five_me=five_me+1 * h& w& k5 h2 Q8 J0 X+ V6 i
five_he=0 $ x& ~7 u6 j, [5 H' c
elseif application("color" & session("class") & "_" & cstr(j) & "_" &
cstr(i+5-j))=h then 6 l  ?/ A% }& B) }9 X7 L
five_me=0 , ]3 k0 O/ P) P! I6 @2 i4 h
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then 0 R$ |' b( l9 H% U0 Q
win=true 1 j5 ]+ |* L6 N; ~3 T/ c
loss=false
exit for " ~) H' N6 {# S; ]0 i
elseif five_he=5 then & g3 {8 W3 g: @+ W+ I' o2 ]: J
win=false 1 T8 G4 q8 k; F4 o+ J
loss=true 8 z9 A4 A* I5 M! I- C0 j0 r
exit for   K. d! L4 u+ i/ H
end if
next ( }' F$ K7 y9 q3 A
if win or loss then exit for
next
if win then $ T& N3 G1 y- i2 u2 u
response.write "你赢了！" - p: l) |% s; C7 \
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false ' u: d5 h6 U% w. `7 O3 U
application(application("second" & session("class")))=false ) ~" t' W5 ?) P9 }
end if 0 G2 i% F7 Z) Y
　 6 a3 G1 @7 \1 d: h; I) ^/ v2 N
'斜向判断"\" 4 j; i. w) v% y; `& @" ?2 F$ E
for i=1 to 11 : g! t+ y$ }* S% M1 N; G+ w4 E
win=false 1 C4 L6 j5 m" V1 w+ Q/ ?2 b9 {6 G! q
loss=false
five_me=0 3 `* v$ `+ ~' T4 j9 E& O
five_he=0
for j=12-i to 15 ( w& K3 T( k6 K; x
if application("color" & session("class") & "_" & cstr(13-i-j) & "_" 4 F/ s& ^2 y- Y
& cstr(j))=m then + o% s3 o2 Q1 }( n5 \- `! U; ]/ {+ H
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(13-i-j)
& "_" & cstr(j))=h then 6 t3 W( w" E% m0 z: i& [& p+ y" d
five_me=0 6 b( I4 h6 E  Q8 i
five_he=five_he+1
else & G4 I* @8 k! M' D, K7 k
five_me=0   y! [; b( \& T4 p, S: f
five_he=0 : p- B  j5 j# k2 h% t, G6 c9 e
end if
if five_me=5 then $ I4 l0 b2 t; I/ I# }. D) k
win=true
loss=false
exit for
elseif five_he=5 then 7 e) d# a" O/ U! X5 u( {* k
win=false ( j5 g5 F2 n: }
loss=true % w  t  ~1 N; t& z5 [
exit for
end if % n6 V: ]; X( G+ w, u& H- I
next 7 B$ h7 c1 z, s" F4 C
if win or loss then exit for
next
if win then
response.write "你赢了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if 6 J- {' e+ |  N/ r5 t! U4 S' G" W
%＞ ; f/ F8 j  [1 s8 x& [9 j* t# T
＜/body＞
＜/html＞
如果某点没有棋子，则加上一个超连接，根据擂主与攻擂手的区别放上一个不同颜色的棋子。最后的一段是用来判断输与赢，分为横，列和两个斜线方向。具体内容看一下就可以明白。 ( R# F0 Z4 V+ D1 w6 a6 L  z
最后要说的一点就是global.asa ，这是站点上的一个核心文件，为了在退出棋局后，将位置留给别人，需要在sesison_onend中加入代码进行处理，如下：
＜script language=vbscript runat = server＞ ! u/ ]' J+ r) [8 k9 {$ W0 j
sub application_onstart
session.timeout=1
end sub 3 n  _: _9 H+ I  ~8 r" P
sub session_onstart
if application("num")="" then
application("num")=0 7 i: [6 f- V  M' Z( a
end if
application("num")=application("num")+1
end sub 8 ?. v9 b$ I' j* O( T( M, t
＜/script＞ & t% c9 T% I" d1 K- p
　
＜script language=vbscript runat = server＞
sub session_onend
if application("num")="" then " ^; f  {; ^: d: e4 @( G
application("num")=0
end if ) _, I2 d9 z' j. N, N" @
application("num")=application("num")-1
　 ' |2 f$ E9 B1 z; N& V, A
if application("first1")=session("nice") then 0 R, x6 I2 n! N' V
application("first1")=""
elseif application("second1")=session("nice") then
application("second1")=""
　
elseif application("first2")=session("nice") then
application("first2")=""
elseif application("second2")=session("nice") then
application("second2")="" 8 \8 d( ^0 W( k) k
　
elseif application("first3")=session("nice") then
application("first3")=""
elseif application("second3")=session("nice") then . e% c! {! p8 P  H% d
application("second3")=""
　 - |) K% |( i  X$ k9 \
elseif application("first4")=session("nice") then
application("first4")="" ) D- x7 v4 n6 g; F$ h/ o* U7 }8 Y; C
elseif application("second4")=session("nice") then
application("second4")="" % q1 D6 M- Z. X3 @( L) _, o* G9 u
　
elseif application("first5")=session("nice") then   M  W1 s: ]0 [
application("first5")=""
elseif application("second5")=session("nice") then 6 R7 e; q: B9 N6 p+ ]! r1 u
application("second5")="" , g! l, u/ Q6 x/ ?# u8 R5 A& f
end if " m* R# |3 e; T! J. \
for i=1 to 15 " q8 p& D# L8 s% _% k
for j=1 to 15 3 E, K8 _$ k( w7 X# K2 d
application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(J))=""
application("pos" & session("class") & cstr(i) & "_" & cstr(j))=""
next
next
application(session("nice"))=""
end sub
＜/script＞
以上就是几个主要的文件，大家可以一试。什么，想做围棋？把棋盘改一下就可以了。 0 m; _. A. s/ _3 U% ?7 r
祝大家成功！

TOP

‹‹ 上一主题 | 下一主题 ››

传奇世界私服\|传世私服	注册用户即送域名，快来抢啊！	唯开联盟爆涨流量+赚钱隔日付	最新城市通带.cs文件程序出售	天龙八部私服
相约深圳论坛,打工	天龙八部私服	草根原创站长软件隆重发布	techkoo--精英传播	文字招商QQ：304888166
谁说没有免费的电影？	文字广告一月200	传世私服传奇私服	出售包月流量一千IP=0.6元	宝鸡新闻,咸阳新闻,西安新闻