Login system

Her er der en :-)

<%
connectionString =     "Driver={mySQL ODBC 3.51 Driver};" & _
                    "Server=localhost;" & _
                    "Port=3306;" & _
                    "Option=131072;" & _
                    "Stmt=;" & _
                    "Database=dindatabase;" & _ ' skal du skrive navnet på din db
                    "Uid=brugernavn;" & _ ' brugernavn her
                    "Pwd=password" ' password her

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connectionString

if request ("mode") = "login" then
  'Opretter forbindelse til databasen


  'ændre input
  Login = Trim(Replace(Request.Form("bruger"),"'","''" ))
  Password = Trim(Replace(Request.Form("pass"),"'","''" ))
  'Opbygger Sql-sætningen
  'du skal ændre din_tabel, til hvad din tabel hedder, og du skal ændre kolonne navnene, medmindre de hedder bruger og kodeord :-)
  rsSQL = "SELECT * FROM din_tabel where bruger = '" & login & "' and kodeord = '" & Password & "'"

  'hvis brugeren var i databasen
  set rs = Conn.execute(rsSQL)
  If Not (rs.BOF Or rs.Eof) Then
    session("login") = True
    Response.redirect "default.asp" ' her er siden den skal vise når log er ok
  Else
    ' Hvis brugeren ikke var i databasen
    Response.redirect "ikkeok.asp" ' her er siden den skal vise når det ikke er ok
  End If

  ' Lukker forbindelse til databasen
  Conn.Close
  Set Conn = Nothing

End if
%>


<table width="430" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="97" valign="top"><form action="log.asp" method="post" target="_self">
    <table width="44%" border="0" align="center">
      <tr>
        <td>Dom&aelig;ne:</td>
        <td><input name="bruger" type="text" id="bruger" value=""></td>
      </tr>
      <tr>
        <td>Password:</td>
        <td><input name="pass" type="password" id="pass" value=""></td>
      </tr>
    </table>
    <div align="center">
      <input type="hidden" Name="Mode" Value="login">
      <input type="submit" name="Submit" value="Log ind::">
    </div>
    </form>
    <div align="center"></div>
    </td>
  </tr>
</table>

Tak for det, jeg får en Sun ONE ASP VBScript compilation (0x800A03F2) fejl -  line 8, column 1 ???

Kan du skære det lidt mere ud i PAP eller er det bare mig?

Brandmanden

Hej Brandman, jeg har fundet et par stykker som du frit kan downloade!
http://www.script.dk/search.jsp?area=sourcecode&query=login

Der er både asp, php og java

Ser alt sammen meget fint ud, gode sidder. Kan ikke rigtig finde noget system som benytter MySql som database... ???

faa du stadig fejl