Kolla om Användarnamn finns?

Online_doMedlem sedan mars 2001136 inlägg

Frågan6 apr. 2001 17:03#1

Hej
Har ett formulär och så har jag ett js-script som kollar så att alla fälten är ifyllda.
Nu har jag bara ett problem. Hur gör mans så att det kollar ifall användarnamnet är ledigt och inte upptaget. Om det i så fall är upptaget ska det komma upp en js-prompt och säga till att det inte är ledigt.
Jag trodde först det skulle vara js men eftersom den måste kolla i databasen och sådant. Det måste vara asp för att beskaren inte ska kunna se vara databasen finns. Sen måste man väl ha ett js-script inbakat i asp scriptet (ska gå).
Jag fick ett script men jag vet värken hur det fungerar eller var man ska lägga det.
-----------------------------
<%
strConn = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databasen.mdb")
strSQL = "SELECT user_id FROM tabellen WHERE user_id='"& Request.Form("user_id") &"'"
Set rsFoo = Server.CreateObject("ADODB.RecordSet")
rsFoo.Open strSQL, strConn
If rsFoo.BOF = -1 AND rsFoo.EOF = -1 Then
Response.Write("Namnet är ledigt!")
Else
Response.Write("Namnet är upptaget!")
End If
rsFoo.Close: Set rsFoo = Nothing
%>
----------------------------------
Scriptet verkar funka men var ska jag lägga det och hur gör jag för att när man trycker på ok knappen och användarnamnet är upptaget så ska det komma upp en popup.

Puhh! Det var mycket. Hoppas ni förstår. Annars får ni fråga

------------------
What is he doing?...

RossifumiMedlem sedan okt. 20001 558 inlägg

6 apr. 2001 18:19#2

Sorry, läste inte frågan riktigt :r

[Redigerat av Rossifumi den 06 apr 2001]

aleborgMedlem sedan jan. 20013 341 inlägg

6 apr. 2001 20:05#3

Det är ganska enkelt faktiskt.
Sidan som tar emot informationen från formuläret ska ha en sats som öppnar databasen och kollar efter användarnamnet . Om det inte finns så fortsätter koden och lägger in den nya användaren i databasen

<%
SQL="SELECT Username From Users WHERE Username= '"& Request.Form("Username") &"'"
set rst=conn.execute(SQL)
if not rst.eof then
response.write "Användarnamnet är upptaget!"
Else
kod för att lägga in i databasen
%>

Lägger du den här koden i head och byter ut "Användarnamnet är upptaget!"
till ett js-script som sätter igång på "onload så får du önskat resultat:

<%
SQL="SELECT Username From Users WHERE Username= '"& Request.Form("Username") &"'"
set rst=conn.execute(SQL)
if not rst.eof then
%>
<script language="JavaScript">
<!--
function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
<% Else %>
kod för lägga in ny användare i databasen
<% End If %>
</head>

<body bgcolor="#FFFFFF" text="#000000" onLoad="MM_popupMsg('Upptaget')">

Online_doMedlem sedan mars 2001136 inlägg

7 apr. 2001 17:45#4

Hej igen...
Var ska jag lägga de?
Den filen som sköter allt kan du få se:
---------------------------------------------
reg.asp
---------------------------------------------

<HTML><HEAD>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type><LINK
href="css/style7.css" rel=stylesheet>
<STYLE>BODY { BACKGROUND-COLOR: lightblue } </STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\databasen.mdb"

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

<% '============================= %>
<% ' Skapa användare %>
<% '============================= %>

