【教程】第七章 asp编程实例

上一篇 / 下一篇 2006-06-30 23:11:44

查看( 507 ) / 评论( 9 )

论坛模式推荐收藏分享给好友推荐到圈子管理

TAG:

shaddow 发布于2006-06-30 23:11:44: 【教程】第七章 asp编程实例
本教程由网易学院编辑整理开发:

shaddow 发布于2006-06-30 23:13:52: 7.1 用ASP实现网上“五子棋”大赛
“五子棋”是大家都非常熟悉的一种益智类游戏，相关的游戏软件也非常多，在此我向大家隆重推出一款新的纯“网络版”的五子棋，它利用ASP做为开发环境，因此在Internet上对战的时候无需下载客户端软件，只要你有一个浏览器就可以了。你也可以在局域网上进行这个游戏。
I:Q[1_%\ rZ?对于ASP，我不想做过多的说明，在以前的文章中，我已经说过很多。
游戏的过程是这样的，我们首先登录，然后可以选择战场，有“金星”、“木星”、“水星”、“火星”、“土星”等五个战场，如果你自认为是一个高手，可以选择金星，否则可以依次选择其它几个星球做为战场。如果这个星球上没有擂主，你就应该以擂主的身份进入，然后别人就可以和你进行对战了。当然，如果所有的星球上都已经开始了战争，那么你就只能等一会儿了。
如果你是以擂主身份进入的，你可以等待别人来和你对战，如果你是以攻擂手的身份登录，你可以很快的和擂主展开战斗。开始战斗后，由擂主执黑先行，然后由攻擂手出招，如此这般。当最后决出胜负的时候，会有相应的提示。 Qf,h'dc2Q$tC}9s
该站点有几个主要的文件是： space.hackbase.com?4Lz6I/bh3k~
Index.asp 登录文件： ★黑基空间★0fV"y3N;K:wr-~6d
Index0.asp中间文件：
Match.asp 比赛文件： ★黑基空间★2z$x/U&l;~~
E
Back0.jpg white0.jpg black0.jpg 中间用到的图形文件，分别指的棋盘，白子和黑子，如下图： 2z4F*k1B9O8C'p
在程序的初始化的时候，将棋盘上分成若干的表格，将背景图片放入其中，形成一个棋盘，然后在放上一个棋子后，再将图片换上相应的白子或黑子就可以了。 Sf}2E/A
先看看登录文件： ★黑基空间★ POK0V+lt3L
★黑基空间★[&{S7h4f(F&x.l
＜%@ Language=VBScript %＞
＜HTML＞
＜HEAD＞
gfYJyspace.hackbase.com＜META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"＞
:s;?!{;ty#U5Qspace.hackbase.com＜title＞星球大战之“五子连珠”大赛！＜/title＞
~Nxir*?/n dBspace.hackbase.com＜/HEAD＞
＜BODY＞
　
＜p align=center＞＜font size=6＞星球大战＜/font＞＜/P＞
＜table border=1 width=80% align=center＞
＜tr＞＜td＞星球＜/td＞＜td＞擂主＜/td＞＜td＞大战＜/td＞＜td＞攻擂＜/td＞＜/tr＞ ,n.e @r(M{ I)q
＜tr＞ ★黑基空间★@|{)\,k
＜td＞金星＜/td＞ .zq5LS\QX,z
＜td＞ space.hackbase.com"o(Y?I9R4[u
＜% k;q9Xf?a0n'O&@n
if application("first1")="" then
G4md8G#Sx%＞
9e ~D'XKSPM＜form action=index0.asp?flag=First1 method=post＞
R"aO3Qu`Mspace.hackbase.com＜INPUT id=text1 name=txtFirst1 size=10＞＜INPUT id=submit1 name=submit1
%G0KM7u"u★黑基空间★type=submit value=进入＞ iY.j u5?
＜/form＞
＜% 4|#x,@(l_&Ml
else !X&oA\D!Ce
response.write application("first1")
l9\y4W(^
i/~space.hackbase.comend if
0ai3S8m@ ~Zj%＞
S&A\[ I#d)Yi w,}/N5GZ6Z＜/td＞
;KjfG2s)V＜td＞大战＜/td＞
＜td＞
＜%
6C-U2a,AF:B%m!Lif application("second1")="" then
)e+zg a%P5J"O-j%＞
　 ,LlZ&I_*Y*RH+U
＜form action=index0.asp?flag=second1 method=post＞ fW"a!N K"K4]
＜INPUT id=text1 name=txtSecond1 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
:n
ba4E9xW,E★黑基空间★＜%
,Gmqc7mjR Y Qelse
~YR9Xk3aresponse.write application("Second1")
sm a(q3A\#T★黑基空间★end if "d;t,yhoR l
%＞ 6^
\5V"wT1_q5J1^2H
＜/td＞
MxHH'p,es_＜/tr＞
|:brE0c.\9|7z,L　 ★黑基空间★4Q8Q?8_K_x
＜tr＞
＜td＞木星＜/td＞
&p_,j ZL★黑基空间★＜td＞
7K$P/kq)X-g9u5Cspace.hackbase.com＜% .v4ynZoDR
if application("first2")="" then
M\9Gw*G@-y"et%＞ uI7u
s
PcGg
＜form action=index0.asp?flag=First2 method=post＞
＜INPUT id=text1 name=txtFirst2 size=10＞＜INPUT id=submit1 name=submit1 ★黑基空间★?0Fm:_Z
type=submit value=进入＞ /lW:c1f7Op&m?
＜/form＞
＜%
W_U?2RS!R{space.hackbase.comelse
response.write application("first2") ★黑基空间★w3~l/k f0^
end if CtK;zn7V:Qg
%＞ 3_V"@-_hpbF;|
＜/td＞
＜td＞大战＜/td＞
UrIk?U O0Hp★黑基空间★＜td＞
＜%
if application("second2")="" then
%＞ I)V,mU.@(a3Ab8G
　
9tJ;u2r)qVf＜form action=index0.asp?flag=second2 method=post＞ space.hackbase.com"NDiRSC8^;\j[C
＜INPUT id=text1 name=txtSecond2 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞ 9x$pt9o]J}
＜%
6vl7C9U%e6q%?.TFRspace.hackbase.comelse ★黑基空间★wABbAYh
^
response.write application("Second2") space.hackbase.com^[MKJ$s;Jf
end if
2AT
\"TU#Q%＞
＜/td＞
＜/tr＞
　
3L}+e.?)L7b2n n^:rm＜tr＞ space.hackbase.comi^hz
S_
s
＜td＞金星＜/td＞
＜td＞
＜%
0T'J1U+HS@e/uif application("first3")="" then
n1SU4I!qg%＞
＜form action=index0.asp?flag=First3 method=post＞ ★黑基空间★
j+~w?dWL)K:S
＜INPUT id=text1 name=txtFirst3 size=10＞＜INPUT id=submit1 name=submit1
%o6Xe#~dh|5Z★黑基空间★type=submit value=进入＞
＜/form＞
＜% space.hackbase.comP8Q/D,o({
else %A7eC^'w,N-e$lY
response.write application("first3") zzc%~a-P4u8s
end if H;g9{e?k
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜% W'PVO*s'Ro]8q
if application("second3")="" then ★黑基空间★
C
q$j-zp)o1o `
%＞ ★黑基空间★O }6f\?M3uNgO
　 space.hackbase.com%@6_e7@+kR*y
＜form action=index0.asp?flag=second3 method=post＞ space.hackbase.com~Qt8zb8kv.v
＜INPUT id=text1 name=txtSecond3 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞ QZm0oL~W!Pe8q
＜/form＞
bBg3N e*@Hspace.hackbase.com＜%
else
9Za
]n/M6QSresponse.write application("Second3")
%bgj6a Z8t0fEx★黑基空间★end if
0{0I)n!qN&b7Nx%＞
c!q@I@iF\★黑基空间★＜/td＞
Vd c\IUh4Ra＜/tr＞
N)?v9c'E&BM"m5OIR+I　

I7V8K7pJ*z＜tr＞
＜td＞金星＜/td＞
＜td＞
-b2y8z[,\★黑基空间★＜% space.hackbase.comR+xTeyUxB
if application("first4")="" then ★黑基空间★oHa*sU6Za#qD
%＞ 9Z+B:fqX-b[#{p u
＜form action=index0.asp?flag=First4 method=post＞
＜INPUT id=text1 name=txtFirst4 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
0g+O{nGa1YX★黑基空间★＜/form＞
＜% "K
y0`7`%[O%LlV
else
response.write application("first4")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
sx+e"`*g0b1W＜td＞ 'u4uh$j)}2n.v
＜%
,l/Hvu;~5]space.hackbase.comif application("second4")="" then
%＞
*zi4glPy0A QLq%Fspace.hackbase.com　
＜form action=index0.asp?flag=second4 method=post＞
＜INPUT id=text1 name=txtSecond4 size=10＞＜INPUT id=submit1
E.@ VT7?Wzb5p?Yname=submit1 type=submit value=进入＞
＜/form＞ 0~GL(?sO+M
＜%
else
hO`y3D5q%S3@D★黑基空间★response.write application("Second4")
end if
%＞ ★黑基空间★Y&WLC7d|
＜/td＞ 4S.o^ SkO8?(DdE
＜/tr＞ L9^V'l_1}n YH
　 h"L.D7Y*i,`5Zz!Ed+d
＜tr＞
＜td＞金星＜/td＞
|d0y
e-R"Te&E＜td＞
5V9hy#tU,f w7ospace.hackbase.com＜% space.hackbase.com/G|Xe-o!lf
if application("first5")="" then p0jj-PuV
%＞
＜form action=index0.asp?flag=First5 method=post＞ space.hackbase.com.C*g!P3i1LMI
＜INPUT id=text1 name=txtFirst5 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞ CD3C*|a
＜%
else
response.write application("first5")
end if N*DHy(_%]4FR
%＞
5yL'a7I5Yy3{＜/td＞
＜td＞大战＜/td＞
＜td＞ 0j1LZ$q}c
＜%
if application("second5")="" then
!f'e"ROk
hspace.hackbase.com%＞
　
Ca.p(b'Aspace.hackbase.com＜form action=index0.asp?flag=second5 method=post＞
&|g,Hv{Vspace.hackbase.com＜INPUT id=text1 name=txtSecond5 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞ '~!xqX7H`]
＜/form＞
＜% space.hackbase.comDwZ[tG1{8co
else
response.write application("Second5")
end if
@x7N1}.`%＞
＜/td＞
9BG9z[&Mj,@＜/tr＞　
＜/table＞ /H+X~9L{(g8}Y
＜/BODY＞ 2S:jc0om7r{T
＜/HTML＞ cz
g \5_3Gn'Bh

eg,Fq5b}V5t这个文件不用做过多的说明，就是一个大的表格，大家可以从那里进入，如果某个位置已经被使用，则它会变成该大侠的名字，不允许重复登录。在登录后进入
lapRf1^index0.asp，这是一个中间交换文件，在里面进行一些变量的处理及赋值，然后再进入match.asp，进行正式的比赛。我们来看一下index0.asp的内容： ★黑基空间★5j{:t4tXX"]

＜%@ Language=VBScript %＞ l6r)kI%BE3m5q(t,U/{-J_
＜% 0U&BJJ&f|s
if Request.Form("txt" & request.querystring("flag"))＜＞"" then a9J~4T8Jz"j
Lg
'response.write "in!" & ""
session("nice")=Request.Form("txt" & request.querystring("flag")) K2L3r&H
yKj2CV(t|
'response.write session("nice") & "" $?*{ru1P[r(S-?
'response.write application(request.querystring("flag"))
.\dW@@p6jM+UWM7_if application(request.querystring("flag"))="" then
&M)l
V)_P5H@6l★黑基空间★application(request.querystring("flag"))=session("nice")
0l4D$D!Q5K4]8d~[★黑基空间★session("class")=right(request.querystring("flag"),1) 0ue&^b)y$n"^
if left(request.querystring("flag"),1)="f" then
yd},\Y0OGojspace.hackbase.comapplication(session("nice"))=false
7i6Ap0GWlspace.hackbase.comelseif left(request.querystring("flag"),1)="s" then 2h6[$R{3m nt
application(session("nice"))=false
3IQf8bc`$~-lX#~★黑基空间★application(application("first" & session("class")))=true 3L_
\,m1| c
end if
Response.Redirect "match.asp"
end if
　 space.hackbase.com'["ri4xtt!]!qW
　
end if
5AewE'd~　 a4u6~X,Y|o
%＞ ★黑基空间★,H1v.]q!I1`"|m
＜HTML＞
＜/HTML＞ )PGMr
T-t"r$u'F

该程序中，用session(“nice”)来记录您登录的大名，以后的处理中，很多都要用到它，用它来区分很多的用户。如果您是从擂主的位置进入，则您的权利是
first，否则是second，用session("class")来记录位于哪个战场场，“金”“木”
+D
E7jWWD"i {0jr9B“水”“火”“土”分别表示为1、2、3、4、5，因为有多个战场可能同时开战，如果不能正确地区分开，则可能导致一片混乱。application(session("nice"))是一个逻辑型变量，用真假来表示您是否可以出棋，如果是假，您要等待一个，如果是真，您就可以下棋了。只有一个战场上的两个人都进入了以后，擂主方可以下棋，而且只有当擂主出子以后，攻擂手才可以下棋。准备好以后，下面就进入赛场，请看文件match.asp

9G"r hmx#OG
＜html＞
/Tl8?hE,IZ%Hspace.hackbase.com＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞ ★黑基空间★'v&\9| E8w\
＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞
uD4c&M9B0? K#l/w＜meta name="ProgId" content="FrontPage.Editor.Document"＞
＜META http-equiv=refresh content=3＞
5wh#A2Zjc%Zspace.hackbase.com＜title＞连珠大赛...＜/title＞
jJ7A8|sn5h;Djyspace.hackbase.com＜/head＞ H9OdmF2_0C^
＜% PO4vqA m
Response.Write "擂主:" & application("first" & session("class")) |)s-m4q
r1_8Vas
& " 攻擂：" & application("second" & session 8SPVmzZOdn
("class"))
o4pd]
o])T0t%~3Jspace.hackbase.comif Request.QueryString("pos")＜＞"" then
application("pos" & session("class") & Request.QueryString("pos")) 8J1d2b*^iD,d[0qF4|
=true
end if
%＞
hK(G#jVN6t;Y\*nFi＜body＞
＜%
'Response.Write application("aaa") 2ub*N"W#Y4i
if application("first" & session("class"))=session("nice") then
color="black"
if Request.QueryString("pos")＜＞"" then ★黑基空间★
M5D
T
nB+m"ws(aZ
if session("last")="" then session("last")="abc"
if session("last")＜＞ Request.QueryString("pos") then space.hackbase.com-w\`$Wrr
application(application("first" & session("class")))=false space.hackbase.comd5aC:S vW
if application("second" & session("class"))＜＞"" then application
(application("second" & session("class")))=true ★黑基空间★)M2E0Q!U/iv0^^
session("last")=Request.QueryString("pos") 0q
WsILSD6]
END IF
end if ★黑基空间★,ZyAK
cr5U
else
if application("second" & session("class"))=session("nice") then
l6G&M.i!Z?p*J★黑基空间★color="white" ★黑基空间★|3H$yLP
k:T:kzs
if Request.QueryString("pos")＜＞"" then
'if session("last")="" then session("last")="abc" ★黑基空间★
j2v;Q5tmF#s0~.d
if session("last")＜＞ Request.QueryString("pos") then n8R7PFe"e
application(application("first" & session("class")))=true
application(application("second" & session("class")))=false
session("last")=Request.QueryString("pos")
4?Ucn3BD%H9p%b{END IF
end if "V(`cw8^5w
yF
else
if application("second" & session("class"))="" then
application("second" & session("class"))=session("nice")
color="white" space.hackbase.comY1bO'ko/n#f
if Request.QueryString("pos")＜＞"" then
m or8Pr
R~if session("last")="" then session("last")="abc"
H9dW
OM6b"cSspace.hackbase.comif session("last")＜＞ Request.QueryString("pos") then
application(application("first" & session("class")))=true -wXN
ltu
application(application("second" & session("class")))=false
session("last")=Request.QueryString("pos")
/u4E RJL!k
IEND IF
Wfy@&](EzDh"[end if
else
color=""
end if
EoC sF9br0}★黑基空间★end if
end if )m)RGA
uC
Response.Write "＜table width=400 height=400 border=0 cellspacing=0
t.K5J6s&o%rcellpadding=0＞"
8n%U,L#^ W★黑基空间★for i=1 to 16 |;Y&TP0x1U7q
Response.Write "＜tr＞"
for j=1 to 16 ★黑基空间★9C/@_%_E
_
if application("pos" & session("class") & cstr(i) & "_" & cstr(j))="" ★黑基空间★PBU_:s,A*E*B~
then
"r5|m?#Bapplication("color" & session("class") & "_" & Request.QueryString
("pos"))=color
$rc']!f;SF
J★黑基空间★Response.Write "＜td width=25 height=25＞" space.hackbase.com{8?Q%j8f
p v9L
'response.write application(application("first" & session("class")))
;@H ki S1|if application(session("nice"))=true then ★黑基空间★:~7LINjg.Lti$`
response.write "＜a href=match.asp?pos=" & cstr(i) & "_" & cstr(j)
'Q;x]j8A& "＞＜img border=0 src=back0.jpg width=25 height=25＞＜/a＞"
else
nw ?2`7@)E
response.write "＜img border=0 src=back0.jpg width=25 height=25＞" dBr-`{Kc|
end if
+?u$H:|0g5qRK%Xresponse.write "＜/td＞" 6Q2a;g?+m/c4[|
else space.hackbase.coml?j6c,I"Z1{I
Response.Write "＜td width=25 height=25＞＜img border=0 src=" & /Hx9y$v
tD%W5`r
application("color" & session("class") & "_" & cstr(i) & "_" & cstr
?'t(@mp K}$Sc(Vj(j)) & "0.jpg width=25 height=25＞＜/td＞" & chr(13)
end if
next
Response.Write "＜/tr＞" !^9A!YMe
next
_:D$w-nS"T/Td3J zResponse.Write "＜/table＞"
'判断输赢
if application("first" & session("class"))=session("nice") then T#}oI/p~{.C
m="black"
h="white" Q4|$Q"Ff(R]+Z!Q
else space.hackbase.com.F+vg0E!?L2W
h="black" /|YApFL(|"?
m="white"
end if ★黑基空间★4I1k,Hw7P6LF(x
'横向判断"-"
for i=1 to 15
p!C4_P4p+o3^win=false {7|1_&ry+Hnr
loss=false space.hackbase.com^0t,i$Z!^L
five_me=0 G3W#FI&_D0oBXN
five_he=0
for j=1 to 15
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr mJ}4p_8pM
(j))=m then
k?b6A/RUfr+@L_space.hackbase.comfive_me=five_me+1
&@:MuWOd-\*e9kispace.hackbase.comfive_he=0
NB(~!sm`#H(|l★黑基空间★elseif application("color" & session("class") & "_" & cstr(i) & "_" &
cstr(j))=h then ]6TT4Z*u/De
five_me=0 space.hackbase.comB0N~o$P
b+@(|%v)N
five_he=five_he+1
dG?$\Jelse
five_me=0
five_he=0
o
Rr
]J_&f,y★黑基空间★end if
if five_me=5 then
)In+ZW,xp~.Sspace.hackbase.comwin=true
loss=false
?]6C&z-aexit for
&VI
?.kEN{elseif five_he=5 then
win=false
loss=true
)U2FH ]1lspace.hackbase.comexit for -p${LpeQ3o
?;a
end if
next G6X LCxExb*m0g
if win or loss then exit for
{"_7{K9U;ySnext
m/R~"\:Mi-dif win then
.Fxq%W[F%v+R★黑基空间★response.write "你赢了！" ★黑基空间★s*tPMD W
application(application("first" & session("class")))=false
)HHXJeespace.hackbase.comapplication(application("second" & session("class")))=false
|,Oe_)@TzVN★黑基空间★end if jaE'?,mU
if loss then ★黑基空间★S!OeS3F
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
BuE&xO6L/[mspace.hackbase.comapplication(application("second" & session("class")))=false
end if u'e k3b6JS_
　 vd2vz.t1Dj0pB
'列向判断"|"
for j=1 to 15 space.hackbase.com!S)d#{!]w6o
win=false
loss=false space.hackbase.comBKY%{-ve^.b4g%i\
five_me=0
8Y7A@'T-[(Bs2bspace.hackbase.comfive_he=0
for i=1 to 15
dJU$rS)jD5[★黑基空间★if application("color" & session("class") & "_" & cstr(i) & "_" & cstr ★黑基空间★
I(Mj,A:Z*j2e
S
(j))=m then
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(i) & "_" &
cstr(j))=h then
five_me=0
five_he=five_he+1
else |(ct[%~
five_me=0 %VVJwm5kM_6Jqj-I
five_he=0
Q"pM.`9v,r,OP w5E*Dend if space.hackbase.com
cyIOB[C4Vy,z
if five_me=5 then ★黑基空间★
J0hp9xB.B_
win=true space.hackbase.comc%J&|+d&uDi9f8o
loss=false
)vnFp-]+D★黑基空间★exit for
elseif five_he=5 then #w!AOP*tz
Ip4^
win=false space.hackbase.coml
JXK%J9r){[
loss=true @2@8@AyK
Z
exit for ★黑基空间★p9aY-C{0F"`
end if
,_(L8Yf3j?XK(pnext
z&o v;|&b
D3`if win or loss then exit for J5y#@6x,I,|%II
next 2g7b8m{+QexM
if win then
0n6\]!a/\&\9Y
Gr★黑基空间★response.write "你赢了！" $^[-Wy/J{^cyZ
application(application("first" & session("class")))=false ★黑基空间★0m)y@(k1nVv
application(application("second" & session("class")))=false
end if
if loss then
)l4w
sCayresponse.write "对不起，你输了！"
,mi;X{qspace.hackbase.comapplication(application("first" & session("class")))=false
application(application("second" & session("class")))=false space.hackbase.com&KQ.w#fMx|:Q
end if G2\
Zg n,T:P
　
/f yac-{'斜向判断"/"
for i=1 to 11
U,xw7BrlO7~;m1hwin=false
loss=false
five_me=0
five_he=0
for j=i+4 to 1 step -1
fG$nO@/S!r0fif application("color" & session("class") & "_" & cstr(j) & "_" & cstr
(i+5-j))=m then
five_me=five_me+1
five_he=0
e/}}M0?Q6DGs#o★黑基空间★elseif application("color" & session("class") & "_" & cstr(j) & "_" &
cstr(i+5-j))=h then
five_me=0
,Ml
Y)l|4zE:tspace.hackbase.comfive_he=five_he+1
"d!mTz"ATelse
-\*~]bCEBQspace.hackbase.comfive_me=0 Z:Xl2V].i}n7c
five_he=0
end if /E[L'G&d%?\/_u
if five_me=5 then
win=true
kr,l6~vSSWloss=false
exit for
#V6n[sVU9B3t(L"welseif five_he=5 then
win=false
J}3f?'a,C]C★黑基空间★loss=true
exit for m`E&zGybO3m
end if
f*H&TwB?`0^next
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 lb3h"U
J|.Du
^
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
5NRjNc
y}dX★黑基空间★application(application("second" & session("class")))=false
eE:{`0b~|j z#Iend if
　
y.h!F*pnspace.hackbase.com'斜向判断"\"
mVz1n@+}space.hackbase.comfor i=1 to 11
mh.o%O3a/WIKqwin=false
'R+e8O;o#gLspace.hackbase.comloss=false
x{0_5lQA1dfive_me=0
five_he=0
for j=12-i to 15
/b-RV*lD#t
dIif application("color" & session("class") & "_" & cstr(13-i-j) & "_" space.hackbase.com*C?(C@le;Q2y
& cstr(j))=m then ★黑基空间★z7]-W2Mm8i{v
five_me=five_me+1
"aJQ5IG
uFfive_he=0
`:@*wLB-W9K!jspace.hackbase.comelseif application("color" & session("class") & "_" & cstr(13-i-j) ★黑基空间★VOy
GUk:o6v
& "_" & cstr(j))=h then fzT5E%}'i
five_me=0
Mns4S0`7M
five_he=five_he+1
else
five_me=0
'@Ch+cS#[
XR★黑基空间★five_he=0
8j6l.i9x&vsend if

NpYI:eMa%P★黑基空间★if five_me=5 then
win=true
loss=false ★黑基空间★U z^n$GD
exit for mht/T$|,@H[1^
elseif five_he=5 then ★黑基空间★B@a4NN$[O
win=false

I0]ho#oloss=true space.hackbase.com"e^8ct/uTV
exit for
end if
next
nN&NP'I2R,w'o{if win or loss then exit for
#HFT
d6}&agNnext
if win then 1s'Zhf/R)S7s
response.write "你赢了！"
application(application("first" & session("class")))=false ★黑基空间★/Bm7vM#kuc3s,d L
application(application("second" & session("class")))=false
end if
if loss then
W`lx(H8e1[%Fspace.hackbase.comresponse.write "对不起，你输了！"
xj'L7h)Espace.hackbase.comapplication(application("first" & session("class")))=false space.hackbase.com8F;f*y.{p9?
application(application("second" & session("class")))=false y8\{;~{T@
end if *u*V:ofg%P{j`Q9u?
%＞ KQa^ir?2k
＜/body＞ *kMH d%|.L}v
＜/html＞ ★黑基空间★L8O${:sU8Z\p

如果某点没有棋子，则加上一个超连接，根据擂主与攻擂手的区别放上一个不同颜色的棋子。最后的一段是用来判断输与赢，分为横，列和两个斜线方向。具体内容看一下就可以明白。
aB*k|1yh最后要说的一点就是global.asa ，这是站点上的一个核心文件，为了在退出棋局后，将位置留给别人，需要在sesison_onend中加入代码进行处理，如下： ★黑基空间★2C7nX$GD&G1V

＜script language=vbscript runat = server＞
sub application_onstart 7ZBz/Z5`
session.timeout=1
T3Ee9eh.q j2caend sub
%iO(u`g!IQspace.hackbase.comsub session_onstart
8w BsY
D aspace.hackbase.comif application("num")="" then
application("num")=0 coS.| b0W2o/D
end if
3qU9|S+Vo"?)sapplication("num")=application("num")+1 space.hackbase.com,jO{7? qZG%U1Y
end sub
#Y)S/I1f7~#TFspace.hackbase.com＜/script＞ space.hackbase.com+Q-z? m&ue
　
}3~+DA.{V9Q*^ Tspace.hackbase.com＜script language=vbscript runat = server＞
sub session_onend
Xx)^|Aspace.hackbase.comif application("num")="" then
application("num")=0 space.hackbase.comdj.C#t2hR
end if
Q}Z5d
qxBapplication("num")=application("num")-1
　 space.hackbase.com;X'lM8\,qJ
if application("first1")=session("nice") then ★黑基空间★{
V#] ZlMS
application("first1")=""
elseif application("second1")=session("nice") then
+o*[\{YPC_noapplication("second1")="" 1L*gm}k9j e
　 space.hackbase.com"D@W\9G_ Z-t
elseif application("first2")=session("nice") then
8Mxj6Do@application("first2")=""
elseif application("second2")=session("nice") then ★黑基空间★sDw0m8^;C8Od
application("second2")=""
　
elseif application("first3")=session("nice") then ★黑基空间★YB3iUL)BG
application("first3")=""
.~K`:b:r"{cspace.hackbase.comelseif application("second3")=session("nice") then
i'W v4P.happlication("second3")=""
*`,{TS#m~P?　 O)arf7A/yJ
elseif application("first4")=session("nice") then
3yS\/F)[application("first4")=""
elseif application("second4")=session("nice") then
application("second4")=""
　
elseif application("first5")=session("nice") then space.hackbase.com.c7LW*LQO:f!k
application("first5")=""
elseif application("second5")=session("nice") then
application("second5")=""
end if )_,bQN%s2xv
for i=1 to 15
for j=1 to 15
Zn4Hk:Q,sapplication("color" & session("class") & "_" & cstr(i) & "_" & cstr

B:S7FE4Kj(J))=""
application("pos" & session("class") & cstr(i) & "_" & cstr(j))=""
next
next
application(session("nice"))=""
j!gY|
mjend sub
＜/script＞
#D4r$|dE:Z"qu"G★黑基空间★I'WS_'TSc
以上就是几个主要的文件，大家可以一试。什么，想做围棋？把棋盘改一下就可以了。
i6q]/QYM7U0P祝大家成功！

shaddow 发布于2006-06-30 23:14:51: 7.2 用ASP构建音乐服务器
---- 音乐服务器（Music Server）是指一个提供音乐在线服务的服务器，它包括高端提供门户服务的网站、Web数据库和低端的操作平台、硬件设施。目前，在Internet和Intranet上有不少这样的站点，特别是在一些高速宽带的局域网中（如校园网），音乐服务器给上网的朋友提供了休闲娱乐的好去处，同时也给网站带来了较高的访问率。

"X5s7Y)Hu&mo----像其他站点一样，音乐服务器包括网站和硬件两个部分。硬件性能和服务器效率是成正比的，因而如何构建网站才是一个音乐服务器的关键。从目前来看，网站基本有两种类型：一种是运行在Unix / Linux环境下，采用Perl / C / Php / Java 等作CGI编程语言；一种是运行在Win NT Server 平台上，采用ASP / WinCGI 作后台语言。前者运行效率高，但结构复杂，比较适合大型站点；后者编程难度相对较低，而且采用ODBC驱动接口，数据库连接方便，特别适合作音乐服务器。

----本文将以ASP 5.0为编程环境、Mircosoft Access 97为Web 数据库、Win NT Server 4.0为运行平台，举例说明音乐服务器的构建步骤。
c6@:N@!_X'S2|!{Y
V&a/R
----一个基本的音乐服务器包括音乐在线欣赏、音乐排行榜、音乐主题检索和音乐下载等四个部分。下面将主要从技术角度来讨论如何实现以上功能。
)]RP.@+t9c.U*M!V,k9O.I
音乐主题数据库的规划

7};w]!ki★黑基空间★----音乐主题数据库是Web站点存储所需音乐资料的仓库，它的规划在很大程度上影响了整个网站的结构和效率。数据库中可以单独建成一张表单，也可以以主键和外键的形式建成多张表单。本例中为说明上的便利，建成如下单表框架： (music.mdb)

音乐在线欣赏
QA_*}W
i*Vv4gspace.hackbase.comL)Z?[!N9U
----在线欣赏是指客户端利用播放器播放服务器端的音乐文件。其原理是当客户端向服务器提交音乐选单后，服务器生成相应的.m3u文件，并将该文件通过Http协议下行至客户端；客户端将被激发调用相应的播放器执行该文件，从而实现了音乐在线欣赏功能。目前支持.m3u文件的播放器有Winamp、Realplayer G2、 Musicmatch等。当这些播放器软件被正确安装在客户端时，就可以自动播放.m3u文件。所以解决问题的关键在于后台如何生成.m3u文件并下行到客户端。以下利用ASP中内置的FileSystem组件给出一种解决方案，并给出相应程序。

s-k`q:t}F★黑基空间★＜％
'`QS[o5Vddim choose,path,mydb,myset,SQL,fs,mp3
uE#z$SPz'Z
A‘＃＃＃＃＃获得list.htm表单中选中的歌曲项
对应的id号，并赋给字串变量choose ＃＃＃＃＃
choose=“("
for i=3 to request.form.count.y'~4j9h!mph4l)P-^6tF
choose=choose＋request.form(i)＋“,"BDj|T"Z
nextH
H%JE[*fl8@GGI
choose=left(choose,len(choose)－1)＋“)"
:hh'`#H%hW.Z1{‘＃＃＃＃＃判断choose变量，如果不包含任何id号，
2C6Ejd#CE
J说明list.htm中没有选中任何歌曲，终止程序＃＃＃＃＃
if choose=“()" then
I;v:}R#rb8aA
\]*baresponse.redirect(“list.htm")
response.end
end if
‘＃＃＃＃＃设置文件路径，需要把temp目录的权限设为
对internet匿名用户具有read ＆ write 权限＃＃＃＃＃
6o8x#Is;OZ
Bz@space.hackbase.compath=“E:\inetpub\wwwroot\temp\"
‘＃＃＃＃＃创建文件对象＃＃＃＃＃
7@ZiLn&~P/H5g_★黑基空间★Set fs = CreateObject(“Scripting.FileSystemObject")
oJ9|f1Oa
f
LSet mp3 = fs.CreateTextFile(path＋“listen.m3u", True)
‘＃＃＃＃＃创建数据库对象＃＃＃＃＃
set mydb=server.createobject(“adodb.connection")
[.w h1TriAmydb.open “music"★黑基空间★6^!b'S9c4P
r
‘＃＃＃＃＃检索数据库，获得歌曲信息＃＃＃＃＃
uc3iH"DAQ★黑基空间★SQL=“select mp3name,url from "＆dbname＆
e ~v6N-s/x“where id in "＆choose★黑基空间★7Fg
Os3X_
set myset=tdb.execute(SQL)
do while not myset.eof
IuS\dMspace.hackbase.com‘＃＃＃＃＃生成点播歌曲文件列表＃＃＃＃＃
mp3.Write(“http://"＋myset(“url")＋chr(10))
w5fs)Ot'Ll
?P
F★黑基空间★myset.movenext5\(z8u3Q+d
loop"`\}hf5Ee(A
‘＃＃＃＃＃更新数据库中的当天点播次数和
总共点播次数＃＃＃＃＃
SQL=“update music set click=click＋1,
this=this＋1 where id in "＆choosespace.hackbase.comWh
^b4D:V`+{
mydb.execute(SQL)j[tyL
‘＃＃＃＃＃取消对象＃＃＃＃＃
L2d3W.`[/j5@,fset myset=nothing
mydb.close
set mydb=nothing
mp3.close

{N]9Y/U2ck+[Wtkset mp3=nothing
+cZ]-ofspace.hackbase.com‘＃＃＃＃＃将该文件下载给用户＃＃＃＃＃
response.redirect(“listen.m3u"),[6Cm5T6|;Au
response.end
％＞
Ldig#`&v R+O
----注意：利用这种方法时，要控制.m3u文件Http头的内容。在Winnt中可利用IIS设置.m3u文件类型的Mine内容。具体操作如下：启动IIS —＞选中音乐服务器所在的Web站点 —＞点击“属性” 按钮 —＞在出现的属性选项卡中点击“Http标题”卡 —＞点击“文件类型”按钮 —＞点击“新增类型”按钮 —＞在“相应的扩展名”中填入“.m3u”，在“内容类型”中填入“audio/mpegurl” —＞然后一路确定即可。 Rm2hj2A%j!['[;LE.t6}:^
音乐排行榜

----音乐排行榜是音乐服务器不可缺少的一项内容，其重要性不亚于一个站点的Pageview。它可以向歌迷即时提供信息、引导欣赏、动态地反映潮流趋势。在众多的音乐服务器中，排行榜也是竟相推陈出新的地方，具有很高的点击率。一般说来，排行榜包括总共点播次数、当天点播次数、总共下载次数等内容。具体的实现方法比较简单。在单表中可以利用如下SQL语句：select ＊ from music order by total_click 。若是多表，则可以利用带join子句的联合查询SQL语句。如果要限定查询记录数，可采用count()集合函数。如在本例中，如果要查询当天点播次数前20名的歌曲，可采用如下语句：select top 20 ＊ from music order by total_click desc 。排行榜的功能主要取决于主题数据库的规划如何，你可以根据需要增删字段，以实现相应功能（如增加进榜时间、歌手资料、名次变化等等），所涉及的SQL语句也不会过于复杂。总之，排行榜是体现一个音乐网站特色所在，可以自由发挥。

v6Og+K\V1~&m0W)ym(h#d音乐主题检索

f2vrJv
,l!G3Rpf'T'X*\----提到检索，很多人立刻联想到Yahoo、Soho等著名站点，并且颇有神秘之感。其实，搜索引擎在数据库中并非难事，因为数据库内置的数据引擎已经提供了很好的基础。搜索效率的高低取决于数据库的性能和SQL语句的效率。在前台，可以提供一系列的检索项目和条件选项。在后台，则根据前台提交的表单，生成相应的查询语句在数据库中执行，并将查询结果返回。比如在前台提交的表单为：检索项目=“歌手姓名”，内容=“张学友”，匹配条件=“全字匹配”，则后台生成的SQL 语句为：select ＊ from music where singer=‘张学友' order by edition,id asc，这样就可以检索出张学友的所有歌曲信息，并按专集分类返回。又如前台要查询的歌手姓名为“齐秦”，且歌曲名称带有“雨”字的所有歌曲（即要求模糊匹配），则后台生成的SQL语句为： select ＊ from music where singer =‘齐秦' and mp3name like ‘％雨％' order by id asc ，将返回“冬雨”、“太阳雨”、“无情的雨无情的你”等等。只要运用适当的技巧和灵活的 SQL语句，就可以让你的主题检索发挥得淋漓尽致。
&~-{EIdN
?5wu★黑基空间★

KA9D)~4b3gNL音乐下载功能
tn#y"qK9qspace.hackbase.com
----提供音乐下载功能，同样是音乐服务器的一个基本功能，特别是对远程用户，将喜爱的歌曲下载后才能欣赏。一般有两种方式提供下载，一种是直接通过Http和浏览器下载，另一种是将曲库开辟为Ftp目录，通过ftp协议下载。本例中采用前一种方式，并且在数据库中对下载次数进行跟踪记录。有些站点还根据需要对歌曲进行压缩加密，将密码提供给正式用В彩且惶蹩扇≈馈１纠谐绦蛉缦拢?

F#p`Gm★黑基空间★＜％space.hackbase.com_\E$[m4}7w~
‘＃＃＃＃＃获得歌曲标志号id ＃＃＃＃＃
id=request(“id")
0@[E6BIt6M1n★黑基空间★set tdb=server.createobject(“adodb.connection")
tdb.open “music"space.hackbase.com%Z_A;D\
SQL=“select mp3url from music where id ="＆id
E_2zb
a?Gset tset=tdb.execute(SQL)JrCr,ja.W3p
if tset.eof then
Y'uB{*\Akgspace.hackbase.comresponse.end
5_r!L7Qd`d★黑基空间★else
/gce%Gf8Q Uspace.hackbase.com‘＃＃＃＃＃更新数据库中歌曲的下载次数＃＃＃＃＃space.hackbase.comR0nNTg,@B1BG:W
E
SQL=“update music set total_down=total_downspace.hackbase.comR
O1gW8Yq
＋1 where id ="＆id
%wk(E\^x3Zspace.hackbase.comtdb.execute(SQL)
downfile=tset(“url")
!mh6JM6C}space.hackbase.comtdb.closep!w#[.p{~tb
set tset=nothing
T\&V.X*JaBdset tdb=nothing
.Ym:n O;Oend if
\`\$T%d★黑基空间★if downfile=“" or isnull(downfile) then response.end
downfile=“http://"＋downfile
‘＃＃＃＃＃下载相应歌曲＃＃＃＃＃wc
x2?ks5D
response.redirect(downfile)
e]^/|0N4xmresponse.endspace.hackbase.com0c3s.I[,lB-M
％＞?h3E.M/n

----以上步骤就构建了一个基本的音乐服务器。当然，一个完整的音乐服务器还可以包括歌手信息、歌迷论坛、聊天室、投票站、娱乐新闻网等等功能，都可以用ASP一一实现。本文限于篇幅，不再详细讨论。只要前台页面采用独特的风格设计和完善的JavaScript程序控制，后台编程运用灵活的SQL语句和强大的ASP组件，加之规划周到的Web数据库和丰富的创意，就能构建一个完美的音乐服务器。有兴趣的朋友不妨试试看，你会创造一个奇迹的！

shaddow 发布于2006-06-30 23:16:38: 7.3 在ASP中实现购物小车
为了讲解方便，突出重点，本文用数组实现要显示的商品信息。但在实际的系统开发中，这些商品信息的数据应该来自后台数据库。 _+Y:J x`["WF
　　在程序中，我们定义了一个sp数组并对其赋值，然后用一个循环实现其数据显示及对下一个程序的数据传递。程序部分代码如下：
1sR0Mb$~
＜％ i=1 iXA$@9H
do while (i＜=5) ％＞
＜tr ＞＜td＞＜％=sp(i)％＞＜/td＞
＜td＞＜a href=“cart.asp?spid=＜％=sp(i)％＞”＞订购＜/a＞＜/td＞＜/tr＞
＜％ i=i＋1 space.hackbase.com})p;|EHL$FG
loop ％＞
l
iz\g★黑基空间★
构建购物小车
Q@jbjw]space.hackbase.com　　为处理用户订购商品的操作，我们自定义了两个Session的属性，分别是“spid”(用来保存商品名称)和“num”(用来保存相应商品的订购数量)。当用户订购了一种商品后，我们分三种情况对Session进行处理：
●购物小车为空，即Session(“spid")=“",直接将spid与num加入Session；
●购物小车非空且当前订购的商品是购物小车中没有的，则处理方法同上；
●购物小车非空但当前订购的商品是购物小车中已有的，Session保持不变。
4a$TT4u%hz0{iQ程序实现的要点是如何判别当前订购的商品在购物小车中是否存在，因此，首先要将Session变量的内容拆分并存入数组：
uwwC6R$C8Kyspace.hackbase.comarray1=split(Session(“spid”),“:”)
然后用循环语句判别array1中是否有元素与传递来的spid相同并将结果存入变量ifbuy：
U5?9`pl

for i=0 to ubound(array1)－1
if array1(i)= Request.QueryString(“spid”) then
4XO;M]:nD@Gifbuy=true
exit for space.hackbase.com[Dvi8^
end if
next

$v F
@
n/O)f★黑基空间★将新增的商品信息加入Session：
Session(“spid”)=Session(“spid”)＆ Request. ^Q!k_
k2s
QueryString(“spid”)＆“:”
Session对象的另一个自定义属性num的处理同spid相同。 ★黑基空间★@L0z'qS0i9uV
购物小车的显示
.?bZ9S#cRspace.hackbase.com　　显示用户已经购买的商品信息，即是显示Session变量的内容。只要将Session变量的内容拆分，存入数组中，再显示数组的内容即可。购物小车的显示界面如图1所示，其中“数量”栏的类型为“text",“取消本商品”栏的类型为“checkbox”。这两栏的数据是可以变动的，在“取消本商品”栏中打“√”，再按“重新计算”，将在购物小车中取消该商品。y%V9c9~"w9W5z8_!Z

M#{u1R&m(dx图1

b
zD
g3n]Uspace.hackbase.com
;[#?.JlqsY5XL
“重新计算”和“继续购买”两个命令按钮用JavaScript实现：

＜script language=“JavaScript"＞
＜!－－ +@.CXy$ChR
function onback(theForm) space.hackbase.comFllB6f'M6R&e
{window.history.back() }
function recal(theForm) ★黑基空间★sRdB[,B)I.F
{theform.action=“modifycart.asp" }
－－＞ \ _!dXp?k
＜/script＞ space.hackbase.comE(~%Xe1jh6H+H

8H6q[5ys W3]#C/eV7T6Hw

实现显示购物小车的代码如下： ;U7H|1P;F"Ry,l

＜％
XrD8l
Fq-Q B_dim k
3{(O[,\r}3c7V8|`D,Carray1=split(Session(“spid”),“:”)
NE0B6} sD zspace.hackbase.comarray2=split(Session(“num”),“:”)
k=0
(ytT?P;s-p^8~#Qdo while k＜ubound(array1) ％＞
＜tr＞
＜td＞＜p align=“center”＞＜％=array1(k)％＞
UI_,p?[S＜/p＞＜/td＞
b Y.g+o)Z
m$g:|＜td＞＜p＞＜input type=“text” name=“t1” size=“10” value=“＜％=array2(k)％＞”＞＜/p＞＜/td＞ +`"E/d*nLuM
＜td＞＜p＞＜input type=“checkbox” name= 9UT(M~h+~_
“ifcancel” value=＜％=k％＞＞＜/p＞＜/td＞＜/tr＞
＜％ k=k＋1
loop ％＞
＜tr＞
"q%n.~#X#q8T?＜td align=center height=“42” colspan=“2”＞ /sk-G-qe;~T,r|*J
＜input type=“submit” name=“submit” value=“重新计算”
J!m#kF6I6xPf2Qq★黑基空间★onclick=“return recal(this.form)”＞＜/td＞
＜td align=center height=“42” colspan=“3”＞
＜input type=“submit” name=“Submit” value=“继续购买”
onclick=“return onback(this.form)”＞＜/td＞ \%bxyepG
＜/tr＞

'ayVeVN 购物小车的修改
　　在用户点击“重新计算”按钮后，需要对购物小车的内容进行修改，包括对数量的修改和将被取消的商品从Session中删除。
　　对于数量的修改，只要将文本框中被变动过的数据重新存入Session中即可：
2CS1o@/Iz)E%N:d
＜％
*MBm+Mw#`x"}H$B@’首先将保存在Session变量中的订购数量提取出来
-Xq(yt#a({.?array=split(Session(“num”),“:”) 2k8Z'V;[uD[
’将文本框t1中商品的数量提取出来，存入array数组中
ST#s$Lr/Ac9Iif Request.Form(“t1”)＜＞“”then
Session(“num”)=“”
-[-~7t)JHhspace.hackbase.comj=0 RTRO%eQ5^9j
for each item in Request.Form(“t1”) o?YhA$?Xu
array(j)=item Oma/q Q"_-F
p
j=j＋1
next
’将提交后的商品数量放入Session变量中
g,G*U3EO;p#gmh(Gfor i=0 to ubound(array)－1
Session(“num”)=Session(“num”)＆array(i)＆“:”
next
end if ％＞

　　要从Session中删除被选中的商品，首先要取得“checkbox”的返回值，它用来定位被取消的商品在Session变量中的位置。“checkbox”的返回值k是一个循环变量，是商品所在行的行数，其实也就是被选中商品在Session中的位置。如果不加返回值定义的话，“checkbox”的返回值是按自然数顺序排列的。例如，在图1所示的情况下，如果“电视机”和“书籍”两行被选中，若是“checkbox”不加返回值定义，它的返回值将分别为1和2，这样就会导致把“电视机”和“钢笔”从Session中删除的错误。

＜％ dim array1,array2,ifcancel(20),m1,m2,i,j
array1=split(Session(“spid”),“:”)
QQR ?g
`^`array2=split(Session(“num”),“:”)
JR&hsMl&W3I` mm1=ubound(array1)－1
7W Ci^{fspace.hackbase.comm2=ubound(array2)－1
’保存复选框checkbox的值
for i=1 to Request.Form (“ifcancel”).Count ★黑基空间★kkB-Yc,qA
ifcancel(i)=Request.Form (“ifcancel”)(i) @(h|E3]2IY
next
for i=1 to Request.Form (“ifcancel”).Count
’将checkbox选中的spid和num从Session中去掉
T.T c_7PL,W★黑基空间★for j=ifcancel(j) to m1－1
array1(j)=array1(j＋1) space.hackbase.com8a\)hk9?gXbT3z
array2(j)=array2(j＋1)
e%c
sFF5STnext
fm$RW:EZ2c’将总数减1，并将后面的checkbox的值减1
%K:HxVTd"om1=m1－1
for p=i to Request.Form (“ifcancel”).Count
ifcancel(p)=ifcancel(p)－1 space.hackbase.comn|G1zm QH]
next
'Cy/I5TO4W8r’将处理后的spid和num放回Session
0g6_W1mL"h★黑基空间★Session(“spid”)=“”
KOE%X:s5ufSession(“num”)=“”
for j=0 to m1
Session(“spid”)=Session(“spid”)＆array1(j)＆“:” space.hackbase.comLvkJXM
Session(“num”)=Session(“num”)＆array2(j)＆“:” K&t3[)T(o2yw;w
next
9d-A1yI+R#d
U}★黑基空间★next ％＞

Z7|N[/N　　本文重点说明购物小车的实现与修改，所以对数据进行了简单化处理。在实际的商业系统中，对数据的处理要复杂得多，例如需要例外及安全验证等。

shaddow 发布于2006-06-30 23:17:31: 7.4 一个ASP统计制作实例
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 %IO_8Hm$e)a

我做了一个网站，www.zydn.net 当然啦，跟大家一样，也摆了