1. Accueil
  2. ASP / ASP.NET
  3. Sources ASP / ASP.NET
  4. Sources Application
  5. Forum style aspfr.com (un seul fichier ;o) [avancée]

Forum style aspfr.com (un seul fichier ;o) [avancée]

Soyez le premier à donner votre avis sur cette source.

Vue 17 862 fois - Téléchargée 1 015 fois

Télécharger le projet
Commenter

Description

Voilà presque tout est dans le titre !! C un forum ki tien sur une page !!

Je joint un Zip qui contient : - images
-base
-fichier.asp et .inc

Source / Exemple : 




                  • inckude-inc.asp*************

<SCRIPT language=JavaScript src="design.js"></SCRIPT>
<%
'toujours sur une seule ligne
DSN_base="DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath(".") &"/forum.mdb"
Set CONN = Server.CreateObject("ADODB.Connection")
CONN.Open DSN_BASE
%>
<%
Function SQLStr(pvValue)
   Dim sTemp

   Select Case VarType(pvValue)
      Case 0, 1:
         SQLStr = "NULL"
      Case 2, 3, 4, 5, 6:
         sTemp = "" & pvValue
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 7: 'DateTime
         sTemp = FormatDateTime(pvValue)
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 8: 'String
         sTemp = pvValue
         sTemp = Replace(sTemp, "'", "''")
         If Len(Trim(sTemp)) > 0 Then
            SQLStr = "'" & sTemp & "'"
         Else
            SQLStr = "NULL"
         End If
      Case Else
         SQLStr = "NULL"
   End Select
End Function
%>


  • fin fichier ***********************************

                            •  forum.asp *********************

<!--#include file="include-inc.asp"-->
<!--#include file="adovbs.inc"-->
<%
act=Request.QueryString("act")
id=Request.QueryString("id")
If id <> "" Then
'Lecture du message si action=read et si Id différent de ""
sql =""
sql = sql & "SELECT * FROM messageforum WHERE ID = " & request.querystring("id")
Set MessRS = Server.CreateObject("ADODB.Recordset")
MessRS.Open sql, CONN
%>
<%
CONN.Execute ("UPDATE messageforum SET affich = " & (MessRS.Fields("affich")+1) & " WHERE ID= " & request.querystring("id") )
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Message : <%=MessRS("Titre")%></SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
					<TABLE cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD width="80%">
                        <TABLE cellPadding=0 border=0>
                          <TBODY>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Sujet</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("Titre")%></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Date</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("datef")%></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Auteur</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;<a href="mailto:<%=MessRS("mailauteur")%>"><%=MessRS("auteur")%></A></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Nb. 
                              affichage</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("affich")%>
                              fois</FONT></TD></TR></TBODY></TABLE></TD>
                      <TD width="20%">
                        </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD><A href="#reply"><img src="forum-reply.gif" alt="" width="80" height="25" border="0"></A>
						  <A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
					  </TD>
                      <TD align=right>
					  <FONT face=Verdana color=#000000 size=2><B>
					   ...</A>
					  </B></FONT>
					  </TD></TR></TBODY></TABLE>
					  <TABLE borderColor=#003399 cellSpacing=0 cellPadding=2 width="100%" align=center bgColor=#ffffff border=1>
                    <TBODY>
                    <TR>
                      <TD><FONT face=Verdana size=2>
                        <DIV align=justify><%=MessRS("contenu")%></DIV></FONT>
					   </TD>
					</TR></TBODY></TABLE>
					<FONT style="BACKGROUND: #003399" face=Verdana color=#ffffff size=2><B>Suivi du Message &nbsp;&nbsp;&nbsp;&nbsp;</B></FONT><BR>
<%
	'---- Fonction qui vérifie si IDOM message a des réponses ou non ----
	function CheckForResponses(nivid,Index)
		redim dataRec_CFR(Index)
		set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
		dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN
%>
<%		
		if not dataRec_CFR(Index).EOF then
			WHILE not dataRec_CFR(Index).EOF 
				response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","&nbsp;&nbsp;&nbsp;")
				response.write "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A>&nbsp;de&nbsp;" & dataRec_CFR(Index).Fields("auteur") & "&nbsp;le&nbsp;" & dataRec_CFR(Index).Fields("datef") & "<BR>" & vbcrlf
				CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
			dataRec_CFR(Index).MoveNext
			wend
		end if

	end function
	%>
<% 
	'-----------------------
	'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0 
	'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
	'-----------------------

	Dim dataRec_MSG
	set dataRec_MSG = server.createObject("ADODB.RecordSet")
	dataRec_MSG.CursorType = 1                                    
	dataRec_MSG.LockType = 3                                     
	dataRec_MSG.Open "SELECT * FROM messageforum WHERE pos=" & MessRS("pos") &" ORDER BY ID DESC",CONN
	If not dataRec_MSG.BOF Then
		dataRec_MSG.MoveLast
	End If
%>
<%
	Dim IDMsgB
	response.Write "<font class=f1>"
	WHILE not dataRec_MSG.BOF
		IDMsgB=dataRec_MSG("ID")
		if dataRec_MSG("Niv_ID")=0 then
			response.Write "<A href=forum.asp?act=msg&id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A>&nbsp;de&nbsp;" & dataRec_MSG("auteur") & "&nbsp;le&nbsp;" & dataRec_MSG("datef") &  "<BR>" & vbcrlf
			CheckForResponses IDMsgB,1
		end if
	dataRec_MSG.MovePrevious
	wend
	response.write "</FONT>"
	%>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastsources,lastsources);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastsources></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastsources style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>

