Empfohlen: Nützliche Sammlung von Funktionen in der ASP -Entwicklung (2) Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich. Bitte behalten Sie sie! '*************************************** 'Filtering hyperlink'********************************* Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then chec
Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich! Ich hoffe, jeder behält es!
<%
'**********************************************
'Verhindern Sie externe Einsendungen
'**********************************************
Funktion chkpost ()
DIM Server_v1, Server_v2
chkpost = false
server_v1 = cstr (request.servervariables (http_referer)))
server_v2 = cstr (request.servervariables (server_name))
Wenn Mid (Server_v1,8, Len (Server_v2)) <> Server_v2 dann
chkpost = false
anders
chkpost = true
Ende wenn
Endfunktion
'**********************************************
'IP -Filterung
'**********************************************
Funktion Matchip (IP)
Bei der nächsten Fehleraufnahme als nächstes
Matchip = false
Dim SIP, Splitip
Für jeden SIP in Filterip
Sip = ersetzen (sip,*,/d*)
Splitp = Split (SIP ,.)
Dim Re, Strmatchs, Streifen
SET RE = New Regexp
re.Innorecase = true
re.global = true
Re.Pattern = (& Split (0) |). (& Split (1) |). (& Split (2) |). (& Split (3) |)
Setzen Sie Strmatchs = re.execute (IP)
strip = strmatchs (0) .Submatches (0) &. & strmatchs (0) .Submatches (1) &. & strmatchs (0) .Submatches (2) &. & strmatchs (0) .Submatches (3)
Wenn Strip = ip dann matchip = true: exit function
Setzen Sie Strmatchs = nichts
Setzen Sie Re = nichts
nächste
Endfunktion
'**********************************************
'Holen Sie sich den Registrierungscode
'**********************************************
Funktion getCode ()
getCode = <img src = Common/getCode.asp Alt = style = margin-right: 40px;/>
Endfunktion
'**********************************************
'Limit Dateitypen
'**********************************************
Funktion isvalidfile (Datei_type)
Isvalidfile = false
Dimer Gname
Für jeden Gname in up_filetype
Wenn Datei_type = gname dann
Isvalidfile = true
Beenden für
Ende wenn
Nächste
Endfunktion
'**********************************************
'Erkennung, ob nur Englisch und Zahlen enthalten sind
'**********************************************
Funktion isvalidchars (STR)
Dim Re, Chkstr
SET RE = New Regexp
re.Innorecase = true
re.global = true
re.Pattern = [^_/. a-za-z/d]
Isvalidchars = true
chkstr = re.Replace (str,)
Wenn Chkstr <> STR dann isvalidchars = false
Setzen Sie Re = nichts
Endfunktion
'**********************************************
'Erkennung, ob nur Englisch und Zahlen enthalten sind
'**********************************************
Funktion isvalidValue (Arrayn, str)
IsvalidValue = false
Dimer Gname
Für jeden Gname in Arrayn
Wenn Str = gname dann
IsvalidValue = true
Beenden für
Ende wenn
Nächste
Endfunktion
'**********************************************
'Erkennen Sie, ob die Nummer gültig ist
'**********************************************
Funktion Issineger (Abs.)
Issineger = false
Wenn nicht (iSnull (para) oder trimm (para) = oder nicht isnumerisch (para)) dann
Issineger = true
Ende wenn
Endfunktion
'**********************************************
Erkennung von Benutzernamen
'**********************************************
Funktion isvalidusername (Byval Benutzername)
Bei der nächsten Fehleraufnahme als nächstes
Dim i, c
Dimer Vusername
Isvalidusername = true
Für i = 1 bis len (Benutzername)
C = Lase (Mid (Benutzername, i, 1))
Wenn instr (! <>?#^%@~ `&*();:+= ', C)> 0 dann
Isvalidusername = false
Ausgangsfunktion
Ende wenn
Nächste
Für jeden Vusernamen im Register_USERNAME
Wenn Benutzername = Vusername dann
Isvalidusername = false
Beenden für
Ende wenn
Nächste
Endfunktion
'**********************************************
Überprüfen Sie, ob die E-Mail-Adresse gültig ist
'**********************************************
Funktion Isvalidemail (E -Mail)
Schwache Namen, Name, i, c
Isvalidemail = true
Names = split (E -Mail, @)
Wenn Ubound (Namen) <> 1 dann dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
Für jeden Namen in Namen
Wenn Len (Name) <= 0 dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
Für i = 1 bis len (Name)
C = Lase (Mitte (Name, i, 1))
Wenn instr (abcdefghijklmnopqrstuvwxyz_-., C) <= 0 und nicht isnumerisch (c) dann dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
Nächste
Wenn links (Name, 1) =. oder rechts (Name, 1) =. Dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
Nächste
Wenn Instrumente (Namen (1),.) <= 0 dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
i = len (Namen (1)) - Instrrev (Namen (1),.)
Wenn ich <> 2 und ich <> 3 dann dann
Isvalidemail = false
Ausgangsfunktion
Ende wenn
Wenn Instrument (E -Mail, ..)> 0 dann
Isvalidemail = false
Ende wenn
Endfunktion
'**********************************************
'Highlight Keywords
'**********************************************
Funktionshighlight (Byval Strcontent, ByRef Arraywords)
Dim intCounter, Strtemp, Intpos, IntagLength, IntKeywordLength, Bupdate
Wenn Len (Arraywords) <1 dann leuchtet = StrContent: Exit -Funktion
Für intpos = 1 bis len (StrContent)
bupdate = false
Wenn mittel (StrContent, intpos, 1) = <dann
Bei der nächsten Fehleraufnahme als nächstes
intTagLength = (instration (intpos, strcontent,>, 1) - intpos)
Wenn irren
Highlight = StrContent
err.clear
Ende wenn
Strtemp = Strtemp & Mid (Strcontent, Intpos, IntAgLength)
intpos = intpos + intagLength
Ende wenn
Wenn Arraywords <> dann
intKeywordLength = len (Arraywords)
Wenn Lase (Mid (StrContent, Intpos, intKeywordLength)) = lase (Arraywords) dann
strTemp = strtemp & <span class = High1> & Mid (Strcontent, intpos, intKeywordLength) & </span>
intpos = intpos + intKeywordLength - 1
bupdate = true
Ende wenn
Ende wenn
Wenn bupdate = false dann
Strtemp = Strtemp & Mid (Strcontent, Intpos, 1)
Ende wenn
Nächste
Highlight = Strtemp
Endfunktion
Anteil: 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(