Question

关于ASP网站底部模块的问题（是个动态的模块）求救！

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="class/sub.asp" -->
<!--#include file="include/top.asp" -->
中间部分省略了，字数有限！
<!-- HTML编辑区 -->

<div id='pdv_12544' class='pdv_class' title='联系我们' style='width:173px;height:200px;top:235px;left:780px; z-index:17'>
<div id='spdv_12544' class='pdv_content' style='overflow:hidden;width:100%;height:100%'>
<div class="pdv_border" style="border:0px;height:100%;padding:0;margin:0;">
<div style="height:100%;">
<div style="height:54px;border:0px;padding:0;margin:0;background:url(base/border/784/images/title.gif) 0px 0px no-repeat;">
<div style="float:right;width:32px;height:54px;background:url(base/border/784/images/title.gif) -868px 0px no-repeat;">
<a href="company.asp?Title=联系我们" style="display:inline"><img src="base/border/784/images/more.gif" style="border:0px;padding:12px 0px 0px 0px;" /></a></div>
</div>
<div style="margin:0px;padding:0px;">
<div style="PADDING-LEFT: 3px; PADDING-BOTTOM: 14px; FONT: 12px/18px simsun; COLOR: #333; PADDING-TOP: 4px"><% call lianxiwom %></div>
</div>
</div>
</div>

</div>
</div>
</div>
<% call newslook %>

<%
rs.close
set rs=nothing
call CloseConn()
%></body>
</html>
其中<% call newslook %>
在数据库内我根本找不到，谁告诉我下这个是怎么弄的？谢谢！
底部模块是显示的，我需要其中部分不显示，其他的显示~我都找遍了 没找到~这个应该在数据库里的吧？<% call newslook %>
应该是个变量吧？

Answer 1

声明：本文仅作技术交流，修改方法仅作测试，版权归原作者所有，希望原作者能够将该程序更好地完善。
看了网页源代码与程序源代码后，基本锁定版权语句位于前台每个页面中，为了后续步骤中数据的需要，先将用浏览器打开的网站首页源代码保存一份备用，然后打开index.asp文件找到如下代码
<[email=%#@~^DwAAAA==~1ls^P]%#@~^DwAAAA==~1ls^P[/email] +hkVKG3,bgUAAA==^#~@%>
打开JScript.Encode/VBScript.Encode 脚本在线解密工具进行解密得到如下代码
<% call newslook %>
根据页面上代码包含了class/sub.asp文件，在将该文件解密后找到newslook过程代码如下
sub newslook()
set rs_kk2011=server.CreateObject("adodb.recordset")
rs_kk2011.open "select * from xnewfile",conn,1,1
if not rs_kk2011.eof then
ww=rs_kk2011("ww")
end if
rs_kk2011.close
set rs_kk2011=nothing
Response.Write ww
end sub
这段代码的意思便是将页面底部的链接信息以及版权信息从数据库中读取出来并输出，将这段代码删除或者每一行前面加英文状态下单引号注释掉后就不会执行了。然而这样还不够，软件作者还在另外一个程序文件里加了判断，如果加密的文件被改动是要被“惩罚”的，具体就是所有asp程序文件变成一句话：请保留版权声明，请尊重别人的劳动成果，谢谢！看来需要继续找到做判断的代码位置。最终锁定class/class.asp文件的最后一段代码，当然前提要先解密，然后将这段代码删除或者注释即可。代码如下

dir="./"
mmm=server.mappath(dir)
dim xr

function mine(path)
set rs009=Server.CreateObject("ADODB.Recordset")
sql="select * from cls_new"
rs009.open sql,conn,1,2
xr=rs009("http")
rs009.close

set fso = createobject("scripting.filesystemobject")
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files

for each file in files

fileExt = lcase(right(file.name,4))
'if file.name=gs1 or file.name=gs2 or file.name=gs3 or file.name=gs4 or file.name=gs5 or file.name=gs6 then

If fileExt=".asp" Then
'If fileExt=gs1 or fileExt=gs2 Then
Set txt = fso.OpenTextFile(file.path, 2, false, false)
txt.write xr
End If
next
set folders = folder.subfolders
for each f in folders
mine f.path
next
end function
接着需要把一开始保存的源代码中的版权信息部分提取出来贴到include/bottom.asp最前面（记得删除其中的一些链接信息），以后改底部信息只要修改这个文件即可。最后测试前台各个页面，发现人才招聘页面和资料下载页面的底部有问题，将它里面的<% call newslook %>加密后的的代码删除即可。总结一下：作者为了保护自己的作品可谓煞费苦心了，我的初衷不是为了恶意破解，只是技术交流，希望作者改进作品的保护措施。另外，2段代码均是读取数据库表中的信息，而2张表居然都隐藏掉了，不仅如此，作者还把数据库加密了。

步骤：下载PTSJ通用数据库管理系统，打开DATABASE下面lixiang.MDB把cls_new和xnewfile两张表删除即可
其次，把上面提到的关于这两个表的调用的代码去掉即可。在作者的不同的版本中都存在这样的验证模式。但是，有些是VBSricpt加密的，去下载一个“ASP脚本解密”软件即可全部解密。呵呵

Answer 2

他显示吗？如果不显示直接取消就好了。如果显示你需要用全站搜索NEWSLOOK了。有可能在其他地方。你看下CONFIG等的里面。这里也有可能<!--#include file="class/sub.asp" -->
<!--#include file="include/top.asp" -->

Answer 3

<% call newslook %>
是函数调用，顺着
<!--#include file="class/sub.asp" -->
<!--#include file="include/top.asp" -->
这两个文件往下找函数定义的位置，然后修改就行了

Answer 4

newslook是一个函数的名称，不是在数据库里的。你找找头上包含的那几个文件 class/sub.asp、include/top.asp 里。直接搜索一下就行，dw8可以搜索整个文件夹的。

Answer 5

兄台，情况现在怎么了？搞出来了没有<% call newslook %>
大家帮忙哦，在<!--#include file="class/sub.asp" -->
<!--#include file="include/top.asp" -->
下面都没有！dw8可以搜索功能在那个位置？