脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 关于站长 → 常用工具 →

风讯全系列算号器asp程序

 更新时间：2007年03月04日 00:00:00   作者：  
把现在的代码拷贝下去,保存为ZC.ASP文件放到网站根目录下再访问就可以了

大家试试看,这是我在别的地方看到的.
因为我手上也没有风讯的程序. 

复制代码 代码如下:

<%@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>风讯全系列序列号生成器~~~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("请输入完整的25位序列号! 
如不想输入, 请按生成键!");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> 
</head> 
<body> 
<p> </p> 
<p> </p> 
<div align="center">风讯全系列序列号生成器</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>使用说明:</strong></td> 
</tr> 
<tr> 
<td>本序列号生成器必须在安装前运行.序列号可以任意输入或按生成序列号,安装时再输入此序列号即可.对应风讯任何商业版本.</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%">序列号:</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="生成序列号"  /> 
<input type="submit" name="Submit" value="保存序列号" /> 
</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;">序列号已成功生成并改写!请复制下面的序列号备用.</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="复制序列号"  /> 
</td> 
</tr> 
</table> 
</form> 
<%  
Set conn=Nothing 
Set rs=Nothing 
End Sub 
%> 
</body> 
</html>

相关文章

最新评论