CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mads.k Nybegynder

28. juni 2002 - 08:05 Der er 6 kommentarer og
1 løsning

Få tilsendt brugernavn og password

På min loginside forsøger jeg at hitte ud af hvordan jeg kan lave en "har du glemt brugernavn og password" service. Der gerne skulle sende brugernavn eller password til brugeren hvis han enten taster sin email adresse eller brugernavn.

Hvordan gør jeg det?

Synes godt om

dk_akj Nybegynder

28. juni 2002 - 08:11 #1

Jeg har lavet det med glemt password.

En submit knap submitter det indtastede til en "glemtpwd.asp"
Denne side trækker alle oplysninger fra basen ("select * from users where user_id =" & brugernavn)

Derefter sammensætter jeg en mail med de relevante oplysninger fra basen og sender den til brugeren via smtpmail ( et mailobject) .

//akj

Synes godt om

jnissen Nybegynder

28. juni 2002 - 15:56 #2

Du kan fx. gøre sådan:

Form.asp:
---
<form method="GET" action="sendps.asp">
<table border="0">
<tr>
<td>Indtast din e-mail adresse her:</td>
<td width="327"><input type="text" name="modtager" size="40"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send" size="20"></td>
</tr>
</table>
</form>

Sendps.asp ( med aspmail)
---

<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from bruger where email= '" & request.Querystring("modtager") & "'"
set RS = Conn.Execute(SQL)

if not rs.bof and not rs.eof then

Emne = "Dit brugernavn og password"
brugernavn = rs("navn")
password = rs("password")
Modtager = rs("Email")

temp_text = "Hej " & navn & vbCrLf & vbCrLf
temp_text = temp_text & "Her har du dit brugernavn og password" & vbCrLf & vbCrLf
temp_text = temp_text & "Brugernavn: " & brugernavn & vbCrLf
temp_text = temp_text & "Password: " & password & vbCrLf & vbCrLf
temp_text = temp_text & "Med Venlig Hilsen" & vbCrLf
temp_text = temp_text & "iteax.dk" & vbCrLf & vbCrLf

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "din side.dk"
Mailer.FromAddress= "din email.dk"
Mailer.RemoteHost = "mail.domæne.dk"
Mailer.AddRecipient "iteax ", Modtager
Mailer.Subject = "Dit brugernavn og password"
Mailer.BodyText = temp_text
if Mailer.SendMail then
Response.Write "Meddelelsen er sendt til din email adresse"
else
Response.Write "Der findes ikke nogen bruger med den email"
end if

else
%>
<br>
<br>
Fejl...
<%
end if
%>

Eller......

Sendps.asp ( med CDONTS)
---
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from bruger where email= '" & request.Querystring("modtager") & "'"
set RS = Conn.Execute(SQL)

if not rs.bof and not rs.eof then

Afsender = "din@email.dk"
Modtager = rs("Email")
Emne = "Dit brugernavn og password"
brugernavn = rs("nicknavn")
password = rs("password")
navn= rs("navn")

temp_text = "Hej " & navn & vbCrLf & vbCrLf
temp_text = temp_text & "Her har du dit brugernavn og password" & vbCrLf & vbCrLf
temp_text = temp_text & "Brugernavn: " & brugernavn & vbCrLf
temp_text = temp_text & "Password: " & password & vbCrLf & vbCrLf
temp_text = temp_text & "Med Venlig Hilsen" & vbCrLf
temp_text = temp_text & "ITeax.dk" & vbCrLf & vbCrLf

Set postmedd = Server.CreateObject("CDONTS.NewMail")
postmedd.From = Afsender
postmedd.To = Modtager
postmedd.cc = cc
postmedd.Subject = Emne
postmedd.Body = temp_text
postmedd.Send
Set postmedd = Nothing

Response.Write ("Meddelelsen er sendt til din email adresse")

else
%>
<br>
<br>
fejl...
<%
end if
%>

Synes godt om

eagleeye Praktikant

28. juni 2002 - 22:21 #3

Jeg har et som benytter JMail hvis det er den mai kompunent du har adgang til:

<table border="1">
<form method="post" action="sendpassword.asp" name="sendpassword">
<tr><td colspan="2" align="center">Jeg har glemt mit brugernavn og password, send det til mig.</td></tr>
<tr><td>E-mail:</td><td><input name="email"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Send" name="Action"></td></tr>
</form>
</table>

------- og sendpassword.asp filen:

<HTML>
<head>
<META HTTP-EQUIV=Refresh CONTENT="5; URL=login.asp">
</head>
<body>
<center>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Include database filen, den indeholder connection til databasen %>

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
email = replace(Request.Form("email"),"'","''")
strSQL= "SELECT * FROM dp_members WHERE email = '" & email & "';"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
'send password til brugeren
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.DIN_MAIL_SERVER.dk"
JMail.Sender = "admin@DIN_SERVER.dk"
JMail.SenderName = "Forum Service"
JMail.Subject = "Brugernavn og password til forumet"
JMail.AddRecipient rs("email")
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
BodyText = "Du har bedt om at få tilsendt dit brugernan samt password til XXXXX Forum." & vbCrLf
BodyText = BodyText & "Dit brugernavn er: " & rs("username") & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("userpassword") & vbCrLf
BodyText = BodyText & "Hilsen XXXXXX Forum/www.DIN_SERVER.dk"
JMail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing
Response.Write "En mail med dit password er send til dig."
else
Response.Write "kunne ikke finde bruger oplysninger."
end if
Conn.Close
else
Response.Redirect("login.asp")
end if
%>
<br><br>
Du vil automatisk bliver stillet om til login siden om 5 sekunder.
</center>
</body>
</HTML>

Synes godt om

mads.k Nybegynder

29. juni 2002 - 07:47 #4

Det er jmail jeg bruger. Jeg forsøger lige :)

Synes godt om

eagleeye Praktikant

29. juni 2002 - 14:48 #5

ok. bare spørg hvis du er i tvivl om noget i koden. Jeg har taget den direkte fra en side jeg har lavet.

Synes godt om

mads.k Nybegynder

10. juli 2002 - 22:58 #6

Beklager ventetiden, men solen trækker noget i disse dage :)

Eagleeye, tak :)

Synes godt om

s_d_j Nybegynder

03. august 2002 - 19:14 #7

Jeg forsøgte med scriptet til Jmail.
Af en eller anden årsag for jeg hver gang følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/sendpassword.asp, line 14

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Itm8

CRM-konsulent

Rambøll Management Consulting

Senior/Lead Software Engineer @ Ramboll Stakeholder Intelligence

Udviklings- og Forenklingsstyrelsen

Motiverende chefkonsulent med souschefopgaver til PMO Gældssystemer

MAN Energy Solutions

Principal Expert DevOps

Education Esbjerg

Systemadministrator – form IT-fundamentet for fremtidens uddannelsesby

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling