Copy the code now, save it as a zc.asp file and put it in the root of the Web site and then visit it.
Let's have a try, this is what I see elsewhere.
Because I do not have the process of hearing the wind.
<% @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 ">
<meta http-equiv= "Content-type" C/>
<title> full series serial number generator ~~~www.icqad.com 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.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 ("Please enter the full 25-bit serial number!")
If you do not want to enter, 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.execcommand ("Copy")
}
</script>
<body>
<p> </p>
<p> </p>
<div align= "Center" > Full series 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> Use Instructions:</strong></td>
</tr>
<tr>
<td> This serial number generator must be run before installation. Serial number can be entered arbitrarily or by generating serial number, then enter this serial number when installing. Corresponding to any commercial version of the Wind .</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;" > Serial number has been successfully generated and rewritten! Please copy the following serial number standby .</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= "value=" <%=code%> "/>"
<input type= "button" Name= "Submit2" value= "copy serial number"/>
</td>
</tr>
</table>
</form>
<%
Set conn=nothing
Set rs=nothing
End Sub
%>
</body>
