📄 admin_license.asp
字号:
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="admin_common.asp" -->
<!--#include file="functions/functions_common.asp" -->
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums(TM)
'** http://www.webwizforums.com
'**
'** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the license with this work then a copy of the latest
'** license contract can be found at:-
'**
'** http://www.webwizguide.com/license
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwizguide.com
'**
'** Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************
'*************************** SOFTWARE AND CODE MODIFICATIONS ****************************
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************
'Set the response buffer to true
Response.Buffer = True
'If in demo mode redirect
If blnDemoMode Then
Call closeDatabase()
Response.Redirect("admin_web_wiz_forums_premium.asp" & strQsSID1)
End If
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Dim objXMLHTTP, objXmlDoc
Dim strLiName, strLiEM, strLiURL, strXCode, strDataStream, strFID, strFID2
Dim strErrorMsg
Dim intResponseCode
strErrorMsg = ""
strFID = decodeString(strCodeField)
strFID2 = decodeString(strCodeField2)
strSQL = "SELECT " & strDbTable & "Configuration.* From " & strDbTable & "Configuration WHERE " & strDbTable & "Configuration.ID = 1;"
With rsCommon
.Open strSQL, adoCon,2,3
If Request.Form("postBack") Then
strLiName = Request.Form("liname")
strLiEM = Request.Form("email")
strLiURL = LCase(Trim(Request.Form("URL")))
strXCode = UCase(Trim(Replace(Request.Form("code"), "'", "", 1, -1, 1)))
'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
objXMLHTTP.Open "POST", "http://license.webwizguide.com/", False
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send("PC=FE043CBC-4D5A-4F6D-8DE4-F8B8AB0ED433&URL=" & strLiURL & "&KEY=" & strXCode & "&IP=" & Request.ServerVariables("LOCAL_ADDR"))
If Err.Number <> 0 Then strErrorMsg = "Error Connecting to License Server. <br /><br />If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open."
If NOT objXMLHTTP.Status = 200 Then
strErrorMsg = "Error Connecting to License Server. <br /><br />Server Response: " & objXMLHTTP.Status & " - " & objXMLHTTP.statusText & "<br /><br />If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open."
On Error goto 0
Set objXMLHTTP = Nothing
Else
strDataStream = objXMLHTTP.ResponseText
On Error goto 0
Set objXMLHTTP = Nothing
'Read in XML
Set objXmlDoc = CreateObject("Msxml2.FreeThreadedDOMDocument")
objXmlDoc.Async = False
objXmlDoc.LoadXML(strDataStream)
If objXmlDoc.parseError.errorCode <> 0 Then
strErrorMsg = "XML Parse Error: " & objXmlDoc.parseError.reason & "<br /><br />If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open."
Else
intResponseCode = CInt(objXmlDoc.childNodes(1).childNodes(0).text)
If intResponseCode = 200 Then
If objXmlDoc.childNodes(1).childNodes(2).text = "EA7CB12C-0A9F-49A7-9CBF-35A003CB3AFF" Then
.Fields(strFID) = True
.Fields(strFID2) = False
.Fields("Install_ID") = objXmlDoc.childNodes(1).childNodes(3).text
.Update
ElseIf objXmlDoc.childNodes(1).childNodes(2).text = "AFEE32DE-7351-4DE1-8F88-5D370C87DC10" Then
.Fields(strFID) = False
.Fields(strFID2) = False
.Fields("Install_ID") = objXmlDoc.childNodes(1).childNodes(3).text
.Update
End If
Else
If intResponseCode = 420 Then
strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text & _
"<br /><br />If you are having problems successfully applying your license key then please contact Web Wiz Support Team at <a href=""http://www.webwizguide.com/contact"" target=""_blank"">www.webwizguide.com/contact</a>" & _
"<br /><br /><strong>Lifetime License Key Holders</strong>" & _
"<br />If you have a Lifetime License from previous version of Web Wiz Forums please visit the <a href=""http://license.webwizguide.com/lifetime/"">Lifetime License Upgrade Website</a>."
ElseIf intResponseCode = 410 OR intResponseCode = 430 Then
strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text
Else
strErrorMsg = objXmlDoc.childNodes(1).childNodes(1).text & _
"<br /><br />Please contact Web Wiz Support Team at <a href=""http://www.webwizguide.com/contact"" target=""_blank"">www.webwizguide.com/contact</a>"
End If
End If
End If
Set objXmlDoc = Nothing
End If
.ReQuery
Application.Lock
Application(strAppPrefix & "strInstallID") = .Fields("Install_ID")
Application(strAppPrefix & "blnLCode") = CBool(.Fields(strFID))
Application(strAppPrefix & "blnACode") = CBool(.Fields(strFID2))
Application(strAppPrefix & "blnConfigurationSet") = false
Application.UnLock
End If
If NOT .EOF Then
blnLCode = CBool(.Fields(strFID))
blnACode = CBool(.Fields(strFID2))
strInstallID = .Fields("Install_ID")
End If
End With
rsCommon.Close
Call closeDatabase()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="copyright" content="Copyright (C) 2001-2008 Web Wiz" />
<title>Web Wiz Forums Premium Edition Upgrade</title>
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
<script language="JavaScript">
function submitForm() {
var errorMsg = "";
var errorMsgLong = "";
var formArea = document.getElementById('frmLinkCode');
if (formArea.liname.value ==''){
errorMsg += "\n\Name \t\t- Enter your regsitration name";
}
if (formArea.email.value ==''){
errorMsg += "\n\Email \t\t- Enter your regsitration email";
}
if (formArea.email.value.length > 0 && (formArea.email.value.indexOf("@",0) == -1||formArea.email.value.indexOf(".",0) == -1)) {
errorMsg +="\n\tEmail\t\t- Enter your valid email address";
}
if (formArea.URL.value ==''){
errorMsg += "\n\URL \t\t- Enter the exact regsitration URL";
}
if (formArea.code.value ==''){
errorMsg += "\n\License Key\t- Enter your exact license key";
}
if ((errorMsg != "") || (errorMsgLong != "")){
msg = "_______________________________________________________________\n\n";
msg += "The form has not been submitted because there are problem(s) with the form.\n";
msg += "Please correct the problem(s) and re-submit the form.\n";
msg += "_______________________________________________________________\n\n";
msg += "The following field(s) need to be corrected: -\n";
errorMsg += alert(msg + errorMsg + "\n" + errorMsgLong);
return false;
}
return true;
}
</script>
<!-- #include file="includes/admin_header_inc.asp" -->
<h1>Web Wiz Forums Premium Edition Upgrade </h1>
<a href="admin_menu.asp<% = strQsSID1 %>" target="_self">Return to the the Admin Control Panel Menu</a><br />
<br /><%
If strErrorMsg <> "" Then
%>
<table class="errorTable" cellspacing="1" cellpadding="3">
<tr>
<td align="left"><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong>Error</strong></td>
</tr>
<tr>
<td align="left"><strong>The Premium Edition License Key has not been applied</strong><br />
<br />
<% = strErrorMsg %>
</td>
</tr>
</table>
<br /><%
End If
If (blnLCode = False OR blnACode = False) AND strInstallID <> "" Then
%>
<table border="0" cellpadding="4" cellspacing="1" bordercolor="#000000" class="tableBorder">
<tr>
<td align="left" class="tableLedger">Congratulations</td>
</tr>
<tr>
<td class="tableRow"><span class="lgText">Congratulations, your Premium Edition License has been applied.</span><span class="text"><br />
<br />
Thank-you for supporting Web Wiz. </span></td>
</tr>
</table>
<br /><%
End If
%>
<table border="0" cellpadding="4" cellspacing="1" bordercolor="#000000" class="tableBorder">
<tr>
<td align="left" class="tableLedger">Web Wiz Forums Premium Edition </td>
</tr>
<tr>
<td class="tableRow"><span class="text">As part of the free License for Web Wiz Forums Express Edition you are not permitted to modify the software and are required to leave Advertising, Branding, Limitations, and Software Copyright Notices, in place.<br />
<br />
Licensing options for Web Wiz Forums Premium Edition allow you to modify the software, remove
adverts, unlock features and limitations, and remove the 'Web Wiz' branding from the software. <br />
<br />
Upon entering a Premium Edition </span>license using the form below, once verified and accepted, will automatically unlock the Premium Edition Tools and Features, it will also automatically remove any adverts, limitations, and if a brand free license is purchase, any 'Web Wiz' branding from the software. <br />
<br />
<a href="http://www.webwizforums.com">More information on purchasing a Web Wiz Forums Premium Edition License.</a></td>
</tr>
</table>
<br />
<table border="0" cellpadding="4" cellspacing="1" bordercolor="#000000" class="tableBorder">
<tr>
<td align="left" class="tableLedger">Web Wiz Forums Premium Edition Server Check </td>
</tr>
<tr>
<td class="tableRow"><span class="text">Web Wiz Forums Premium Edition requires that you are using a supported web host. Please use the button below to check that the web server you are using and your web host meet the requirements for running the Premium Edition.<br />
<br />
</span>
<form id="frmTestSvr" name="frmTestSvr" method="post" action="admin_server_test.asp<% = strQsSID1 %>">
<span class="text">
<input name="testSvr" type="submit" id="testSvr" value="Premium Edition Requirments Test" />
</span>
</form>
</td>
</tr>
</table>
<br />
<br /><%
If intResponseCode <> 200 Then
%>
<form method="post" name="frmLinkCode" id="frmLinkCode" action="admin_license.asp<% = strQsSID1 %>" onSubmit="return submitForm();">
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr>
<td colspan="2" class="tableLedger">Web Wiz Forums Premium Edition License Key </td>
</tr>
<tr>
<td align="right" class="tableRow">Registration Name:</td>
<td class="tableRow"><input name="liname" type="text" id="liname" size="35" maxlength="50" value="<% = strLiName %>" /></td>
</tr>
<tr>
<td align="right" class="tableRow">Registration Email:</td>
<td class="tableRow"><input name="email" type="text" id="email" size="35" maxlength="50" value="<% = strLiEM %>" /></td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow">Registration URL:</td>
<td valign="top" class="tableRow"><input name="URL" type="text" id="URL" size="35" maxlength="100" value="<% = strLiURL %>" />
<br />
<span class="smText">This needs to be the exact URL you registered in your Web Wiz Client Area for the license key being used.</span></td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow">License Key: </td>
<td class="tableRow"><input type="text" name="code" size="70" maxlength="70" value="<% = strXCode %>" />
<br />
<span class="smText">This needs to be exactly the same license key as in your Web Wiz Client Area.</span></td>
</tr>
<tr>
<td width="23%" align="right" class="tableRow"><input type="hidden" name="postBack" id="postBack" value="true" /><input type="hidden" name="svrReponse" id="svrReponse" value="" /> </td>
<td width="77%" class="tableRow"><input type="submit" name="Submit" id="Submit" value="Submit Form" />
<input type="reset" name="Reset" value="Reset Form" /> </td>
</tr>
</table>
</form><%
End If
%>
<br />
<br />
<!-- #include file="includes/admin_footer_inc.asp" --><%
If intResponseCode = 200 Then
Response.Write("<script language=""JavaScript"">")
Response.Write("alert('Congratulations, your Premium Edition License has been applied.\n\nThank-you for supporting Web Wiz.')")
Response.Write("</script>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -