Notifikationer

Markér alle som læst Log ud

izemate Nybegynder

13. oktober 2002 - 15:06 Der er 35 kommentarer og
1 løsning

opret bruger.

Er der en venlig sjæl der kan lave et system til mig?

System:

*Man skal kunne oprette en burger.
Som man så kan logge ind som.
*Hver bruger skal kunne komme til hver sin side!

hvis det er for lidt point så sig til.

//iZe^MaTe

Synes godt om

izemate Nybegynder

13. oktober 2002 - 15:06 #1

ups stor brøler. :D
man skal kunne oprette en bruger ikke burger :)

//iZe^MaTe

Synes godt om

mikael_c Nybegynder

13. oktober 2002 - 15:07 #2

lol :P

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 15:37 #3

Hvad mener du med hver sin side ????

Synes godt om

izemate Nybegynder

13. oktober 2002 - 15:41 #4

At når fx

bruger navn = Karen
Passe = kode

kommer ind på kare.asp
og når bent logger ind

brugernavn = bent-
pass = kode
kommer ind på bent.asp

selve indholdet på den side de logger ind på skal i ikke tænke på!
håber i forstår!

iZe^MaTe

Synes godt om

coolstar Nybegynder

13. oktober 2002 - 16:38 #5

ja det er jo en simpel opgave at lave. jeg vil bare ikke lave den for point herinde...

men det du mener med egen side er en slags profilside for hver bruger. der kan andre brugere læse info om den enkelte bruger - ik ?

Synes godt om

izemate Nybegynder

13. oktober 2002 - 16:44 #6

Ja du har fanget pointen :)

iskal bare sige til hvis det er forlidt point.

\\iZe^MaTe

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 17:17 #7

Jeg vil gerne lave den til dig, det bliver i to filer..

Synes godt om

izemate Nybegynder

13. oktober 2002 - 17:30 #8

når du mener 2 filer!
mener du så 1.asp og 1database?

Ellers lyder det jo godt :D

\\iZe^MaTe

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 17:32 #9

en login fil og en opret ny bruger fil. Jeg antager du selv har databasen.

Synes godt om

izemate Nybegynder

13. oktober 2002 - 17:52 #10

