文字页游【荣誉圣殿中文版（Hall of Fame）】优化版

fallback · 发表于 2023-10-26 13:42:28

137859903 发表于 2023-10-23 11:18
哎，地址发上来没几天，主机就被人黑了。

开源的玩意儿，最好别直接放，越复杂越危险，除非你把代码全部走一遍。这个源代码的DAT都是直接可以下载的，不做服务器配置还是比较危险的。

panxinx · 发表于 2023-10-26 14:28:18

感谢大佬分享

137859903 · 发表于 2023-10-27 09:28:26

fallback 发表于 2023-10-26 13:42
开源的玩意儿，最好别直接放，越复杂越危险，除非你把代码全部走一遍。这个源代码的DAT都是直接可以下载 ...

不搞了，别人的代码看得眼花，还是自己写一个玩。

fallback · 发表于 2023-10-27 11:04:37

137859903 发表于 2023-10-27 09:28
不搞了，别人的代码看得眼花，还是自己写一个玩。

自己写更坑，做完基础规划就想弃坑

。寻仙纪之类还算好的，像phaos那种，画完地图就想吐了

137859903 · 发表于 2023-10-27 14:07:43

fallback 发表于 2023-10-27 11:04
自己写更坑，做完基础规划就想弃坑。寻仙纪之类还算好的，像phaos那种，画完地图就想吐了:[ls ...

你去看一下他这个链接，我是准备做一个差不多的，但不是他这种竖屏的。

kzkui · 发表于 2023-10-27 20:01:50

感谢分享

fallback · 发表于 2023-10-30 09:55:34

137859903 发表于 2023-10-27 14:07
你去看一下他这个链接，我是准备做一个差不多的，但不是他这种竖屏的。

不用自己写了，你找一下暗黑英雄传，论坛里就有，一毛一样，比这个功能更复杂，而且还是PC网页版，非竖屏移动版。

137859903 · 发表于 2023-10-31 09:01:31

fallback 发表于 2023-10-30 09:55
不用自己写了，你找一下暗黑英雄传，论坛里就有，一毛一样，比这个功能更复杂，而且还是PC网页版，非竖屏 ...

用不了，那个源代码加密了，我试过解密工具，也没解出来。

fallback · 发表于 2023-10-31 10:39:45

137859903 发表于 2023-10-31 09:01
用不了，那个源代码加密了，我试过解密工具，也没解出来。

没加密啊，吓得我专门去看了一眼，好好的ASP代码哪有加密，连后门都写得清清楚楚~

if isempty(Request.Cookies("anhei")("liaotianrefreshtime")) or Request.Cookies("anhei")("liaotianrefreshtime")="" then
Response.Cookies("anhei")("liaotianrefreshtime")=now()
elseif datediff("s",Request.Cookies("anhei")("liaotianrefreshtime"),now())<20-viplv and str1="" then
response.Write "刷新时间太快"
response.End()
else
Response.Cookies("anhei")("liaotianrefreshtime")=now()
end if
StrSql="select * from [usermessage] where [qu]="&serverline&" or [qu]=0 order by id asc"
set rs=server.CreateObject("adodb.recordset")
rs.open StrSql,connstr,1,3
if str2="获取最新聊天信息" then
if isempty(Request.Cookies(username)("lianxubudenglu")) or Request.Cookies(username)("lianxubudenglu")="" then
elseif Request.Cookies(username)("lianxubudenglu")>0 then
response.Write "【系统提示】 你已经有"&Request.Cookies(username)("lianxubudenglu")&"小时未登录游戏 如果出现装备或道具不见的情况 请打开包裹,点击整理、取出,整理完毕后刷新游戏即可 "%>
<a class="white hand" onClick="Change('连续未登录提示','饼干'),Nonediv('tishi')" >「我知道了」</a>
<%response.End()
end if
'控制刷新时间
if rs.bof or rs.eof then
response.End()
end if
num=rs.recordcount
if datediff("s","20:00:00",time())>=0 and datediff("s","20:30:00",time())<0 then
elseif datediff("s","21:00:00",time())>=0 and datediff("s","21:30:00",time())<0 then
else
if num>=100 and viplv>=8 then
set Conn=server.CreateObject("adodb.connection")
Conn.open connstr
Conn.execute "delete from [usermessage] where [qu]="&serverline&" or [qu]=0"
Conn.close
set Conn=nothing
response.End()
end if
'清理聊天信息
end if
do while not rs.eof
if instr(rs("from"),"系统提示")>=1 or instr(rs("txt"),"系统提示")>=1 then
elseif instr(rs("from"),"管理")>=1 then
elseif rs("from")="雪奈" or rs("from")="大虫" then
response.Write "["&rs("from")&"]:"&rs("txt")&" "
else
if rs("from")="系统" or rs("from")="破烂王" then
response.Write "["&rs("from")&"]:"&rs("txt")&" "
else
response.Write "["&rs("from")&"]:"&rs("txt")&" "
end if
end if
rs.movenext
loop
elseif str2="发送聊天信息" then
if str1="累计充值" then
StrSql="select * from [usering] where [name]='隐藏充值金额' and [to]='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open StrSql,connstr,1,3
if rs.eof or rs.bof then
else
rs.delete
end if
rs.close
set rs=nothing
response.End()
end if
if datediff("s","20:00:00",time())>=0 and datediff("s","20:30:00",time())<0 then
call tishitxt("[友情提示]：憩息之岛活动期间不能聊天 ")
elseif datediff("s","21:00:00",time())>=0 and datediff("s","21:30:00",time())<0 then
call tishitxt("[友情提示]：竞技神殿活动期间不能聊天 ")
end if
if userrs("name")="系统" or userrs("name")="破烂王" then
str1=""
elseif userrs("lv")<500 then
call tishitxt("[友情提示]：500级才可以聊天 ")
end if
if isempty(Request.Cookies("anhei")("liaotianjiangetime")) or Request.Cookies("anhei")("liaotianjiangetime")="" then
Response.Cookies("anhei")("liaotianjiangetime")=now()
elseif datediff("s",Request.Cookies("anhei")("liaotianjiangetime"),now())<3 then
call tishitxt("[友情提示]：每次聊天间隔至少需要3秒 ")
else
Response.Cookies("anhei")("liaotianjiangetime")=now()
end if
if str1="" then
response.End()
elseif len(str1)>100 then
call tishitxt("[友情提示]：聊天内容太长,不能超过100字 ")
else
if userrs("name")="雪奈" or userrs("name")="大虫" then
str1="<img src='Images/liaotian/crown.gif' / title='GM'>"&str1&""
elseif Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming")="" then
elseif int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))>=1 and int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))<=5 then
if int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))=1 then
str1="("&serverline&"区)<img src='Images/liaotian/1.gif' / title='全服战力排行第一'> "&str1&""
else
str1="("&serverline&"区)<img src='Images/liaotian/"&int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))&".png' / title='全服战力排行第"&int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))&"'> "&str1&""
end if
end if
if Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming")="" then
rs.addnew
rs("qu")=serverline
rs("from")=userrs("name")
rs("txt")=str1
rs.update
elseif userrs("name")="雪奈" or userrs("name")="大虫" or int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))<=5 then
rs.addnew
rs("qu")=0
rs("from")=userrs("name")
rs("txt")=str1
rs.update
else
rs.addnew
rs("qu")=serverline
rs("from")=userrs("name")
rs("txt")=str1
rs.update
end if
end if
end if
rs.close
set rs=nothing

