andvändarnamn i script

snekkorrMedlem sedan dec. 2000203 inlägg

25 jan. 2001 16:51#1

hur gör jag så att medlemar inte kan ha samma namn i mitt medlems script? nån som har en klurig?
så här ser koderna ut:

här skapas en ny medlem::

<html>
<body bgcolor="#2D4046" text="#009999" link="#009999" alink="#009999" vlink="#009999">
<title>Inloggning och användardatabas</title>
<center>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\applications\data\users.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset") %\>

<% 'skapa en ny andvändare %>

<% If Request.QueryString("alt") = "createuser" Then %>

\<font size="1" face="verdana, arial"\>

\<b\>Skapa ny användare\</b\>\<p\>

\<form method="POST" action="admin.asp?alt=create"\>

\<b\>Nytt användarnamn\</b\>\<br\>
\<input type="text" size="30" name="username" style="font-size: 8pt; font-family: verdana, arial"\>\<p\>

\<b\>Nytt lösenord\</b\>\<br\>
\<input type="password" size="30" name="password"  style="font-size: 8pt; font-family: verdana, arial"\>\<p\>
    \<input type="hidden" name="access" value="B"\>
\<b\>E-post\</b\>\<br\>
\<input type="text" size="30" name="e-post" style="font-size: 8pt; font-family: verdana, arial"\>\<p\>



\<input type="submit" value="regga medlem!" style="font-size: 8pt; font-family: verdana, arial""\>

\</form\>

\</font\>

<% ElseIf Request.QueryString("alt") = "create" Then %>

\<font size="1" face="verdana, arial"\>

<body bgcolor="#2D4046" text="#009999" link="#009999" alink="#009999" vlink="#009999">
<b>Ny användare skapad!</b><p>
</center>
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = Request.Form("access")
RecSet.Update %\>

\<p\>



\</font\>

<% RecSet.Close
End If %>

<% ' Lista användare %>

<% If Request.QueryString("alt") = "viewusers" Then %>

\<font size="1" face="verdana, arial"\>

\<b\>Listar användare!\</b\>\<p\>

<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

\<table border="0" cellpadding="0" cellspacing="0"\>

\<tr\>
\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Användare\</b\>\</font\>\</td\>
\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Lösenord\</b\>\</font\>\</td\>
\<td width="150"\>\<font size="1" face="verdana, arial"\>\<b\>E-post\</b\>\</font\>\</td\>
\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Behörighet\</b\>\</font\>\</td\>
\</tr\>

<% Do While Not RecSet.EOF %>

\<tr\>
\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Username") %\>\</font\>\</td\>
\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Password") %\>\</font\>\</td\>
\<td\>\<font size="1" face="verdana, arial"\>\<a href="mailto:\<% =RecSet("E-post") %\>"\>\<% =RecSet("E-post") %\>\</a\>\</font\>\</td\>
\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Access") %\>\</font\>\</td\>
\</tr\>

<% RecSet.MoveNext
Loop %>

\<p\>



\</font\>

<% RecSet.Close
End If %>

där jag har kommenterat lista andvändare... det är asså där man kollar vilka som e medlemar

------------------
asdo

elektronMedlem sedan dec. 200023 inlägg

25 jan. 2001 17:08#2

Du kan kan göra nått sånt här när ny användare skapas

<%
X = false
Do until X = True OR rec.EOF
if rec("username") = username Then
X = true
exit do
end if
rec.movenext
loop
%>

MvH -e-

emissionMedlem sedan dec. 19996 721 inlägg

25 jan. 2001 18:16#3

Men det är lite onödigt...

<% Visa = "SELECT * FROM users WHERE username='" & username & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
if recset.eof then
'användarnamnet är ledigt
else
'användarnamnet är upptaget
end if
%>

snekkorrMedlem sedan dec. 2000203 inlägg

25 jan. 2001 20:31#4

tackar så mycket

------------------
asdo