<% If Request.QueryString("alt") = "createuser" Then %>
<p align="center" style="margin-bottom: -15"><b><font face="Verdana" size="5">Registrering för ett nytt
konto hos MciDonkan</font></b></p>
<p align="center" style="margin-bottom: -1"><font face="Verdana" size="2"><a href="default.asp">Tillbaka</a></font></p>
<hr noshade size="0" color="#000000" width="75%">
<script type="text/javascript">
function validateForm(){
if (document.f.namn.value==""){
alert("Du heter väl något?");
return false;
} else if (document.f.email.value.indexOf("@") == -1){
alert("Alla har en e-post nu förtiden. Annars är det dags att du skaffar det.");
return false;
} else if (document.f.arh.value==""){
alert("Fylla i 19 och sedan det år. T.ex. om du är född 87 så ska du skriva 1987.");
return false;
} else if (document.f.manad.value==""){
alert("Du måste fylla i vilken månad du är född i.");
return false;
} else if (document.f.stad.value==""){
alert("I vilken stad eller by bor du?");
return false;
} else if (document.f.dag.value==""){
alert("Du måste fylla i vilken dag du är född på.");
return false;
} else if (document.f.username.value==""){
alert("Du måste ha ett användarnamn!");
return false;
} else if (document.f.password.value==""){
alert("Du måste ha ett lösenord.");
return false;
} else if (!document.f.access.checked) {
alert("Du måste fylla i kryssrutan så att du kan bli medlem.");
return false;
} else {
alert("Yippie! Nu ska vi se om du kan bli medlem. :)");
return true;
}
}
</script>
<form name="f" onSubmit="return validateForm()" method="POST" action="reg.asp?alt=create">
<div align="center">
<table border="1" width="545" height="272" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="185" height="1" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Namn (Efternamn frivilligt):
      \</p\>

</td>
<td width="344" height="1" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Kön:
      \</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

<select size="1" name="kon">
<option>..:: Välj här ::..</option>
<option>Tjej</option>
<option>Kille</option>
<option>Kvinna</option>
<option>Man</option>
</select>

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Ålder:
      \</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="14" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Bor
      (stad):
      \</p\>

</td>
<td width="344" height="14" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Landskap:\</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

<select size="1" name="landskap">
<option>..:: Välj här ::..</option>
<option>Blekinge</option>
<option>Bohuslän</option>
<option>Dalarna</option>
<option>Dalsland</option>
<option>Gotland</option>
<option>Gästrikland</option>
<option>Halland</option>
<option>Hälsingland</option>
<option>Härjedalen</option>
<option>Jämtland</option>
<option>Lappland</option>
<option>Medelpad</option>
<option>Norrbotten</option>
<option>Närke</option>
<option>Skåne</option>
<option>Småland</option>
<option>Södermanland</option>
<option>Uppland</option>
<option>Värmland</option>
<option>Västerbotten</option>
<option>Västergötland</option>
<option>Västmanland</option>
<option>Ångermanland</option>
<option>Öland</option>
<option>Östergötland</option>
</select>

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Jag har/är 
      (Ögonfärg, Hårfärg, Längd) \</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

<select size="1" name="ogon">
<option>Gröna</option>
<option>Blåa</option>
<option>Bruna</option>
<option>Svarta</option>
<option>Blågröna</option>
<option>Oranga</option>
<option>Vet inte</option>
<option>Annan Färg</option>
</select> <select size="1" name="har">
<option>Blond</option>
<option>Svart</option>
<option>Brun</option>
<option>Melerade</option>
<option>Färgat</option>
<option>Vadå färg?</option>
<option>Gul/Vit (ej blond)</option>
<option>Annan Färg</option>
</select> <select size="1" name="langd">
<option><130</option>
<option><135</option>
<option><140</option>
<option>140></option>
<option>145></option>
<option>150></option>
<option>155></option>
<option>160></option>
<option>165></option>
<option>170></option>
</select>

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Har du handlat på Internet:\</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Vad har du
      för Internet:\</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

<select size="1" name="modem">
<option>Modem - 14.4 - 56 v.90</option>
<option>ISDN 1/2 Kanal</option>
<option>ADSL</option>
<option>Com Hem</option>
<option>Satelit/Parabol</option>
<option>Kabel/Bredband</option>
<option>Radio</option>
</select>

</td>
</tr>
<tr>
<td width="185" height="20" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p style="margin-left: 2; margin-right: 2"\>Icq Nummer (lämna denna
      tom ifall du inte har något):