复制代码

phorsetoo · 发表于 2023-10-31 15:47:50

本帖最后由 phorsetoo 于 2023-10-31 15:52 编辑

楼主，你好我解压出来是这个文件放在WWW文件夹里玩不起来，是哪里出错了吗

137859903 · 发表于 2023-11-1 10:17:22

fallback 发表于 2023-10-31 10:39
没加密啊，吓得我专门去看了一眼，好好的ASP代码哪有加密，连后门都写得清清楚楚~

你这是哪个版本的？分享下下。我下了都是有加密的，VBScript加密的。

fallback · 发表于 2023-11-1 13:36:32

phorsetoo 发表于 2023-10-31 15:47
楼主，你好我解压出来是这个文件放在WWW文件夹里玩不起来，是哪里出错了吗

点菜单网站选项，然后进点管理-修改，把根目录指向你的文件夹。

fallback · 发表于 2023-11-1 13:38:39

137859903 发表于 2023-11-1 10:17
你这是哪个版本的？分享下下。我下了都是有加密的，VBScript加密的。

我下了三四个版本都没加密

，你这算是中奖了吗？

链接：https://pan.baidu.com/s/1V6mgMenNJ_fZKRrNbab81A
提取码：lr7x

137859903 · 发表于 2023-11-1 14:39:01

