Avatar billede want2learn Nybegynder
24. december 2003 - 23:16 Der er 32 kommentarer og
1 løsning

fejl i indtastning eller findes allerede

GLÆDELIG JUL !!!  :)

Jeg har lavet et script til at oprette nye brugerer med.

Når en bruger har indtastede nogle ting så klikker denne opret og så vil han blive oprette medmindre han har glemt at udfylde noget !!

Jeg har dog 2 ting jeg også vil have tjekke og hvis dette findes så skal den melde fejl som den gør nu ved bare ikke hvordan jeg gør det !!

1. Hvis det indtastede Brugernavn findes, så skal flg fejl skrives "Det vælgte Brugernavn er taget".

2. Hvis der oprettes en bruger og der findes en anden bruger med den samme IP, så skal flg fejl skrives "Der er oprettet én bruger med denne IP, brug en anden PC".

Brugernavn hedder UserNick i min DB og IP er UserIP i min DB og min code er flg.

<!--#include file="include/easytags.asp"-->
<!--#include file="include/conndb.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#ffffff">
<script language="JavaScript">
function Validator(theForm){
fejl.innerHTML="";
var error = 0;
var mailEr = 0;
if (theForm.email.value =="" || theForm.email.value.indexOf("@") == -1)
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Der skal oplyses en korrekt mailadresse.";
    if(!error) { theForm.email.focus(); }
    error = 1;
    mailEr = 1;
}

mailOrd = new Array();
mailOrd[0]="fuck";
mailOrd[1]="test";
mailOrd[2]="skrid";
mailOrd[3]="nej";

for(i = 0; mailOrd[i]; i++) {
if(!mailEr) {
if (theForm.email.value =="" || theForm.email.value.indexOf(mailOrd[i]) > -1)
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Der skal oplyses en korrekt mailadresse.";
    if(!error) { theForm.email.focus(); }
    error = 1;
    mailEr = 1;
}
}
}


if (theForm.fnavn.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Fornavn mangler";
    theForm.fnavn.focus();
    error = 1;
}


if (theForm.enavn.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Efternavn mangler";
    theForm.enavn.focus();
    error = 1;
}


if (theForm.adr.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Adresse mangler";
    theForm.adr.focus();
    error = 1;
}


if (theForm.by.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Bynavn mangler";
    theForm.by.focus();
    error = 1;
}


if (theForm.postal.value =="" || theForm.postal.value=="1234" || theForm.postal.value=="0000" || theForm.postal.value.length > 4 || theForm.postal.value=="9999")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Post Nr. mangler";
    theForm.postal.focus();
    error = 1;
}
if(error) {
return false;
}
}
</script>
<div id="fejl" style="color:red;font-family:tahoma;font-size:10px"></div>
        <table width="250" border=1 cellpadding="0" cellspacing="0" bordercolor="#000000">
        <tr>
        <td bgcolor="#000000" align="center"><font color="#FFFFFF"><b>.:Login:.</b></font></td>
        </tr>
        <tr>
        <td>
        <form method="POST" onsubmit='return Validator(this)' action="opretuser.asp">
          <table width="100%"  border="0">
              <tr>
                <td width="40%" valign="top">
                  <br style="font-size: 4px">&nbsp;&nbsp;Brugernavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 19px">&nbsp;&nbsp;Password:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 17px">&nbsp;&nbsp;E-Mail:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 17px">&nbsp;&nbsp;Fornavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Efternavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Adresse:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;By:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Post Nr.:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;IP Adresse:<br>
                </td>
                <td width="60%" valign="top">
                <input name="username" size="28" maxlength="10" style="text-align: center;">
                <br><input type="password" name="password" size="28" maxlength="20" style="text-align: center;" onfocus="if(this.value=='Password')this.value='';" value="Password" onblur="if(this.value=='')this.value='Password';">
                <br><input name="email" size="28" style="text-align: center;">
                <br><input name="fnavn" size="28" style="text-align: center;">
                <br><input name="enavn" size="28" style="text-align: center;">
                <br><input name="adr" size="28" style="text-align: center;">
                <br><input name="by" size="28" style="text-align: center;">
                <br><input name="postal" size="28" maxlength="4" style="text-align: center;">
                <br style="font-size: 15px"><%=request.servervariables("remote_addr")%><input type="hidden" name="ip" value=<%=request.servervariables("remote_addr")%>><input type="hidden" name="univ" value="user"><input type="hidden" name="ustat" value="aktiv">
                </td>
              </tr>
            </table>
              <div align="right">
                <br><input type="submit" name="subop" class="Button" value="Opret" align="middle">&nbsp;&nbsp;
                </div>
        </form>
        </td>
        </tr>
      </table>
   
