風(fēng)訊全系列算號(hào)器asp程序
更新時(shí)間：2007年03月04日 00:00:00 作者：
把現(xiàn)在的代碼拷貝下去,保存為ZC.ASP文件放到網(wǎng)站根目錄下再訪問就可以了
大家試試看,這是我在別的地方看到的.
因?yàn)槲沂稚弦矝]有風(fēng)訊的程序.
<%@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)訊全系列序列號(hào)生成器~~~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("請(qǐng)輸入完整的25位序列號(hào)!
如不想輸入, 請(qǐng)按生成鍵!");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)訊全系列序列號(hào)生成器</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>本序列號(hào)生成器必須在安裝前運(yùn)行.序列號(hào)可以任意輸入或按生成序列號(hào),安裝時(shí)再輸入此序列號(hào)即可.對(duì)應(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%">序列號(hào):</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="生成序列號(hào)" />
<input type="submit" name="Submit" value="保存序列號(hào)" />
</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;">序列號(hào)已成功生成并改寫!請(qǐng)復(fù)制下面的序列號(hào)備用.</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ù)制序列號(hào)" />
</td>
</tr>
</table>
</form>
<%
Set conn=Nothing
Set rs=Nothing
End Sub
%>
</body>
</html>
大家試試看,這是我在別的地方看到的.
因?yàn)槲沂稚弦矝]有風(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)訊全系列序列號(hào)生成器~~~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("請(qǐng)輸入完整的25位序列號(hào)!
如不想輸入, 請(qǐng)按生成鍵!");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)訊全系列序列號(hào)生成器</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>本序列號(hào)生成器必須在安裝前運(yùn)行.序列號(hào)可以任意輸入或按生成序列號(hào),安裝時(shí)再輸入此序列號(hào)即可.對(duì)應(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%">序列號(hào):</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="生成序列號(hào)" />
<input type="submit" name="Submit" value="保存序列號(hào)" />
</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;">序列號(hào)已成功生成并改寫!請(qǐng)復(fù)制下面的序列號(hào)備用.</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ù)制序列號(hào)" />
</td>
</tr>
</table>
</form>
<%
Set conn=Nothing
Set rs=Nothing
End Sub
%>
</body>
</html>
相關(guān)文章
國產(chǎn)截圖新秀 EPSnap v2.1.0.1550 下載
國產(chǎn)截圖新秀 EPSnap v2.1.0.1550 下載...2007-03-03
深度 Ghost XP 八分鐘快速裝機(jī)版 V5.0 下載地址
深度 Ghost XP 八分鐘快速裝機(jī)版 V5.0 下載地址...2007-10-10
系統(tǒng)優(yōu)化和設(shè)置軟件MagicTweak v3.40 簡(jiǎn)體中文版附注冊(cè)機(jī)下載
系統(tǒng)優(yōu)化和設(shè)置軟件MagicTweak v3.40 簡(jiǎn)體中文版附注冊(cè)機(jī)下載...2007-05-05
Windows Server 2007四月CTP發(fā)布 下載
Windows Server 2007四月CTP發(fā)布 下載...2007-04-04
IE7的使用更為簡(jiǎn)單有價(jià)值的軟件IE7Pro v0.9.15.1 beta 多國語言版 下載
IE7的使用更為簡(jiǎn)單有價(jià)值的軟件IE7Pro v0.9.15.1 beta 多國語言版 下載...2007-05-05
瑞星文件粉碎器綠色簡(jiǎn)體中文特別版 下載...2007-05-05
Microsoft Windows Server Code Name"Longhorn"Beta 3
Microsoft Windows Server Code Name"Longhorn"Beta 3 正式發(fā)布! 下載...2007-04-04
Transformation 能將 Windows XP/Server 2003 操作系統(tǒng)，完美地模擬成 Windows
Transformation 能將 Windows XP/Server 2003 操作系統(tǒng)，完美地模擬成 Windows Vista 的軟件...2007-12-12
最新版的火狐(FireFox) V3.0 Alpha 9 簡(jiǎn)體中文版提供下載了
最新版的火狐(FireFox) V3.0 Alpha 9 簡(jiǎn)體中文版提供下載了...2007-10-10
MSDE2000官方下載地址及安裝方法...2007-11-11