ClassicASP-Master-Library
For a better world...
List Of Library
Main headings and details you will find in this repo. Some code samples and comments may not be complete. Check the checkboxes on the side.
- Array Sorting (CF)
- Object and Property Exist Control (CL)
- Do While Usage With MySQL (SC)
- MySQL Connection On ClassicASP (SC)
- Determine date is Weekend or Weekday (CF)
PS: CF=Custom Function F=Function CL=Class SC=Sample Code
How To Use
(1) Array Sorting 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)
Show code usage
<%
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) Object and Property Exist Control 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)
Show code usage
<%
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) Do While Usage With 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!
Show code usage
<%
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) MySQL Connection On ClassicASP mysql-connection.asp
How do I make a connection to a MySQL database using ASP?
Show code usage
<%
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 or WeekDay with Classic ASP Function is-weekend-function.asp
How do I determine the date is weekend or weekday?
[Demo](https://aspmasterlibrary.adjans.com.tr/is-weekend-function.asp)
Show code usage
<%
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
%>