高级应用整合ASP

最后更新时间:2018年11月17日09:48:27

纯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. %>