Aegis Support Board: Aegis Auto Registration Page - Aegis Support Board

Jump to content

ASB News! ASB 5.0 Beta V2 has now been released!. See here for more Info.

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Aegis Auto Registration Page it works right

#1 User is offline   kg4hpz 

  • Average Member
  • PipPipPipPip
  • Group: Members
  • Posts: 168
  • Joined: 20-January 04

Posted 03 April 2004 - 02:23 AM

ok...i've (my webmaster skrunk) has been getting hounded for his working registeration page. people coming to the channel, sending us email, you probably know the routine so i talked skrunk into posting it and here it is with his comments

[skrunk]

ok some really quick stuff. 1st you either have to install it on a web host that runs ASP or you have to install IIS and ASP.Net on your personal webserver.

once you do that just modify the IP to your character database IP and the rest should take care of itself.

btw...you'll need to replace the images i used to something you want, comment them out by inclosing them in <!--- --->, or simply removing them. you will also need to change the name of the server to your server.

now i didn't write the original version. i have no clue who did. i went through and fixed a bunch of stuff that was broken. improved some of the code. cut out a bunch of crap that wasn't needed.

VERY IMPORTANT!!!!! <-----don't screw with the weird language stuff. it is set up exactly the way it is needed.

some use notes : i haven't tested this with any other server model but aegis. i know 100% that it workes with aegis...if you want to see it in action go to crazyRO and test it. if you are just testing it call your account name "testandsomethingelse" so we know which accounts to kill. obviously this is designed to match our site so make whatever changes you need to match your website

Also improved the section that hard codes account names that aren't allowed and tried to include directions on what does what that is important.

if you see it enclosed by this <!--- ---> it's safe to delete

and where it says this str1="PUT YOUR IP HERE" that is where your suppose to put your ip

well now for the code

Quote

<center>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Accout Registration</title>

</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" scroll=auto>
<font color="#999999"></font>
<div align="center" style="width: 405; height: 579">
<%
if Request.Form("aspon")="on" then
namex=ltrim(Request.Form("Name"))
passx=ltrim(Request.Form("password"))
Rpassx=ltrim(Request.Form("Rpassword"))
emailx=ltrim(Request.Form("Email"))
ID2=ltrim(Request.Form("ID"))
if ltrim(Request.Form("name"))="" or ltrim(Request.Form("ID"))="" or ltrim(Request.Form("password"))="" then
response.write "<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>Please Fill out Requirment Field<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
elseif inStr(emailx,"@") < 2 or inStr(emailx,".") < 4 or len(emailx) < 5 Then
response.write(" <BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>Please Put in the Right Email Address<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>")
response.end
elseif len (passx) <4 then
response.write "<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>Your Password is less than 4 character<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
elseif passx<>Rpassx then
response.write "<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>Please retype your password Retype Password Don't Match Try Again<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
elseif len (ID2) <4 then
response.write "<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>Your Username is Less than 4 Characters<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
elseif LCase(ltrim(Request.Form("ID")))="sergm" or LCase(ltrim(Request.Form("ID")))="kjje" or LCase(ltrim(Request.Form("ID")))="gametest2" or LCase(ltrim(Request.Form("ID")))="ijoong78" or LCase(ltrim(Request.Form("ID")))="gametest3" or LCase(ltrim(Request.Form("ID")))="gametest4" or LCase(ltrim(Request.Form("ID")))="gametest5" or LCase(ltrim(Request.Form("ID")))="joong78" or LCase(ltrim(Request.Form("ID")))="grosuck" or LCase(ltrim(Request.Form("ID")))="sysgm" or LCase(ltrim(Request.Form("ID")))="jacon"<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>You Can't Use This Name<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
else
end if
'Ragnarok registration from asp
' Programs By tung
' Program fixes by SkrunkTheFlogger
' Program cleaning by SkrunkTheFlogger
' Basically making it work the correct way by SkrunkTheFlogger
' Contact SkrunkTheFlogger #crazyro@irc.esper.net
' http://www.w3tech.net and http://www.w3tech.net/crazyro
'ASP 3.0 /Mssql Server 2000 / iis5.0
' »ÃѺáµè§¤èÒ Config
'ËÁÒÂàÅ¢ IP ¢Í§ Databsse
str1="PUT YOUR IP HERE"
'---------------------------------------------------->
'Database name / login / password
str2="nLogin"' ª×èÍ Database
str3="login"'    login
str4="tai"'          Password
'---------------------------------------------------->
' àÃÔèÁµÔ´µèÍ°Ò¹¢éÍÁÙÅ
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PROVIDER=SQLOLEDB; DATA SOURCE="&str1&"; INITIAL CATALOG="&str2&"; User ID="&str3&"; Password="&str4&";"
' µÃǨÊͺ·íÒ Auto ID àÁ×è;º ID ãËÁèãËé +1 àÅ¢ ID µèÍæä»
SQL="Select AID from login Order by AID Desc"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 3
if Rs.RecordCount=0 then
id=1
else
id=Rs("AID") + 1
end if
rs.close
' µÃǨÊͺ¶éÒ Email ÁÕÍÂÙèáÅéÇäÁè ÍѾഷ°Ò¹¢éÍÁÙÅ
SQL="Select * from account where Email like '" &Request.Form("Email")&"' "
Set Rs=Server.CreateObject("adodb.recordset")



' µÃǨÊͺ¶éÒ ID ÁÕÍÂÙèáÅéÇäÁè ÍѾഷ°Ò¹¢éÍÁÙÅ
SQL="Select * from login where ID like '" &Request.Form("ID")&"' "
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open SQL,Conn,1,3
if not Rs.Eof then
response.write "<BR><BR><BR><img src='1_m_smith.png'><BR><BR><B>login &nbsp;"&ID2&" &nbsp;is already being used<BR>Please try another login name<BR>Thanks<BR><BR><input type=" & chr(34) & "button" & chr(34) & " value=" & chr(34) & "Go Back" & chr(34) & " Onclick='history.back();'>"
response.end
else
' à¾ÔèÁ°Ò¹¢éÍÁÙÅ login
Rs.AddNew
Rs("ID")=Request.Form("ID")
Rs("Passwd")=Request.Form("password")
Rs("grade")="1"
Rs("isConfirmed")="3"
Rs("regDate")=now
Rs.Update
rs.close
SQL="Select * from account"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 3
' à¾ÔèÁ°Ò¹¢éÍÁÙÅ account
Rs.AddNew
Rs("AID")=id
Rs("Name")=Request.Form("name")
Rs("Address")=Request.Form("Address")
Rs("Phone")=Request.Form("Phone")
Rs("HPhone")=Request.Form("HPhone")
Rs("RegNum")="1"
Rs("zipcode")=Request.Form("zipcode")
Rs("sex")=Request.Form("sex")
Rs("Email")=Request.Form("Email")
Rs("http")=Request.Form("http")
if Request.Form("News")="" then
Rs("News")="0"
else
Rs("News")="1"
end if
Rs("job")=Request.Form("Job")
Rs("hobby")=Request.Form("hobby")
Rs("game")=Request.Form("game")
Rs("comment")=Request.Form("comment")
Rs("nation")=""
'Rs("ip")=Request.ServerVariables("REMOTE_ADDR")
Rs("lasttime")=now
Rs.Update
rs.close
conn.close
set rs = nothing
set conn = nothing
response.write "<BR><BR><BR><img src='yoyorogue.gif'><img src='1_m_smith.png'><BR><BR><B>Thank you for your Registeration with crazyRO "&Request.Form("name")&"<BR> You can login as "&Request.Form("ID")&"<BR>Your Password is "&Request.Form("password")&"<BR>If you have Problem Contact us at #crazyro@irc.esper.net"
response.end
' ¨º¡ÒÃŧ·ÐàºÕ¹
end if
else
end if
%>
  <center>
  <table border="0" cellpadding="0" width="73%" height="81%">
    <tr>
      <td width="100%" height="100%">
        <table border="0" cellpadding="0" width="100%" bordercolor="#000000" cellspacing="0" height="235">
<tr>
            <td width="94%" height="233" valign="top">