<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="_images/derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Répondre à ce Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Formulaire de réponse ;o)-->
					  
                  <FONT face=Arial color=#003399 size=2><B>
                  <FORM name=NouveauMess action="forum.asp?act=rmsg" method=post>
<INPUT type=hidden name=nivid value="<%=MessRS("id")%>">
<INPUT type=hidden name=id value="<%=MessRS("id")%>">
				  <CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
				  <BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
				  Le Sujet : <BR>
				  <INPUT size=50 value="Re : <%=MessRS("Titre")%>" name=Titre><BR>
				  La Réponse : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA><BR><BR>
<INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
            </CENTER></FORM>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>       
</HTML>
<%
ElseIf  act="nmsg" Then
'Rédaction d'un nveau message si action=nmsg
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
				  <FONT class=f1 color=#003399><B>
				  <FORM name=NouveauMess2 onsubmit="return validate_form2()" action=forum.asp?act=amsg method=post>
				  <CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
				  <BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
				  Le Sujet : <BR>
				  <INPUT size=50 value="" name=titre><BR>
				  Le Message : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA>
				  <BR><BR><INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
            </CENTER></FORM>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>
</HTML>
<%
ElseIf act="rmsg" or act="amsg" Then
'Insertion d'un nveau message dans la base (nveau ou réponse)
'---- Crée le recordset qui va ajouter le nouvel enregistrement -----
	Dim dataRec_AMSG
	Set dataRec_AMSG=CreateObject("ADODB.Recordset")
	dataRec_AMSG.CursorType = 1                                    
	dataRec_AMSG.LockType = 3  
	dataRec_AMSG.Open "messageforum", CONN, , , &H0002 

	dataRec_AMSG.AddNew

		if Request.Form("nivid")<>"" then			
			'---- Crée le recordset pour vérifier l'exsitence de la news ----
			Dim dataRec_VMSG
			Set dataRec_VMSG=CreateObject("ADODB.RecordSet")
			dataRec_VMSG.Open "SELECT * FROM messageforum WHERE ID=" & Request.Form("id"),CONN

			if dataRec_VMSG.EOF then
				response.Write "<SCRIPT language=JSCRIPT>"
				response.Write "alert('La news que vous essayez de voir n\'existe pas ou plus!');"
				response.Write "document.location.href='forum.asp';"
				response.Write "</SCRIPT>"

			end if
			dataRec_AMSG("Niv_ID")=Request.Form("nivid")
			dataRec_AMSG("level")=dataRec_VMSG("level")+1
		else
			dataRec_AMSG("Level")=0
		end if
		dataRec_AMSG("auteur")=Request.Form("auteur")
		dataRec_AMSG("mailauteur")=Request.Form("mailauteur")
		dataRec_AMSG("datef")=Date
		dataRec_AMSG("titre")=request.Form("titre")
		dataRec_AMSG("contenu")=request.Form("contenu")
	dataRec_AMSG.UpDate

response.Redirect "forum.asp"

Else
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
				  <FONT class=f1 color=#003399>
				  
<%	'---- Fonction qui vérifie si IDOM message a des réponses ou non ----
	function CheckForResponses(nivid,Index)
		redim dataRec_CFR(Index)
		set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
		dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN

		
		if not dataRec_CFR(Index).EOF then
			WHILE not dataRec_CFR(Index).EOF 
				response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","&nbsp;&nbsp;") & "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A>&nbsp;de&nbsp;" & dataRec_CFR(Index).Fields("auteur") & "<BR>" & vbcrlf
				CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
			
			dataRec_CFR(Index).MoveNext
			wend
		end if

	end function
	'-----------------------
	'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0 
	'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
	'-----------------------

	set dataRec_MSG = server.createObject("ADODB.RecordSet")
	dataRec_MSG.CursorType = 1                                    
	dataRec_MSG.LockType = 3                                     
	dataRec_MSG.Open "messageforum", CONN, , , &H0002               
	If not dataRec_MSG.BOF Then
		dataRec_MSG.MoveLast
	End If
	WHILE not dataRec_MSG.BOF
		IDMsgB=dataRec_MSG("ID")
		if dataRec_MSG("Niv_ID")=0 then
			response.Write "<img src='mes.gif' alt='' width=14 height=13 border=0> <A href=forum.asp?id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A>&nbsp;de&nbsp;" & dataRec_MSG("auteur") &  "<BR>" & vbcrlf
			CheckForResponses IDMsgB,1
		end if
	dataRec_MSG.MovePrevious
	wend%><BR>
	      <A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
				  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="_images/minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>
</HTML>
<%
End IF
%>


                                        •  fin fichier **************

Conclusion :


Voilà c la première version, y a plein de bug mai e vai les corriger !! ;o)

-> OUlà ça s'affiche mal !!!! ;o( Fo ke j'otpimise l'affichage du code je crois !!! :o(

@tte er bonn' prog'
pi0up51
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
 1
à ne SURTOUT pas utiliser sur un serveur de prod MSSQL.
pourquoi ? injection !
Signaler
Messages postés
61
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
13 avril 2010
c pas bien d'etre voleur

mais c trés bien de dévlopper .
Signaler
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
mais moi je depende pas m$ pr mes pages asp(adovbs.inc) :)
huhuhu...
lol
Signaler
Messages postés
103
Date d'inscription
vendredi 13 juillet 2001
Statut
Membre
Dernière intervention
26 août 2003
ça te va comm ça ?? lol ;o)
Signaler
Messages postés
103
Date d'inscription
vendredi 13 juillet 2001
Statut
Membre
Dernière intervention
26 août 2003
Attends c pa la mêm sources !! ;o)
Moi ell est plus complète lol ;o)
Afficher les 6 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pi0up51)