所有ASP都是开源的吗？怎么除去版权~

版权所有：免费友情链接网程序开发:AspLian.com

下载了个友情链接程序按来路自动排名的！！

怎么破解掉最底部的版权·~

下载地址：http://down.chinaz.com/soft/24925.htm --------------------编程问答-------------------- 怎么写上去的就怎么去
要是混淆封装了就很难搞的 --------------------编程问答-------------------- 能具体说一下吗？我不会弄啊！我不知道是混淆的还是封装的！！ --------------------编程问答--------------------

引用 2 楼 limingke419 的回复:

能具体说一下吗？我不会弄啊！我不知道是混淆的还是封装的！！

你贴一些代码出来试试
随便贴 --------------------编程问答-------------------- 贴代码啊
这个做开发的都知道怎么去的啊
不看代码都不知道怎么去。。

--------------------编程问答-------------------- asp 一般都很少加密 --------------------编程问答-------------------- Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A> "
set f=Nothing
set fso=Nothing

set f=server.createobject("adodb.recordset")
f.open "select * from template where id=7",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
strOut=Replace(strOut,"<{{icp}}>",icp)
strOut=Replace(strOut,"<{{qq}}>",qq)
strOut=Replace(strOut,"<{{menuads}}>",menuads)
strOut=Replace(strOut,"<{{baidu}}>",baidu)
strOut=Replace(strOut,"<{{ads01}}>",ads01)
strOut=Replace(strOut,"<{{ads02}}>",ads02)
strOut=Replace(strOut,"<{{ads03}}>",ads03)
strOut=Replace(strOut,"<{{ads04}}>",ads04)
strOut=Replace(strOut,"<{{ads05}}>",ads05)
strOut=Replace(strOut,"<{{ads06}}>",ads06)
strOut=Replace(strOut,"<{{ads07}}>",ads07)
strOut=Replace(strOut,"<{{ads08}}>",ads08)
strOut=Replace(strOut,"<{{ads09}}>",ads09)
strOut=Replace(strOut,"<{{ads10}}>",ads10)

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A> "
set f=Nothing
set fso=Nothing

set f=server.createobject("adodb.recordset")
f.open "select * from template where id=8",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
strOut=Replace(strOut,"<{{icp}}>",icp)
strOut=Replace(strOut,"<{{qq}}>",qq)
strOut=Replace(strOut,"<{{menuads}}>",menuads)
strOut=Replace(strOut,"<{{baidu}}>",baidu)
strOut=Replace(strOut,"<{{ads01}}>",ads01)
strOut=Replace(strOut,"<{{ads02}}>",ads02)
strOut=Replace(strOut,"<{{ads03}}>",ads03)
strOut=Replace(strOut,"<{{ads04}}>",ads04)
strOut=Replace(strOut,"<{{ads05}}>",ads05)
strOut=Replace(strOut,"<{{ads06}}>",ads06)
strOut=Replace(strOut,"<{{ads07}}>",ads07)
strOut=Replace(strOut,"<{{ads08}}>",ads08)
strOut=Replace(strOut,"<{{ads09}}>",ads09)
strOut=Replace(strOut,"<{{ads10}}>",ads10)

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&html&""),true)

f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A> "
set f=Nothing
set fso=Nothing

set f=server.createobject("adodb.recordset")
f.open "select * from template where id=9",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
strOut=Replace(strOut,"<{{icp}}>",icp)
strOut=Replace(strOut,"<{{qq}}>",qq)
strOut=Replace(strOut,"<{{menuads}}>",menuads)
strOut=Replace(strOut,"<{{baidu}}>",baidu)
strOut=Replace(strOut,"<{{ads01}}>",ads01)
strOut=Replace(strOut,"<{{ads02}}>",ads02)
strOut=Replace(strOut,"<{{ads03}}>",ads03)
strOut=Replace(strOut,"<{{ads04}}>",ads04)
strOut=Replace(strOut,"<{{ads05}}>",ads05)
strOut=Replace(strOut,"<{{ads06}}>",ads06)
strOut=Replace(strOut,"<{{ads07}}>",ads07)
strOut=Replace(strOut,"<{{ads08}}>",ads08)
strOut=Replace(strOut,"<{{ads09}}>",ads09)
strOut=Replace(strOut,"<{{ads10}}>",ads10)

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&html&""),true)

f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A> "
set f=Nothing
set fso=Nothing

tj=""
Set tjCount=Server.CreateObject("Adodb.Recordset")
Sql="select * from detail where verity=1 and topid>0"
tjCount.open Sql,conn,1,1
tj=tj&"共有["&tjCount.RecordCount&"]个推荐网站"
tjCount.close
Set tjCount = Nothing
strOut=Replace(strOut,"<{{tj}}>",tj)

dim fw,rstr
set fr=server.createobject("adodb.recordset")
fr.open "select * from template where id=1",conn,3.3
strOut=fr("template")
fr.close
set fr=nothing
rstr=empay
set rs=server.createobject("adodb.recordset")
rs.open "select * from detail where verity=1 and topid>0 order by topid desc,id",conn,1,3
jishu=1
noooo=1

