Recomendado: Colección útil de funciones en el desarrollo de ASP (3) Una colección de funciones útiles en el desarrollo de ASP es bastante útil, ¡por favor guárdela! '***************************************' Slice Content-Split por línea '*************************************
Una colección de funciones útiles en el desarrollo de ASP es bastante útil, ¡por favor guárdela!
'********************************************
'Hyperlinks de filtro
'********************************************
Función checkUrl (Byval chkstr)
Dim str: str = chkstr
str = TRIM (STR)
Si isnull (str) entonces
checkurl =
Función de salida
Final si
Atenuar
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
re.pattern = (d) (ocument/.cookie)
Str = re.replace (Str, 1Cument Cookie)
re.pattern = (d) (ocument/.write)
Str = re.replace (Str, 1Cument 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)
Establecer re = nada
Str = reemplazar (str,>,>)
Str = reemplazar (str, <, <)
checkurl = str
función final
'********************************************
'Filtrar el nombre del archivo
'********************************************
Función FixName (UpFileExt)
Si isEtimty (UpFileExt), entonces salga de la función
Fixname = ucase (UpFileExt)
Fixname = reemplazar (fixname, chr (0),)
Fixname = reemplazar (fixname,.,)
Fixname = reemplazar (fixname, asp,)
Fixname = reemplazar (fixname, asa,)
Fixname = reemplazar (fixname, aspx,)
Fixname = reemplazar (fixname, cer,)
Fixname = reemplazar (fixname, cdx,)
Fixname = reemplazar (fixname, htr,)
Función final
'********************************************
'Filtrar caracteres especiales
'********************************************
Función checkstr (byval chkstr)
Dim str: str = chkstr
Si isnull (str) entonces
Checkstr =
Función de salida
Final si
Str = reemplazar (str, &, y)
Str = reemplazar (str ',')
Str = reemplazar (str ,,)
Atenuar
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
re.pattern = (w) (aquí)
Str = re.replace (str, 1here)
re.pattern = (s) (electo)
Str = re.replace (str, 1elect)
re.pattern = (i) (nsert)
Str = re.replace (str, 1nsert)
re.pattern = (c) (volver a colgar)
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) (o)
Str = re.replace (str, 1or)
Establecer re = nada
Checkstr = str
Función final
'********************************************
'Restaurar personajes especiales
'********************************************
Función Uncheckstr (Byval STR)
Si isnull (str) entonces
Uncheckstr =
Función de salida
Final si
Str = reemplazar (str ',')
Str = reemplazar (str ,,)
Atenuar
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
re.pattern = (w) (aquí)
str = re.replace (str, 1here)
re.pattern = (s) (electo)
str = re.replace (str, 1elect)
re.pattern = (i) (nsert)
str = re.replace (str, 1nsert)
re.pattern = (c) (volver a colgar)
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) (o)
Str = re.replace (str, 1or)
Establecer re = nada
Str = reemplazar (str, &, y)
Uncheckstr = str
Función final
'********************************************
'Convertir el código HTML
'********************************************
Función htmlencode (Byval Restring)
Dim Str: Str = Restring
Si no es isnull (str) entonces
Str = reemplazar (str,>,>)
Str = reemplazar (str, <, <)
Str = reemplazar (str, chr (9),)
Str = reemplazar (str, chr (32),)
Str = reemplazar (str, chr (39), ')
Str = reemplazar (str, chr (34),)
Str = reemplazar (str, chr (13),)
Str = reemplazar (str, chr (10), <br/>)
Htmlencode = str
Final si
Función final
'********************************************
'Código HTML de conversión inversa
'********************************************
Función htmldecode (Byval Restring)
Dim Str: Str = Restring
Si no es isnull (str) entonces
Str = reemplazar (str,>,>)
Str = reemplazar (str, <, <)
Str = reemplazar (str, chr (9))
Str = reemplazar (str ,, chr (32))
Str = reemplazar (str, ', chr (39))
Str = reemplazar (str ,, chr (34))
Str = reemplazar (str ,, chr (13))
Str = reemplazar (str, <br/>, chr (10))
Htmldecode = str
Final si
Función final
'********************************************
'Recuperar y personaje
'********************************************
función ClearHtml (Byval Restring)
Dim Str: Str = Restring
Si no es isnull (str) entonces
Str = reemplazar (str, &, y)
Clearhtml = str
Final si
Función final
'********************************************
'Filtro Textarea
'********************************************
Función UBBFilter (Byval Restring)
Dim Str: Str = Restring
Si no es isnull (str) entonces
Str = reemplazar (str, </textarea>, </extarea>)
Ubbfilter = str
Final si
Función final
'********************************************
'Filtrar código HTML
'********************************************
Función editdehtml (contenido de Byval)
Editdehtml = contenido
Si no es isnull (editdehtml) entonces
Editdehtml = uncheckstr (editDehtml)
Editdehtml = reemplazar (editDehtml, &, &)
Editdehtml = reemplazar (editDehtml, <, <)
Editdehtml = reemplazar (editDehtml,>,>)
Editdehtml = reemplazar (editDehtml, chr (34),)
Editdehtml = reemplazar (editDehtml, chr (39), ')
Final si
Función final
'********************************************
'Función de conversión de fechas
'********************************************
Función dataToStr (DateTime, ShowType)
Dim Datemonth, Dateday, DateHour, DatEminute, Dateweek, DateseCond
Dim Fullweekday, Shortweekday, Fullmonth, Shortmonth, TimeZone1, TimeZone2
Zona horaria1 =+0800
TimeZone2 =+08: 00
Fullweekday = Array (domingo, lunes, martes, miércoles, viernes, sábado)
Shortweekday = Array (Sun, Mon, Tue, Wed, Thu, Fri, Sat)
FullMonth = Array (enero, febrero, marzo, abril, mayo, junio, julio, agosto, septiembre, octubre, noviembre, diciembre)
ShortMonth = Array (enero, febrero, mar, abril, mayo, junio, julio, agosto, septiembre, octubre, nov, dec)
Datemonth = mes (dateTime)
Dateday = día (fecha de fecha)
DateHour = hora (DateTime)
DatEminute = minuto (dateTime)
DateWeek = Weekday (DateTime)
DateSecond = segundo (DateTime)
Si Len (Datemonth) <2 entonces datemonth = 0 & datemonth
Si len (fateday) <2 entonces fateday = 0 & dateday
Si Len (DatEminute) <2 entonces datEminute = 0 & datEminute
Seleccione Case ShowType
Caso YMD
DataToStr = año (dateTime)-& datemonth- & dateday
Case YMD H: IA
Dim DataAMPM
Si datehour> 12 entonces
Datehour = datehour-12
DataAmpm = PM
Demás
Datehour = datehour
DataAmpm = AM
Final si
Si len (datehour) <2 luego datehour = 0 & datehour
DataToStr = año (DateTime)-& Datemonth- & Dateday & DateHour: & DatEminute & DataAmpm
Case YMD H: I: S
Si len (datehour) <2 luego datehour = 0 & datehour
Si Len (DateseCond) <2 entonces DateseCond = 0 & Datesecond
DataToStr = año (dateTime)-& datemonth- & dateday & datehour: & datEminute: & DateseCond
Caso ymdhis
DateSecond = segundo (DateTime)
Si len (datehour) <2 luego datehour = 0 & datehour
Si Len (DateseCond) <2 entonces DateseCond = 0 & Datesecond
DataToStr = año (dateTime) y Datemonth & Dateday & DateHour & DatEminute & DateseCond
Caso YM
DataToStr = Right (año (DateTime), 2) y Datemonth
Caso D
DataToStr = fateday
Caso YMD
DataToStr = Right (año (DateTime), 4) y Datemonth & Dateday
Caso Mdy
Dim Dayend
Seleccionar caso Dateday
Caso 1
Dayend = st
Caso 2
Dayend = nd
Caso 3
Dayend = rd
Caso
Dayend = th
Final seleccionar
DataToStr = fullmonth (datemonth-1) & dateday & dayend & right (año (dateTime), 4)
Caso W, DMY H: I: S
DateSecond = segundo (DateTime)
Si len (datehour) <2 luego datehour = 0 & datehour
Si Len (DateseCond) <2 entonces DateseCond = 0 & Datesecond
DataToStr = Shortweekday (dateWeek-1), & Dateday & Left (FullMonth (Datemonth-1), 3) y Derecho (año (DateTime), 4) y DateHour: & Dateminute: & DateseCond & TimeZone1
Caso YM-DTH: I: S
Si len (datehour) <2 luego datehour = 0 & datehour
Si Len (DateseCond) <2 entonces DateseCond = 0 & Datesecond
DataToStr = año (DateTime)-& Datemonth- & Datedayt & DateHour: & DatEminute: & DateseCond & TimeZone2
Caso
Si len (datehour) <2 luego datehour = 0 & datehour
DataToStr = año (DateTime)-& Datemonth- & Dateday & DateHour: & DatEminute
Final seleccionar
Función final
'********************************************
'Función de paginación
'********************************************
Dim FirstShortcut, atajo
FirstShortCut = falso
FUNCIÓN Multipage (números, perpage, curpage, url_add, aname, estilo)
Curpage = int (curpage)
Números = int (números)
URL oscura
Url = request.servervariables (script_name) y url_add
Multipage =
Página Dim, Offset, Pagei
'Si int (números)> int (perpage) entonces
Página = 9
Compensación = 4
Páginas Dim, de Page, Topage
Si los números mod cint (perpage) = 0 entonces
Páginas = int (números/perpage)
Demás
Páginas = int (números/perpage) +1
Final si
FromPage = Curpage-ofset
Topage = curpage+page-ofset-1
Si página> páginas entonces
Frompage = 1
Topage = páginas
Demás
Si desde la página <1 entonces
Topage = curpage+1-lucha
Frompage = 1
If (topage-frompage) <page y (topage-frompage) <pages entonces topage = página
Elseif Topage> páginas entonces
FromPage = Cursage Page +Topage
Topage = páginas
If (topage-frompage) <page y (topage-frompage) <pages entonces fromPage = PageS-PAGE+1
Final si
Final si
Multipage = <div class = page style = & style> <ul>
'if curpage <> 1 entonces multipage = multipage & <li class = pagel> <a href = & url & page = 1 class = PagelButton title = First Page> </a> </li>
Multipage = multipage <li class = pageNumber>
Si curpage <> 1 entonces multipage = multipage <a href = & urlpage = 1 title = First Page style = Text-Decoration: Ninguno> <</a> |
Si no es FirstShortCut, entonces atasco = accesskey =, else atasco =
if curpage <> 1 entonces multipage = multipage <a href = & urlpage = & curpage-1 title = anterior pageSyle = text-decoration: none; & shortcut> </a>
Para PAGEI = FromPage to Tapage
If pagei <> curpage entonces
Multipage = multipage <a href = & urlpage = & pagei & aname> & pagei </a> |
Demás
Multipage = multipage <strong> & pagei </strong>
if pagei <> páginas entonces multipage = multipage |
Final si
Próximo
Si no FirstShortCut, entonces atajo = accesskey =. else atajo =
if curpage <> páginas luego multipage = multipage <a href = & urlpage = & curpage+1 title = next pagestyle = text-decoration: none & shortcut> </a>
if curpage <> páginas luego multipage = multipage <a href = & urlpage = & páginas & aname title = Última página estilo = text-decoration: none >> </a>
Multipage = multipage </li>
'If int (páginas)> int (página) entonces
'Multipage = multipage & <li> ... </li> <li> <a href = & url & page = & Pages & aname &> & Pages & </a> </li>
'Finalizar si
'if curpage <> páginas entonces multipage = multipage & <li class = perger> <a href = & url & page = & Pages & aname & class = PagerButton title = Última página> </a> </li>
Multipage = multipage </ul> </div>
'Finalizar si
FirstShortCut = True
Función final
Compartir: la función general de ASP para determinar si el valor de la base de datos está vacío Debido a las diferentes propiedades de varios campos, los métodos para determinar si un campo está vacío también son diferentes. La siguiente es una función general, que evita el dolor del tipo de campo. 'Verificar una variable no es una función vacía isblank (byref tempvar)' de forma predeterminada, suponga que no está en blanco isblank = falso 'ahora verifique por variable t