Répertoire téléphonique en asp

Soyez le premier à donner votre avis sur cette source.

Vue 11 655 fois - Téléchargée 878 fois

Description

<!--#include file="./base.inc"-->
<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Const rblPageSize = 15

Dim conn

Open_Conn(sPath)

If Request("Page") > "" Then
PageNo = Request("Page")
PageNo = PageNo + 0
Else
PageNo = 1
End If
sql = "select A.* from User A"
xC = Request.Form("_c")
If xC > "" Then
xV = Request.Form("_v")
xO1 = Request.Form("_o")
xO2 = "'"
If xO1 = "l1" then
xO1 = "like '%"
xO2 = "%'"
End If
If xO1 = "l2" then
xO1 = "like '"
xO2 = "%'"
End If
sql = sql & " Where A." & xC & " " & xO1 & xV & xO2
End If
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, Conn, adOpenKeyset,adLockReadOnly
RS.PageSize = rblPageSize ' Number of rows per page
If RS.recordcount > 0 Then
RS.AbsolutePage = PageNo
End If
%>
<HTML>
<HEAD><TITLE>Liste des contacts</TITLE>
</HEAD>
<BODY BGCOLOR=#66FF99>
<HR>
<DIV class="std">
<font size="4" face="Arial" color="#800000"> annuaire téléphonique</font><TABLE WIDTH="100%" class="tool1"><TR><TD ALIGN=LEFT><B>Page <%=PageNo%> / <%=RS.PageCount%></B></TD>
<TD><% xP = RS.PageCount
if xP > 1 Then
Response.write "Page : "
If PageNo > 1 Then
iP = PageNo - 1
Response.write "<A HREF=""./user_liste.asp?id=" & uId & "&page=" & iP & """>Prev.</A>, "
End If
iP = 0
Do While xP > iP
iP = iP + 1
If iP = PageNo Then
Response.write iP & ", "
Else
Response.write "<A HREF=""./user_liste.asp?id=" & uId & "&page=" & iP & """>" & iP & "</A>, "
End If
Loop
iP = PageNo + 1
If PageNo < xP Then
Response.write "<A HREF=""./user_liste.asp?id=" & uId & "&page=" & iP & """>Next</A>"
End If
End If
%>
</TD>
</TR></TABLE>
<P>
<FORM METHOD=POST ACTION="./user_liste.asp">
<TABLE><TR>
<TD><SELECT NAME="_c">
<OPTION VALUE="sNom" SELECTED>Nom
<OPTION VALUE="sPrenom">Prenom
<OPTION VALUE="sSite">Telephone
<OPTION VALUE="sMail">Adresse Mail
<OPTION VALUE="sURL">Portable
</SELECT>
<SELECT NAME="_o">
<OPTION VALUE="l1">Contient
<OPTION VALUE="l2">Commence par
<OPTION VALUE="like '%">Se termine par
<OPTION VALUE="= '">Egal
<OPTION VALUE="< '">Inferieur
<OPTION VALUE="> '">Superieur
<OPTION VALUE="not = '">Different
</SELECT>
</TD>
<TD><INPUT TYPE=TEXT NAME="_v" SIZE=14 VALUE=""></TD>
<TD><INPUT TYPE=SUBMIT VALUE="Chercher"></TD>
</TR></TABLE>
</FORM>
<TABLE WIDTH="90%" class="std">
<%
RowCount = rs.PageSize
Do While Not RS.EOF and rowcount > 0
%>
<TR BGCOLOR=1010FF>
<TD><A class="tool2" HREF="<% =RS("sURL") %>"><% =RS("sSite") %></A></TD>
<TD ALIGN=RIGHT class="tool2"><% If RS("sMail") > "" Then
Response.Write "<A class=""tool2"" HREF=""mailto:" & RS("sMail") & """>" & RS("sNom") & "," & RS("sPrenom") & "</A>"
Else
Response.Write RS("sNom") & "," & RS("sPrenom")
End If %>
</TD></TR>
<TR>
<TD ALIGN=RIGHT><% =RS("dDtCreat")%></TD></TR>
<TR><TD COLSPAN=2><% =RS(7) %><BR>
<B>e-mail : </B><A HREF="<% =RS("sMail") %>"><% =RS("sMail") %></A>
</TD></TR>
<%
RowCount = RowCount - 1
RS.MoveNext
Loop
%>
</TABLE>
<P>
<%

Conn.Close
set rs = nothing
set Conn = nothing
%>
</TABLE>
<P><P>
</DIV>
</BODY>
</HTML>
<%
Function Open_Conn(sBase)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open sBase,"",""
End Function
%>

Conclusion :


la version ci jointe est totalement gratuite cependant une version avec administrateur est payante au prix de 10€

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

softghost
Messages postés
61
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
13 avril 2010
-
bonjour
il est fouuuuuuuuuu ce mec.

c rien ca et ca marche pas et tu veux le vendre hihihih
ici tous et gratuit fabour a rase tarouuuuuuuuuuu.

je crois que tu me comprend.
cs_yami69
Messages postés
1
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
28 juillet 2004
-
Salut les Asp's

Quand je lance le default.asp j'ai cette erreur:

Erreur d'exécution Microsoft VBScript error '800a000d'
Type incompatible
/phone/user_liste.asp, line 112

Merci à ceux qui voudrons bien aider un IS, ignare en dev
Frank339
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008
-
je veux bien croire que "tout travail mérite salaire..." mais bon faut pas abuser ou pousser grand mère dans les escaliers... c'est un site pour apprendre et non pas pour se faire entuber... de X euros... aider et se faire aider tu connais pas ca ?
intelectci
Messages postés
1
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
4 septembre 2003
-
Arrete de rigoler avec ta version payante
cs_fabrice69
Messages postés
1766
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
4 -
Merci de supprimer ta pub pour la vente de ton script.
Soit tu poses une version gratuite ici et ne cause pas de ta version payante (à mettre sur ton site si tu veux), soit tu ne pose rien du tout ici.

F___

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.