</BODY>
</HTML>
<%

if request.form ("subop") <>"" then

Dim AA, BB, CC, DD, EE, FF, GG, HH, II, KK, rsOpret

Function OpretUpdate()

AA = Request.Form("username")
BB = Request.Form("password")
CC = Request.Form("email")
DD = Request.Form("fnavn")
EE = Request.Form("enavn")
FF = Request.Form("adr")
GG = Request.Form("by")
HH = Request.Form("postal")
II = Request.Form("ip")
JJ = Request.Form("univ")
KK = Request.Form("ustat")

Set rsOpret = Server.CreateObject("ADODB.Recordset")
rsOpret.open "userdatabase", conn, 3, 3
rsOpret.AddNew
rsOpret("UserNick") = AA
rsOpret("UserFName") = DD
rsOpret("UserLName") = EE
rsOpret("UserMail") = CC
rsOpret("UserAdr") = FF
rsOpret("UserCity") = GG
rsOpret("UserPostal") = HH
rsOpret("UserPassword") = BB
rsOpret("UserNiveau") = JJ
rsOpret("UserIP") = II
rsOpret("UserStat") = KK


rsOpret.Update

rsOpret.close
set rsOpret = nothing

End Function

OpretUpdate()

conn.close
set conn = nothing
Response.Redirect("login.asp")
end if

%>



Nogle der vil gøre så den også kan melde de 2 andre fejl.
Avatar billede eagleeye Praktikant
25. december 2003 - 01:02 #1
Angående det med IP så det en rigtig dårlig ide efter min mening hvis det er noget som skal ligge på nettet som alle skal havde adgang til fordi:
1. Folk med modem skifter IP hver gang de logger på nettet.
2. Folk i en stor virksomhed vil alle hvade samme IP pga. firewall/gateway.

Men der er ikke noget problem i at tage det med og det er med i denne kode så.





<!--#include file="include/easytags.asp"-->
<!--#include file="include/conndb.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#ffffff">
<script language="JavaScript">
function Validator(theForm){
fejl.innerHTML="";
var error = 0;
var mailEr = 0;
if (theForm.email.value =="" || theForm.email.value.indexOf("@") == -1)
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Der skal oplyses en korrekt mailadresse.";
    if(!error) { theForm.email.focus(); }
    error = 1;
    mailEr = 1;
}

mailOrd = new Array();
mailOrd[0]="fuck";
mailOrd[1]="test";
mailOrd[2]="skrid";
mailOrd[3]="nej";

for(i = 0; mailOrd[i]; i++) {
if(!mailEr) {
if (theForm.email.value =="" || theForm.email.value.indexOf(mailOrd[i]) > -1)
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Der skal oplyses en korrekt mailadresse.";
    if(!error) { theForm.email.focus(); }
    error = 1;
    mailEr = 1;
}
}
}


if (theForm.fnavn.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Fornavn mangler";
    theForm.fnavn.focus();
    error = 1;
}


if (theForm.enavn.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Efternavn mangler";
    theForm.enavn.focus();
    error = 1;
}


if (theForm.adr.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Adresse mangler";
    theForm.adr.focus();
    error = 1;
}


if (theForm.by.value =="")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Bynavn mangler";
    theForm.by.focus();
    error = 1;
}