ja hvis du skriver hvad databasen skal indholde!
er ikke så mega god inde for det område :(

\\iZe^MaTe

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 21:38 #11

Ok.. Her er hvordan databsen skal se.. Jeg har haft uvendtet store problemmer med min egen maskine derfor får du ført noget nu :(

tabellen skal heddde: users
kolonner i tabellen...:
ID : autonummer
username : text
userpassword : text
email : text

Denne kode skal ligge i filen opret.asp:

<HTML>
<head></head>
<body>
<center>
<%
function fixString(strInput)
if len(strInput) > 0 then
outString = replace(strInput,"'","")
fixString = outString
else
fixString = strInput
end if
end function

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & Server.MapPath("db5.mdb")
Conn.Open strConn

brugernavn = fixString(Request.Form("username"))
password = fixString(Request.Form("password"))
email = fixString(Request.Form("email"))

err = 0 'Antager der ingen fejl er.
if len(brugernavn) = 0 then
err = 1
Response.Write "Ingen brugernavn angivet prøv igen.<br>"
end if
if len(password) = 0 then
err = 1
Response.Write "Ingen password angivet prøv igen.<br>"
end if
if InStr(email,"@") = 0 or InStr(email,".") = 0 or len(email) < 6 then
err = 1
Response.Write "Ingen email adresse angivet prøv igen.<br>"
end if

if err = 0 then
strSQL= "SELECT * FROM users WHERE username = '" & brugernavn & "' OR email = '" & email & "';"
Set rs = Conn.Execute (strSQL)

if (rs.EOF AND rs.BOF) then
'OPRET BRUGERTEET

strSQL = "INSERT INTO users (username, userpassword, email) "
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & brugernavn & "',"
strSQL = strSQL & "'" & password & "',"
strSQL = strSQL & "'" & email & "'"
strSQL = strSQL & ");"

'Response.Write strSQL
conn.execute(strSQL)

Response.Write "Du er nu oprettet som bruger."
else
Response.Write "Brugernavnet er taget eller der er en bruger med samme email adresse, prøv et andet."
end if
end if 'Err = 0

rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
else
%>
<center>
<p>Velkommen til:</p><br>
Her har du mulighed for at bliver oprette som bruger.<br><br>
<table border="1">
<form method="post" action="opret.asp" name="newmember">
<tr><td colspan="2">Jeg vil gerne oprettes som bruger.</td>
<tr><td>Brugernavn</td><td><input type="text" name="username"></td></tr>
<tr><td>Password:</td><td><input type="password" name="password"></td></tr>
<tr><td>Email:</td><td><input type="text" name="email"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Tilmeld" name="Action"></td></tr>
</form>
</table>
</center>

<%
end if
%>
</center>
</body>
</HTML>

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 21:43 #12

Her er koden som skal ligge i login.asp filen:

<html>
<head>
<title></title>
</head>
<body>
<%
function fixSring(strInput)
if len(strInput) > 0 then
outString = replace(strInput,"'","")
fixSring = outString
else
fixSring = strInput
end if
end function

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

username = fixSring(Request.Form("username"))
password = fixSring(Request.Form("password"))

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & Server.MapPath("db5.mdb")
Conn.Open strConn

strSQL= "SELECT * FROM users WHERE (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)

if not rs.EOF then
if (username = rs("username")) then
session("loginOK") = "jeps"
session("username") = rs("username")

rs.Close
Conn.Close
Response.Redirect("" & session("username") & ".asp")
end if
end if

if session("loginOK") = "jeps" then
session("loginOK") = "g"
session("username") = ""
end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
end if
%>
<center>
<p>Velkommen til:</p>

<table border="1">
<form method="post" action="login.asp" name="adminlogin">
<tr><td>Brugernavn:</td><td><input name="username"></td></tr>
<tr><td>Password:</td><td><input type="password" name="password"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action"></td></tr>
</form>
</table>
<br>
<a href="opret.asp">Opret ny bruger.</a>

</center>
</body>
</html>

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 21:46 #13

I begge filer skal du finde og rette denne linie.

strConn = strConn & "Data Source=" & Server.MapPath("db5.mdb")

Den står sammen med:

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & Server.MapPath("db5.mdb")
Conn.Open strConn

Det som skal rettes er navnet på databsen her db5.mdb og hvor den ligger i forhold til filerne login.asp og opret.asp.

Når login er godkend redirects til: brugernavn & ".asp" i denne linie:

Response.Redirect("" & session("username") & ".asp")

Det som skal rettes her er hvis der skal en folder angivelse ind eks vis hvis filerne ligger i en adne folder end login.asp

Response.Redirect("../brugerfiler/" & session("username") & ".asp")

Synes godt om

izemate Nybegynder

13. oktober 2002 - 21:53 #14

Kan man ændre et navn som iforvejen hedder noget.
nu tænker jeg på tabellen?

\\iZe^MaTe

Synes godt om

izemate Nybegynder

13. oktober 2002 - 21:55 #15

jeg tænkte på om du ikke ville lave en database for 50point ?
Jeg kan ikke så godt hitte ud af det!

\\iZe^MaTe

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:01 #16

Det kan jeg da har du en email adresse jeg kan sende den til..

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:03 #17

izemate@e-mail.dk

mange tak :)
\\iZe^MaTe

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:07 #18

ved du hvordan man kan slette nogle "bruger" fra en database fra en .asp side?

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:14 #19

Jeg kan da lave et eks.. man kan lave en lsite men brugere også en slet knap når man trykker på knappen sletter man en bruger..

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:15 #20

Lige 1 ting til.
Når jeg nu opretter en bruger. mangler der jo den brugernavn.asp fil?
kunne man lavet sådan at den lavet en standard.asp fil ? der hedder brugernavnet.asp når man bliver oprettet??

\\iZe^MaTe

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:18 #21

kan man gøre det at den opretter en standard fil som er ens for alle men hedder det de opretter sig som?
:)
iZe^MaTe

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:19 #22

