SysBlog » ASP

ASP: web config http to https redirection

SysBlog — Thu, 10 Jun 2021 07:03:30 +0000

source: https://stackoverflow.com/questions/9823010/how-to-force-https-using-a-web-config-file

ASP: web.config redirect to another domain with no rules – v2

SysBlog — Tue, 17 Mar 2020 07:18:58 +0000

ASP: web.config redirect

SysBlog — Thu, 31 Oct 2019 10:53:18 +0000

Classic ASP – Getting ID of new record after insert

SysBlog — Fri, 04 Oct 2019 12:45:32 +0000


Dim loConn, lsSQL, loRs
Set loConn = CreateObject("ADODB.Connection")

' Open a connection to the database
loConn.Open(application("DSN=myDSN;UID=something;PWD=Something;"))

' Insert a new record into the table
lsSQL = "SET NOCOUNT ON;" &_
        "INSERT INTO tbl_test (naziv) VALUES ('pero');" &_
        "SELECT @@IDENTITY AS NewID;"

' Execute the SQL statement
Set loRs = loConn.Execute(lsSQL)

' Get the inserted ID
myNewID= loRs.Fields("NewID").value

response.write myNewID

' Close the connection
loConn.Close()
Set loConn = Nothing

The SET NOCOUNT ON suppresses messages like “1 Row(s) affected” being sent back. These messages are sent back every time SQL statement is executed.

source: http://www.kamath.com/tutorials/tut007_identity.asp

Classic ASP – URLDecode

SysBlog — Wed, 25 Sep 2019 12:13:21 +0000

FUNCTION URLDecode(str)
'// This function:
'// - decodes any utf-8 encoded characters into unicode characters eg. (%C3%A5 = å)
'// - replaces any plus sign separators with a space character
'//
'// IMPORTANT:
'// Your webpage must use the UTF-8 character set. Easiest method is to use this META tag:
'//
'//
Dim objScript
Set objScript = Server.CreateObject("ScriptControl")
objScript.Language = "JavaScript"
URLDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")
Set objScript = NOTHING
END FUNCTION

source: https://gist.github.com/gwobcke/2773779

Classic ASP – Strip HTML Function

SysBlog — Mon, 09 Sep 2019 07:30:46 +0000


<%
FUNCTION stripHTML(strHTML)
  Dim objRegExp, strOutput, tempStr
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|n)+?>"
  'Replace all HTML tag matches with the empty string
  strOutput = objRegExp.Replace(strHTML, "")
  'Replace all < and > with < and >
  strOutput = Replace(strOutput, "<", "<")
  strOutput = Replace(strOutput, ">", ">")
  stripHTML = strOutput    'Return the value of strOutput
  Set objRegExp = Nothing
END FUNCTION
%>

source: https://gist.github.com/gwobcke/1027133

Classic ASP – Strip Special Character Function

SysBlog — Mon, 09 Sep 2019 07:27:16 +0000


<%
Function StripSpecialChar(strInput)
	Dim objRegExp
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "[\+\#\@\&\%\$\?\*]"
	'//Replace all character matches with an Empty String
	StripSpecialChar = objRegExp.Replace(strInput, "")
	Set objRegExp = Nothing
End Function
%>

source: https://gist.github.com/gwobcke/1027138/revisions

Classic ASP – IN ARRAY

SysBlog — Sun, 08 Sep 2019 17:06:06 +0000

Function InArray(Needle, Haystack)
    Dim i, x
    InArray = False

    For i = 0 To Ubound(Haystack)
        If IsArray(Needle) = True Then
            For x = 0 To Ubound(Needle)
                If Trim(Haystack(i)) = Trim(Needle(x)) Then
                    InArray = True
                    Exit Function
                End If
            Next
        Else
            If Trim(Haystack(i)) = Trim(Needle) Then
                InArray = True
                Exit Function
            End If
        End If
    Next
End Function

SOURCE: https://gist.github.com/gwobcke/1044367

ASP – ArrayList

SysBlog — Sun, 08 Sep 2019 14:52:31 +0000

Option Explicit

dim list
Set list = CreateObject("System.Collections.ArrayList")
list.Add "Banana"
list.Add "Apple"
list.Add "Pear"

'list.Sort
'list.Reverse

response.write list.Count                 ' --> 3
response.write list.Item(0)               ' --> Pear
response.write list.IndexOf("Apple", 0)   ' --> 2
response.write join(list.ToArray(), ", ") ' --> Pear, Banana, Apple

source: https://stackoverflow.com/questions/13585660/lists-in-vbscript

ASP – dynamic variable i execute

SysBlog — Wed, 14 Sep 2016 11:01:03 +0000

Problem: imamo varijable slika_1, slika_2, slika_3, slika_4 i slika_5 i želimo ispisati svih 5 slika koristeći for petlju

Rješenje:

for i=1 to 5

execute("slika = slika_" & i)

response.write(slika)

next