if (theForm.postal.value =="" || theForm.postal.value=="1234" || theForm.postal.value=="0000" || theForm.postal.value.length > 4 || theForm.postal.value=="9999")
{
    if(error) { fejl.innerHTML+="<br>"; }
    fejl.innerHTML+="- Post Nr. mangler";
    theForm.postal.focus();
    error = 1;
}
if(error) {
return false;
}
}
</script>
<div id="fejl" style="color:red;font-family:tahoma;font-size:10px"></div>
        <table width="250" border=1 cellpadding="0" cellspacing="0" bordercolor="#000000">
        <tr>
        <td bgcolor="#000000" align="center"><font color="#FFFFFF"><b>.:Login:.</b></font></td>
        </tr>
        <tr>
        <td>
        <form method="POST" onsubmit='return Validator(this)' action="opretuser.asp">
          <table width="100%"  border="0">
              <tr>
                <td width="40%" valign="top">
                  <br style="font-size: 4px">&nbsp;&nbsp;Brugernavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 19px">&nbsp;&nbsp;Password:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 17px">&nbsp;&nbsp;E-Mail:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 17px">&nbsp;&nbsp;Fornavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Efternavn:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Adresse:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;By:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;Post Nr.:<font color="#FF0000" size="1" face="Tahoma">*</font><br>
                  <br style="font-size: 18px">&nbsp;&nbsp;IP Adresse:<br>
                </td>
                <td width="60%" valign="top">
                <input name="username" size="28" maxlength="10" style="text-align: center;">
                <br><input type="password" name="password" size="28" maxlength="20" style="text-align: center;" onfocus="if(this.value=='Password')this.value='';" value="Password" onblur="if(this.value=='')this.value='Password';">
                <br><input name="email" size="28" style="text-align: center;">
                <br><input name="fnavn" size="28" style="text-align: center;">
                <br><input name="enavn" size="28" style="text-align: center;">
                <br><input name="adr" size="28" style="text-align: center;">
                <br><input name="by" size="28" style="text-align: center;">
                <br><input name="postal" size="28" maxlength="4" style="text-align: center;">
                <br style="font-size: 15px"><%=request.servervariables("remote_addr")%><input type="hidden" name="ip" value=<%=request.servervariables("remote_addr")%>><input type="hidden" name="univ" value="user"><input type="hidden" name="ustat" value="aktiv">
                </td>
              </tr>
            </table>
              <div align="right">
                <br><input type="submit" name="subop" class="Button" value="Opret" align="middle">&nbsp;&nbsp;
                </div>
        </form>
        </td>
        </tr>
      </table>
   
</BODY>
</HTML>
<%

if request.form ("subop") <>"" then

  Dim AA, BB, CC, DD, EE, FF, GG, HH, II, KK, rsOpret

  Function OpretUpdate()

  AA = Request.Form("username")
  BB = Request.Form("password")
  CC = Request.Form("email")
  DD = Request.Form("fnavn")
  EE = Request.Form("enavn")
  FF = Request.Form("adr")
  GG = Request.Form("by")
  HH = Request.Form("postal")
  II = Request.Form("ip")
  JJ = Request.Form("univ")
  KK = Request.Form("ustat")
 
  SQL = "SELECT * FROM userdatabase WHERE UserNick = '" & AA & "'"
  Set rs = Conn.Execute(SQL)
  fejl = ""
  if NOT rs.EOF then
    fejl = "Det vælgte Brugernavn er taget."
  end if
  SQL = "SELECT * FROM userdatabase WHERE UserIP = '" & II & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    fejl = "Der er oprettet én bruger med denne IP, brug en anden PC."
  end if

  if fejl = "" then
    Set rsOpret = Server.CreateObject("ADODB.Recordset")
    rsOpret.open "userdatabase", conn, 3, 3
    rsOpret.AddNew
    rsOpret("UserNick") = AA
    rsOpret("UserFName") = DD
    rsOpret("UserLName") = EE
    rsOpret("UserMail") = CC
    rsOpret("UserAdr") = FF
    rsOpret("UserCity") = GG
    rsOpret("UserPostal") = HH
    rsOpret("UserPassword") = BB
    rsOpret("UserNiveau") = JJ
    rsOpret("UserIP") = II
    rsOpret("UserStat") = KK

    rsOpret.Update
    rsOpret.close
    set rsOpret = nothing
  end if
  OpretUpdate = fejl

  End Function

  fejlkode = OpretUpdate()

  conn.close
  set conn = nothing

  if fejlkode = "" then
    Response.Redirect("login.asp")
  else
    Response.Write "<center>" & fejlkode & "</center>"
  end if
