<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Cls_DB.asp" -->
<!--#include file="Inc/" -->
<!--#include file="Inc/" -->
<!--#include file="Inc/" -->
<%
Set DBC = New DataBaseClass
Set Conn = ()
Set DBC = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http:///TR/xhtml1/DTD/">
<html xmlns="http:///1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>Fengxun full series of serial number generators~~~ wonderful dedication</title>
<style type="text/css">
body,
input {
margin : 0;
padding : 0;
font-family : Tahoma;
font-size : 11px;
}
input { text-align : center; }
</style>
<script language="javascript">
function checkform() {
if (document.form1.<5 || document.form1.<5 || document.form1.<5 || document.form1.<5 || document.form1.<5) {
alert("Please enter the complete 25-digit serial number!
If you do not want to enter, please press the Generate key!");return false;}}
function generate() {
document.form1.=(()*99999);
document.form1.=(()*99999);
document.form1.=(()*99999);
document.form1.=(()*99999);
document.form1.=(()*99999);}
function copysn() {
document.();
js=document.();
("Copy")
}
</script>
</head>
<body>
<p> </p>
<p> </p>
<div align="center">Fengxun full series of serial number generators</div><br //
<%
Select Case Request("do")
Case "gen"
Call Generate()
Case Else
Call Wizard()
End Select
%>
<% Sub Wizard() %>
<table width="65%" border="0" cellpadding="0" cellpadding="0" align="center" style="word-wrap: break-word;">
<tr>
<td><strong>Instructions for use:</strong></td>
</tr>
<tr>
<td>This serial number generator must be run before installation. The serial number can be entered at will or as generated serial number, and then enter this serial number during installation. It corresponds to any commercial version of Fengxun.</td>
</tr>
</table>
<br />
<form name="form1" method="post" action="?do=gen" >
<table width="65%" border="0" align="center" cellpadding="2" cellspacing="2" style="border: 1px solid #000;">
<tr>
<td align="center" width="12%">Serial number:</td>
<td align="center" width="88%"><input name="sn1" type="text" size="4" maxlength="5" value="" />
<input name="sn2" type="text" size="4" maxlength="5" value="" />
<input name="sn3" type="text" size="4" maxlength="5" value="" />
<input name="sn4" type="text" size="4" maxlength="5" value="" />
<input name="sn5" type="text" size="4" maxlength="5" value="" />
<input name="random" type="button" value="generate serial number" //
<input type="submit" name="Submit" value="Save serial number" //
</td>
</tr>
</table>
</form>
<% End Sub %>
<%
Sub Generate()
Dim rsconn,sn1,sn2,sn3,sn4,sn5,encode,sqlstr
sn1=("sn1")
sn2=("sn2")
sn3=("sn3")
sn4=("sn4")
sn5=("sn5")
code=sn1&"-"&sn2&"-"&sn3&"-"&sn4&"-"&sn5
encode=EnPas(sn1&"-"&sn2&"-"&sn3&"-"&sn4&"-"&sn5)
Set rs=("")
sqlstr="SELECT TOP 1 * FROM Config"
sqlstr,conn,1,3
rs("Sitelock")=encode
%>
<table width="65%" border="0" cellpadding="0" cellpadding="0" align="center" style="word-wrap: break-word;">
<tr>
<td align="center" style="color:#0000FF;">The serial number has been successfully generated and rewritten! Please copy the following serial number to backup.</td>
</tr>
</table>
<br />
<form name="form2">
<table width="65%" border="0" align="center" cellpadding="2" cellspacing="2" style="border: 1px solid #000;">
<tr><td align="center">
<input name="sn" type="text" size="50" value="<%=code%>" />
<input type="button" name="Submit2" value="Copy Serial Number" //
</td>
</tr>
</table>
</form>
<%
Set conn=Nothing
Set rs=Nothing
End Sub
%>
</body>
</html>