最新WEB游戏源码服务端(完整修改版)-FreeNAS中文网

admin 管理员组

文章数量: 887031

2023年12月18日发(作者：getelementbyid 赋值)

2011WEB网页游戏服务端源码全集

webgame源码，本人已测试，供大家下载

一、抢车位源码

[停车大战]ASP+ACCESS[带MSSQL]

停车大战V1.0 FOR DVBBS版本，是由NDS.西域数码()于2008年11月开发，作者:SING_CEE

游戏演示地址 /BBS

本游戏插件于2008年12月圣诞节前免费开放游戏源码，供开发爱好者体验和改进，无论你是使用还是改进本游戏都请保留这些文字声明，如果你有重大的改进或开发方面有什么难题请发信息给我。

安装步骤：

1.将中的4个数据表导入你的DVBBS数据库中。

2.拷贝所有文件和文件夹到DVBBS根目录。

3.在DVBBS后台插件管理论坛菜单管理新建菜单

标题：停车大战

注释版权：停车大战V1.0 西域数码

链接：

插件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.提交

二次开发说明：

停车大战游戏使用ASP和FLASH AS 相结合

这是一种最新的WEB应用发展方向，这个游戏源码希望对WEB游戏初学者有所帮助。

目前停车大战游戏还有部分功能没有完善，比如游戏中赚取的金钱和论坛中的金币互相兑换功能，以及金钱奖励方式的更加合理化，增加后台管理（增加新车、增加新车位背景、奖励控制、汇率等管理）还有很多功能都需要大家一起来完善。

停车大战文件说明：

停车大厅游戏主文件

购车

购车窗体

换车窗体

换金币窗体

罚款操作调用

帮助

读车位信息调用

停车选择车

确认停车

注册游戏

出售窗体

排行榜

目录parking

cars 各种车的SWF文件

image 所有图片

封装的FLASH文件

是一个用FLASH AS3 封装的FLASH程序文件，他通过与ASP文件的通信读取和传递数据、参数。具体如何传递数据可以通过研究（获取当前停车位信息） pknextcar（获取待停辆信息）（停放车辆）（罚款）这4个ASP文件中的变量vNewLines和Request变量获得。

实在懒得在看一遍代码就简单说明一下吧：/

例如：

vnextcar =Request("nextcar") 就是读取从返回的参数nextcar

返回数据给：

vNewLines = rs("mycarid")&"|"&rs("autoname")&"|"&rs("swfid")&"|"&maxcar&"|"&rs("autotype")

"NewLines="&ode(vNewLines)&"&Result=OK"

数据表说明：将所有数据表导入详细结构字段说明见数据表结构备注

pk_auto 所有汽车资料

pk_miss 事件消息

pk_mycar 所有用户车的信息

pk_spaces 所有用户的车位信息

点击下载地址：抢车位源码[停车大战]ASP+ACCESS[带MSSQL]

2、魔兽网页游戏源码(asp)完整版

web魔兽源码支持纯access模式，也支持sqlserver。

我们这里只讨论纯access模式的架设。所以游戏运行的

电脑上需要安装access数据库。

首先，点击，就可以启动netbox支持asp(如果你有iis的话就不要点击了，把代码放到iis根目录下)，访问127.0.0.1/main/

下面找到配置文件：FS_Inc/

1、修改如下代码：



'-----会员系统是Sql数据库；1:SQL,0:ACCESS



Const G_IS_SQL_User_DB = "1"

复制代码

为



'-----会员系统是Sql数据库；1:SQL,0:ACCESS



Const G_IS_SQL_User_DB = "0"

复制代码

启用access模式。

2、修改



'-----会员数据库,后面不能带/,不带虚拟目录



Const G_User_DATABASE_CONN_STR = "Server=.;User ID=saassword=123456;Database=wow2"

复制代码

为



'-----会员数据库,后面不能带/,不带虚拟目录



Const G_User_DATABASE_CONN_STR = "Foosun_Data/FS_"

复制代码

3、修改/main/lib/



SqlNowString="GetDate()" '如果是SQL数据库请使用呢个



'SqlNowString="Now()" '如果是ACCESS数据库请使用呢个

复制代码

修改为



'SqlNowString="GetDate()" '如果是SQL数据库请使用呢个



SqlNowString="Now()" '如果是ACCESS数据库请使用呢个

复制代码

注释掉sqlserver的sql函数语句

4、

修改/main/lib/第43行

User_e("Delete from [FS_ME_UsersOnline] where UserName='""' or UserNumber='""' or DateDiff("&SqlChar&"n"&SqlChar&",lasttime,"&SqlNowString&")>"&UserOnlineTime&" ")

注释掉这句删除超时在线用户的代码，这个在access里有问题。

好了，访问

127.0.0.1/main/

就可以显示登录页面了。注册一个用户就可以进去玩了~

点击下载地址：魔兽网页游戏源码(asp)完整版

三、剑侠2外传（网页游戏源码）=外网=

剑侠外传源码安装步骤：