while not rs.eof
if jishu=1 or jishu mod 4=1 then
noooo=noooo+1
if noooo mod 2=1 then
bgcolor="#FFFFFF"
else
bgcolor="#F7F7F7"
end if
rstr=rstr&"<tr bgColor="&bgcolor&"><td width=25% height=25> <a class=word href=../showurl.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a></td>"
else
rstr=rstr&"<td width=25% height=20>　<a class=word href=../showurl.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a></td>"
end if
if jishu mod 4=0 then rstr=rstr&"</tr>"
jishu=jishu+1
rs.movenext
wend
jishu=jishu-1
if jishu mod 4<>0 then
for i=1 to 4-(jishu mod 4)
rstr=rstr & "<td width='25%'> </td>"
if i=4-(jishu mod 4) then rstr=rstr&"</tr>"
next
end if
rs.close
strOut=replace(strOut,"<{{sc3}}>",rstr)
strOut=replace(strOut,"<{{sc1}}>","＞<a class=word_White href='tjwz.htm'>推荐网址</a>")
strOut=replace(strOut,"<{{sc2}}>","")
strOut=replace(strOut,"<{{classname}}>","推荐网址")
strOut=replace(strOut,"<{{site}}>",site)
strOut=replace(strOut,"<{{siteurl}}>",siteurl)
strOut=replace(strOut,"<{{email}}>",email)
strOut=replace(strOut,"<{{Copyright}}>",Copyright)
strOut=Replace(strOut,"<{{tj}}>",tj)
strOut=replace(strOut,"<{{creattime}}>",date())
strOut=Replace(strOut,"<{{qq}}>",qq)
strOut=Replace(strOut,"<{{menuads}}>",menuads)
strOut=Replace(strOut,"<{{baidu}}>",baidu)
strOut=Replace(strOut,"<{{ads01}}>",ads01)
strOut=Replace(strOut,"<{{ads02}}>",ads02)
strOut=Replace(strOut,"<{{ads03}}>",ads03)
strOut=Replace(strOut,"<{{ads04}}>",ads04)
strOut=Replace(strOut,"<{{ads05}}>",ads05)
strOut=Replace(strOut,"<{{ads06}}>",ads06)
strOut=Replace(strOut,"<{{ads07}}>",ads07)
strOut=Replace(strOut,"<{{ads08}}>",ads08)
strOut=Replace(strOut,"<{{ads09}}>",ads09)
strOut=Replace(strOut,"<{{ads10}}>",ads10)

Set fso=Server.CreateObject("Scripting.FileSystemObject")
set fw=fso.createtextfile(server.mappath("../html/tjwz.htm"),true)
fw.writeline strOut
fw.close
Response.Write "<li>生成网址推荐页模板成功</A> "
set rs=Nothing
set fw=Nothing
set f=Nothing
set fso=Nothing

links=""
Set linksCount=Server.CreateObject("Adodb.Recordset")
Sql="select * from detail where verity=1 and links>0"
linksCount.open Sql,conn,1,1
links=links&"共有["&linksCount.RecordCount&"]个友情连接"
linksCount.close
Set linksCount = Nothing
strOut=Replace(strOut,"<{{links}}>",links)

dim linkw,link
set fr=server.createobject("adodb.recordset")
fr.open "select * from template where id=1",conn,3.3
strOut=fr("template")
fr.close
set fr=nothing
link=empay
set rs=server.createobject("adodb.recordset")
rs.open "select * from detail where verity=1 and links>0 order by aspliancom_intime desc,id",conn,1,3
jishu=1
noooo=1

while not rs.eof
if jishu=1 or jishu mod 4=1 then
noooo=noooo+1
if noooo mod 2=1 then
bgcolor="#FFFFFF"
else
bgcolor="#F7F7F7"
end if
link=link&"<tr bgColor="&bgcolor&"><td width=25% height=25> <a class=word href=../showurl.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a></td>"
else
link=link&"<td width=25% height=20> <a class=word href=../showurl.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a></td>"
end if
if jishu mod 4=0 then link=link&"</tr>"
jishu=jishu+1
rs.movenext
wend
jishu=jishu-1
if jishu mod 4<>0 then
for i=1 to 4-(jishu mod 4)
link=link & "<td width='25%'> </td>"
if i=4-(jishu mod 4) then link=link&"</tr>"
next
end if
rs.close
strOut=replace(strOut,"<{{sc3}}>",link)
strOut=replace(strOut,"<{{sc1}}>","＞<a class=word_White href='links.htm'>友情连接</a>")
strOut=replace(strOut,"<{{sc2}}>","")
strOut=replace(strOut,"<{{classname}}>","友情连接")
strOut=replace(strOut,"<{{site}}>",site)
strOut=replace(strOut,"<{{siteurl}}>",siteurl)
strOut=replace(strOut,"<{{email}}>",email)
strOut=replace(strOut,"<{{Copyright}}>",Copyright)
strOut=Replace(strOut,"<{{tj}}>",links)
strOut=replace(strOut,"<{{creattime}}>",date())
strOut=Replace(strOut,"<{{qq}}>",qq)
strOut=Replace(strOut,"<{{menuads}}>",menuads)
strOut=Replace(strOut,"<{{baidu}}>",baidu)
strOut=Replace(strOut,"<{{ads01}}>",ads01)
strOut=Replace(strOut,"<{{ads02}}>",ads02)
strOut=Replace(strOut,"<{{ads03}}>",ads03)
strOut=Replace(strOut,"<{{ads04}}>",ads04)
strOut=Replace(strOut,"<{{ads05}}>",ads05)
strOut=Replace(strOut,"<{{ads06}}>",ads06)
strOut=Replace(strOut,"<{{ads07}}>",ads07)
strOut=Replace(strOut,"<{{ads08}}>",ads08)
strOut=Replace(strOut,"<{{ads09}}>",ads09)
strOut=Replace(strOut,"<{{ads10}}>",ads10)

Set fso=Server.CreateObject("Scripting.FileSystemObject")
set linkw=fso.createtextfile(server.mappath("../html/links.htm"),true)
linkw.writeline strOut
linkw.close
Response.Write "<li>生成友情连接页模板成功</A> "
set rs=Nothing
set linkw=Nothing
set f=Nothing
set fso=Nothing
%>
 </td></tr>
</table>
</body>
</html>

补充：.NET技术 ,  ASP.NET