end if

%>
Avatar billede want2learn Nybegynder
25. december 2003 - 01:31 #2
Okay har lige prøvet det !!

og hvis jeg udfylder den korrekt med acceptable oplysninger og et bruger navn der findes i forvejen så opretter den bare brugeren !??

men hvis jeg laver en forkert eller uacceptabel email og et brugernavn der findes så kommer den med en fejl MEN kun omkring den forkerte email. !!

Hvad er fejlen !??
Avatar billede want2learn Nybegynder
25. december 2003 - 01:33 #3
og hvordan kan jeg trække den kommende brugers UserID ud så jeg kan bruge det i en JMAIL lige efter den er gemt da jeg skal bruge brugerens ID det som brugeren er gemt under !??
Avatar billede eagleeye Praktikant
25. december 2003 - 01:38 #4
Det forstår jeg ikke det skulle den ikke gøre..
Du får ikke en pop-up besked når man skriver navet at det er taget i forvejen det kan man først finde ud af når man trykke på "opret"/submit knappen.
Avatar billede want2learn Nybegynder
25. december 2003 - 01:42 #5
nej den går bare videre !!
Avatar billede eagleeye Praktikant
25. december 2003 - 01:43 #6
hvis du skriver et UserNick som findes i forvejen kommer du så til login siden?
Avatar billede want2learn Nybegynder
25. december 2003 - 01:45 #7
ja og når jeg kigger i db bagefter findes der 2 med samme nick
Avatar billede eagleeye Praktikant
25. december 2003 - 01:51 #8
hmm er du sikker på du har uploaded koden?
Det skulle altså ikke kunne lade sig gøre, med dette tjek:

  SQL = "SELECT * FROM userdatabase WHERE UserNick = '" & AA & "'"
  Set rs = Conn.Execute(SQL)
  fejl = ""
  if NOT rs.EOF then
    fejl = "Det vælgte Brugernavn er taget."
  end if
Avatar billede want2learn Nybegynder
25. december 2003 - 01:54 #9
jeg kan sende det til dig hvis det er det er 2 filer og en db !!
Avatar billede eagleeye Praktikant
25. december 2003 - 01:57 #10
Jeg har lige prøvet koden på min PC og det virker som det skal, den skriver at brugernavnet findes...
Avatar billede want2learn Nybegynder
25. december 2003 - 01:58 #11
er det fordi det ikke kan køre på en IIS !?
Avatar billede eagleeye Praktikant
25. december 2003 - 02:00 #12
Nej det virker fint på en iis, har den gemt filen?
Prøv i IE at trykke på reload af siden eller Ctrl-F5 / Alt-F5
Avatar billede want2learn Nybegynder
25. december 2003 - 02:04 #13
ja havde kaldt filen TEST.asp og det var den jo ikke i Form Action !! he he ;)

men er det muligt at få den til at skrive fejlene det samme sted og ikek 2 forskellige steder !??
Avatar billede want2learn Nybegynder
25. december 2003 - 02:05 #14
jeg har jo denne linje

<div id="fejl" style="color:red;font-family:tahoma;font-size:10px"></div>

hvor den skriver de andre fejl kunne den også skrive dine 2 i denne code !??
Avatar billede eagleeye Praktikant
25. december 2003 - 02:08 #15
Ja så flytte du bare alt dette kode:


<%

