My Little Scripts - mysql-login.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...

Index News Samples Downloads E-Mail me Forum Sign Up

MYSQL-LOGIN.ASP

Make ASP generated web content available only to you! This is the ASP version of mysql-login.php. I have added an extra parameter, specifying the database to log into.

mysql-login.php is a modified version of login.php. By doing this, I got rid of some redundancy in my code, and made it more portable. I would have used this to replace login.php, but I would have been neglecting the cases where sites don't have access to a MySQL database.

<%
function isLogged(LogInPage, DataBaseName)
         Entered_UserName = Request.Cookies("UserName")
         Entered_PassWord = Request.Cookies("PassWord")

         isLogged = true

         set Connection = server.CreateObject("ADODB.Connection")

         on error resume next

         Connection.open DataBaseName, Entered_UserName, Entered_PassWord

         'I'm assuming that empty string user names and passwords are a no no.
         if Entered_UserName = "" or Entered_PassWord = "" or Err.number <> 0 then
           'LogInPage should be the name of an existing file
           'with alternative web content. If you don't wish to
           'provide such content, just pass the empty string.
           if LogInPage <> "" then
              set IncludeFile = CreateObject("Scripting.FileSystemObject")

              path = Request.ServerVariables("PATH_TRANSLATED")
              path = left(path, inStrRev(path, "\"))

              Set IncludeHTML = IncludeFile.OpenTextFile(path & LogInPage, 1)
              Response.Write(IncludeHTML.ReadAll)
              isLogged = false
              IncludeHTML.Close
           end if
         end if
end function
%>

<form name="login">
<table align="center" cellpadding="10" cellspacing="0" border="1">
<tr>
<td>User Name </td>
<td><input type="text" name="UserName" /></td>
</tr>

<tr>
<td>Password</td>
<td><input type="password" name="PassWord" /></td>
</tr>

<tr>
<td colspan="2" align="right">
<input type="button" value="log in"
       onclick="document.cookie = 'UserName=' + document.login.UserName.value;
                document.cookie = 'PassWord=' + document.login.PassWord.value;
                document.EmptyForm.submit();">
</td>
</tr>
</table>
</form>

<form name="EmptyForm" method="post">
</form>

see also :