Copy the current code and save it as a ZC. ASP file to the root directory of the website.
Let's try. This is what I saw elsewhere.
Because I have no news program.
Copy codeThe Code is as follows: <% @ LANGUAGE = "VBSCRIPT" CODEPAGE = "936" %>
<! -- # Include file = "Inc/Cls_DB.asp" -->
<! -- # Include file = "Inc/Const. asp" -->
<! -- # Include file = "Inc/Md5.asp" -->
<! -- # Include file = "Inc/Enpas. asp" -->
<%
Set DBC = New DataBaseClass
Set Conn = DBC. OpenConnection ()
Set DBC = Nothing
%>
<! 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 http-equiv = "Content-Type" c/>
<Title> fengxun serial number generator series ~~~ Www.icqad.com </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.sn1. value. length <5 | document. form1.sn2. value. length <5 | document. form1.sn3. value. length <5 | document. form1.sn4. value. length <5 | document. form1.sn5. value. length <5 ){
Alert ("Enter the complete 25-bit serial number!
If you do not want to enter the key, press the generate key! "); Return false ;}}
Function generate (){
Document. form1.sn1. value = Math. floor (Math. random () * 99999 );
Document. form1.sn2. value = Math. floor (Math. random () * 99999 );
Document. form1.sn3. value = Math. floor (Math. random () * 99999 );
Document. form1.sn4. value = Math. floor (Math. random () * 99999 );
Document. form1.sn5. value = Math. floor (Math. random () * 99999 );}
Function copysn (){
Document. form2.sn. select ();
Js = document. form2.sn. createTextRange ();
Js.exe cCommand ("Copy ")
}
</Script>
</Head>
<Body>
<P> </p>
<P> </p>
<Div align = "center"> fengxun serial number generator </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> usage instructions: </strong> </td>
</Tr>
<Tr>
<Td> This serial number generator must be run before installation. Serial numbers can be input at Will or generated by serial number. You can enter this serial number during installation. corresponding to any commercial version of fengxun. </td>
</Tr>
</Table>
<Br/>
<Form name = "form1" id = "form1" method = "post" action = "zc. asp? 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" id = "sn1" size = "4" maxlength = "5" value = ""/>
<Input name = "sn2" type = "text" id = "sn2" size = "4" maxlength = "5" value = ""/>
<Input name = "sn3" type = "text" id = "sn3" size = "4" maxlength = "5" value = ""/>
<Input name = "sn4" type = "text" id = "sn4" size = "4" maxlength = "5" value = ""/>
<Input name = "sn5" type = "text" id = "sn5" size = "4" maxlength = "5" value = ""/>
<Input name = "random" type = "button" id = "random" 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 = Request. Form ("sn1 ")
Sn2 = Request. Form ("sn2 ")
Sn3 = Request. Form ("sn3 ")
Sn4 = Request. Form ("sn4 ")
Sn5 = Request. Form ("sn5 ")
Code = sn1 & "-" & sn2 & "-" & sn3 & "-" & sn4 & "-" & sn5
Encode = EnPas (sn1 & "-" & sn2 & "-" & sn3 & "-" & sn4 & "-" & sn5)
Set rs = Server. CreateObject ("Adodb. Recordset ")
Sqlstr = "select top 1 * FROM Config"
Rs. Open sqlstr, conn, 1, 3
Rs ("Sitelock") = encode
Rs. Update
%>
<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 is successfully generated and rewritten! Copy the following serial number for 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>
