Empfohlen: 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
Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich. Bitte behalten Sie sie!
'**********************************************
'Inhalt ausschneiden - nach Leitung geteilt
'**********************************************
Funktionsspaltlinien (Byval -Inhalt, Byval -ContentNums)
Dim Ts, i, l
Contentnums = int (contentnums)
Wenn isnull (Inhalt) beenden Sie die Funktion
I = 1
ts = 0
Für i = 1 bis len (Inhalt)
L = Lase (Mid (Inhalt, i, 5))
Wenn l = <br/> dann
ts = ts+1
Ende wenn
L = Lase (MID (Inhalt, i, 4))
Wenn l = <br> dann
ts = ts+1
Ende wenn
L = Lase (Mid (Inhalt, i, 3))
Wenn l = <p> dann
ts = ts+1
Ende wenn
Wenn ts> contentNums dann beenden Sie für
Nächste
Wenn ts> contentnums dann
Content = links (Inhalt, I-1)
Ende wenn
Splitlines = Inhalt
Endfunktion
'**********************************************
'Inhalt schneiden - durch Zeichen geteilt
'**********************************************
Funktion Cutstr (Byval Str, Byval Strlen)
Dim L, T, C, i
Wenn isnull (str) dann cutstr =: Ausgangsfunktion
l = len (str)
Strlen = int (strlen)
t = 0
Für i = 1 bis l
C = ASC (MID (STR, I, 1))
Wenn c <0 oder c> 255 dann t = t+2 sonst t = t+1
Wenn t> = strlen dann
Cutstr = links (str, i) ...
Beenden für
Anders
Cutstr = str
Ende wenn
Nächste
Endfunktion
'**********************************************
'Löschen Sie das Referenz -Tag
'**********************************************
Funktion delquote (StrContent)
Wenn isnull (StrContent) beenden Sie die Funktion
Dim Re
SET RE = New Regexp
re.Innorecase = true
re.global = true
re.Pattern =/[QUOTE/](.;
StrContent = Re.Replace (StrContent,)
re.pattern =/[quote = (. [^/]*)/] (. [^/]*?)/[// QUOTE/]]*?)/[// QUOTE/]
StrContent = Re.Replace (StrContent,)
Setzen Sie Re = nichts
Delquote = StrContent
Endfunktion
'**********************************************
'Holen Sie sich Client IP
'**********************************************
Funktion getip ()
Dim Strip, ip_ary, strip_list
strip_list = ersetzen (request.servervariables (http_x_forwarded_for), ',),),)
Wenn instr (strip_list ,,) <> 0 dann
Ip_ary = split (strip_list ,,)
strip = ip_ary (0)
Anders
Strip = Strip_List
Ende wenn
Wenn strip = leer ist, dann strip = ersetzen (request.servervariables (remote_addr), ',),)
Getip = Streifen
Endfunktion
Dieser Artikel wird von Design Home gesammelt und zusammengestellt
'**********************************************
'Holen Sie sich den Client -Browser -Informationen
'**********************************************
Funktion getBrowser (Strua)
Dim Arrinfo, Strype, temp1, temp2
STRTYPE =
Strua = Lase (Strua)
Arrinfo = Array (Unkown, Unkown)
'Browser -Urteil
Wenn Instrumente (Strua, Mozilla)> 0 dann arrinfo (0) = Mozilla
Wenn Instrument (Strua, ICAB)> 0 dann arrinfo (0) = ICAB
Wenn Instrumente (Strua, Lynx)> 0 dann arrinfo (0) = lynx
if Instr (Strua, Links)> 0, dann Arrinfo (0) = Links
Wenn Instrument (Strua, Elinks)> 0, dann arrinfo (0) = Elinks
If Instr (strua, jbrowser)> 0, dann arrinfo (0) = jbrowser
If Instr (Strua, Konqueror)> 0, dann Arrinfo (0) = Konqueror
Wenn Instrumente (Strua, WGet)> 0 dann arrinfo (0) = wget
Wenn instr (strua, frage Jeeves)> 0 oder Instr (Strua, Teoma)> 0, dann Arrinfo (0) = Fragen Sie Jeeves/Teoma
Wenn Instrumente (Strua, WGet)> 0 dann arrinfo (0) = wget
Wenn Instrument (Strua, Opera)> 0 dann arrinfo (0) = Opera
Wenn Instrument (Strua, Gecko)> 0 dann
STRTYPE = [Gecko]
Arrinfo (0) = Mozilla
Wenn Instrument (Strua, AOL)> 0 dann arrinfo (0) = aOL
Wenn Instrument (Strua, Netscape)> 0, dann Arrinfo (0) = Netscape
Wenn Instrument (Strua, Firefox)> 0 dann arrinfo (0) = Firefox
Wenn Instrumente (Strua, Chimera)> 0, dann Arrinfo (0) = Chimera
Wenn Instrument (Strua, Camino)> 0 dann arrinfo (0) = Camineo
Wenn Instrument (Strua, Galeon)> 0 dann arrinfo (0) = galeon
If Instr (Strua, K-Meleon)> 0, dann Arrinfo (0) = k-meleon
arrinfo (0) = arrinfo (0)+strtype
Ende wenn
Wenn instr (strua, bot)> 0 oder instr (strua, crawl)> 0 dann
STRTYPE = [Bot/Crawler]
arrinfo (0) =
Wenn Instrum
if Instr (Strua, GoogleBot)> 0, arrinfo (0) = GoogleBot
if Instr (strua, msnbot)> 0, dann arrinfo (0) = msn Bot
Wenn Instrumente (Strua, Slurp)> 0 dann arrinfo (0) = yahoo! Schlürfen
arrinfo (0) = arrinfo (0)+strtype
Ende wenn
Wenn Instrument (Strua, Applewebkit)> 0 dann
STRTYPE = [Applewebkit]
arrinfo (0) =
if instr (strua, omniweb)> 0 dann arrinfo (0) = omniweb
Wenn Instrument (Strua, Safari)> 0 dann arrinfo (0) = safari
arrinfo (0) = arrinfo (0)+strtype
Ende wenn
Wenn Instrument (Strua, MSIE)> 0 dann
STRTYPE = [MSIE
temp1 = mid (strua, (instr (strua, msie)) +4), 6)
temp2 = instr (temp1,;)
temp1 = links (temp1, temp2-1)
STRTYPE = STRTYPE & TEMP1]
Arrinfo (0) = Internet Explorer
Wenn Instrument (Strua, MSN)> 0 dann arrinfo (0) = msn
Wenn Instrument (Strua, AOL)> 0 dann arrinfo (0) = aOL
Wenn Instrumente (Strua, WebTV)> 0 dann arrinfo (0) = webTV
Wenn instr (strua, myie2)> 0 dann arrinfo (0) = myie2
If Instr (Strua, Maxthon)> 0, dann Arrinfo (0) = Maxthon
Wenn Instrument (Strua, Gosurf)> 0, dann Arrinfo (0) = Gosurf
If Instr (strua, netcaptor)> 0, dann arrinfo (0) = netcaptor
Wenn Instrum
If Instr (Strua, Avantbrowser)> 0, dann Arrinfo (0) = Avantbrowser
If Instr (Strua, GreenBrowser)> 0, dann Arrinfo (0) = GreenBrowser
If Instr (Strua, SlimBrowser)> 0, dann Arrinfo (0) = SlimBrowser
arrinfo (0) = arrinfo (0)+strtype
Ende wenn
'Betriebssystem Urteilsvermögen
Wenn Instrument (Strua, Windows)> 0 dann Arrinfo (1) = Windows
Wenn Instrument (Strua, Windows CE)> 0 dann arrinfo (1) = Windows CE
Wenn Instrument (Strua, Windows 95)> 0 dann arrinfo (1) = Windows 95
If Instr (Strua, Win98)> 0, arrinfo (1) = Windows 98
Wenn Instrument (Strua, Windows 98)> 0 dann arrinfo (1) = Windows 98
Wenn Instrumente (Strua, Windows 2000)> 0, dann Arrinfo (1) = Windows 2000
Wenn Instrumente (Strua, Windows XP)> 0, dann Arrinfo (1) = Windows XP
Wenn Instrument (Strua, Windows NT)> 0 dann
Arrinfo (1) = Windows nt
Wenn Instrumente (Strua, Windows NT 5.0)> 0, dann Arrinfo (1) = Windows 2000
Wenn Instrumente (Strua, Windows NT 5.1)> 0, dann Arrinfo (1) = Windows XP
Wenn Instrumente (Strua, Windows NT 5.2)> 0, dann Arrinfo (1) = Windows 2003
Ende wenn
Wenn Instrument (Strua, x11)> 0 oder Instrum (Strua, Unix)> 0 dann arrinfo (1) = unix
Wenn Instrumente (Strua, Sunos)> 0 oder Instrument (Strua, Sun OS)> 0 dann Arrinfo (1) = Sun OS
Wenn instr (strua, powerpc)> 0 oder instr (strua, ppc)> 0 dann arrinfo (1) = powerpc
Wenn Instrum
Wenn Instrumente (Strua, Mac OSX)> 0, dann Arrinfo (1) = macOSX
Wenn Instrument (Strua, FreeBSD)> 0 dann arrinfo (1) = FreeBSD
if Instr (Strua, Linux)> 0, dann Arrinfo (1) = Linux
Wenn Instrumente (Strua, Palmsource)> 0 oder Instrum (Strua, Palmos)> 0 dann arrinfo (1) = Palmos
Wenn Instrument (Strua, WAP)> 0 dann arrinfo (1) = WAP
'arrinfo (0) = strua
getBrowser = arrinfo
Endfunktion
'**********************************************
'Berechnen von Zufallszahlen
'**********************************************
Funktion Randomstr (intLength)
Dunkel, Sämlinge, pos, str, ich
strsed = abcdefghijklmnopqrstuvwxyz1234567890
Keimlänge = len (Strsed)
str =
Randomisieren
für i = 1 bis intlength
STR = STR+MID (STRSEED, INT (SAMLENGENGEN*RND) +1,1)
nächste
randomstr = str
Endfunktion
'**********************************************
'Automatisch geschlossen UBB
'**********************************************
Funktion in der Nähe (StrContent)
Dim Arrtags, I, OpenPos, Conepos, RE, Strmatchs, J, Match
SET RE = New Regexp
re.Innorecase = true
re.global = true
Arrtags = Array (Code, Zitat, Liste, Farbe, Ausrichtung, Schrift, Größe, b, i, u, html)
für i = 0 bis ubund (arrtags)
Openpos = 0
Closepos = 0
re.Pattern =/[+arrtags (i)+(= [^/[/]]+|)/]
Setzen Sie Strmatchs = re.execute (StrContent)
Für jedes Match in Strmatchs
Openpos = openpos+1
nächste
re.Pattern =/[/+arrtags (i)+/]
Setzen Sie Strmatchs = re.execute (StrContent)
Für jedes Match in Strmatchs
Closepos = Closepos+1
nächste
für j = 1 zu openpos-closepos
StrContent = StrContent+[/+arrtags (i)+]
nächste
nächste
CloseBb = StrContent
Endfunktion
'**********************************************
'Automatisch HTML schließen
'**********************************************
Funktion CloseHtml (StrContent)
Dim Arrtags, I, OpenPos, Conepos, RE, Strmatchs, J, Match
SET RE = New Regexp
re.Innorecase = true
re.global = true
Arrtags = Array (P, Div, Span, Tabelle, Ul, Schriftart, B, U, I, H1, H2, H3, H4, H5, H6)
für i = 0 bis ubund (arrtags)
Openpos = 0
Closepos = 0
re.Pattern =/<+arrtags (i)+([^/</>]+|)//
Setzen Sie Strmatchs = re.execute (StrContent)
Für jedes Match in Strmatchs
Openpos = openpos+1
nächste
re.Pattern =/</+arrtags (i)+//>
Setzen Sie Strmatchs = re.execute (StrContent)
Für jedes Match in Strmatchs
Closepos = Closepos+1
nächste
für j = 1 zu openpos-closepos
StrContent = StrContent+</+arrtags (i)+>
nächste
nächste
closehtml = strcontent
Endfunktion
'**********************************************
'Lesen Sie die Datei
'**********************************************
Funktion loadfromFile (Byval -Datei)
Dimer Objstream
Dim Rtext
Rtext = array (0,)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objstream = server.createObject (adodb.stream)
Wenn irren
Rtext = array (err.number, err.description)
LoadFromFile = rtext
Err.clear
Ausgangsfunktion
Ende wenn
Mit objstream
.Type = 2
.Mode = 3
.Offen
.CharSet = utf-8
.Position = objstream.size
.LoadfromFile server.mappath (Datei)
Wenn err.number <> 0 dann
Rtext = array (err.number, err.description)
LoadFromFile = rtext
Err.clear
Ausgangsfunktion
Ende wenn
Rtext = array (0, .readText)
.Schließen
Enden mit
LoadFromFile = rtext
Objstream einstellen = nichts
Endfunktion
'**********************************************
'Speichern Sie die Datei
'**********************************************
Funktion SavetoFile (Byval Stracky, Byval -Datei)
Dimer Objstream
Dim Rtext
Rtext = array (0,)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objstream = server.createObject (adodb.stream)
Wenn irren
Rtext = array (err.number, err.description)
Err.clear
Ausgangsfunktion
Ende wenn
Mit objstream
.Type = 2
.Offen
.CharSet = utf-8
.Position = objstream.size
.WritETEXT = strkodo
.SaveToFile Server.Mappath (Datei), 2
.Schließen
Enden mit
Rtext = array (0, die Datei erfolgreich speichern!)
SavetoFile = rtext
Objstream einstellen = nichts
Endfunktion
'**********************************************
'Domäneneradungsmodifikationsvorgang
'**********************************************
Funktion dbquest (Tabelle, Dbarray, Aktion)
Dim AddCount, tempdb, i, v
Wenn Aktion <> Einfügen oder Aktion <> Aktualisieren, dann action = einfügen
wenn action = einfügen, dann v = 2 sonst v = 3
Wenn nicht Isarray (Dbarray) dann
Dbquest = -1
Ausgangsfunktion
anders
Setzen Sie tempdb = server.createObject (adodb.recordset)
Bei der nächsten Fehleraufnahme als nächstes
Tempdb.open table, conn, 1, v
Wenn irren
Dbquest = -2
Ausgangsfunktion
Ende wenn
Wenn action = einfügen, dann tempdb.addnew
AddCount = Ubound (Dbarray, 1)
für i = 0, um addCount zu addieren
Tempdb (dbarray (i) (0)) = dbarray (i) (1)
nächste
Tempdb.update
Tempdb.close
Setzen Sie tempdb = nichts
Dbquest = 0
Ende wenn
Endfunktion
'**********************************************
„Überprüfen Sie, ob die Systemkomponenten installiert sind
'**********************************************
Funktion checkObjinstalled (StrclassString)
Bei der nächsten Fehleraufnahme als nächstes
Dim Temp
Err = 0
Dim tmpobj
Setzen Sie TMPOBJ = Server.CreateObject (StrclassString)
Temp = err
Wenn temp = 0 oder temp = -2147221477 dann dann
CheckObjinstalled = true
Elseif temp = 1 oder temp = -2147221005 dann
CheckObjinstalled = false
Ende wenn
Err.clear
Setzen Sie tmpobj = nichts
Err = 0
Endfunktion
'**********************************************
'Richter Server Microsoft.xmldom
'**********************************************
Funktion getXmldom
Bei der nächsten Fehleraufnahme als nächstes
Dim Temp
getXmldom = microsoft.xmldom
Err = 0
Dim tmpobj
Setzen Sie tmpobj = server.createObject (getXmldom)
Temp = err
Wenn temp = 1 oder temp = -2147221005 dann dann
getXmldom = msxml2.domdocument.5.0
Ende wenn
Err.clear
Setzen Sie tmpobj = nichts
Err = 0
Endfunktion
'**********************************************
'Richter Server MSXML2.SERVERXMLHTTP
'**********************************************
Funktion getXmlHttp
Bei der nächsten Fehleraufnahme als nächstes
Dim Temp
getXmlhttp = msxml2.serverxmlhttp
Err = 0
Dim tmpobj
Setzen Sie TMPOBJ = server.createObject (getXmlhttp)
Temp = err
Wenn temp = 1 oder temp = -2147221005 dann dann
getXmlhttp = msxml2.serverxmlhttp.5.0
Ende wenn
Err.clear
Setzen Sie tmpobj = nichts
Err = 0
Endfunktion
'**********************************************
'Müllschlüsselwortfilterung
'**********************************************
Funktion filterspam (STR, Pfad)
Bei der nächsten Fehleraufnahme als nächstes
filterspam = false
Dimer Spamxml, Spamitem
Setzen Sie spamxml = server.createObject (getXmldom)
Wenn irren
Err.clear
Ausgangsfunktion
Ende wenn
spamxml.async = false
spamxml.load (server.mappath (Pfad))
Wenn spamxml.parseerror.Errorcode = 0 dann
Für jedes Spamitem in spamxml.selectnodes (// Schlüssel)
Wenn Instrumente (lase (str), lase (spamitem.text)) <> 0 dann
filterspam = true
Ausgangsfunktion
Ende wenn
nächste
Ende wenn
Setzen Sie spamxml = nichts
Endfunktion
'**************************************************
'Zweck: Überprüfen Sie das reguläre Formular
'ENTER: ID
'Return: Erfolg ist wahr
'**************************************************
Funktion checkregexp (Quelle, Abs.)
Wenn para = [Benutzername] dann
para =^[. a-za-z0-9/u4e00-/u9fa5]+
Ende wenn
Wenn para = [Passwort] dann
para =^[a-z0-9]+
Ende wenn
Wenn para = [E -Mail] dann
para =^([0-9a-za-z] ([-./w]*[0-9a-za-z])*@([0-9a-za-z] [-/w]*/.)+[a-za-z]*)
Ende wenn
Wenn para = [Homepage] dann
para =^[a-za-z]+: // [a-za-z0-9 /-/./]+?/*
Ende wenn
Wenn para = [nojapan] dann
para = [/u3040-/u30ff]+
Ende wenn
Wenn para = [Guid] dann
para =^/w {8}/-/w {4}/-/w {4}/-/w {4}/-/w {4}/-/w {12}
Ende wenn
Dim Re
Setzen Sie Re = New Regexp
re.global = true
re.Pattern = para
re.Innorecase = false
CheckReGexp = re.test (Quelle)
Endfunktion
'*****************************************
'Holen Sie sich die Anzahl der Personen online
'*****************************************
Funktion getonline
getonline = 1
Wenn len (application (space_cookiename_onlinecount))> 0 dann
Wenn datiff (s, application (space_cookiename_useronlinecounttime), jetzt ())> 60 Dann
Application.lock ()
Application (space_cookiename_online) = application (space_cookiename_onlinecount)
Application (space_cookiename_onlinecount) = 1
Application (space_cookiename_onlinecountkey) = randstr (2)
Application (space_cookiename_useronlineCounttime) = jetzt ()
Application.unlock ()
anders
Wenn Sitzung (Space_CookIenameuseronlineKey) <> Anwendung (space_cookiename_onlinecountkey) dann
Application.lock ()
Application (space_cookiename_onlinecount) = application (space_cookiename_onlinecount) +1
Application.unlock ()
Sitzung (space_cookienameuseronlineKey) = application (space_cookiename_onlinecountkey)
Ende wenn
Ende wenn
anders
Application.lock
Application (space_cookiename_online) = 1
Application (space_cookiename_onlinecount) = 1
Application (space_cookiename_onlinecountkey) = randstr (2)
Application (space_cookiename_useronlineCounttime) = jetzt ()
Application.unlock
Ende wenn
getOnline = application (space_cookiename_online)
Endfunktion
%>
Dieser Artikel wird von Design Home gesammelt und zusammengestellt
Teilen: ASP exportiert Daten aus der Datenbank in die Excel -Tabelle Der ASP -Instanzcode exportiert die Daten in der Datenbank direkt in die Excel -Tabelle. !-#include File = ../conn.asp-- % dim s, sql, fileName, fs, myFile, x set fs = server.createObject (scripting.FileSystemObject) '-Suppose Sie möchten, dass die generierte Excel-Datei wie folgt speichert wird. FileName = Server.