高级应用整合ASP

纯JS简单调用，你可以会觉得麻烦且不安全
有时候，你可以需要将授权整合到你的系统中，不用用户每买一次，都插一次授权代码，这样做效率太低了，是的，所以，我们就可以用到授权整合了。

你可能也发现了，授权JS代码，其它都一样，只不过是授权ID不同，那么我们可以把其它代码固定放，然后把授权ID做成一个变量，留个接口让用户填写这个变量。

现在我们提供我们整合的实例，供您参考。也可以根据自己的需求自行整合

ASP整合实例
一般情况下，数据库配置页是开放的，而且是全局调用的，我们可以在数据库配置页加上变量，如：

<% ' 这里是您的数据库配置内容 ' ----------- SYS_KEY="填写授权ID号" '填写您的授权ID %>

上面我们增加了一个变量:SYS_KEY,而且，这是全站可调用的。下面，我们可以在需要授权的页面这样写：

<% response.Write "<script src='http://sq.demo.ew80.net/rz.asp?sqid="&SYS_KEY&"'></script>" %>

ASP直接输出了这段JS，而且这个授权ID，是直接读取的前面我们自定义的变量的值。

这样我们基本就实现了授权整合，用户只需要填写授权码即可实现授权，而我们要做的，就是在授权中心分配授权ID号就行了。怎么样，是不是跟传统的软件授权类似。

为了让授权更安全，我们引入了随机安全验证文件功能，安全验证文件在授权中心后台的 系统配置-> 安全配置中。可生成多个不同的。

随机安全验证文件为授权作了二次验证，在授权前，先远程读取该随机文件，读取成功则接着验证，如果读取不成功，则直接中断代码执行，这极大的提高了授权的安全，因为有时候，客户会获取授权中心地址，而采用域名劫持的方式来阻止授权的运行。

1. <%

2. keyurl="http://sq.demo.ew80.net/key/U6Agf6p12welN.txt"

3. '远程读取授权中心随机安全验证文件。

4. '该文件为授权系统在安全配置时自动随机生成，位于授权平台的KEY文件下，请不要删除，以确保能远程读取到。

5. Function IsValidUrl(url)

6. Set xl = Server.CreateObject("Microsoft.XMLHTTP")

7. xl.Open"HEAD",url,False

8. xl.Send

9. IsValidUrl = (xl.status=200)

10. End Function

11. If IsValidUrl(""&keyurl&"") Then

12. '如果授权中心远程连接成功，则开始执行授权JS代码

13. response.Write "<script src='http://sq.demo.ew80.net/rz.asp?sqid="&SYS_KEY&"'></script>"  

14. else

15. '如果读取远程授权中心安全验证文件失败，则执行下面代码。

16. response.Write "<script language='javascript'>window.alert('授权失败！无法连接到授权服务器！')</script>"

17. response.end

18. End If

19. %>