Recommandé: collection utile de fonctions dans le développement ASP (3) Une collection de fonctions utiles dans le développement ASP est très utile, veuillez le garder! '*****************************************' Slice Content-Split by Line '******************************** Fonction Splitlines (contenu ByVal, Byval ContentNums) Dim Ts, i, l ContentNums = int (
Une collection de fonctions utiles dans le développement ASP est très utile, veuillez le garder!
'******************************************
'Filtre Hyperlien
'******************************************
Fonction CheckUrl (ByVal Chkstr)
Dim Str: str = chktr
str = trim (str)
Si ISNULL (STR) alors
checkurl =
Fonction de sortie
Terminer si
Dim re
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = (d) (Ocument / .cookie)
Str = re.replace (Str, 1 ocument biscuit)
re.Pattern = (d) (Ocument / .Write)
Str = re.replace (str, 1 ocument write)
re.Pattern = (s) (script :)
Str = re.replace (str, 1script)
re.Pattern = (s) (script)
Str = re.replace (str, 1script)
re.Pattern = (o) (bject)
Str = re.replace (str, 1bject)
re.Pattern = (a) (pplet)
Str = re.replace (str, 1pplet)
re.Pattern = (e) (mbed)
Str = re.replace (str, 1Mbed)
Définir RE = rien
Str = remplacer (str,>,>)
Str = remplacer (str, <, <)
checkurl = str
fonction finale
'******************************************
'Filtre Nom du fichier
'******************************************
Fonction FIXNAME (UPFILEEXT)
Si iSEmpty (upfileExt), alors la fonction de sortie
Fixname = ucase (upfileExt)
FIXNAME = remplacer (FixName, Chr (0),)
FixName = remplacer (fixname,.,)
FIXNAME = remplacer (fixname, asp,)
FIXNAME = remplacer (fixname, asa,)
FIXNAME = remplacer (FixName, Aspx,)
FIXNAME = remplacer (FixName, Cer,)
FIXNAME = remplacer (FixName, CDX,)
FIXNAME = remplacer (fixname, htr,)
Fonction finale
'******************************************
'Filtre des caractères spéciaux
'******************************************
Fonction CheckSTR (BYVAL CHKSTR)
Dim Str: str = chktr
Si ISNULL (STR) alors
Checkstr =
Fonction de sortie
Terminer si
Str = remplacer (str, &, &)
Str = remplacer (str, ',')
Str = remplacer (str ,,)
Dim re
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = (w) (ici)
Str = re.replace (str, 1here)
re.Pattern = (s) (élu)
Str = re.replace (str, 1elect)
re.Pattern = (i) (nSert)
Str = re.replace (str, 1nsert)
re.Pattern = (c) (Reat)
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) (ou)
Str = re.replace (str, 1or)
Définir RE = rien
Checkstr = str
Fonction finale
'******************************************
'Restaurer des caractères spéciaux
'******************************************
Fonction Unchecktr (Byval Str)
Si ISNULL (STR) alors
Unchecktrasstr =
Fonction de sortie
Terminer si
Str = remplacer (str, ',')
Str = remplacer (str ,,)
Dim re
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = (w) (ici)
str = re.replace (str, 1here)
re.Pattern = (s) (élu)
str = re.replace (str, 1elect)
re.Pattern = (i) (nSert)
str = re.replace (str, 1nsert)
re.Pattern = (c) (Reat)
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) (ou)
Str = re.replace (str, 1or)
Définir RE = rien
Str = remplacer (str, &, &)
Uncheckstrsr = str
Fonction finale
'******************************************
'Convertir le code HTML
'******************************************
Fonction htmlencode (repos byval)
Dim Str: Str = Restring
Sinon ISNULL (STR) alors
Str = remplacer (str,>,>)
Str = remplacer (str, <, <)
Str = remplacer (str, chr (9),)
Str = remplacer (str, chr (32),)
Str = remplacer (str, chr (39), ')
Str = remplacer (str, chr (34),)
Str = remplacer (str, chr (13),)
Str = remplacer (str, chr (10), <br/>)
Htmlencode = str
Terminer si
Fonction finale
'******************************************
'Code HTML de conversion inverse
'******************************************
Fonction htmlDecode (repos byval)
Dim Str: Str = Restring
Sinon ISNULL (STR) alors
Str = remplacer (str,>,>)
Str = remplacer (str, <, <)
Str = remplacer (str ,, chr (9))
Str = remplacer (str ,, chr (32))
Str = remplacer (str, ', chr (39))
Str = remplacer (str ,, chr (34))
Str = remplacer (str ,, chr (13))
Str = remplacer (str, <br/>, chr (10))
HtmlDecode = str
Terminer si
Fonction finale
'******************************************
'Récupérer et caractère
'******************************************
fonction clearhtml (repos byval)
Dim Str: Str = Restring
Sinon ISNULL (STR) alors
Str = remplacer (str, &, &)
Clearhtml = str
Terminer si
Fonction finale
'******************************************
'Filtre TextArea
'******************************************
Fonction ubbfilter (repos byval)
Dim Str: Str = Restring
Sinon ISNULL (STR) alors
Str = remplacer (str, </ textArea>, </ textarea>)
Ubbfilter = str
Terminer si
Fonction finale
'******************************************
'Filtre Code HTML
'******************************************
Fonction editdehtml (contenu byval)
Editdehtml = contenu
Sinon ISNULL (EditDehtml) alors
EditDehtml = Unchecktr (editdehtml)
Editdehtml = remplacer (editdehtml, &, &)
EditDehtml = remplacer (editdehtml, <, <)
EditDehtml = Remplacer (editDehtml,>,>)
EditDehtml = remplacer (editdehtml, chr (34),)
EditDehtml = remplacer (editdehtml, chr (39), ')
Terminer si
Fonction finale
'******************************************
'Fonction de conversion de date
'******************************************
Fonction DateToStr (DateTime, ShowType)
DIM Datemonth, daté, datehour, datemnute, dateweek, datescond
Dim Fullweekday, courte-semaine, Fullmonth, Shortmonth, Timezone1, Timezone2
Timezone1 = + 0800
Timezone2 = + 08: 00
Fullweekday = Array (dimanche, lundi, mardi, mercredi, vendredi, samedi)
courte-swekday = tableau (soleil, lun, mar, mer, jeu, ven, samedi)
Fullmonth = Array (janvier, février, mars, avril, mai, juin, juillet, août, septembre, octobre, novembre, décembre)
Shortmonth = Array (janvier, février, mars, avril, mai, juin, juil, août, septembre, octobre, nov, déc)
Datemonth = mois (datetime)
Daté = jour (datetime)
Datehour = Hour (DateTime)
DateMinute = Minute (DateTime)
Dateweek = en semaine (DateTime)
DatesConD = Second (DateTime)
Si Len (Datemonth) <2 alors datemonth = 0 & datemonth
Si len (daté) <2 alors daté = 0 & daté
Si Len (DateMinute) <2 alors datemusite = 0 & datemusite
Sélectionnez Case ShowType
Case YMD
DateToStr = Year (DateTime) - & datemonth- & daté
Cas ymd h: ia
Dalm dateampm
Si Datehour> 12 alors
Datehour = datehour-12
Dateampm = pm
Autre
Datehour = datehour
Dateampm = am
Terminer si
Si Len (datehour) <2 alors datehour = 0 & datehour
DateToStr = Year (DateTime) - & datemonth- & daté et datehour: & dateMinute & Dateampm
Cas ymd h: i: s
Si Len (datehour) <2 alors datehour = 0 & datehour
Si Len (DatesConD) <2 alors datessecond = 0 & datescond
DateToStr = Year (DateTime) - & datemonth- & daté et datehour: & dateMinute: & datesCond
Cas ymdhis
DatesConD = Second (DateTime)
Si Len (datehour) <2 alors datehour = 0 & datehour
Si Len (DatesConD) <2 alors datessecond = 0 & datescond
DateToStr = Year (DateTime) & Datemonth & DATADAY & DATEHOUR & DateMinute & DatesCond
Cas ym
DateToStr = à droite (année (DateTime), 2) et Datemonth
Cas d
DatetoStr = daté
Case YMD
DateToStr = droite (année (DateTime), 4) et Datemonth & daté
Case Mdy
Daim du jour
Sélectionnez le cas daté
Cas 1
Dayend = st
Cas 2
Dayend = nd
Cas 3
Dayend = rd
Cas d'autre
Dayend = th
Fin de sélection
DateToStr = Fullmonth (DateMonth-1) & DaDay & Dayend & Right (année (DateTime), 4)
Cas W, dmy h: i: s
DatesConD = Second (DateTime)
Si Len (datehour) <2 alors datehour = 0 & datehour
Si Len (DatesConD) <2 alors datessecond = 0 & datescond
DateToStr = Shortweekday (Dateweek-1), & DaDay & Left (Fullmonth (DateMonth-1), 3) & Right (année (DateTime), 4) & Datehour: & datemnute: & datesEnond & timezone1
Cas ym-dth: i: s
Si Len (datehour) <2 alors datehour = 0 & datehour
Si Len (DatesConD) <2 alors datessecond = 0 & datescond
DateToStr = Year (DateTime) - & datemonth- & dadeayt & datehour: & dateMinute: & datesEnond & timezone2
Cas d'autre
Si Len (datehour) <2 alors datehour = 0 & datehour
DateToStr = Year (DateTime) - & datemonth- & daté et datehour: & dateMinute
Fin de sélection
Fonction finale
'******************************************
'Fonction de pagination
'******************************************
Dim Firsthortcut, raccourci
FirstShortcut = false
Multipage de fonction (nombres, perpage, curpage, url_add, aname, style)
Curpage = int (curpage)
Nombres = int (nombres)
URL DIM
Url = request.servervariables (script_name) & url_add
Multipage =
Page Dim, décalage, pagei
'Si int (nombres)> int (perpage) alors
Page = 9
Offset = 4
Pages sombres, de la page, topage
Si les nombres mod cint (perpage) = 0 alors
Pages = int (nombres / perpage)
Autre
Pages = int (nombres / perpage) +1
Terminer si
FromPage = CurPage-Offset
Topage = curpage + page-offset-1
Si page> pages alors
FromPage = 1
Topage = pages
Autre
Si de la page <1 alors
Topage = Curpage + 1-FROMPAGE
FromPage = 1
If (topage-fompage) <page et (topage-fompage) <pages alors topage = page
Topage elseif> pages alors
FromPage = Curpage-Pages + Topage
Topage = pages
If (topage-fompage) <page et (topage-fompage) <pages alors de la page = pages-pages + 1
Terminer si
Terminer si
Multipage = <div class = page style = & style> <ul>
'Si curPage <> 1 alors multipage = multipage & <li class = pagel> <a href = & url & page = 1 class = pagelbutton title = première page> </a> </li>
Multipage = multipage <li class = pageNumber>
Si curPage <> 1 alors multipage = multipage <a href = & urlPage = 1 title = première page style = text-décoration: aucun> << / a> |
Sinon FirstShortcut, Shortcut = AccessKey =, else shortcut =
Si curpage <> 1 alors multipage = multipage <a href = & urlpage = & curPage-1 title = PageSyle précédent = text-détecoration: aucun; & raccourci> </a>
Pour pagei = de la page à la topage
Si pagei <> curpage alors
Multipage = multipage <a href = & urlpage = & pagei & aname> & pagei </a> |
Autre
Multipage = multipage <strong> & pagei </strong>
Si pagei <> pages alors multipage = multipage |
Terminer si
Suivant
Sinon FirstShortcut, Shortcut = AccessKey =. sinon raccourci =
Si curpage <> pages, alors multipage = multipage <a href = & urlPage = & curPage + 1 title = prochain pagestyle = text-décoration: aucun et raccourci> </a>
Si curpage <> pages, alors multipage = multipage <a href = & urlpage = & pages & aname title = dernier style de page = text-décoration: aucun >> </a>
Multipage = multipage </li>
'Si int (pages)> int (page) alors
'Multipage = multipage & <li> ... </li> <li> <a href = & url & page = & pages & aname &> & pages & </a> </li>
'Fini si
'Si curPage <> pages alors multipage = multipage & <li class = pager> <a href = & url & page = & pages & aname & class = pagerbutton title = dernière page> </a> </li>
Multipage = multipage </ul> </div>
'Fini si
FirstShortcut = True
Fonction finale
Partager: la fonction générale d'ASP pour déterminer si la valeur de la base de données est vide En raison de différentes propriétés de divers champs, les méthodes pour déterminer si un champ est vide est également différent. Ce qui suit est une fonction générale, qui évite la douleur du type de champ. `` Vérifier une variable n'est pas une fonction vide iSblank (byref tempvar) 'par défaut, supposons qu'il n'est pas vierge Isblank = false' maintenant vérifier par variable t