if request.form ("subop") <>"" then

  Dim AA, BB, CC, DD, EE, FF, GG, HH, II, KK, rsOpret

  Function OpretUpdate()

  AA = Request.Form("username")
  BB = Request.Form("password")
  CC = Request.Form("email")
  DD = Request.Form("fnavn")
  EE = Request.Form("enavn")
  FF = Request.Form("adr")
  GG = Request.Form("by")
  HH = Request.Form("postal")
  II = Request.Form("ip")
  JJ = Request.Form("univ")
  KK = Request.Form("ustat")
 
  SQL = "SELECT * FROM userdatabase WHERE UserNick = '" & AA & "'"
  Set rs = Conn.Execute(SQL)
  fejl = ""
  if NOT rs.EOF then
    fejl = "Det vælgte Brugernavn er taget."
  end if
  SQL = "SELECT * FROM userdatabase WHERE UserIP = '" & II & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    fejl = "Der er oprettet én bruger med denne IP, brug en anden PC."
  end if

  if fejl = "" then
    Set rsOpret = Server.CreateObject("ADODB.Recordset")
    rsOpret.open "userdatabase", conn, 3, 3
    rsOpret.AddNew
    rsOpret("UserNick") = AA
    rsOpret("UserFName") = DD
    rsOpret("UserLName") = EE
    rsOpret("UserMail") = CC
    rsOpret("UserAdr") = FF
    rsOpret("UserCity") = GG
    rsOpret("UserPostal") = HH
    rsOpret("UserPassword") = BB
    rsOpret("UserNiveau") = JJ
    rsOpret("UserIP") = II
    rsOpret("UserStat") = KK

    rsOpret.Update
    rsOpret.close
    set rsOpret = nothing
  end if
  OpretUpdate = fejl

  End Function

  fejlkode = OpretUpdate()

  conn.close
  set conn = nothing

  if fejlkode = "" then
    Response.Redirect("login.asp")
  else
    Response.Write "<center>" & fejlkode & "</center>"
  end if
end if

%>



Ind imllem de to <div> tags:
<div id="fejl" style="color:red;font-family:tahoma;font-size:10px">
<%
'Indsæt koden her
%>
</div>
Avatar billede want2learn Nybegynder
25. december 2003 - 02:14 #16
ja okay næsten ok !!

har du prøvet at lade vær med at udfylde fornavn og efternavn evt skrevet test@test.dk i mail !??

så kan du se den viser alle 3 fejl på én gang !!

kan vi gøre så den også viser brugernavn fejl og ip !??

den viser nemlig kun de 3 fejl til at starte på til jeg har rette dem og når jeg så klikker opret så viser den fejlen med ip men ikke med brugernavn som jo også er en fejl da det findes !!
og så sletter den hele formen så man kan starte helt forfra !!

Kunne du gøre så den gør det samme med de 2 sidste fejl som med de 3 omtalte fejl !??
Avatar billede eagleeye Praktikant
25. december 2003 - 02:21 #17
Jo så prøv at rette koden til dette:




<%
if request.form ("subop") <>"" then

  Dim AA, BB, CC, DD, EE, FF, GG, HH, II, KK, rsOpret

  Function OpretUpdate()

  AA = Request.Form("username")
  BB = Request.Form("password")
  CC = Request.Form("email")
  DD = Request.Form("fnavn")
  EE = Request.Form("enavn")
  FF = Request.Form("adr")
  GG = Request.Form("by")
  HH = Request.Form("postal")
  II = Request.Form("ip")
  JJ = Request.Form("univ")
  KK = Request.Form("ustat")
 
  SQL = "SELECT * FROM userdatabase WHERE UserNick = '" & AA & "'"
  Set rs = Conn.Execute(SQL)
  fejl = ""
  if NOT rs.EOF then
    fejl = fejl & "<br>- Det vælgte Brugernavn er taget."
  end if
  SQL = "SELECT * FROM userdatabase WHERE UserIP = '" & II & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    fejl = fejl & "<br>- Der er oprettet én bruger med denne IP, brug en anden PC."
  end if

  if fejl = "" then
    Set rsOpret = Server.CreateObject("ADODB.Recordset")
    rsOpret.open "userdatabase", conn, 3, 3
    rsOpret.AddNew
    rsOpret("UserNick") = AA
    rsOpret("UserFName") = DD
    rsOpret("UserLName") = EE
    rsOpret("UserMail") = CC
    rsOpret("UserAdr") = FF
    rsOpret("UserCity") = GG
    rsOpret("UserPostal") = HH
    rsOpret("UserPassword") = BB
    rsOpret("UserNiveau") = JJ
    rsOpret("UserIP") = II
    rsOpret("UserStat") = KK

    rsOpret.Update
    rsOpret.close
    set rsOpret = nothing
  end if
  OpretUpdate = fejl

  End Function

  fejlkode = OpretUpdate()

  conn.close
  set conn = nothing

  if fejlkode = "" then
    Response.Redirect("login.asp")
  else
    Response.Write  fejlkode
  end if