<div align="center"> <center>
                <table border="0" cellpadding="0" width="99%" height="8" cellspacing="4">
                  <tr>
                    <td width="100%" colspan="2" height="18"><font face="MS Sans Serif" size="1">&nbsp;
                      Read TOS before you Register</font></td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" height="18"> <font face="MS Sans Serif" color="#FF9900">*
                      Requirement</font></td>
                  </tr><tr><form method="post" action="register.asp">
                  <input type="hidden" name="aspon" value="on"></tr>
                  <tr>
                    <td width="29%" height="25"><b><font color="#FF9900">Name
                      *</font></b></td>
                    <td width="104%" height="25"><b>
                      <input type="text" size="20" name="name">
                      <font color="#FF9900">First Name only</font></b></td>
                  </tr>
                  <tr>
                    <td width="29%" height="17"><b><font color="#FF9900">Sex *</font></b></td>
                    <td width="104%" height="17"><b>
                      <input type="radio" name="sex" value="1" checked>
                      </b><font color="#ffffff">Male <b>
                      <input type="radio" name="sex" value="2">
                      </b> Female</font></td>
                  </tr>
                  <tr>
                    <td width="29%" height="31">Address</td>
                    <td width="104%" height="31"><b>
                      <textarea rows="3" cols="32" name="Address"></textarea>
                      </b></td>
                  </tr>
                  <tr>
                    <td width="29%" height="25">ZipCode</td>
                    <td width="104%" height="25"><input type="text" size="20" name="zipcode"></td>
                  </tr>
                  <tr>
                    <td width="29%" height="25">Telephone</td>
                    <td width="104%" height="25"><input type="text" size="20" name="Phone"></td>
                  </tr>
                  <tr>
                    <td width="29%" height="25">Cell Phone</td>
                    <td width="104%" height="25"><input type="text" size="20" name="HPhone"></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16"><b><font color="#FF9900">Email
                      *</font></b></td>
                    <td width="104%" height="16"><input type="text" size="20" name="email"></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16">Work</td>
                    <td width="104%" height="16"><select size="1" name="Job" style="font-family: MS Sans Serif">
                        <option>Student K-12</option>
                        <option>Computer/Engineer</option>
                        <option>LAZY BUM</option>
                        <option>College Student</option>
                        <option>Other</option>
                        <option selected>Play Rag all DAy</option>
                      </select></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16">Hobby</td>
                    <td width="104%" height="16"><select size="1" name="hobby" style="font-family: MS Sans Serif">
                        <option>Playing Game</option>
                        <option>Programming</option>
                        <option>Collect Stuff</option>
                        <option>Using Pc</option>
                        <option>Listen to Mp3</option>
                        <option>Other</option>
                      </select></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16">What Kind of Game you Play</td>
                    <td width="104%" height="16"><select size="1" name="game" style="font-family: MS Sans Serif">
                        <option>RPG</option>
                        <option>Playstation</option>
                        <option>Playstation2</option>
                        <option>Xbox</option>
                        <option>Famicom</option>
                        <option>Game Boy</option>
                        <option>Other *Beep*</option>
                        <option>Online Games</option>
                      </select></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16">Homepage</td>
                    <td width="104%" height="16"><input type="text" size="26" name="http"></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16">NewsLetter </td>
                    <td width="104%" height="16"><input type="checkbox" value="1" name="news" checked></td>
                  </tr>
                  <tr>
                    <td width="29%" height="1"><font color="#FF9900"><b>Why you
                      want to play crazyRO?</b></font></td>
                    <td width="104%" height="1"><b>
                      <textarea rows="3" cols="32" name="comment"></textarea>
                      </b></td>
                  </tr></center></center>
                  <tr>
                    <td width="29%" height="16"> <p align="left"><b><font color="#FF9900">Username
                        *</font></b></td><center>
                    <td width="104%" height="16"><input type="text" size="16" name="ID">
                      <b> <font color="#FF9900">at Least 4 Characters (English)&nbsp;</font></b></td>
                  </tr>
                  <tr>
                    <td width="29%" height="16"><b><font color="#FF9900">Password
                      *</font></b></td>
                    <td width="104%" height="16"><input type="password" size="16" name="password">
                      <font color="#FF9900"> <b>at Least 4 Characters</b></font></td>
                  </tr>
                  <tr>
                    <td width="29%" height="23"><b><font color="#FF9900">Re-Type&nbsp;
                      *</font></b></td>
                    <td width="104%" height="23"><input type="password" size="16" name="Rpassword">
                      <b> <font color="#FF9900">at Least 4 Characters</font></b></td>
                  </tr>
                  <tr>
                    <td width="29%" height="1"><font color="#000000">&nbsp;</font></td>
                    <td width="104%" height="1"> <input type="submit" value="Submit and Agree with TOS" style="font-size: 8pt; border-style: solid; border-width: 3; padding: 0">
                      &nbsp;&nbsp; <input type="reset" value="Reset" style="font-size: 8pt; border-style: solid; border-width: 3; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></td>
                  </tr>
                </table>
              </div></td>
          </tr>
        </table>
        </form>
      </td>
    </tr>
  </table>
</div>
</body>
<script language=JavaScript>
<!--

//Disable right mouse click Script
//By Maximus (maximus@nsimail.com) w/ mods by DynamicDrive
//For full source code, visit http://www.dynamicdrive.com

var message="NO touchie, please";

///////////////////////////////////
function clickIE4(){
if (event.button==2){
alert(message);
return false;
}
}

function clickNS4(e){
if (document.layers||document.getElementById&&!document.all){
if (e.which==2||e.which==3){
alert(message);
return false;
}
}
}

if (document.layers){
document.captureEvents(Event.MOUSEDOWN);
document.onmousedown=clickNS4;
}
else if (document.all&&!document.getElementById){
document.onmousedown=clickIE4;
}

document.oncontextmenu=new Function("alert(message);return false")

// -->
</script>
</html>
</center>

0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

1 User(s) are reading this topic
0 members, 1 guests, 0 anonymous users