admin 管理员组

文章数量: 1086019


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

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

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

一、抢车位源码

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

版权声明:(停车大战V1.0 FOR DVBBS AC )

停车大战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_happyfarm_

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

    name="form" >UserId:

    id="userid" size="6" value="">

    class="input1" id="cmemoney" size="8" value="5000">

    name="Submit" value="加钱">



    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

    end if

    tepage=page

    i = 0

    do while not

    %>

    <%

    i=i+1

    if i>=Page_Size then exit do

    xt

    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

    classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

    codebase="/pub/shockwave/cabs/flash/#version=9,0,28,0" width="182" height="87">

    value="/apps/car7m8/parking/cars/<%=rsadd("swfid")%>.swf">

    src="/apps/car7m8/parking/cars/<%=rsadd("swfid")%>.swf"

    quality="high"

    pluginspage="/shockwave/download/?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"

    width="182" height="87">

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

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

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

    cellspacing="1">

    页次 <%

    for i=1 to pagea

    ("["&i&"] ")

    Next

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

    end if

    %>


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

    更多相关文章

    SqlServer数据库列名是关键字怎么办?

    1月前

    昨天在维护BS系统中发现update一个表单数据一直报错&#xff0c;查看后台才发现SqlServer数据表中有个FILE字段在update时出错。 网上查结果是FILE为SqlServer保留关键字&#xff0c;解决

    《UC浏览器》视频下载不了?一键修复duilib.dll文件丢失

    1月前

    如果你在使用 UC 浏览器下载视频时遇到 duilib.dll 文件丢失的提示&#xff0c;这通常意味着浏览器或相关组件所需的某个动态链接库文件缺失或损坏。以下是一些解决这个问题的方法&#xff1a; 1. 重新安装 UC

    关于VSCode中下载插件后还不能运行html文件到浏览器的问题

    1月前

    这段时间在学习html的过程中&#xff0c;想用VSCode运行html代码到浏览器&#xff0c;查阅资料后发现需要下载open in browser插件&#xff0c;但下载后右键点击仍然没有open in D

    Java餐厅点餐系统【附源码&amp;报告】

    1月前

    时间太久了,数据库之类的不在了,没法打包资源上传,有粉丝想要完整代码,故更新一下。有资源需求之类的可以直接私信或者在评论区留言,博主会进行更改。 目录 1. 绪论 1.1 课题目标 1.2 课题背景 1.3 开发意义

    Windows系统下MySQL修改数据库目录(datadir)后无法启动MySQL服务器解决方案

    1月前

    Windows系统下MySQL修改数据库目录&#xff08;datadir&#xff09;后无法启动MySQL服务器解决方案 在修改MySQL的datadir目录之后&#xff0c;启动MySQL服务时会出现如下报

    计算机附带的游戏怎么删除,如何清除Win7系统附件中自带的游戏组件

    29天前

    系统城的小编这里要为大家带来的是关于如何清除Win7系统附件中自带的游戏组件的方法&#xff0c;大家知道&#xff0c;我们的系统的开始菜单中有一个附件&#xff0c;这里的游戏是系统自带的&#xff0c;

    Windows系统没有目标位置的快捷方式及其目标文件获取

    29天前

    最近的项目需要解析Windows系统的快捷方式(.lnk),研究发现,虽然快捷方式的后缀都是(.lnk),但其实存在两种不同的格式,如图: 右侧的 QQ 快捷方式则是我们常见的那种,目标是指向一个 .exe,而左侧的 python 的快捷方

    windows python库wheel文件下载

    28天前

    1.https:pypi 2.https:pypi.tuna.tsinghua.edusimple 使用以下命令快速下载安装&#xff0c;解决pip安装慢的问题&#xff1a; pip install -i

    android动态壁纸文件,DIY Android手机动态壁纸APK安装文件

    28天前

    DIY非交互式动态壁纸APK安装文件首先&#xff0c;让我们首先了解1.由几个图像帧组成. 当以一定顺序和速度连续播放几帧时&#xff0c;就会形成. 影响. 这也是的原理. 最熟悉的图片是GIF格式的图像. 2.简单来说

    用EXCEL打开TXT文件的办法

    28天前

    用EXCEL打开TXT文件的办法 欢迎关注啄木鸟手机监控监听软件 用EXCEL打开TXT文件的办法 因为我对文件做了EXCEL兼容处理&#xff0c;所以可以很方便的用EXCEL打开TXT文件,方便您查询资料。客户就是上帝啊。。步

    Windows与网络基础-12-13-NTFS文件及文件夹权限

    27天前

    目录 一 、NTFS权限 1.1 NTFS文件系统 1.2 Windows和Linux文件系统 1.3 U盘格式转换FAT->NTFS 二 、文件权限 2.2 文件权限配置实例 三、 文件夹的权限 3.1 文件夹权限配置

    前端pdf文件直接下载而不是在浏览器直接打开

    27天前

    在 pdf 后缀添加 ?response-content-typeapplicationoctet-stream <a v-if"scope.row.files.fileName" :href"sco

    浏览器访问svn服务器文件,无法使用tortoise svn连接到svn,但可以通过Web浏览器连接...

    27天前

    我配置了我的svn存储库以通过apache访问它。 我可以通过任何带有这些地址的网络浏览器访问它。 http:svn.domain http:www.domain:3690 但是当我尝试在Windows上使用tortoiseSVN或

    微信自动跳转第三方浏览器源码,微信自动唤起浏览器方案

    27天前

    市场分析 目前的APP基本都支持二维码扫描下载&#xff0c;二维码下载也成为了大家用起来很顺手的一种方式。提起识别二维码用户第一个想到的就是打开微信扫一下&#xff0c;故很多app都是通过微信分享链接&#xff

    word文件设置了密码,忘记了密码怎么办?

    26天前

    word文件是有两种密码的&#xff0c;一个是打开密码、一个是编辑限制密码 设置了word密码之后&#xff0c;一定要记住自己设置的密码&#xff0c;要么设置简单的密码、要么将设置的密码记录在一个地方。 但

    【字符集三】系统字符集、文件字符集、vs工程字符集

    26天前

    【字符集三】系统字符集、文件字符集、vs工程字符集 一、系统字符集1、Windows方法1&#xff1a;命令chcp方法2&#xff1a;cmd.exe方法3&#xff1a;安装git-bash 2、Linux 二

    Windows 11清除无效、回收站、过期、缓存、补丁更新文件

    26天前

    Windows 11与之前的Windows版本类似&#xff0c;也需要定期清理无效、垃圾、过期、缓存文件来保持系统性能和存储空间的优化。以下是在Windows 11中进行这些清理操作的一些建议方法&#xff1a; 磁盘清

    Windows系统下使用tar命令,压缩文件与解压缩文件并指定路径

    25天前

    如果想指定解压缩后的文件夹&#xff0c;请看第三步 第一步&#xff1a;进入解压文件所在的当前文件夹内右键点击在终端打开 如下图第二步&#xff1a;在终端内输入命令行&#xff08;分为两种情

    windows远程连接linux中mysql数据库

    25天前

    1.在linux中连接数据库&#xff1a;mysql -u【用户】-p【密码】2.在mysql控制台输入以下语句打开数据库远程连接的权限&#xff1a; GRANT ALL PRIVILEGES ON *.* TO

    如何备份U盘文件?教您4个简单方法

    24天前

    在数字化时代&#xff0c;U盘作为便携式数据存储设备&#xff0c;广泛应用于日常生活与工作中。然而&#xff0c;U盘的便携性也伴随着数据丢失或损坏的风险。为了确保数据的安全性和完整性&#xff0c;做好

    发表评论

    全部评论 0
    暂无评论