end if
%>



for at data kommer ind på formen igen ska du rette dine input felter så de default får en value eksvis email:
<br><input name="email" size="28" style="text-align: center;">

Skal rettes til:
<br><input name="email" size="28" style="text-align: center;" value="<%=CC%>">

Det skal så være en tilsvarne variable for de andre.
Avatar billede want2learn Nybegynder
25. december 2003 - 02:25 #18
okay ip og brugernavn fejl kan ikke vises samtidigt med email fejl og de andre fejl eller !??

eller vises disse fejl først og derefter kommer den med brugernavn og ip adresse !??
Avatar billede eagleeye Praktikant
25. december 2003 - 02:28 #19
Som skrevet før kan de 2 fejl først vises når man har send formen så den tjekker med databasen, de andre fejl kommer før formen sendes, der med kan de ikke umiddelbart vises på samme tid.

Hvis du vil det skal du havde lavet et array men brugernavn og et array med IP adresser som javascript validateren løber igennem på samme måde som eksvis email adressen tjekkes.
Avatar billede want2learn Nybegynder
25. december 2003 - 02:33 #20
okay

når nu den nye bruger er gemt hvordan laver jeg så en request på denne brugers ID hvis jeg nå sender den oprettede bruger efter gemning til SEND.asp og her er en JMAIL form som rettes til med denne brugers ID og sendes og først her sendes brugeren til login.asp når denne lille mellem side er blevet afviklet !??
Avatar billede want2learn Nybegynder
25. december 2003 - 02:34 #21
og hvordan laver jeg de 2 dele om til det der javascript når den skal tjekke i en db !??

lægger lige flere P på !!
Avatar billede eagleeye Praktikant
25. december 2003 - 02:37 #22
Det med id kan gøres sådan her:
man kan få ID efter rsOpret.update er kaldt:



<%
if request.form ("subop") <>"" then

  Dim AA, BB, CC, DD, EE, FF, GG, HH, II, KK, rsOpret

  Function OpretUpdate()

  AA = Request.Form("username")
  BB = Request.Form("password")
  CC = Request.Form("email")
  DD = Request.Form("fnavn")
  EE = Request.Form("enavn")
  FF = Request.Form("adr")
  GG = Request.Form("by")
  HH = Request.Form("postal")
  II = Request.Form("ip")
  JJ = Request.Form("univ")
  KK = Request.Form("ustat")
 
  SQL = "SELECT * FROM userdatabase WHERE UserNick = '" & AA & "'"
  Set rs = Conn.Execute(SQL)
  fejl = ""
  if NOT rs.EOF then
    fejl = fejl & "<br>- Det vælgte Brugernavn er taget."
  end if
  rs.Close
  SQL = "SELECT * FROM userdatabase WHERE UserIP = '" & II & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    fejl = fejl & "<br>- Der er oprettet én bruger med denne IP, brug en anden PC."
  end if
  rs.Close
 
  if fejl = "" then
    Set rsOpret = Server.CreateObject("ADODB.Recordset")
     
    rsOpret.open "userdatabase", conn, 3, 3
    rsOpret.AddNew
    rsOpret("UserNick") = AA
    rsOpret("UserFName") = DD
    rsOpret("UserLName") = EE
    rsOpret("UserMail") = CC
    rsOpret("UserAdr") = FF
    rsOpret("UserCity") = GG
    rsOpret("UserPostal") = HH
    rsOpret("UserPassword") = BB
    rsOpret("UserNiveau") = JJ
    rsOpret("UserIP") = II
    rsOpret("UserStat") = KK

    rsOpret.Update
    fejl = rsOpret("UserID")
   
    rsOpret.close
    set rsOpret = nothing
  end if
  OpretUpdate = fejl

  End Function

  fejlkode = OpretUpdate()
  UserID = ""
  if isNumeric(fejlkode) then
    UserID = fejlkode
    fejlkode = ""
  end if

  conn.close
  set conn = nothing

  'Send mail
  if UserID <> "" then
    Response.Redirect("send.asp?userid=" & userID)
  end if
 
  if fejlkode = "" then
    Response.Redirect("login.asp)
  else
    Response.Write  fejlkode
  end if
end if
%>
Avatar billede eagleeye Praktikant
25. december 2003 - 02:40 #23
Det med javascriptet bliver i javascript kategorien hvor de kan hjælpe med det.

I mine ønje er det en rigtig dålig ide for det er totalt let for en som ved hvordan kan skal komme og se hvilke IP adresse og brugernavn du har i din database. Da man bare skal højre klikke og vælge view source.
Derud over kan du afligevel ikke undvære det andet tjek eller har du en chance for flere ens brugernavne.
Avatar billede want2learn Nybegynder
25. december 2003 - 02:40 #24
I dette stykke

'Send mail
  if UserID <> "" then
    Response.Redirect("send.asp?userid=" & userID)
  end if
 
  if fejlkode = "" then
    Response.Redirect("login.asp)
  else
    Response.Write  fejlkode
  end if
end if

Det kan godt lade sige gøre at både sende userid til send.asp og sende brugeren videre til login.asp på én gang eller !??
Avatar billede want2learn Nybegynder
25. december 2003 - 02:41 #25
okay til dit indlæg kl 024004
Avatar billede eagleeye Praktikant
25. december 2003 - 02:41 #26
Nej. Så skal du bruge Server.Execute men den kan ikke tage en QueryStirng så skal du gemme userID i session..


'Send mail
  if UserID <> "" then
    Session("userid") = userID
    Server.Execute("send.asp")
  end if
 
  if fejlkode = "" then
    Response.Redirect("login.asp")
  else
    Response.Write  fejlkode
  end if
end if
Avatar billede want2learn Nybegynder
25. december 2003 - 02:46 #27
kan jeg ikek bare lave din tidligere code om til dette:

'Send mail
  if UserID <> "" then
    Response.Redirect("send.asp?userid=" & userID)
  end if
end if

så sendes brugeren gemmen send.asp på 1 sek. og redirect til login.asp når send.asp er blevet kørt hvilket brugeren ikke burde lægge mærke til at denne overhovedet er sendt ind på send.asp eller vil du foreslå det eks du viste sidst med execute !??
Avatar billede want2learn Nybegynder
25. december 2003 - 02:48 #28
når nej så kontrollerer den da ikke for fejl !! eller gør den !??
Avatar billede eagleeye Praktikant
25. december 2003 - 02:49 #29
Begge vil virke, du kan godt lave det med redirect sådan den redirecter fra send.asp til login.asp

men koden skal lige se sådan her ud:


  if fejlkode = "" then
    Response.Redirect("send.asp?userid=" & userID)
  else
    Response.Write  fejlkode
  end if
end if


Så den stadig udskriver fejlen hvis der er en fejl.
Avatar billede eagleeye Praktikant
25. december 2003 - 02:54 #30
Så det slut for i nat for mig, for jeg smutter i seng nu. Godnat og sov godt når du kommer til det ;)
Avatar billede want2learn Nybegynder
25. december 2003 - 03:32 #31
jeg siger tak det virker jo :)
Avatar billede want2learn Nybegynder
25. december 2003 - 04:33 #32
lige en hurtig ting !!

Hvordan laver jeg en redirct til login.asp i dette lille script !??


<!-- #include file="profilmail.asp" -->
<%

  Call ConfirmMail("XXXXXX@XXX.dk", "email")

%>
Avatar billede eagleeye Praktikant
25. december 2003 - 11:41 #33
<!-- #include file="profilmail.asp" -->
<%

  Call ConfirmMail("XXXXXX@XXX.dk", "email")
 
  Response.Redirect("login.asp")

%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester