CRUD Operations - Insert, update, delete and retrieve are implemented in Asp.Net Core Web API with Angular 7. First of all we'll build a Web API project in Asp.Net Core with required methods at server side using Entity Framework Core and SQL Server DB.
download https://goo.gl/3SvTLK Refrence from CodAffection. All credit goes to CodAffection .
for MVC with Web API https://goo.gl/pj9Equ taken referenve from CodAffection
Play With HTML 5, Classic ASP using VB Script
Let us Play with HTML 5, CSS Know more about Classic ASP
Saturday, May 25, 2019
Thursday, June 25, 2015
Function RandomNumberForLogo1(intHighNumber,intLowNumber)
intHighNumber = intHighNumber
intLowNumber = intLowNumber
dim arrOfRandNo(4)
For i = 0 to 3
Randomize
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
For y = 0 To 3
If intNumber = arrOfRandNo(y) Then
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
End If
Next
arrOfRandNo(i) = intNumber
Next
RandomNumberForLogo1 = arrOfRandNo
End Function
intHighNumber = intHighNumber
intLowNumber = intLowNumber
dim arrOfRandNo(4)
For i = 0 to 3
Randomize
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
For y = 0 To 3
If intNumber = arrOfRandNo(y) Then
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
End If
Next
arrOfRandNo(i) = intNumber
Next
RandomNumberForLogo1 = arrOfRandNo
End Function
Tuesday, January 6, 2015
Pagination in ASP | Using ASP Classic | ASP VB script
<% 'declare var Dim Currpage, pageLen, lastNumber, PageRem, PageTen Dim connection, recordset, STRSql, sConnString, next10, prev10, P Dim RSPrevPage, RSNextPage, start 'Get the current page the user is on, if it's the first time they 'visit and the variable 'PageNo' is empty, then 'CurrPage' gets set to 1 'Else the current page variable 'CurrPage' is set to the page number requested If IsEmpty(Request.Querystring("PageNo")) then CurrPage = 1 Else CurrPage = Cint(Request.Querystring("PageNo")) End If 'the two functions below return the next 10 and prev 10 page number Function getNext10(num) pageLen = len(num) If pageLen = 1 Then next10 = 10 Else If pageLen>1 Then pageRem = 10 pageTen = right(num, 1) next10 = num + pageRem - pageTen End If End If getNext10 = next10 End Function Function getPrev10(num) pageLen = len(num) If pageLen = 1 then prev10 = 1 Else If pageLen>1 then lastNumber = right(num, 1) prev10 = num - lastNumber - 10 End If If prev10 = 0 then prev10 = 1 End If End If getPrev10 = prev10 End Function 'create an instance of the ADO connection and recordset object Set Recordset = Server.CreateObject("ADODB.Recordset") 'define the connection string sConnString = Application("DSN") 'define our SQL variable STRSql="SELECT * FROM tablename" 'Next set the location of the recordset Recordset.CursorLocation = 3 'Execute the SQL and return our recordset Recordset.open STRSql, sConnString ' pagesize is used to set the number of records that will be ' displayed on each page. For our purposes 10 records is what we want. Recordset.PageSize = 10 'get the next 10 and prev 10 page number next10 = getNext10(CurrPage) prev10 = getPrev10(CurrPage) 'If there are no records If Recordset.EOF Then Response.write "No records to display" Else 'this moves the record pointer to the first record of the current page Recordset.AbsolutePage = CurrPage 'the below loop will loop until all the records of the current page have been 'displayed or it has reached the end of the recordset Do Until Recordset.AbsolutePage <> CurrPage OR Recordset.Eof 'you can change these according to your database and table fields response.write "ID: " & Recordset ("ID") & "" response.write "name: " & Recordset ("name") & "
" response.write "Address: " & Recordset ("address") & "
" Recordset.MoveNext Loop End If 'the next 2 lines setup the page number for the "previous" and "next" links RSPrevPage = CurrPage -1 RSNextPage = CurrPage + 1 'find out the number of pages returned in the recordset 'if the Next10 page number is greater than the recordset page count 'then set Next10 to the recordset pagecount If Next10 > Recordset.PageCount Then Next10 = Recordset.PageCount End If 'the variable start determines where to start the page number navigation ' i.e. 1, 10, 20, 30 and so on. If prev10 = 1 AND next10 - 1 < 10 Then start = 1 Else start = Next10 - 10 If right(start, 1) > 0 Then start = replace(start, right(start, 1), "0") start = start + 10 End If End If 'This checks to make sure that there is more than one page of results If Recordset.PageCount > 1 Then 'Work out whether to show the Previous 10 '<<' If currpage > 1 Then response.write("<< ") End If 'Work out whether to show the Previous link '<' If NOT RSPrevPage = 0 then response.write("< ") End If 'Loop through the page number navigation using P as our loopcounter variable For P = start to Next10 If NOT P = CurrPage then response.write("" & P & " ") Else 'Don't hyperlink the current page number response.write(" " & P & " ") End If Next 'this does the same as the "previous" link, but for the "next" link If NOT RSNextPage > Recordset.PageCount Then response.write("> ") End If 'Work out whether to show the Next 10 '>>' If NOT Next10 = Recordset.PageCount Then response.write(" >>") End If End If %>