欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

風(fēng)訊全系列算號器asp程序

 更新時間：2007年03月04日 00:00:00   作者：  
把現(xiàn)在的代碼拷貝下去,保存為ZC.ASP文件放到網(wǎng)站根目錄下再訪問就可以了

大家試試看,這是我在別的地方看到的.
因為我手上也沒有風(fēng)訊的程序. 

復(fù)制代碼 代碼如下:

<%@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>風(fēng)訊全系列序列號生成器~~~www.icqad.com精彩奉獻(xiàn)</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">風(fēng)訊全系列序列號生成器</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>本序列號生成器必須在安裝前運行.序列號可以任意輸入或按生成序列號,安裝時再輸入此序列號即可.對應(yīng)風(fēng)訊任何商業(yè)版本.</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;">序列號已成功生成并改寫!請復(fù)制下面的序列號備用.</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="復(fù)制序列號"  /> 
</td> 
</tr> 
</table> 
</form> 
<%  
Set conn=Nothing 
Set rs=Nothing 
End Sub 
%> 
</body> 
</html>

相關(guān)文章

最新評論