fallback 发表于 2023-11-1 13:38
我下了三四个版本都没加密，你这算是中奖了吗？

链接：https://pan.baidu.com/s/1V6mgMenN ...

哎，我是在湾里下的，架设好能玩，想改的时候才发现有加密，又换了几个版本，一样是加密的。我在下你这个，到时候改改看。

phorsetoo · 发表于 2023-11-1 19:26:07

fallback 发表于 2023-11-1 13:36
点菜单网站选项，然后进点管理-修改，把根目录指向你的文件夹。

感谢成功进入游戏了

gyb1987 · 发表于 2023-11-2 01:04:25

俏丽娃发表于 2023-10-6 21:17
不知道是不是ＷＩＮ10不能玩，满页全是下面那样的报错．

注意：未定义的索引：D：\phpStudy\PHPTutorial ...

我跟你情况一样，也是WIN10，通过设置phpstudy版本解决了。phpstudy界面右下角设置其他选项菜单-PHP版本切换-apache+PHP5.2 。

razz · 发表于 2023-11-2 09:21:22

楼主可以把源码传到github这样的托管网站上可以一起修改汉化的小问题

fallback · 发表于 2023-11-2 10:23:56

137859903 发表于 2023-11-1 14:39
哎，我是在湾里下的，架设好能玩，想改的时候才发现有加密，又换了几个版本，一样是加密的。 ...

ASP的，你改完估计想找个架设的服务器都难，故纸堆里的老玩意儿了，PHP还在成长，ASP已经RIP了，掘墓人是ASP.net,
这个应该是ASP文字页游的天花板了，基本上没有比这个更复杂和完善的了。

fallback · 发表于 2023-11-2 10:25:32

razz 发表于 2023-11-2 09:21
楼主可以把源码传到github这样的托管网站上可以一起修改汉化的小问题

原版的github好像就有，只不过原作者2008年就停止更新了。其实这个代码里报错的都是规范性问题，需要大改的并不多，我这里目前最高是无错适配到php8，再高就搞不定了。

fallback · 发表于 2023-11-2 10:26:48

gyb1987 发表于 2023-11-2 01:04
我跟你情况一样，也是WIN10，通过设置phpstudy版本解决了。phpstudy界面右下角设置其他选项菜单-PHP版 ...

提供下载这个，最高适配到5.6，推荐phpstudy，win11、win7亲测没有问题。

		自动登录	找回密码
密码			注册

[网页游戏] 文字页游【荣誉圣殿中文版（Hall of Fame）】优化版

本帖子中包含更多资源

[网页游戏] 文字页游【荣誉圣殿中文版 （Hall of Fame）】优化版

本帖子中包含更多资源

[网页游戏] 文字页游【荣誉圣殿中文版（Hall of Fame）】优化版