풍신 전 시리즈 산호기 asp 프로그램

현재 코드를 복사해서 ZC로 저장합니다.ASP 파일을 웹 사이트 루트 디렉토리에 저장하고 액세스하면 됩니다.
여러분 해보세요. 이것은 제가 다른 곳에서 본 것입니다.
내 손에도 풍신 절차가 없으니까. 

 
  
  
  
  
  
  
  
  
  
  
  
Set DBC = New DataBaseClass  
  
Set Conn = DBC.OpenConnection()  
  
Set DBC = Nothing  
  
%>  
  
html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  
  
  
  
  
  
  
  
  
  
  
  
  <br>function checkform() {  
  <br>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) {  
  <br>alert("      25    !  
  <br>     ,      !");return false;}}  
  <br>function generate() {  
  <br>document.form1.sn1.value=Math.floor(Math.random()*99999);  
  <br>document.form1.sn2.value=Math.floor(Math.random()*99999);  
  <br>document.form1.sn3.value=Math.floor(Math.random()*99999);  
  <br>document.form1.sn4.value=Math.floor(Math.random()*99999);  
  <br>document.form1.sn5.value=Math.floor(Math.random()*99999);}  
  <br>function copysn() {  
  <br>document.form2.sn.select();   
  <br>js=document.form2.sn.createTextRange();   
  <br>js.execCommand("Copy")  
  <br>}  
  <br>  
  
  
  
  
  
 
  
  
 
  
  
           

  
  
Select Case Request("do")   
  
Case "gen"  
  
Call Generate()  
  
Case Else  
  
Call Wizard()  
  
End Select  
  
%>  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
    :
               .                ,            .          .
  
  

  
  
  
  
  
  
  
  
  
  
  
  
  
  
   :
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
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  
  
%>  
  
  
  
  
  
  
  
  
  
           !           .
  
  

  
  
  
  
  
  
  
  
  
  
  
  
" />  
  
  
  
  
  
  
  
Set conn=Nothing  
  
Set rs=Nothing  
  
End Sub  
  
%>