概览:
海海软件DRM许可证服务提供接口您可以在您的网站中调用。通过调用DRM许可证，可以与您的网站无缝集成应用海海软件DRM。
整个流程非常简单：
一。您在网站集成参数中设置登录验证DRM许可证服务验证码和许可证验证URL。
二。您建立一个新的DRM登陆页面或者在您已有的页面中接受DRM传递过来的3个参数
ProfileID，
ClientInfo
，RightsID 。
三。在您处理完成用户验证或者确认支付后，调用
getLicenseRemote函数获取许可证。
总之，您只需调用 getLicenseRemote函数，并提供几个参数，然后DRM许可证服务将会给您返回许可证值。
Media-DRM许可证服务需要以下参数:
AdminEmail. AdminEmail 是您登陆Media-DRM帐户的邮件地址。
WebServiceAuthStr. WebServiceAuthStr 是登录验证Media-DRM许可证服务验证码。您可以在Media-DRM帐户信息->网站集成参数中设置此验证码。
ProfileID. ProfileID 是许可证模版ID 或者编码器许可证模版ID. Media-DRM 提供此参数
ClientInfo. ClientInfo 客户端基本信息. Media-DRM 提供此参数
RightsID RightsID 是您在Media-DRM帐户创建的权限ID. 您可以在Media-DRM帐户许可证权限列表中找到权限ID。
UserLoginName UserLoginName 是您用户数据库中的用户名或者是用户ID，UserLoginName必须是在您的数据库是唯一的。
UserFullName UserFullName 是您用户数据库中的用户姓名。这个参数是选项。你可以留空，或者将它的值设置为N/A。
GroupID GroupID是您在Media-DRM帐户创建的用户组ID. 您可以在Media-DRM帐户用户组列表中找到用户组ID。
Message Message 是Media-DRM 许可证服务返回的许可证消息信息。
当您在代码中调用getLicenseRemote，并且提供正确的参数，它将给您返回许可证值。
下面是详细的步骤：
第一步：由于需要调用XML网络服务，在您的服务器或者开发测试环境中首先需要安装微软SOAP SDK。您可以从微软网站上或者这里下载：
第二步：创建一个DRM登录页面或则是您现在的登陆页面，来接收获取许可证时Media DRM传递给你页面的参数，命名为drmlogin.asp：
session("ProfileID") = Request.Form("profileid")
session("clientinfo") = Request.Form("clientinfo")
response.Write( session("ProfileID") & "
" )
response.Write( ""&session("clientinfo") & "
" )
%>]]>
然后在您处理完成用户验证或者确认支付后，调用getLicenseRemote函数获取许可证。最后发送许可证的页面名称必须是licstore.asp
Response.Write("
非法登陆!")
Response.End()
End If
Dim AdminEmail,WebServiceAuthStr,ProfileID,clientinfo,rightsID,UserLoginName,UserFullName, GroupID, Message,IP, LicenseValue
AdminEmail = "sample@163.com"
WebServiceAuthStr = "sample"
ProfileID =
session("ProfileID")
clientinfo = session("clientinfo")
rightsID = 385 '
UserLoginName =session("username")
UserFullName = "test"
GroupID = 297
IP = "192.168.1.103"
Response.Write
getLicenseRemote(AdminEmail, WebServiceAuthStr, ProfileID, clientinfo,
rightsID, UserLoginName, UserFullName, GroupID, Message, IP)
Function
getLicenseRemote(AdminEmail, WebServiceAuthStr, ProfileID, clientinfo,
rightsID, UserLoginName, UserFullName, GroupID, Message, IP)
Dim soapClient
Set soapClient = Server.CreateObject("MSSOAP.SoapClient30")
soapClient.ClientProperty("ServerHTTPRequest") = True
soapClient.mssoapinit "http://cn.media-drm.com/haihaisoftlicenseservice.asmx?wsdl"
getLicense = soapClient.getLicenseRemote(AdminEmail, WebServiceAuthStr,
ProfileID, clientinfo, rightsID, UserLoginName, UserFullName, GroupID,
Message, IP)
session("License")=getLicense
session("Message")=Message
response.Write(getLicense & "
" & Message)
End Function
response.Write(ProfileID)
%>]]>
<% =
session("Message")
%>