🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: dk.edb.internet.webdesign.asp
Article #12005

Re: Password i asp

#12005
From: M
Date: Tue, 30 Jun 1998 00:00
71 lines
2891 bytes
M@ds skrev i meddelelsen <6nb0ei$2eco$2@news-inn.inet.tele.dk>...
>Karsten Jyhne skrev i meddelelsen <3596826e.9563690@news.inet.tele.dk>...
>>Jeg skal hj�lpe med at lave en hjemmeside med brugernavn og password
>>beskyttelse for en bruger af et professionelt TD @ abonnement. Siden
>>ligger p� en  Microsoft Internet Information Server 4.0, s� det burde
>>kunne lade sig g�re i ASP, men hvordan?
>>
Jeg kan ikke lige finde scriptet p� min harddisk. Det ligger sikkert p�
arbejdet. S� jeg poster det i morgen eftermiddag.

>
>>Hvis vedkommende gerne vil have en t�ller p� siden, hvordan g�r jeg s�
>>smartest det.?
>>
>Du kan lave det med en database og ASP.
>
Databasen:
Lav en database, f.eks. med MS Access.
Opret en tabel der hedder "TblVisits"

Lav f�lgende kollonner:
Page
NoVisits
Since

I "Page" skriver du dine sidenavn, f.eks. "Hovedside".
I "NoVisits" skriver du bare 0
I "Since" skriver du datoerne du har oprettet t�llerne.

ASP-koden:
<%
Pagename = "SideNavn" ' Inds�t sidenavnet her. F.eks. Hovedside
Set dbCon = Server.CreateObject("ADODB.Connection")
DSNfake = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.mappath("/database_sti/testdb.mdb")
' Erstat /databasesti/testdb.mdb med stien til din database og dit database
navn.

' Finder bes�gstal i databasen
dbCon.open DSNfake
set dbRs = dbCon.Execute("SELECT * FROM TblVisits WHERE Page = '" & Pagename
& "'")
NoVisits = dbRs("NoVisits") + 1
Since = dbRs("Since")
dbCon.close

' Gemmer det nye bes�gstal i databasen
dbCon.open DSNfake
Set dbRs = dbCon.Execute("UPDATE TblVisits SET NoVisits='" & NoVisits & "'
WHERE Page = '" & Pagename & "'")
dbCon.close
%>

Du er bes�gende nr. <% = NoVisits %>. Siden d. <% = Since %>.

Som du kan se, opretter jeg databaseforbindelsen, uden et DSN. Hvis du har
et DSN-navn, skal du rette DSNfake til det.

Hvis du har nogle problemer med scriptet eller sp�rgsm�l om det, skal du
bare e-maile til mig.

Mojn
M@ds
On replys to Newsgroup, please make a CC: to my e-mail.
Ved svar til nyhedsgruppen, send venligst en CC: til min e-mail*
E-mail: mads@iname.com ICQ: 13562453
WWW: http://home5.inet.tele.dk/byr-tan
* Jeg siger det ikke fordi jeg er doven, men s� jeg har mulighed for at se
p� min mobiltelefon n�r der er kommet svar i en nyhedsgruppe, og derefter
har mulighed for hurtigt at give et evt. gen-svar.
Technical Details
Message-ID: <6nb7oi$d7o$1@news-inn.inet.tele.dk>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <3596826e.9563690@news.inet.tele.dk> <6nb0ei$2eco$2@news-inn.inet.tele.dk>

Show Full Headers
Complete Article Headers
X-Google-Language: DANISH,ASCII
X-Google-Thread: ff435,16e2b550c4198312
X-Google-Attributes: gidff435,public
From: "M@ds" <mads@iname.com>
Subject: Re: Password i asp
Date: 1998/06/30
Message-ID: <6nb7oi$d7o$1@news-inn.inet.tele.dk>
X-Deja-AN: 367483055
References: <3596826e.9563690@news.inet.tele.dk> <6nb0ei$2eco$2@news-inn.inet.tele.dk>
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Newsgroups: dk.edb.internet.webdesign.asp