Empfohlen: Nützliche Sammlung von Funktionen in der ASP -Entwicklung (3) Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich. Bitte behalten Sie sie! '*************************************** 'Slice content-Split by line'****************************** Function SplitLines(byVal Content,byVal ContentNums) Dim ts,i,l ContentNums=int(
Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich. Bitte behalten Sie sie!
'**********************************************
'Filter Hyperlinks
'**********************************************
Funktion poteurl (Byval Chkstr)
Dim str: str = chkstr
STR = Trim (str)
Wenn isnull (str) dann
poteurl =
Ausgangsfunktion
Ende wenn
Dim Re
SET RE = New Regexp
re.Innorecase = true
re.global = true
re.Pattern = (d) (Ocument/.cookie)
STR = Re.Replace (str, 1okumentaler Keks)
Re.Pattern = (d) (Ocument/.Write)
STR = Re.Replace (str, 1okument schreiben)
Re.Pattern = (s) (Skript :)
STR = Re.Replace (str, 1Script)
Re.Pattern = (s) (Skript)
STR = Re.Replace (str, 1Script)
re.Pattern = (o) (Biegung)
STR = Re.Replace (str, 1Bject)
re.Pattern = (a) (pplet)
STR = Re.Replace (str, 1pplet)
re.Pattern = (e) (mbed)
STR = Re.Replace (str, 1mbed)
Setzen Sie Re = nichts
Str = ersetzen (str,>,>)
Str = ersetzen (str, <, <)
Checkurl = str
Endfunktion
'**********************************************
'Filterdatei Name
'**********************************************
Funktion FixName (Upfilext)
Wenn Isempty (Upfilext) beenden, beenden Sie die Funktion
Fixname = uCase (Upfilext)
Fixname = ersetzen (FixName, chr (0),)
Fixname = ersetzen (Fixname,.,)
Fixname = ersetzen (FixName, ASP,)
Fixname = ersetzen (Fixname, ASA,)
Fixname = ersetzen (FixName, ASPX,)
FixName = Ersetzen (FixName, CER,)
Fixname = ersetzen (FixName, CDX,)
Fixname = ersetzen (FixName, HTR,)
Endfunktion
'**********************************************
'Filter Sonderzeichen
'**********************************************
Funktionsprüfung (Byval Chkstr)
Dim str: str = chkstr
Wenn isnull (str) dann
Checkstr =
Ausgangsfunktion
Ende wenn
STR = Ersatz (str, &, &)
Str = ersetzen (str, ',')
Str = ersetzen (str ,,)
Dim Re
SET RE = New Regexp
re.Innorecase = true
re.global = true
re.Pattern = (w) (hier)
STR = Re.Replace (Str, 1Hhere)
re.Pattern = (s) (elect)
STR = Re.Replace (str, 1ELECT)
re.Pattern = (i) (nSert)
STR = Re.Replace (str, 1nsert)
re.Pattern = (c) (Reate)
STR = Re.Replace (str, 1reate)
Re.Pattern = (d) (ROP)
STR = Re.Replace (Str, 1ROP)
re.Pattern = (a) (lter)
STR = Re.Replace (str, 1Lter)
re.Pattern = (d) (elete)
STR = Re.Replace (str, 1Elete)
re.Pattern = (u) (pdate)
STR = Re.Replace (str, 1pdate)
re.Pattern = (/s) (oder)
STR = Re.Replace (str, 1or)
Setzen Sie Re = nichts
Checkstr = str
Endfunktion
'**********************************************
'Sonderzeichen wiederherstellen
'**********************************************
Funktion Unbehebung (Byval Str)
Wenn isnull (str) dann
Unentfechtung =
Ausgangsfunktion
Ende wenn
Str = ersetzen (str, ',')
Str = ersetzen (str ,,)
Dim Re
SET RE = New Regexp
re.Innorecase = true
re.global = true
re.Pattern = (w) (hier)
STR = Re.Replace (Str, 1Hhere)
re.Pattern = (s) (elect)
STR = Re.Replace (str, 1ELECT)
re.Pattern = (i) (nSert)
STR = Re.Replace (str, 1nsert)
re.Pattern = (c) (Reate)
STR = Re.Replace (str, 1reate)
Re.Pattern = (d) (ROP)
STR = Re.Replace (Str, 1ROP)
re.Pattern = (a) (lter)
STR = Re.Replace (str, 1Lter)
re.Pattern = (d) (elete)
STR = Re.Replace (str, 1Elete)
re.Pattern = (u) (pdate)
STR = Re.Replace (str, 1pdate)
re.Pattern = (/s) (oder)
STR = Re.Replace (str, 1or)
Setzen Sie Re = nichts
STR = Ersatz (str, &, &)
Unbeholfener = str
Endfunktion
'**********************************************
»Konvertieren Sie den HTML -Code
'**********************************************
Funktion HTMlencode (Byval -Resting)
Dim Str: Str = Resting
Wenn nicht ist nicht (str) dann
Str = ersetzen (str,>,>)
Str = ersetzen (str, <, <)
Str = ersetzen (str, chr (9),)
Str = ersetzen (str, chr (32),)
STR = Ersatz (str, chr (39), ')
STR = Ersatz (str, chr (34),)
Str = ersetzen (str, chr (13),)
STR = Ersatz (str, chr (10), <br/>)
Htmlencode = str
Ende wenn
Endfunktion
'**********************************************
'Inverse Conversion HTML -Code
'**********************************************
Funktion htmldecode (Byval -Resting)
Dim Str: Str = Resting
Wenn nicht ist nicht (str) dann
Str = ersetzen (str,>,>)
Str = ersetzen (str, <, <)
Str = ersetzen (str,, chr (9))
Str = ersetzen (str,, chr (32))
STR = Ersatz (str, ', chr (39))
STR = Ersetzen (str,, chr (34))
Str = ersetzen (str,, chr (13))
Str = ersetzen (str, <br/>, chr (10))
Htmldecode = str
Ende wenn
Endfunktion
'**********************************************
'Erholen & Charakter
'**********************************************
Funktion clearHtml (Byval -Resting)
Dim Str: Str = Resting
Wenn nicht ist nicht (str) dann
STR = Ersatz (str, &, &)
ClearHtml = str
Ende wenn
Endfunktion
'**********************************************
'Filtertextbereich
'**********************************************
Funktion UBBFilter (Byval -Resting)
Dim Str: Str = Resting
Wenn nicht ist nicht (str) dann
Str = ersetzen (str, </textArea>, </textArea>)
UBBFilter = str
Ende wenn
Endfunktion
'**********************************************
'Filter HTML -Code
'**********************************************
Funktion editDehtml (Byval -Inhalt)
EditDehtml = Inhalt
Wenn nicht isnull (editdehtml) dann
EditDehtml = UnrecincStr (editDehtml)
EditDehtml = ersetzen (editDehtml, &, &)
EditDehtml = ersetzen (editDehtml, <, <, <)
EditDehtml = ersetzen (editDehtml,>,>)
EditDehtml = ersetzen (editDehtml, chr (34),)
EditDehtml = ersetzen (editDehtml, chr (39), ')
Ende wenn
Endfunktion
'**********************************************
'Date Conversion -Funktion
'**********************************************
Funktionsdatetostr (DateTime, ShowType)
Dim Daton (DataTonth, Dateday, DateHour, Dateminute, DateWeek, DateSecond
Dimer Full -Weekday, Short Weekday, Fullmonth, Kurzmonth, TimeZone1, TimeZone2
TimeZone1 =+0800
TimeZone2 =+08: 00
FullWeekday = Array (Sonntag, Montag, Dienstag, Mittwoch, Freitag, Samstag)
Kurzwoekday = Array (Sonne, Mon, Di, Mi, Thu, Fr, Sa)
Fullmonth = Array (Januar, Februar, März, April, Mai, Juni, Juli, August, September, Oktober, November, Dezember)
Kurzmonth = Array (Jan, Februar, März, April, Juni, Juni, August, September, Oktober, November, Dezember)
Datonmonate = Monat (DateTime)
Datay = tag (datetime)
DateHour = Stunde (DateTime)
Dateminute = Minute (DateTime)
DATEWOEK = WOCHTDAY (DATETIMET)
DateSecond = Sekunde (DateTime)
Wenn Len (Datenmonat) <2 dann datonth = 0 & Datmontonth
Wenn Len (doday) <2 dann datay = 0 & dateday
Wenn Len (Dateminute) <2 dann dateminute = 0 & Dateminute
Wählen Sie Case ShowType
Fall YMD
DateToToStr = Jahr (DateTime)-& datonten- & dateday
Fall YMD H: IA
Dim Datenampm
Wenn DateHour> 12 dann
DateHour = DateHour-12
DateMpm = pm
Anders
DateHour = DateHour
DateMpm = am
Ende wenn
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
DateToToStr = Jahr (DateTime)-& Datmonth- & dateday & DateHour: & dateminute & dateMpm
Fall YMD H: i: s
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
Wenn Len (DateSecond) <2 dann datesecond = 0 & datateSecond
DateToToStr = Jahr (DateTime)-& Datmonth- & dateday & DateHour: & dateminute: & datateSecond
Fall Ymdhis
DateSecond = Sekunde (DateTime)
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
Wenn Len (DateSecond) <2 dann datesecond = 0 & datateSecond
DateToToStr = Jahr (DateTime) & Datmonth & dateday & DatumHour & Dateminute & datescond
Fall YM
DateToToStr = rechts (Jahr (DateTime), 2) und Daton
Fall d
DateToStr = datayay
Fall YMD
DateToToStr = rechts (Jahr (DateTime), 4) & Datonth & -dateday
Fall Mdy
Dim Dayend
Wählen Sie den Fall datay
Fall 1
Dayend = st
Fall 2
Dayend = nd
Fall 3
Dayend = Rd
Fall sonst
Dayend = th
Ende auswählen
DateToStr = Fullmonth (Datonmonate-1) & dateday & Dayend & Right (Jahr (DateTime), 4)
Fall W, DMY H: i: s
DateSecond = Sekunde (DateTime)
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
Wenn Len (DateSecond) <2 dann datesecond = 0 & datateSecond
DateToStr = ShortWeekday (DatumWeek-1), & dateday & links (Fullmonth (Datonten-1), 3) & recht
Fall YM-DTH: i: s
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
Wenn Len (DateSecond) <2 dann datesecond = 0 & datateSecond
DateToToStr = Jahr (DateTime)-& Datmonth- & datedayt & DateHour: & dateminute: & datateSecond & timeZone2
Fall sonst
Wenn Len (DateHour) <2, dann DateHour = 0 & DateHour
DateToToStr = Jahr (DateTime)-& Datmonth- & dateday & DateHour: & Dateminute
Ende auswählen
Endfunktion
'**********************************************
'Paginierungsfunktion
'**********************************************
Dim FirstshortCut, Verknüpfung
Firstshortcut = false
Funktion Multipage (Zahlen, Täter, Kurpage, url_add, Aname, Stil)
Curpage = int (Kurpage)
Zahlen = int (Zahlen)
Dunkle URL
Url = request.servervariables (script_name) & url_add
Multipage =
Dim Page, Offset, Pagei
'Wenn int (number)> int (sachende) dann
Seite = 9
Offset = 4
Schwache Seiten, From Page, Topage
Wenn Zahlen mod cint (sachliche) = 0 dann
Seiten = int (Zahlen/Täter)
Anders
Seiten = int (Zahlen/Täter) +1
Ende wenn
FromPage = curpage-offset
Topage = Curpage+Page-Offset-1
Wenn Seite> Seiten dann
From Page = 1
Topage = Seiten
Anders
Wenn from Page <1 dann
Topage = Kurpage+1-fremd
From Page = 1
If (oberstahlfremd) <Seite und (Topage-FROMPAGE) <Seiten, dann Topage = Seite
Elseif Topage> Seiten dann
FromPage = Curpage-Pages +Topage
Topage = Seiten
If (oberst-fROMPAGE) <Page und (Topage-FROMPAGE) <Seiten, dann von Page = Pages-Page+1
Ende wenn
Ende wenn
Multipage = <div class = page style = & style> <ul>
'Wenn Kurpage <> 1 dann Multipage = Multipage & <li class = pagel> <a href = & url & page = 1 class = pagelbutton title = erster Seite> </a> </li>
Multipage = multipage <li class = pageNumber>
Wenn Krümmung <> 1 dann Multipage = Multipage <a href = & urlpage = 1 title = erster Seite style = textdekoration: Keine> <</a> |
Wenn nicht FirstShortCut, dann Shortcut = AccessKey =, sonst Shortcut =
Wenn Kurpage <> 1 dann Multipage = Multipage <a href = & urlpage = & curpage-1 title = vorherige Pagestil = Textdekoration: Keine; & Shortcut> </a>
Für pagei = from Page zum Topage
Wenn Pagei <> Curpage dann
Multipage = Multipage <a href = & urlpage = & pagei & Aname> & pagei </a> |
Anders
Multipage = multipage <strong> & pagei </strong>
Wenn pagei <> Seiten, dann multipage = multipage |
Ende wenn
Nächste
Wenn nicht FirstShortCut, dann Shortcut = AccessKey =. sonst Verknüpfung =
Wenn Kurpage <> Seiten, dann multipage = multipage <a href = & urlpage = & curpage+1 title = nächst
Wenn Kurpage <> Seiten, dann multipage = multipage <a href = & urlpage = & pages & aname title = last page style = textdecoration: Keine >> </a>
Multipage = Multipage </li>
'Wenn int (Seiten)> int (Seite) dann
'Multipage = multipage & <li> ... </li> <li> <a href = & url & page = & pages & Aname &> & Seiten & </a> </li>
'Ende wenn
'Wenn Curpage <> Seiten dann multipage = multipage & <li class = pager> <a href = & url & page = & pages & aname & class = pagerbutton title = letztes Seite> </a> </li>
Multipage = Multipage </ul> </div>
'Ende wenn
Firstshortcut = true
Endfunktion
Aktien: ASPs allgemeine Funktion, um festzustellen, ob der Datenbankwert leer ist Aufgrund unterschiedlicher Eigenschaften verschiedener Felder sind die Methoden zur Feststellung, ob ein Feld leer ist, ebenfalls unterschiedlich. Das Folgende ist eine allgemeine Funktion, die den Schmerz des Feldtyps vermeidet. "Überprüfen Sie, ob eine Variable nicht leer ist, ist isBlank (ByRef tempvar) 'standardmäßig davon aus