for du kan jo nok se at når de nu opretter sig. mangler de jo en side at logge ind på :(

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:23 #23

Denne koden kan du kalde sletbruger.asp den lister alle brugere også kan man trykke på slet så bliver brugeren slettet.:

<HTML>
<head><title>Slet bruger</title></head>
<body>
<center>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & Server.MapPath("db5.mdb")
Conn.Open strConn

'Slet valgt bruger
id = Request.QueryString("id")
if id <> "" AND isNumeric(id) then
strSQL = "DELETE FROM users WHERE ID = " & id
Conn.Execute(strSQL)
end if

strSQL= "SELECT * FROM users"
Set rs = Conn.Execute (strSQL)

Response.Write "<table>"
if (rs.EOF AND rs.BOF) then
Response.Write "Ingen bruger i databasen lige nu!!"
else
Response.Write "<tr><td>Brugernavn</td><td>slet</td></tr>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("username") & "</td>"
Response.Write "<td><a href=?id=" & rs("id") & ">slet</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
end if
Response.Write "</table>"

rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
</center>
</body>
</HTML>

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:24 #24

Ja man kan få den til at oprette en fil med brugernavnet + asp..

Hvad skal der skrivers i filen?? er der en default fil som man kan copy indeholdet fra?

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:28 #25

for at oprtte filen... i filden opret.asp skal der indføres nogle linier efter denne linie:

Response.Write "Du er nu oprettet som bruger."

Der skal tilføjes disse 4:

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(Server.MapPath(brugernavn & ".asp"),true)
Set file = Nothing
Set fso = Nothing

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:29 #26

tjaa det er et godt spørgsmål.
det skal være en gæstebog.

men jeg har ikke redigeret den til endnu men du kan få hvad jeg har.

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; position: absolute; top: 130; left: 295" bordercolor="#111111" width="390">
<tr>
<td bgcolor="#00A1DD">
<font face="verdana" size="2">

<p>- Daniel </p>

</font>
</td>
</tr>

<tr>
<td height="350" bgcolor="FFFFFF">
<font face="verdana" size="2">

<p><u> Om mig: </u>

</p>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daniel.mdb") & ";UID=admin;PWD=;"

If Request.Form("Gem") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strKommentar = Trim(Request.Form("Kommentar"))
If Len(strNavn) = 0 Then
strError = "<li>Du skal skrive dit navn!</li>"
ElseIf validateEmail(strEmail) = False Then
strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
ElseIf Len(strKommentar) = 0 Then
strError = "<li>Du skal skrive en kommentar!</li>"
End If
If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Server.HTMLEncode(strNavn)
rs("Email") = Server.HTMLEncode(strEmail)
rs("Kommentar") = Server.HTMLEncode(strKommentar)
rs("Dato") = Now()
rs.Update
End If
rs.Close
Set rs = Nothing
Else
strError = "<p><ul><font color=#FFCC00>" & strError & "</font></ul></p>"
strMode = "add"
End If
End If
%>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; position: absolute; top: 50; left: 4" bordercolor="#111111" width="380" bgcolor="F5f5f5">

<tr>
<td width="100%">
<%
Select Case strMode
Case "add"
%>
<form method="POST" action="guestbook.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td valign="middle" align="left" colspan="2"><font face="verdana" size="2"><br>Indtast venligst oplysningerne i følgende felter:<strong>
<%=strError%></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">Navn</font></strong></td>
<td valign="middle" align="left"><input type="text" name="Navn" size="20" value="<%=strNavn%>"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">E-mail</font></strong></td>
<td valign="middle" align="left"><input type="text" name="Email" size="20" value="<%=strEmail%>"></td>
</tr>
<tr>
<td valign="top" align="left"><div align="right"><p><strong><font face="verdana" size="2">Kommentar</font></strong></td>
<td valign="middle" align="left"><textarea rows="3" name="Kommentar" cols="20"><%=strKommentar%></textarea></td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2"><br>
<input type="submit" value="Gem" name="Gem">
<input type="button" value="Annuller" name="Annuller" onClick="java script:location.href='guestbook.asp'"></td>
</tr>
</table>
</form>
<%
Case Else
strAddLine = "<p><img src=add.jpg width=16 height=16> <a href=mailto:daniel-j@oncable.dk><strong><font face=verdana size=2>Daniel Jespersen</font></strong></a></p>"
Response.Write strAddLine
strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table width=100% border=0 cellpadding=1 cellspacing=1>"
Do While Not rs.EOF
dtmDato = rs("Dato")
dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
Response.Write "<tr bgcolor=#ECE7C7><td width=""100%""><font face=verdana size=2>" & dtmDato & "</td></tr>"
If Len(rs("Email")) > 0 Then
Response.Write "<tr><td><font face=verdana size=2><strong><a href=mailto:" & rs("Email") & ">" & rs("Navn") & "</a> skriver:</strong></td></tr>"
Else
Response.Write "<tr><td><font face=verdana size=2><strong>" & rs("Navn") & " skriver:</strong></td></tr>"
End If
Response.Write "<tr><td><font face=verdana size=2>" & rs("Kommentar") & "<br> </td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p><font face=verdana size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>"
End If
myConn.Close
Set myConn = Nothing
Response.Write strAddLine
End Select
%>
</tr>

</tr>
</table>
</center></div>

<script language="VBScript" runat="Server">
Function validateEmail(strEmail)
validateEmail = True
If Len(strEmail) < 6 Then
validateEmail = False
End If
If InStr(1, strEmail, "@", 1) < 2 Then
validateEmail = False
End If
If InStr(1, strEmail, ".", 1) = 0 Then
validateEmail = False
End If
pos = InStr(1, strEmail, "@", 1)
If pos < 2 Then
validateEmail = False
Else
pos = InStr(pos+1, strEmail, "@")
If pos > 0 Then
validateEmail = False
End If
End If
End Function
</script>

</font>
</td>
</tr>

noget iden stil :)

