feat: add missing KF6 framework recipes
This commit is contained in:
@@ -0,0 +1,65 @@
|
||||
<!DOCTYPE html>
|
||||
<html><head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
|
||||
<title>highlight.asp</title>
|
||||
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (ASP) - Theme (Breeze Light)"/>
|
||||
</head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
|
||||
<span style="color:#0057ae;font-weight:bold"><%</span> <span style="color:#898887">'</span><span style="color:#ca60ca">kate:</span><span style="color:#898887"> </span><span style="color:#0095ff">hl</span><span style="color:#bf0303"> ASP</span><span style="color:#0095ff">;</span>
|
||||
<span style="font-weight:bold">if</span> <span style="color:#006e28">(</span> <span style="color:#644a9b">instr</span><span style="color:#006e28">(</span><span style="color:#644a9b">request</span>.<span style="color:#644a9b">servervariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"PATH_INFO"</span><span style="color:#006e28">),</span><span style="color:#bf0303">"login.asp"</span><span style="color:#006e28">)</span> <= <span style="color:#b08000">0</span> <span style="font-weight:bold">and</span> <span style="color:#644a9b">instr</span><span style="color:#006e28">(</span><span style="color:#644a9b">request</span>.<span style="color:#644a9b">servervariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"PATH_INFO"</span><span style="color:#006e28">),</span><span style="color:#bf0303">"inset"</span><span style="color:#006e28">)</span> <= <span style="color:#b08000">0</span> <span style="font-weight:bold">and</span> <span style="color:#644a9b">instr</span><span style="color:#006e28">(</span><span style="color:#644a9b">request</span>.<span style="color:#644a9b">servervariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"PATH_INFO"</span><span style="color:#006e28">),</span><span style="color:#bf0303">"Data"</span><span style="color:#006e28">)</span> <= <span style="color:#b08000">0</span> <span style="font-weight:bold">and</span> <span style="color:#644a9b">instr</span><span style="color:#006e28">(</span><span style="color:#644a9b">request</span>.<span style="color:#644a9b">servervariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"PATH_INFO"</span><span style="color:#006e28">),</span><span style="color:#bf0303">"dropDown"</span><span style="color:#006e28">)</span> <= <span style="color:#b08000">0</span> <span style="color:#006e28">)</span> <span style="font-weight:bold">then</span>
|
||||
<span style="color:#644a9b">Session</span><span style="color:#006e28">(</span><span style="color:#bf0303">"originalRequestedPage"</span><span style="color:#006e28">)</span> = <span style="color:#644a9b">Request</span>.<span style="color:#644a9b">ServerVariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"PATH_INFO"</span><span style="color:#006e28">)</span> <span style="font-weight:bold">&</span> <span style="color:#bf0303">"?"</span> <span style="font-weight:bold">&</span> <span style="color:#644a9b">Request</span>.<span style="color:#644a9b">ServerVariables</span><span style="color:#006e28">(</span><span style="color:#bf0303">"QUERY_STRING"</span><span style="color:#006e28">)</span>
|
||||
<span style="font-weight:bold">end if</span>
|
||||
|
||||
<span style="font-weight:bold">function</span> countRecords<span style="color:#006e28">(</span> rsToCount <span style="color:#006e28">)</span>
|
||||
numRecs = <span style="color:#b08000">0</span>
|
||||
|
||||
<span style="font-weight:bold">do</span> <span style="font-weight:bold">until</span> rsToCount.<span style="font-weight:bold">eof</span>
|
||||
numRecs = numRecs + <span style="color:#b08000">1</span>
|
||||
|
||||
rsToCount.<span style="font-weight:bold">movenext</span>
|
||||
<span style="font-weight:bold">loop</span>
|
||||
|
||||
rsToCount.<span style="font-weight:bold">close</span> <span style="color:#898887">' just to make sure nobody</span>
|
||||
<span style="color:#898887">' tries to operate on the recordset,</span>
|
||||
<span style="color:#898887">' which has already reached eof</span>
|
||||
|
||||
countRecords = numRecs
|
||||
<span style="font-weight:bold">end function</span>
|
||||
|
||||
<span style="font-weight:bold">function</span> unique<span style="color:#006e28">(</span> rs<span style="color:#006e28">,</span> sortColumn <span style="color:#006e28">)</span> <span style="color:#898887">' return unique instances of text in sortColumn within rs</span>
|
||||
<span style="font-weight:bold">dim</span> sorted<span style="color:#006e28">()</span>
|
||||
|
||||
<span style="font-weight:bold">redim</span> sorted<span style="color:#006e28">(</span><span style="color:#b08000">1</span><span style="color:#006e28">)</span>
|
||||
<span style="font-weight:bold">dim</span> i
|
||||
i = <span style="color:#b08000">0</span>
|
||||
<span style="font-weight:bold">do</span> <span style="font-weight:bold">until</span> rs.<span style="font-weight:bold">eof</span>
|
||||
<span style="font-weight:bold">if</span> <span style="color:#006e28">(</span><span style="font-weight:bold">not</span> find<span style="color:#006e28">(</span> rs<span style="color:#006e28">(</span>sortColumn<span style="color:#006e28">),</span> sorted <span style="color:#006e28">))</span> <span style="font-weight:bold">then</span>
|
||||
<span style="font-weight:bold">redim</span> <span style="font-weight:bold">preserve</span> sorted<span style="color:#006e28">(</span>i+<span style="color:#b08000">1</span><span style="color:#006e28">)</span>
|
||||
sorted<span style="color:#006e28">(</span>i<span style="color:#006e28">)</span> = rs<span style="color:#006e28">(</span>sortColumn<span style="color:#006e28">)</span>
|
||||
i = i + <span style="color:#b08000">1</span>
|
||||
<span style="font-weight:bold">end if</span>
|
||||
rs.<span style="font-weight:bold">MoveNext</span>
|
||||
<span style="font-weight:bold">loop</span>
|
||||
|
||||
<span style="font-weight:bold">redim</span> <span style="font-weight:bold">preserve</span> sorted<span style="color:#006e28">(</span>i-<span style="color:#b08000">1</span><span style="color:#006e28">)</span> <span style="color:#898887">' the function will add an extra blank entry to the array</span>
|
||||
|
||||
rs.<span style="font-weight:bold">Close</span> <span style="color:#898887">' close the recordset - we'll be using it again - and reset i - well be using it again, too</span>
|
||||
|
||||
unique = sorted
|
||||
<span style="font-weight:bold">end function</span>
|
||||
|
||||
<span style="font-weight:bold">sub</span> testSub<span style="color:#006e28">(</span> variable <span style="color:#006e28">)</span> <span style="color:#898887">' do nothing impressive...</span>
|
||||
<span style="font-weight:bold">dim</span> newVar
|
||||
|
||||
newVar = variable
|
||||
|
||||
<span style="font-weight:bold">if</span> <span style="color:#006e28">(</span> variable = <span style="font-weight:bold">true</span> <span style="color:#006e28">)</span>
|
||||
<span style="color:#644a9b">response</span>.<span style="color:#644a9b">end</span>
|
||||
<span style="font-weight:bold">else</span> <span style="color:#0057ae;font-weight:bold">%></span>
|
||||
|
||||
<span style="font-weight:bold"><p></span>We are writing text.<span style="font-weight:bold"></p></span>
|
||||
<span style="font-weight:bold"><p</span><span style="color:#006e28"> class=</span><span style="color:#bf0303">"stuff"</span><span style="font-weight:bold">></span><span style="color:#0057ae;font-weight:bold"><%</span>=newVar<span style="color:#0057ae;font-weight:bold">%></span><span style="font-weight:bold"></p></span>
|
||||
<span style="font-weight:bold"><p></span>We have written text and outputted a variable.<span style="font-weight:bold"></p></span>
|
||||
|
||||
<span style="color:#0057ae;font-weight:bold"><%</span> <span style="font-weight:bold">end if</span>
|
||||
<span style="font-weight:bold">end sub</span> <span style="color:#0057ae;font-weight:bold">%></span>
|
||||
</pre></body></html>
|
||||
Reference in New Issue
Block a user