附：管理员控制文件免费天数试用功能.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
%>