2011WEB網(wǎng)頁游戲服務端源碼全集
《2011WEB網(wǎng)頁游戲服務端源碼全集》由會員分享，可在線閱讀，更多相關《2011WEB網(wǎng)頁游戲服務端源碼全集（17頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、文檔供參考，可復制、編制，期待您的好評與關注！ 2011WEB網(wǎng)頁游戲服務端源碼全集webgame源碼，本人已測試，供大家下載 搶車位源碼[停車大戰(zhàn)]ASP+ACCESS[帶MSSQL]版權(quán)聲明：（停車大戰(zhàn)V1.0?FOR?DVBBS??AC?) 停車大戰(zhàn)V1.0?FOR?DVBBS版本，是由NDS.西域數(shù)碼(NWDS.CN)于2008年11月開發(fā)，作者:SING_CEE 游戲演示地址?WWW.NWDS.CN/BBS 本游戲插件于2008年12月圣誕節(jié)前免費開放游戲源碼，供開發(fā)愛好者體驗和改進，無論你是使用還是改進本游戲都請保留這些文字聲明，如果你有重大的改進或開發(fā)方面有什么難題
2、請發(fā)信息給我。 ?? 安裝步驟： 1.將DVBBS82.MDB中的4個數(shù)據(jù)表導入你的DVBBS數(shù)據(jù)庫中。 2.拷貝所有文件和文件夾到DVBBS根目錄。 3.在DVBBS后臺插件管理?論壇菜單管理?新建菜單? ??標題：停車大戰(zhàn) ??注釋版權(quán)：停車大戰(zhàn)V1.0?NWDS.CN西域數(shù)碼? ??鏈接：parking.asp ??插件ID:parking ??能使用插件的用戶組：1,2,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 4.提交 二次開發(fā)說明： 停車大戰(zhàn)游戲使用ASP和FLAS
3、H?AS?相結(jié)合 這是一種最新的WEB應用發(fā)展方向，這個游戲源碼希望對WEB游戲初學者有所幫助。 歡迎有興趣的開發(fā)者改進停車大戰(zhàn)游戲插件，并請在新的版本中保留本文中的版權(quán)聲明！ 目前停車大戰(zhàn)游戲還有部分功能沒有完善，比如游戲中賺取的金錢和論壇中的金幣互相兌換功能，以及金錢獎勵方式的更加合理化，增加后臺管理（增加新車、增加新車位背景、獎勵控制、匯率等管理）還有很多功能都需要大家一起來完善。 停車大戰(zhàn)文件說明： parking.asp??停車大廳?游戲主文件 pkbuy.asp????購車 pkbuywnd.asp?購車窗體 pkchangewnd.asp??換車窗體 pkecw
4、nd.asp??換金幣窗體 pkfk.asp?????罰款操作調(diào)用? pkhelp.asp???幫助 pknewsp.asp??讀車位信息調(diào)用 pknextcar.asp?停車?選擇車 pkpostcar.asp?確認停車 pkreg.asp?????注冊游戲 pksellwnd.asp?出售窗體 pktop.asp?????排行榜 目錄parking ???cars???各種車的SWF文件 ???image??所有圖片 ???parking.swf??封裝的FLASH文件 parking.swf是一個用FLASH?AS3?封裝的FLASH程序文件，他通過與ASP文件
5、的通信讀取和傳遞數(shù)據(jù)、參數(shù)。具體如何傳遞數(shù)據(jù)可以通過研究pknewsp.asp（獲取當前停車位信息）??pknextcar（獲取待停輛信息）?pkpostcar.asp（停放車輛）pkfk.asp?（罰款）?這4個ASP文件中的變量vNewLines和Request變量獲得。 實在懶得在看一遍代碼就簡單說明一下吧：/ 例如：?pknextcar.asp ?vnextcar?=Request("nextcar")?就是讀取從parking.swf返回的參數(shù)nextcar 返回數(shù)據(jù)給parking.swf?： vNewLines?=?rs("mycarid")&"|"&rs("auton
6、ame")&"|"&rs("swfid")&"|"&maxcar&"|"&rs("autotype") Response.Write?"NewLines="&Server.URLEncode(vNewLines)&"&Result=OK" 數(shù)據(jù)表說明：將所有數(shù)據(jù)表導入?DVBBS82.MDB???詳細結(jié)構(gòu)字段說明見數(shù)據(jù)表結(jié)構(gòu)備注 pk_auto??所有汽車資料 pk_miss??事件消息 pk_mycar?所有用戶車的信息 pk_spaces?所有用戶的車位信息 點擊下載地址：搶車位源碼[停車大戰(zhàn)]ASP+ACCESS[帶MSSQL] ? ? ? 魔獸網(wǎng)頁游戲源碼
7、(asp)完整版web魔獸源碼支持純access模式，也支持sqlserver。 我們這里只討論純access模式的架設。所以游戲運行的 電腦上需要安裝access數(shù)據(jù)庫。 首先，點擊AspMao.exe?，就可以啟動netbox支持asp(如果你有iis的話就不要點擊了，把代碼放到iis根目錄下)，訪問http://127.0.0.1/main/ 下面找到配置文件：FS_Inc/Const.asp?? 1、修改如下代碼： · '-----會員系統(tǒng)是Sql數(shù)據(jù)庫；1:SQL,0:ACCESS · Const?G_IS_SQL_User_DB????????????=?"1"
8、 復制代碼 為 · '-----會員系統(tǒng)是Sql數(shù)據(jù)庫；1:SQL,0:ACCESS · Const?G_IS_SQL_User_DB????????????=?"0" 復制代碼 啟用access模式。 2、修改 · '-----會員數(shù)據(jù)庫,后面不能帶/,不帶虛擬目錄 · Const?G_User_DATABASE_CONN_STR?=?"Server=.;User?ID=saassword=123456;Database=wow2" 復制代碼 為 · '-----會員數(shù)據(jù)庫,后面不能帶/,不帶虛擬目錄 · Const?G_User_DATABA
9、SE_CONN_STR?=?"Foosun_Data/FS_ME.mdb" 復制代碼 3、修改/main/lib/Line.asp · SqlNowString="GetDate()"??'如果是SQL數(shù)據(jù)庫請使用呢個 · 'SqlNowString="Now()"?'如果是ACCESS數(shù)據(jù)庫請使用呢個 復制代碼 修改為 · 'SqlNowString="GetDate()"??'如果是SQL數(shù)據(jù)庫請使用呢個 · · SqlNowString="Now()"?'如果是ACCESS數(shù)據(jù)庫請使用呢個 復制代碼 注釋掉sqlserver的sql函數(shù)語句 4
10、、 修改/main/lib/Line.asp第43行 User_Conn.execute("Delete?from?[FS_ME_UsersOnline]?where?UserName='""'?or??UserNumber='""'?or?DateDiff("&SqlChar&"n"&SqlChar&",lasttime,"&SqlNowString&")>"&UserOnlineTime&"?") 注釋掉這句刪除超時在線用戶的代碼，這個在access里有問題。 好了，訪問 http://127.0.0.1/main/ 就可以顯示登錄頁面了。注冊一個用戶就可以進去玩了
11、~ 點擊下載地址：魔獸網(wǎng)頁游戲源碼(asp)完整版 ? ? 劍俠2外傳（網(wǎng)頁游戲源碼）=外網(wǎng)=劍俠外傳源碼安裝步驟： 一、上傳所有文件，注意：global.asa必須上傳到網(wǎng)站的根 目錄（虛擬目錄），首先到首頁注冊好授權(quán)站長的帳號，然 后運行：http://江湖絕對路徑/setup/setup.asp進入超級管 理，然后選擇用戶管理，將你的帳號設置成，門派：六扇門? ；身份：掌門?；等級：11然后進入系統(tǒng)設置進行其他項目的 設置！為確保安全設置好后務必將setup文件夾刪除！ 二、注意事項： 1、站長參數(shù)：門派：六扇門?身份：掌門?等級：11 2、特別注意：站長必
12、須從站長安全登錄口登錄，并要求輸入 密鑰，非授權(quán)站長或者輸入了錯誤的密匙從安全登錄口登錄 都將出現(xiàn)藍屏死機，網(wǎng)管秘密登錄口默認路徑：http://江湖 絕對路徑/mm.asp?也可以自行修改，注意保密， 密匙可以到站長管理-->系統(tǒng)設置-->更改密匙進行更改！默認 密匙為：1 3、找回密碼功能需要服務器的***TP服務的支持，所以某些空 間未安裝此組建使用時出現(xiàn)500內(nèi)部錯誤屬于正常，請找空間 服務商解決！關于服務器的安裝組件可以用本江湖的test.asp 服務器探針測試得到！ 點擊下載地址：劍俠2外傳（網(wǎng)頁游戲源碼）=外網(wǎng)=劍俠外傳源碼? Ogame私服(傻瓜式一鍵
13、安裝版本） 只要把這個程序上傳后?. 在輸入??就是你的域名。只要跟流程來做?寫上你的數(shù)據(jù)庫帳號和密碼??就好了！ 點擊下載地址：Ogame私服(傻瓜式一鍵安裝版本） ? ? ? ? 仿QQ農(nóng)場牧場（源碼）最新安裝步驟: 1.將壓縮包內(nèi)文件解壓，上傳upload里的所有文件到相應文件夾（你的uchome根目錄下） 2.到phpmyadmin導入 uchome_happyfarm_config.sql uchome_happyfarm_mc.sql uchome_happyfarm_nc.sql 數(shù)據(jù)庫文件(如果前綴不是默認的uchome_替換成你的前
14、綴否則農(nóng)場無法連接調(diào)用mysql數(shù)據(jù)庫) 3.在header.htm文件中，搜索“熱鬧”，并在后面加以下代碼
15、?后面的數(shù)字 2、名稱亂碼： 搜索:happyanimal.php?和?happyfarm.php?里的函數(shù)?unicode_encodegb?替換為?unicode_encode? 3、作物/動物介紹，說話亂碼： 打開?happyfarm\module\nc\ini.x文明用語，happyfarm\module\mc\ini.x文明用語?另存為utf-8?編碼格式? 4、公告修改? 打開?:happyfarm.php?查找:getNotice?下面?找到?:? echo?"{\"id\":".$_SGLOBAL['timestamp'].",\"conten
16、t\":\"\\u63D0\\u793A\\uFF1A\\u5929\\u6C14\\u8F6C\\u51B7\\uFF0C\\u8BF7\\u591A\\u70E4\\u706B\\uFF0C\\u5C11\\u4E0A\\u7F51\\uFF0C\\u5C11\\u5077\\u83DC\\uFF0C\\u7231\\u62A4\\u597D\\u81EA\\u5DF1\\u7684\\u8EAB\\u4F53\\u3002?---?\\u519C\\u573A\\u7BA1\\u7406\\u5458\",\"time\":".$_SGLOBAL['timestamp'].",\"cod
17、e\":1}"; 使用工具:?Unicode中文互轉(zhuǎn)，進行修改 5、關于注冊?默認VIP等級?在數(shù)據(jù)庫初始值上修改.?暫時未做文本配置.? 6、關于裝飾反復購買和刷經(jīng)驗問題?都是假像.由于還沒完成YB購買的代碼?所以未對數(shù)據(jù)庫操作.刷新就恢復? 7、.簡易管理后臺如何使用? http://你的home地址/adminfarm.php 用戶UID:為數(shù)字ID?不是帳號? 8、一鍵摘取時間段設置?打開?happyfarm\index.php?文件?查找?"batchStealHour"?修改后面的參數(shù).?注意?按照格式? 9、.home主頁動
18、態(tài)提示名稱顯示編碼修復 打開?happyfarm/happyfarm.php 查找?$touserspace[name]?=?unicode_encodegb(?$touserspace[name]?);?刪除此行? 10、狗咬人的錢修改 查找： $dog_money?=?$cropstype[$a][sale]; $int2_temp=rand(1,10); if($int2_temp?>?8) 上面的8?越小，咬人的幾率越高 往下....... { $dog_money?=?$dog_money?+?round(20?*?rand(
19、1,30)?/?5?)?*?rand(1,2); } else { $dog_money?=?$dog_money?+?round(10?*?rand(1,20)?/?5); rand是取隨機數(shù)?round?是四舍五入 根據(jù)自己需要進行調(diào)節(jié)。 可以改rand（1，20）?將后面的數(shù)字縮小?，?或者將數(shù)字5調(diào)大?狗咬人的錢就少了！ 點擊下載地址：仿QQ農(nóng)場牧場（源碼）最新 ? Flash斗地主源碼（網(wǎng)頁斗地主源碼）網(wǎng)頁版的在線三人斗地主游戲，F(xiàn)lash+PHP5+Mysql5，打開網(wǎng)頁即可直接斗地主，無需下載客戶端！ 新增了提示、托管、記分牌
20、、聲音、時鐘、好友邀請等功能。 點擊下載地址：Flash斗地主源碼（網(wǎng)頁斗地主源碼） 停車大戰(zhàn)V1.0源碼 軟件類型：國產(chǎn)軟件 授權(quán)方式：共享軟件 界面語言：簡體中文 軟件大?。? MB 文件類型：.rar 運行環(huán)境：Win2003,WinXP,Win2000,Win9X 軟件等級：★★★☆☆ 發(fā)布時間：2010-09-18 官方網(wǎng)址：http:// 演示網(wǎng)址：http:// 下載次數(shù)： 88 軟件介紹 <% dim i,page,rscount,pagea ?? page=request.QueryString("page") if Request("action")
21、="add" then IF not isNumeric(request.form("pkmoney")) then ? response.write "" ??response.write "" ?? resp
22、onse.end End if IF not isNumeric(request.form("pktimemoney")) then ? response.write "" ??response.write ""
23、 ?? response.end End if IF not isNumeric(request.form("pktype")) then ? response.write "" ??response.write "" ??response.write "" ?? Response.End
25、 ?? end if if trim(request.form("pkgif"))="" then ? response.write "" ??response.write "" ?? Response.End ?? end if if tr
26、im(request.form("pkswf"))="" then ? response.write "" ??response.write "" ?? Response.End ?? end if if trim(request.form("
27、pktt"))="" then ? response.write "" ??response.write "" ?? Response.End ?? end if set rsadd=server.CreateObject("ADODB.Record
28、Set") sqladd="select * from pk_auto" rsadd.open sqladd,u_conn,1,3 rsadd.addnew rsadd("autotype")=trim(request("pktype")) rsadd("autoname")=trim(request("pkname")) rsadd("autobrand")=trim(request("pkgif")) rsadd("autoworth")=trim(request("pkmoney")) rsadd("autott")=trim(request("pktt")) rsad
29、d("swfid")=trim(request("pkswf")) rsadd("autotimemoney")=trim(request("pktimemoney")) rsadd.update rsadd.close ??? response.write "" ??response.write "" rs.close set rs=nothing end if if Request("action")="addmoney" then IF not isNumeric(request.form("cmemoney")) then ? response.write ""
31、 ??response.write "" ?? response.end End if IF not isNumeric(request.form("userid")) then ? response.write "" ?? response.end End if ?musicconn.Execute("UPDATE [pk_spaces] Set pkumoney = pkumoney +"&request.form("cmemoney")&" where pkuid = "&request.form("userid")) ??? response.write "" ??response.write "" end if if Request("action")="editpost" then IF not i
34、sNumeric(request.form("pkmoney")) then ? response.write "" ??response.write "" ?? response.end End if if
35、not isNumeric(request.form("pkid")) then ? response.write "" ??response.write "" ?? Response.End ?? end if IF not isNumeric(req
36、uest.form("pktimemoney")) then ? response.write "" ??response.write "" ?? response.end End if IF not isNu
37、meric(request.form("pktype")) then ? response.write "" ??response.write "" ?? response.end End if if trim
38、(request.form("pkname"))="" then ? response.write "" ??response.write "" ?? Response.End ?? end if if trim(request.form("pkgi
39、f"))="" then ? response.write "" ??response.write "" ?? Response.End ?? end if if trim(request.form("pkswf"))="" then ? r
40、esponse.write ""
??response.write ""
?? Response.End
?? end if
if trim(request.form("pktt"))="" then
? response.write " 41、ript language=javascript>"?
??response.write "alert('請輸入油耗');"?
??response.write ""
??response.write ""
?? Response.End
?? end if
if trim(request.form("pkid"))="" then
? response.write ""
??response.write ""
?? Response.End
?? end if
set rsadd=server.CreateObject("ADODB.RecordSet")
sqladd="select * from pk_auto where autoid="&trim(requ 43、est.form("pkid"))&""
rsadd.open sqladd,u_conn,1,3
rsadd("autotype")=trim(request("pktype"))
rsadd("autoname")=trim(request("pkname"))
rsadd("autobrand")=trim(request("pkgif"))
rsadd("autoworth")=trim(request("pkmoney"))
rsadd("autott")=trim(request("pktt"))
rsadd("swfid")=trim(request("pkswf" 44、))
rsadd("autotimemoney")=trim(request("pktimemoney"))
rsadd.update
rsadd.close
set rsadd=nothing
??? response.write ""
??response.write ""
end if
IF Request("del")<>""? Then
?? musicconn.Execute("Delete From pk_auto Where autoid="&Request("del"))
?? response.write ""
??response.write ""
?? Response.End
End IF
dim rspkinfo,pkid,pktype,pkname,pkgif,pkswf,pkmoney,pktimemoney,pktt
if Request("edit")<>"" and Request("edit")>0 th 47、en
Set rspkinfo = musicconn.Execute("Select * From [pk_auto] Where autoid="&Request("edit")&"")
?? pkid=rspkinfo("autoid")
?? pktype=rspkinfo("autotype")
?? pkname=rspkinfo("autoname")
?? pkgif=rspkinfo("autobrand")
?? pkswf=rspkinfo("swfid")
?? pkmoney=rspkinfo("autoworth")
?? pktimemoney= 48、rspkinfo("autotimemoney")
?? pktt=rspkinfo("autott")
rspkinfo.close
set rspkinfo=nothing
end if
%>
49、 href="?Adminclass=9">添加車子
???
?????
???
?????