论坛 › 网游单机下载 › 文字页游【荣誉圣殿中文版 （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那种，画完地图就想吐了:

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

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 where ="&serverline&" or =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 "<font class='red'>【系统提示】</font><br/><font class='red12'>你已经有"&Request.Cookies(username)("lianxubudenglu")&"小时未登录游戏<br/>如果出现装备或道具不见的情况<br/>请打开包裹,点击整理、取出,整理完毕后刷新游戏即可<br/></font>"%>
        <br/><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 where ="&serverline&" or =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 "<font color='#F53F3C' class='border-white'>["&rs("from")&"]:"&rs("txt")&"</font><br/>"
                else
                        if rs("from")="系统" or rs("from")="破烂王" then
                        response.Write "<font color='#F53F3C'>["&rs("from")&"]</font>:"&rs("txt")&"<br/>"
                        else
                        response.Write "<font color='#14FD6C'>["&rs("from")&"]</font>:"&rs("txt")&"<br/>"
                        end if
                end if
                rs.movenext
        loop
elseif str2="发送聊天信息" then
    if str1="累计充值" then
          StrSql="select * from where ='隐藏充值金额' and ='"&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("<font color='#F53F3C'>[友情提示]：憩息之岛活动期间不能聊天</font><br/>")
        elseif datediff("s","21:00:00",time())>=0 and datediff("s","21:30:00",time())<0 then
                call tishitxt("<font color='#F53F3C'>[友情提示]：竞技神殿活动期间不能聊天</font><br/>")
    end if
        if userrs("name")="系统" or userrs("name")="破烂王" then
          str1=""
        elseif userrs("lv")<500 then
          call tishitxt("<font color='#F53F3C'>[友情提示]：500级才可以聊天</font><br/>")
        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("<font color='#F53F3C'>[友情提示]：每次聊天间隔至少需要3秒</font><br/>")
        else
          Response.Cookies("anhei")("liaotianjiangetime")=now()
        end if
        if str1="" then
          response.End()
        elseif len(str1)>100 then
          call tishitxt("<font color='#F53F3C'>[友情提示]：聊天内容太长,不能超过100字</font><br/>")
        else
        if userrs("name")="雪奈" or userrs("name")="大虫" then
          str1="<font class='red18'><img src='Images/liaotian/crown.gif' / title='GM'>"&str1&"</font>"
        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&"区)<font class='purple14-黑体'><img src='Images/liaotian/1.gif' /title='全服战力排行第一'>&nbsp;"&str1&"</font>"
          else
          str1="("&serverline&"区)<font class='purple14-黑体'><img src='Images/liaotian/"&int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))&".png' / title='全服战力排行第"&int(Request.Cookies(username)("yingxiongbang_zuoritiaozhan_paiming"))&"'>&nbsp;"&str1&"</font>"
          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）】优化版