ClassicASP Master Library

Bibliothèque classique ASP-Master

Pour un monde meilleur...

Liste de la bibliothèque

Principales rubriques et détails que vous trouverez dans ce référentiel. Certains exemples de code et commentaires peuvent ne pas être complets. Cochez les cases sur le côté.

• Tri des tableaux (CF)
• Contrôle d'existence d'objets et de propriétés (CL)
• Faire pendant l'utilisation avec MySQL (SC)
• Connexion MySQL sur ClassicASP (SC)
• Déterminer que la date est le week-end ou le jour de la semaine (CF)

---

PS : CF=Fonction personnalisée F=Fonction CL=Classe SC=Exemple de code

Comment utiliser

(1) Tri des tableaux array-sorting.asp

 Uses the System.Collections.ArrayList object to sort the array.
[Demo](https://aspmasterlibrary.adjans.com.tr/array-sorting.asp)
Check this repo for ready Class : [Sorting Class for ClassicASP](https://github.com/badursun/Sorting-Scripting-Dictionary-Classic-ASP)

Afficher l'utilisation du code

 <%
MyArray = Array ( 1 , 5 , 9 , 7 , 3 , 2 )

tmp_data = MyArray
Response . Write " <h4>Default Array</h4> "
Response . Write Join (tmp_data) & " <hr> " 
' OUTPUT: 1 5 9 7 3 2

tmp_data = SortArray(MyArray, " ASC " )
Response . Write " <h4>Sorted Array (ASC)</h4> "
Response . Write Join (tmp_data) & " <hr> " 
' OUTPUT: 1 2 3 5 7 9

tmp_data = SortArray(MyArray, " DESC " )
Response . Write " <h4>Sorted Array (ASC)</h4> "
Response . Write Join (tmp_data) & " <hr> "
' OUTPUT: 9 7 5 3 2 1
%>

(2) Contrôle d'existence d'objet et de propriété object-exist-checker.asp

 Uses Native Javascript runat Server method and return object exist. If object exist, return true, else return false value.
[Demo](https://aspmasterlibrary.adjans.com.tr/object-exist-checker.asp)

Afficher l'utilisation du code

 <%
Set Checker = New CheckerClass
' Not Exist Class: SomeClass
' ------------------------------------
Set objClass = Eval ( " New SomeClass " )
If Checker.ClassExist(objClass) = True Then
	Response . Write " <span style= "" color:green "" >Exist</span><br> "
Else
	Response . Write " <span style= "" color:red "" >Not Exist</span><br> "
End If
Set objClass = Nothing

' Not Exist Property in Class: SomeClass.SomeProperty
' ------------------------------------
Set objClass = Eval ( " New SomeClass " )
If Checker.ObjectExist(objClass, " SomeProperty " ) = True Then
	Response . Write " <span style= "" color:green "" >Exist</span><br> "
Else
	Response . Write " <span style= "" color:red "" >Not Exist</span><br> "
End If
Set objClass = Nothing
Set Checker = Nothing
%>

(3) Faire pendant l'utilisation avec MySQL do-while-with-table.asp

 It shows making a MySQL database connection and spreading a table to the screen with a loop.
Demo Not found!

Afficher l'utilisation du code

 <%
Set rsObj = Conn.Execute( " SELECT * FROM tbl_name ORDER BY col_name ASC " )
If rsObj.Eof Then
	' No Record Found in tbl_name
Else
    Do While Not rsObj.Eof
    	' Your Looping Code
    rsObj.MoveNext : Loop
End If
rsObj.Close : Set rsObj = Nothing
%>

(4) Connexion MySQL sur ClassicASP mysql-connection.asp

 How do I make a connection to a MySQL database using ASP?

Afficher l'utilisation du code

 <%
On Error Resume Next

' Define Your DB Conneciton
Const conn_db_name = " your_db_name "
Const conn_db_user = " your_db_user "
Const conn_db_pass = " your_db_pass "
Const conn_db_addr = " your_db_address " ' Usually localhost but use 127.0.0.1 for performance

' Set Conn object to db
Set Conn = Server . CreateObject ( " ADODB.Connection " )
    Conn.Open = " DRIVER={MySQL ODBC 3.51 Driver};database= " & Db & " ;server= " & ServerIP & " ;uid= " & User & " ;password= " & Pass & " ; "
    Conn.Execute " SET NAMES 'utf8mb4' "
    Conn.Execute " SET CHARACTER SET utf8mb4 "
    Conn.Execute " SET COLLATION_CONNECTION = 'utf8mb4_general_ci' "

If Err <> 0 Then 
    Response . Write " Database connection failed. Check your conn_ information "
    Repsonse. End
End If

' Do Some Stuff With Your DB. Can access db object via 'Conn' object

' Release Connection Object
Set Conn = Nothing
%>

(5) Déterminez WeekEnd ou WeekDay avec la fonction ASP classique is-weekend-function.asp

 How do I determine the date is weekend or weekday?
[Demo](https://aspmasterlibrary.adjans.com.tr/is-weekend-function.asp)

Afficher l'utilisation du code

 <%
IsWeekend( Date ()) ' return true Or false

If IsWeekend( Date ()) = True Then 
	Response . Write " Yes, It's weekend "
Else
	Response . Write " No, It's weekday "
End If
%>