ClassicASP Master Library

ClassicASP-Master-Biblioteca

Por um mundo melhor...

Lista da biblioteca

Principais títulos e detalhes que você encontrará neste repositório. Alguns exemplos de código e comentários podem não estar completos. Marque as caixas de seleção ao lado.

• Classificação de matriz (CF)
• Controle de existência de objeto e propriedade (CL)
• Faça durante o uso com MySQL (SC)
• Conexão MySQL no ClassicASP (SC)
• Determinar a data é fim de semana ou dia da semana (CF)

---

PS: CF=Função personalizada F=Função CL=Classe SC=Código de amostra

Como usar

(1) Classificação de matriz 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)

Mostrar uso de código

 <%
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) Controle de existência de objeto e propriedade 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)

Mostrar uso de código

 <%
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) Faça durante o uso com 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!

Mostrar uso de código

 <%
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) Conexão MySQL em ClassicASP mysql-connection.asp

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

Mostrar uso de código

 <%
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) Determine WeekEnd ou WeekDay com a função ASP clássica is-weekend-function.asp

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

Mostrar uso de código

 <%
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
%>