一、上传所有文件，注意：必须上传到网站的根

目录（虚拟目录），首先到首页注册好授权站长的帐号，然

后运行：江湖绝对路径/setup/进入超级管

理，然后选择用户管理，将你的帐号设置成，门派：六扇门

；身份：掌门；等级：11然后进入系统设置进行其他项目的

设置！为确保安全设置好后务必将setup文件夹删除！

二、注意事项：

1、站长参数：门派：六扇门身份：掌门等级：11

2、特别注意：站长必须从站长安全登录口登录，并要求输入

密钥，非授权站长或者输入了错误的密匙从安全登录口登录

都将出现蓝屏死机，网管秘密登录口默认路径：江湖

绝对路径/ 也可以自行修改，注意保密，

密匙可以到站长管理-->系统设置-->更改密匙进行更改！默认

密匙为：1

3、找回密码功能需要服务器的***TP服务的支持，所以某些空

间未安装此组建使用时出现500内部错误属于正常，请找空间

服务商解决！关于服务器的安装组件可以用本江湖的

服务器探针测试得到！

点击下载地址：剑侠2外传（网页游戏源码）=外网=剑侠外传源码

Ogame私服(傻瓜式一键安装版本）

只要把这个程序上传后 .

在输入/install/ 就是你的域名。只要跟流程来做写上你的数据库帐号和密码就好了！

点击下载地址：Ogame私服(傻瓜式一键安装版本）

四、仿QQ农场牧场（源码）

最新安装步骤:

1.将压缩包内文件解压，上传upload里的所有文件到相应文件夹（你的uchome根目录下）

2.到phpmyadmin导入

uchome_happyfarm_

数据库文件(如果前缀不是默认的uchome_替换成你的前缀否则农场无法连接调用mysql数据库)

3.在文件中，搜索“热闹”，并在后面加以下代码

开心农场

5.更新UCH缓存，开始感受完美[QQ版]农场

6.补充说明：

修改开通牧场VIP等级：打开文件查找 reqYellowlevel 修改后面的数字

1、修改开通牧场VIP等级：

打开文件查找 reqYellowlevel 修改后面的数字

2、名称乱码：

搜索: 和里的函数 unicode_encodegb 替换为 unicode_encode

3、作物/动物介绍，说话乱码：

打开 happyfarmmodulencini.x文明用语，happyfarmmodulemcini.x文明用语另存为utf-8 编码格式

4、公告修改

打开 : 查找:getNotice 下面找到 :

echo "{"id":".$_SGLOBAL['timestamp'].","content":"u63D0u793AuFF1Au5929u6C14u8F6Cu51B7uFF0Cu8BF7u591Au70E4u706BuFF0Cu5C11u4E0Au7F51uFF0Cu5C11u5077u83DCuFF0Cu7231u62A4u597Du81EAu5DF1u7684u8EABu4F53u3002 --- u519Cu573Au7BA1u7406u5458","time":".$_SGLOBAL['timestamp'].","code":1}";

使用工具: Unicode中文互转，进行修改

5、关于注册默认VIP等级在数据库初始值上修改. 暂时未做文本配置.

6、关于装饰反复购买和刷经验问题都是假像.由于还没完成YB购买的代码所以未对数据库操作.刷新就恢复

7、.简易管理后台如何使用

你的home地址/

用户UID:为数字ID 不是帐号

8、一键摘取时间段设置打开文件查找 "batchStealHour" 修改后面的参数. 注意按照格式

9、.home主页动态提示名称显示编码修复

打开 happyfarm/

查找 $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(1,30) / 5 ) * rand(1,2);

}

else

{

$dog_money = $dog_money + round(10 * rand(1,20) / 5);

rand是取随机数 round 是四舍五入

根据自己需要进行调节。

可以改rand（1，20）将后面的数字缩小，或者将数字5调大狗咬人的钱就少了！

点击下载地址：仿QQ农场牧场（源码）最新

五、Flash斗地主源码（网页斗地主源码）

网页版的在线三人斗地主游戏，Flash+PHP5+Mysql5，打开网页即可直接斗地主，无需下载客户端！

新增了提示、托管、记分牌、声音、时钟、好友邀请等功能。

点击下载地址：Flash斗地主源码（网页斗地主源码）

六、停车大战V1.0源码

软件类型：国产软件

授权方式：共享软件

界面语言：简体中文

软件大小：5 MB

文件类型：.rar

运行环境：Win2003,WinXP,Win2000,Win9X

软件等级：★★★☆☆

发布时间：2010-09-18

官方网址：

演示网址：

下载次数： 88

软件介绍

dim i,page,rscount,pagea

page=tring("page")

if Request("action")="add" then

IF not isNumeric(("pkmoney")) then

End if

IF not isNumeric(("pktimemoney")) then

End if

IF not isNumeric(("pktype")) then

End if

if trim(("pkname"))="" then

end if

if trim(("pkgif"))="" then

end if

if trim(("pkswf"))="" then

end if

if trim(("pktt"))="" then

end if

set rsadd=Object("Set")

sqladd="select * from pk_auto"

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"))

rsadd("autotimemoney")=trim(request("pktimemoney"))

set rs=nothing

end if

if Request("action")="addmoney" then

IF not isNumeric(("cmemoney")) then

End if

IF not isNumeric(("userid")) then

End if

e("UPDATE [pk_spaces] Set pkumoney = pkumoney

+"&("cmemoney")&" where pkuid = "&("userid"))

end if

if Request("action")="editpost" then

IF not isNumeric(("pkmoney")) then

End if

if not isNumeric(("pkid")) then

end if

IF not isNumeric(("pktimemoney")) then

End if

IF not isNumeric(("pktype")) then

End if

if trim(("pkname"))="" then

end if

if trim(("pkgif"))="" then

end if

if trim(("pkswf"))="" then

end if

if trim(("pktt"))="" then

end if

if trim(("pkid"))="" then

end if

set rsadd=Object("Set")

sqladd="select * from pk_auto where

autoid="&trim(("pkid"))&""

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"))

rsadd("autotimemoney")=trim(request("pktimemoney"))

set rsadd=nothing

end if

IF Request("del")<>"" Then

e("Delete From pk_auto Where autoid="&Request("del"))

End IF

dim rspkinfo,pkid,pktype,pkname,pkgif,pkswf,pkmoney,pktimemoney,pktt

if Request("edit")<>"" and Request("edit")>0 then

Set rspkinfo = e("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=rspkinfo("autotimemoney")

pktt=rspkinfo("autott")

set rspkinfo=nothing

end if

cellpadding="0" cellspacing="1">

align="left">添加车子

Request("edit")<>"" then %>editpost<%else%>add<%end if%>" method="post"

name="form" >

<%if Request("edit")<>"" then %>

id="pkid" value="<%=pkid%>"><%end if%>

cellspacing="1">

汽车类		*必须填写	*
汽车名	id="pkname" size="15" value="<%=pkname%>">	*必须填写	*
汽车图标	size="15" value="<%=pkgif%>">.gif	*必须填写	*
汽车价格	id="pkmoney" size="15" value="<%=pkmoney%>">元	*必须填写	*
汽车油耗	size="15" value="<%=pktt%>">L(升)	*必须填写	*
每分钟赚	id="pktimemoney" size="15" value="<%=pktimemoney%>">元	*必须填写	*
SWFID	size="15" value="<%=pkswf%>">.swf	*必须填写	*

cellspacing="1">

id="page" value="<%=page%>">

Request("edit")<>"" then %>修改<%else%>提交<%end if%>">

cellspacing="1">

set rsadd=Object("Set")

sqladd="select * from pk_auto order by autoworth desc"

sqladd,u_conn,1,1

if and then

还没有车子

else

rscount=count

ze=50

Page_Size=ze

pagea=unt

page=tring("page")

if page="" then

page=1

else

page=cint(page)

if page<=0 then

page=1

end if

if page>unt then

page=unt

end if

tepage=page

i = 0

do while not

i=i+1

if i>=Page_Size then exit do

loop

set rsadd=nothing

序号

类型

车名

标志

价格

油耗

SWFID

1分钟赚

操作

<%=rsadd("autoid")%>

name="<%=rsadd("autoid")%>">

<%if rsadd("autotype") = "1" then %>微型车<%end if%>

<%if rsadd("autotype") = "2" then %>小型车<%end if%>

<%if rsadd("autotype") = "3" then %>紧凑型车<%end if%>

<%if rsadd("autotype") = "4" then %>中型车<%end if%>

<%if rsadd("autotype") = "5" then %>大型车<%end if%>

<%if rsadd("autotype") = "6" then %>豪华车<%end if%>

<%if rsadd("autotype") = "7" then %>MPV<%end if%>

<%if rsadd("autotype") = "8" then %>SUV<%end if%>

<%if rsadd("autotype") = "9" then %>跑车<%end if%>

<%if rsadd("autotype") = "10" then %>VIP炫车<%end

if%>

<%=rsadd("autoname")%>

src="/apps/car7m8/parking/image/<%=rsadd("autobrand")%>.gif">

<%=rsadd("autobrand")%>

<%=rsadd("autoworth")%>元

<%=rsadd("autott")%>L

<%=rsadd("autotimemoney")%>元/分钟赚

href="?Adminclass=9&edit=<%=rsadd("autoid")%>&page=<%=page%>">修改 "

onclick='javascript: return confirm("你确定要删除吗? ");'>删除

cellspacing="1">

页次 <%

for i=1 to pagea

("["&i&"] ")

("[共有"&rscount&"辆车][每页"&Page_Size&"辆]")

end if

本文标签：游戏源码文件停车数据库

版权声明：本文标题：最新WEB游戏源码服务端(完整修改版) 内容由网友自发贡献，该文观点仅代表作者本人，转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1702893410h434948.html，本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。