</td>
<td width="344" height="20" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="-2" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p style="margin-left: 2; margin-right: 2"\>Vilka Spel spelar du helst:

</td>
<td width="344" height="-2" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

<select size="1" name="spel">
<option>..:: Välj här ::..</option>
<option>Bil/Motor</option>
<option>Strategi</option>
<option>Action/Döda & Skjuta</option>
<option>Kunskapsspel</option>
<option>Sport</option>
<option>Blandat</option>
<option>Annat</option>
</select>

</td>
</tr>
<tr>
<td width="185" height="16" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2; margin-bottom: -15"\>Berätta lite om dig:\</p\>
      \<p align="left" style="margin-left: 2; margin-right: 2; margin-bottom: -15"\>(Här
      berättar du lite om dig som inte finns där uppe. T.ex. du kan skriva
      ifall du har någon annan e-mail också eller hur du är som person
      och lite sådant) \</p\>
      \<p align="left" style="margin-left: 2; margin-right: 2; margin-bottom: -15"\> \</p\>

</td>
<td width="344" height="16" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Användarnamn:
      \</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<p align="left" style="margin-left: 2; margin-right: 2"\>Lösenord: \</p\>

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      \<input type="password" name="password" size="15" onblur="this.style.backgroundColor='';" onfocus="this.style.backgroundColor='#CCCCCC';"\>

</td>
</tr>
<tr>
<td width="185" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

      E-post:

</td>
<td width="344" height="12" valign="top" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">

</td>
</tr>
<tr>
<td width="545" height="62" valign="middle" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8" colspan="2">

      \<p align="center" style="margin: 5"\> \</p\>
      \<hr noshade size="0" color="#000000" width="75%"\>

      \<p align="center" style="margin: 5"\> \<input type="radio" value="B" checked name="Access"\> 
      Jag accepterar reglerna och
      vill bli medlem. Läs reglerna\</p\>
      \<p align="center" style="margin: 5"\>\<input type="reset" value="Neej! Jag vill börja om" name="B2"\>
      \<input type="submit" value="Yippi! Jag vill bli medlem" name="B1"\>\</p\>

</td>
</tr>
</table>
</div>
</form>

<% ElseIf Request.QueryString("alt") = "create" Then %>
<div align="center">
<center>
<table border="1" width="594" height="28" bordercolorlight="#B0D8E8" bordercolordark="#B0D8E8">
<tr>
<td width="594" height="28" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#B0D8E8">
<p style="margin-left: 5; margin-right: 5; margin-bottom: -15" align="center"> </p>
<p style="margin-left: 5; margin-right: 5; margin-bottom: -15" align="center"><b><font size="5" face="Verdana" color="#000000">Grattis!
<img border="0" src="IMAGES/SBILDER/ikon_svamp.gif"></font></b></p>
<p style="margin-left: 5; margin-right: 5"><b><font face="Arial" size="2">Välkommen
som medlem till MciDonkan. Gå till startsidan och logga in. STARTSIDAN</font></b></p>
<p> </td>
</tr>
</table>
</center>
</div>
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("email") = Request.Form("email")
RecSet("Access") = Request.Form("access")
RecSet("namn") = Request.Form("namn")
RecSet("arh") = Request.Form("arh")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("landskap") = Request.Form("landskap")
RecSet("stad") = Request.Form("stad")
RecSet("kon") = Request.Form("kon")
RecSet("spel") = Request.Form("spel")
RecSet("om") = Request.Form("om")
RecSet("ogon") = Request.Form("ogon")
RecSet("har") = Request.Form("har")
RecSet("langd") = Request.Form("langd")
RecSet("hpi") = Request.Form("hpi")
RecSet("modem") = Request.Form("modem")
RecSet("icq") = Request.Form("icq")

RecSet.Update %\>

\<p\>

<% RecSet.Close
End If %>

</BODY></HTML>
---------------------------
Som du ser så har jag allt på en sida. Är det problem?. Vad menar du med
'kod för att lägga in användare'?

------------------
What is he doing?...

[Redigerat av Online_do den 07 apr 2001]