ASP加密 - 完美提供ASP代码加密,ASP编译组件,ASP加密,ASPTODLL,ASP封装DLL,ASP文件加密,ASP如何加密,ASP程序加密等服务 - 权威的ASP代码加密软件
 
繁體中文 | 设为首页 | 添加收藏  站内搜索   
 
首页 软件介绍 新闻中心 下载中心 软件注册 加盟合作 技术支持 客户留言
 
查看信息
信息详情

信息正文
 

如何实现网站“30天免费试用”功能?

更新日期:[2011-01-04 10:17:00]

功能说明:是指网站开发者为了让更多用户在有限时间内免费体验网站功能。

功能代码:

 
附:管理员控制文件免费天数试用功能.rar
相关功能代码:

<%
Dim DisUseHtml,FirstUseUrl,FirstUseDate,FirstMdbDate
'程序开发者控制台的URL
FirstUseUrl="http://www.admin.com/AdminUse.asp"

'免费试用天数
FirstUseDate=30

'到期提示字符
DisUseHtml="对不起,本网站系统使用权限已过期!"

'-----------------以下代码无需更改
FirstMdbDate=AspCoding_GetPage(FirstUseUrl & "?Domain=" & Request.ServerVariables("Server_Name") & "&Days=" & FirstUseDate)
if IsDate(FirstMdbDate) then FirstMdbDate=DateDiff("d", FirstMdbDate, Date) else FirstMdbDate=FirstUseDate+1
if FirstMdbDate>FirstUseDate then
   Response.Write DisUseHtml
   Response.End
end if

Function AspCoding_GetPage(url)
   On Error Resume Next
   Dim Mxml
   Set Mxml=Server.CreateObject("Microsoft.XMLHTTP")
   Mxml.Open "Get", url, False
   Mxml.Send
   AspCoding_GetPage=AspCoding_BytesToStr(Mxml.ResponseBody)
   Set Mxml=Nothing
End Function

Function AspCoding_BytesToStr(byt)
   Dim dr
   Set dr =Server.Createobject("ADODB.Stream")
   dr.Type = 2
   dr.Mode = 3
   dr.Open
   dr.WriteText byt
   dr.Position = 0
   dr.CharSet = "gb2312"
   dr.Position = 2
   AspCoding_BytesToStr = dr.ReadText()
   dr.Close
   Set dr = Nothing
End Function
%>

把上面的相关功能代码复制到“代码附加”功能中去,然后直接加密网站即可实现。


 
 
 

版权所有 © 江西省数联网络技术有限公司  地址:江西省南昌市金庐软件开发中心620室  电话:0791-88110796  传真:0791-86910378
您是第3624879位访客,共有3位访客在线,页面耗时:0.031
本站支持RSS订阅RSS订阅帮助