超古老魔兽WEB游戏

opeir

感谢分享，支持。

jack5472

谢谢大神分享

titancaimal

web游戏...好古老，支持一下。

christzeus

谢谢分享！！

rgyf00

66666666666666666666666666

wangyiyang

感谢分享!~

QQ8....8

[手工架设] 超古老魔兽WEB游戏

youxiwan111

这个可以有，保存抽空看看

a9221528

感谢分享

xiaobao0552

源码不就能进去玩了吗

wyking123

xiaobao0552 发表于 2023-9-22 10:29
源码不就能进去玩了吗

就是不会进

rinige11

感谢分享

下水道井盖

感谢分享

欢颜丶皆欢颜

dboycool 发表于 2023-9-22 06:10
我准备弄，是不是最早叫魔神英雄传说

      大神，等你，雅蔑蝶

fallback

我记得这玩意儿好像是asp的，还得装个IIS

是雪夜呀

fallback 发表于 2023-9-22 14:13
我记得这玩意儿好像是asp的，还得装个IIS

主要是数据库难配置

dboycool

报错，看看这个是啥错误
if Not GetUserParaObj.eof then
                if GetUserParaObj("RegisterTF")=0 then
                        RegisterTF=false
                Else
                        RegisterTF=true
                End if
                DefaultGroupID = GetUserParaObj("DefaultGroupID")
                if not isnull(DefaultGroupID) then DefaultGroupID = clng(DefaultGroupID)
                RegisterNotice = GetUserParaObj("RegisterNotice")
                p_UserNumberRule = GetUserParaObj("UserNumberRule")
                LoginLockNum = cint(GetUserParaObj("LoginLockNum"))
                p_LoginStyle = GetUserParaObj("Login_Style")
                p_AllowChineseName = GetUserParaObj("AllowChineseName")
                p_LenUserName = GetUserParaObj("LenUserName")
                strLenUserNameArr=split(p_LenUserName,",")
                p_NumLenMin = strLenUserNameArr(0)
                p_NumLenMax = strLenUserNameArr(1)
                p_isCheckCorp = cint(GetUserParaObj("isCheckCorp"))
                p_RegisterCheck =  cint(GetUserParaObj("RegisterCheck"))
                p_MoneyName =  GetUserParaObj("MoneyName")
                p_RegPointmoney = GetUserParaObj("RegPointmoney")
                strRegPointmoneyArr=split(p_RegPointmoney,",")
                p_NumGetPoint = trim(strRegPointmoneyArr(0))
                p_NumGetMoney =  trim(strRegPointmoneyArr(1))
                p_NumReturnUrl =  Cint(GetUserParaObj("ReturnUrl"))
                p_LenPasswordarr =  split(GetUserParaObj("LenPassword"),",")
                p_LenPassworMin = cint(trim(p_LenPasswordarr(0)))
                p_LenPassworMax = cint(trim(p_LenPasswordarr(1)))
                p_isSendMail = cint(GetUserParaObj("isSendMail"))
                p_isValidate =  cint(GetUserParaObj("isValidate"))
                p_OnlyMemberLogin = cint(GetUserParaObj("OnlyMemberLogin"))
                p_LenLoginTimearr =  split(GetUserParaObj("LenLoginTime"),",")
                p_LoginGetIntegral = Clng(p_LenLoginTimearr(0))
                p_LoginGetMoney = Cint(p_LenLoginTimearr(1))
                p_LoginPointmoneyarr =  split(GetUserParaObj("LoginPointmoney"),",")
                p_LoginPointmoneyarr_1 = Clng(p_LoginPointmoneyarr(0))
                p_LoginPointmoneyarr_2 = Cint(p_LoginPointmoneyarr(1))
                p_LimitUserName = GetUserParaObj("LimitUserName")
                p_isPassCard = GetUserParaObj("isPassCard")
                p_PointChange =  GetUserParaObj("PointChange")
                p_isYellowCheck = GetUserParaObj("isYellowCheck")
                p_UpfileType= GetUserParaObj("UpfileType")
                p_UpfileSize= GetUserParaObj("UpfileSize")
                p_FilesSpace= GetUserParaObj("FilesSpace")
                p_LimitClass=split(GetUserParaObj("LimitClass"),",")(1)
                GetUserParaObj.close:set GetUserParaObj = nothing
        Else
                strShowErr = "<li>参数错误</li><li>找不到会员系统配置</li>"
                Response.Redirect Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USER_DIR,"//","/")& "/lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="
                Response.end
        End if
       

wyking123

dboycool 发表于 2023-9-22 16:20
报错，看看这个是啥错误
if Not GetUserParaObj.eof then
                if GetUserParaObj("RegisterTF")=0 then

魔兽世界网页游戏webgame源码(asp)

web魔兽源码支持纯access模式，也支持sqlserver。仅供学习研究使用！

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

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

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

下面找到配置文件：FS_Inc/Const.asp

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_ME.mdb"

3、修改/main/lib/Line.asp

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

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

修改为

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

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

注释掉sqlserver的sql函数语句

4、

修改/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/

就可以显示登录页面了。注册一个用户就可以进去玩了~
网上找的，不知道是不是你的这个错误

是雪夜呀

已测试，BUG很多 压根没办法玩

steephenz

谢谢大神分享