izemate

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:31 #27

Det leteste ville være hvis det lå i en bestemt fil som man så kunne åbne og kopier indholder over i den nye fil..

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:33 #28

kan man ikke gøre sådan at den selv laver en fil med det indhold jeg lige har skrevet? og at den selv kalder den "brugernavnet.asp"?

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:37 #29

Jo det kan man men hver linie i koden skal skrives så den bliver skrevt til filen..:

file.WriteLine "<table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse; position: absolute; top: 130; left: 295"" bordercolor=""#111111"" width=""390"">"
file.WriteLine "<tr>"
file.WriteLine "<td bgcolor=""#00A1DD"">"

osv..

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:42 #30

okay men hvor skal det så sættes ind henne??

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:45 #31

Det skal indsættes efter denne lineie:

Set file = fso.CreateTextFile(Server.MapPath(brugernavn & ".asp"),true)

file.WriteLine "<table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse; position: absolute; top: 130; left: 295"" bordercolor=""#111111"" width=""390"">"
file.WriteLine "<tr>"
file.WriteLine "<td bgcolor=""#00A1DD"">"

osv. og når den sidste linie er skrevet skal denne linie ind:

file.Close

og så til sidst kommer disse to som før nævnt.:

Set file = Nothing
Set fso = Nothing

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:49 #32

okay men hvor skal

Set file = fso.CreateTextFile(Server.MapPath(brugernavn & ".asp"),true)

så sættes ind henne?

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:52 #33

i filden opret.asp skal linier ind efter denne linie:

Response.Write "Du er nu oprettet som bruger."

Der skal tilføjes disse:

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(Server.MapPath(brugernavn & ".asp"),true)

file.WriteLine "<table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse; position: absolute; top: 130; left: 295"" bordercolor=""#111111"" width=""390"">"
file.WriteLine "<tr>"
file.WriteLine "<td bgcolor=""#00A1DD"">"

osv. og når den sidste linie er skrevet skal denne linie ind:

file.Close

Set file = Nothing
Set fso = Nothing

Synes godt om

izemate Nybegynder

13. oktober 2002 - 22:53 #34

kan man også sætte asp koder ind i File.WriteLine
fx File.WriteLine="Const adLockOptimistic = 3"

Synes godt om

eagleeye Praktikant

13. oktober 2002 - 22:59 #35

Jeps der skal file.WriteLine ind i alle linier. Du skal bare huske på at hver gang der et " i koden skal det laves om til 2 "" når kan skriver det til filen..:

file.WriteLine "<%"

file.WriteLine "Const adOpenKeyset = 1"
file.WriteLine "Const adLockOptimistic = 3"

file.WriteLine "strMode = Request.QueryString(""mode"")"
file.WriteLine "tempConn = ""PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="" & Server.MapPath(""daniel.mdb"") & "";UID=admin;PWD=;"""

file.WriteLine "If Request.Form(""Gem"") <> """" Then"

Synes godt om

izemate Nybegynder

13. oktober 2002 - 23:02 #36

OK takker rigtig mange gange for hjælpen :D

Jeg accepter lige :D

\\IZe^MaTe

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS