SITE DYNAMIQUE + GÉNÉRATEUR DE STATS + ESPACE SÉCURISÉE EN FULL ASP

Commentaire de codacode le 22/02/2004 20:47:03

Bonjour, voilà je suis un newbies en programmation asp, je tiens à le préciser pour que certains d'entre vous puisse m'aiguiller.


J'ai testé mais il m'affiche rien :(

----------------------------------------------------------


'Connexion à la base (code de mon hebergeur - http://www.aspserveur.com/support.htm)

<%
Set Conn = Server.CreateObject("ADODB.Connection")
chemin = Server.MapPath("../"&thepath)&"\databases\counter.mdb"
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin
%>


<%
IP=request.serverVariables("REMOTE_ADDR") 'On récupère l'adresse du visiteur

Datefr = split(Date,"/") 'On crée un tableau pour séparation de la date d'aujourd'hui
Dateus = Datefr(2) & "/" & Datefr(1) &"/"& Datefr(0) 'On la converti en date US pour Access

Set RS_Utilisateur = Server.CreateObject("ADODB.Recordset")
SQL_Utilisateur = "SELECT * FROM [T_Visiteurs] WHERE Adresse_Ip ='" & IP & "' AND Date = #" & Dateus & "#" 'On créé une requête recherchant si ce visiteur est déjà venu aujourd'hui
RS_Utilisateur.open SQL_Utilisateur ,Conn ,3 ,3

if RS_Utilisateur.eof then 'Si le recordset ne contient pas d'enregistrement
RS_Utilisateur.addnew 'C'est que c'est la première visite
RS_Utilisateur("Adresse_IP") = IP 'Dans ce cas on ajoute son adresse dans la table T_Visiteurs
RS_Utilisateur("Date") = Date() 'On inscrit également la date
RS_Utilisateur("Heure") = Time() 'Ainsi que l'heure
RS_Utilisateur("Nb_Session") = 1 'On fixe le nombre de session à 1 => Normale première visite
RS_Utilisateur.update 'MAJ de la base

elseif (Datediff ("d",RS_Utilisateur("Date"), Date()) > 0 )OR Datediff ("n",RS_Utilisateur("Heure"), Time()) > 5 then 'Sinon cela signifie que ce n'est pas la première visite
RS_Utilisateur("Nb_Session") = RS_Utilisateur("Nb_Session") + 1 'Dans ce cas on incrémente le compteur du visiteur
RS_Utilisateur("Date") = Date() 'On y indique de nouveau la date
RS_Utilisateur("Heure") = Time() 'Ainsi que l'heure
RS_Utilisateur.update 'Et on met à jour
end if

RS_Utilisateur.close

SQL_NbVisite = "SELECT SUM(Nb_Session) AS ND_VISITE FROM [T_VISITEURS]" 'Requete indiquant le nombre de visite depuis la mise en ligne du site
SQL_Visiteurs_simult = "SELECT * FROM [T_VISITEURS] WHERE DATE = # " & Dateus & " # AND HEURE > #" &  DateAdd ("n", -5, Time()) & " #" 'Requete indiquant le nombre de visiteur simultanée
SQL_Visite_today = "SELECT * FROM [T_VISITEURS] WHERE DATE = # " & Dateus & " # " 'Requete indiquant le nombre de visite aujourd'hui
SQL_test = "SELECT DATE, SUM(Nb_Session) AS ND_Today From [T_VISITEURS] Group By Date Having DATE= # " & Dateus & " # "

RS_Utilisateur.Open SQL_NbVisite, Conn 'On obtient le nombre de visite

Nb_Visite = RS_Utilisateur("ND_VISITE")

RS_Utilisateur.close

RS_Utilisateur.Open SQL_Visiteurs_simult, Conn 'Le nombre d'utilisateur simultanée

Nb_Visiteur = RS_Utilisateur.RecordCount

RS_Utilisateur.close

RS_Utilisateur.Open SQL_test, Conn 'Le nombre de visite aujourd'hui

Nb_today = RS_Utilisateur("ND_Today")

RS_Utilisateur.close

%>

------->> et dans la page ou je veux que cela s'affiche :


<% = Nb_Visite %>
<% = Nb_Visiteur%>
<% = Nb_today %>


-------------------------------------------------

Voilà, je fait pas un coup de pouce sur mon hébergeur, mais j'ai testé la connexion avec d'autres codes mais les pages s'affichait pas ! :s

Merci d'avance, je rame je rame, mais le bout du tunnel n'est pas loin !

Commentaire de codacode le 23/02/2004 00:12:15

Je voulais savoir si le code est bon ?

Parcque chez moi ca va pas !

Commentaire de codacode le 23/02/2004 12:13:21

Pourquoi mon serveur accepte qu'1 de ces code pour me connecter à la base de données !

Connexion sans DSN (DSNLESS) :

Set Conn = Server.CreateObject("ADODB.Connection")
chemin = Server.MapPath("../"&thepath)&"\databases\nomdelabase"
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin

Connexion avec DSN (via drivers ODBC) :

   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "nomdeVotreBaseVirtuelle","",""


Pourtant j'ai déjà testé d'autres code mais en vain, il me donne une page 500

Commentaire de whakiri le 24/02/2004 12:21:24

Lorsque j'essaies de demarrer la page menu.asp je recoit ce message d'erreur dans lIExplorer:
"
Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/WebSiteDinam/menu.asp, line 373
"
¿quoi faire?

Commentaire de codacode le 24/02/2004 19:18:55

Donc, ca veut dire qu'il me faut dans ma base un minimum 7 Données !

Bon beh je vais tester ..... A+

Commentaire de Batman69 le 24/02/2004 20:46:25

C'est effectivement la chose qui a été faite dans la version corrigée

Commentaire de whakiri le 25/02/2004 14:45:53

une petit question:
¿quelle est l'idee de principe du graph?

Commentaire de whakiri le 25/02/2004 21:19:03

Salut une fois de plus,
j'ai pu localiser l'erreur, el y reside dans la proc Sub StoreDataToArray, exactement dans le Redim "Redim Preserve m_DataArray(m_lngArrayCount)" (ASP est limite a ce niveau )
t'as une solution?
Merci a +

Commentaire de Batman69 le 26/02/2004 20:13:31

Si je peux avoir ta source modifiée par mail comme cela je verrais les modifications. Il m'est difficile de répondre à toutes les questions car comme tout on ne peut prévoir toutes les situations ambigues. Il faut savoir que le générateur est code qui a été partiellement repris donc je ne connais pas tout les méandres de celui ci. Par contre je suis curieux de les découvrir donc à vos boites mails

Commentaire de driversdrivers le 15/03/2004 00:48:31

Je trouve ce principe dynamique très intéressant !!

Pour ma part, je suis débuant et je n'ai toujours pas réussi a inclure du contenu dans la page acceuil

Quelque soit le chemin que je met dans la base de données, ma page m'affiche : "Le lien n'est pas valide, Désolé"  

Quelqu'un voudrais bien m'expliquer ce fonctionnement et ce que je dois faire ?

Merci d'avance ;-)

Commentaire de Batman69 le 17/03/2004 20:10:57

Pour répondre à la 1ère question:
supposons que le code source est placée dans c:\inetpub\wwwrootSi un document html est placée dans c:\inetpub\wwwroot\Contenu\Test.html dans ce cas le champs chemins doit contenir l'entrée suivante /contenu/test.html.

Vous pouvez essayez ce test en placant un fichier texte contenant une phrase et en renseignant le champs d'un des liens présent dans la base exemple.

Pour information, il faut absolument que le fichier html à inclure soit uniquement le contenu de la page située à l'intérieur des balises body. En effet si par exemple vous créez un page html à l'aide de dreamweaver, noubliez pas de supprimer tout le texte contenu hors des balises body (les balises incluses) avant de sauvegarder le fichier.

Voilà

Un petit exemple:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<strong>Ceci est un test</strong>

</body>
</html>

Se tranformera en

<strong>Ceci est un test</strong>

Commentaire de jlbrenas le 18/03/2004 20:51:03

Merci pour la réponse.

J'ai bien décompacté les fichiers de l'application dans un répertoire :c:\inetpub\wwwroot\sitedyna.
Dans la base, j'ai rajouté le chemin : /sitedyna/.
j'ai lancé l'exécution par : http:/localhost/sitedyna/menu.asp et j'ai eu un message d'erreur :
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access] Mise à jour impossible. La base de données ou l'objet est en lecture seule.
/sitedyna/menu.asp, line 39.

Avez-vous une idée sur ce message ?
Merci d'avance.

Commentaire de matsize le 15/07/2004 16:23:57

j'ai cette erreur quand je fais f5! je ne comprend pas pkoi, merci de me répondre si vous savez !

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0xed0 Thread 0xe9c DBC 0x10fc03c Jet'.

/projet/projet/site/base.inc, line 4

Commentaire de tmcuh le 04/02/2005 18:50:52

le tout à l'air simpa, mais y'a pas de source dispo en .net? et pour ton livre d'or je veux bien mais le site est en chantier lol.. j'aurais bien aimé y faire un tour mais voilà byeee

Commentaire de riko007 le 13/05/2005 16:11:10

Quelqu'un peut-il m'aider...?

Commentaire de kwassi73 le 06/02/2006 23:15:51

est-ce que quelqu'un aurait trouver la solution par hasard?

merci