《第7章 asp编程实例》由会员分享，可在线阅读，更多相关《第7章 asp编程实例（67页珍藏版）》请在金锄头文库上搜索。
1、用 ASP 实现网上 五子棋 大赛 五子棋 是大家都非常熟悉的一种益智类游戏 相关的游戏软件也非常多 在此我向大家 隆重推出一款新的纯 网络版 的五子棋 它利用 ASP 做为开发环境 因此在 Internet 上对 战的时候无需下载客户端软件 只要你有一个浏览器就可以了 你也可以在局域网上进行这 个游戏 对于 ASP 我不想做过多的说明 在以前的文章中 我已经说过很多 游戏的过程是这样的 我们首先登录 然后可以选择战场 有 金星 木星 水星 火星 土星 等五个战场 如果你自认为是一个高手 可以选择金星 否则可以依次选 择其它几个星球做为战场 如果这个星球上没有擂主 你就应该以擂主的身份进入 然
2、后别 人就可以和你进行对战了 当然 如果所有的星球上都已经开始了战争 那么你就只能等一 会儿了 如果你是以擂主身份进入的 你可以等待别人来和你对战 如果你是以攻擂手的身份登录 你可以很快的和擂主展开战斗 开始战斗后 由擂主执黑先行 然后由攻擂手出招 如此这 般 当最后决出胜负的时候 会有相应的提示 该站点有几个主要的文件是 Index asp 登录文件 Index0 asp 中间文件 Match asp 比赛文件 Back0 jpg white0 jpg black0 jpg 中间用到的图形文件 分别指的棋盘 白子和黑子 如下图 在程序的初始化的时候 将棋盘上分成若干的表格 将背景图片放入其中
3、 形成一个棋盘 然后在放上一个棋子后 再将图片换上相应的白子或黑子就可以了 先看看登录文件 Language VBScript HTML HEAD META NAME GENERATOR Content Microsoft Visual Studio 6 0 title 星球大战之 五子连珠 大赛 title 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 tr td 金星 td td i
4、f application first1 then form action index0 asp flag First1 method post INPUT id text1 name txtFirst1 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application first1 end if td td 大战 td td if application second1 then form action index0 asp flag second1 method p
5、ost INPUT id text1 name txtSecond1 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application Second1 end if td tr tr td 木星 td td if application first2 then form action index0 asp flag First2 method post INPUT id text1 name txtFirst2 size 10 INPUT id submit1 name
6、 submit1 type submit value 进入 form else response write application first2 end if td td 大战 td td if application second2 then form action index0 asp flag second2 method post INPUT id text1 name txtSecond2 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application S
7、econd2 end if td tr 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 进入 form else response write application first3 end if td td 大战 td td if application second3 then form act
8、ion index0 asp flag second3 method post INPUT id text1 name txtSecond3 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application Second3 end if td tr tr td 金星 td td if application first4 then form action index0 asp flag First4 method post INPUT id text1 name txt
9、First4 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application first4 end if td td 大战 td td if application second4 then form action index0 asp flag second4 method post INPUT id text1 name txtSecond4 size 10 INPUT id submit1 name submit1 type submit value 进入 fo
10、rm else response write application Second4 end if td tr tr td 金星 td td if application first5 then form action index0 asp flag First5 method post INPUT id text1 name txtFirst5 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application first5 end if td td 大战 td td
11、if application second5 then form action index0 asp flag second5 method post INPUT id text1 name txtSecond5 size 10 INPUT id submit1 name submit1 type submit value 进入 form else response write application Second5 end if td tr table BODY HTML 这个文件不用做过多的说明 就是一个大的表格 大家可以从那里进入 如果某个位置已经 被使用 则它会变成该大 侠的名字 不允
12、许重复登录 在登录后进入 index0 asp 这是一个中间交换文件 在里面进行一些变量的处理及赋值 然后再进入 match asp 进行正式的比赛 我们来看一下 index0 asp 的内容 Language VBScript if Request Form txt charset gb2312 meta name GENERATOR content Microsoft FrontPage 4 0 meta name ProgId content FrontPage Editor Document META http equiv refresh content 3 title 连珠大赛 ti
13、tle head Response Write 擂主 DefaultDir DRIVER Microsoft Access Driver mdb Conn Open connstr 以上语句用于连接库 cont asp 是库文件名 keren request cookies keren 读取 cookies cookies 的名为 keren 哈哈 阿余的 E 文学的臭 只懂用拼音啦 if keren then 判断 cookees 是不是空 如果是空 那么肯定是新朋友啦 否则是老朋 友 sql SELECT FROM tab where id 1 set rs server createob
14、ject ADODB Recordset rs Open sql conn 1 3 rs addnew 如果是新访客的话 在库中新增一条记录 rs cs 1 记下访问次数为 1 rs ip request servervariables remote addr 记下 IP rs dat now 记下当前的日期时间 rs dat1 date 记下当前的日期 以后用来做第一次访问的日期 response cookies keren rs id 写入一个 cookies 内容就和 ID 一样 response cookies keren expires date 365 设置 cookies 的有效
15、日期从现在开始 365 天 else 以上是新朋友的处理办法 对老朋友怎么办呢 看下面的 sql SELECT FROM tab where id DefaultDir DRIVER Microsoft Access Driver mdb Conn Open connstr 以上语句用于连接库 cont asp 是库文件名 page3 request pag if page3 then page3 session contpag 分页数 当前分页 if page3 then page3 1 pa request pa if pa then pa session contpa 每页显示数 if
16、pa then pa 15 默认每页显示 15 条 可任意改 session contpag page3 session contpa pa pages pa 每页显示数量 以上一段程序用于实现分页功能 SQL SELECT FROM tab order by dat id dim rs Set rs Server CreateObject ADODB RecordSet rs Open sql conn 1 1 csi 0 cs1 0 cs100 0 csdat1 0 do while not rs eof csi csi rs cs if rs cs 1 then cs1 cs1 1 if rs cs 100 then cs100 1 if datevalue rs dat date then csdat1 csdat1 1 end if rs movenext loop ZS RS RECORDCOUNT 8 以下一段程序用于分页 显示 head title 卓越电脑统计 title head body style font size 9pt bgcolor D8EDF8 共有
