感谢分享，支持。
谢谢大神分享
web游戏...好古老，支持一下。
:谢谢分享！！
66666666666666666666666666
感谢分享!~
[手工架设] 超古老魔兽WEB游戏
这个可以有，保存抽空看看
感谢分享
源码不就能进去玩了吗
xiaobao0552 发表于 2023-9-22 10:29
源码不就能进去玩了吗
:就是不会进
感谢分享
感谢分享
dboycool 发表于 2023-9-22 06:10
我准备弄，是不是最早叫魔神英雄传说
大神，等你，雅蔑蝶
我记得这玩意儿好像是asp的，还得装个IIS:
fallback 发表于 2023-9-22 14:13
我记得这玩意儿好像是asp的，还得装个IIS
主要是数据库难配置
报错，看看这个是啥错误
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
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 where UserName='""' orUserNumber='""' or DateDiff("&SqlChar&"n"&SqlChar&",lasttime,"&SqlNowString&")>"&UserOnlineTime&" ")
注释掉这句删除超时在线用户的代码，这个在access里有问题。
好了，访问
http://127.0.0.1/
就可以显示登录页面了。注册一个用户就可以进去玩了~
网上找的，不知道是不是你的这个错误
已测试，BUG很多 压根没办法玩
谢谢大神分享