Recommandé: 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 vier
Une collection de fonctions utiles dans le développement ASP est très utile, veuillez le garder!
'******************************************
'Coupez le contenu - divisé par ligne
'******************************************
Fonction Splitlines (contenu ByVal, ByVal ContentNums)
Dim ts, i, l
ContentNums = int (ContentNums)
Si ISNULL (Contenu), alors la fonction de sortie
i = 1
ts = 0
Pour i = 1 à len (contenu)
l = lCase (mid (contenu, i, 5))
Si l = <br/> alors
ts = ts + 1
Terminer si
l = lCase (mid (contenu, i, 4))
Si l = <br> alors
ts = ts + 1
Terminer si
l = lCase (mid (contenu, i, 3))
Si l = <p> alors
ts = ts + 1
Terminer si
Si ts> contenuNUMs, puis sortez pour
Suivant
Si TS> Contentnums alors
Contenu = gauche (contenu, i-1)
Terminer si
Splitlines = Contenu
Fonction finale
'******************************************
'Coupez le contenu - séparé par caractère
'******************************************
Fonction Cutstr (Byval Str, Byval Strlen)
Dim l, t, c, i
Si ISNULL (STR) alors Cutstr =: Fonction de sortie
l = len (str)
Strlen = int (strlen)
t = 0
Pour i = 1 à L
C = ASC (Mid (str, i, 1))
Si c <0 ou c> 255 alors t = t + 2 else t = t + 1
Si t> = strlen alors
Cutstr = gauche (str, i) ...
Sortir pour
Autre
Cutstr = str
Terminer si
Suivant
Fonction finale
'******************************************
'Supprimer la balise de référence
'******************************************
Fonction Delquote (strContent)
Si ISNULL (StrContent) alors la fonction de sortie
Dim re
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = / [citation /
strContent = re.replace (strContent,)
re.pattern = / [quote = (. [^ /]] *) /] (. [^ /]] *?) / [// quote /]]] *?) / [// citer /]
strContent = re.replace (strContent,)
Définir RE = rien
Delquote = stract
Fonction finale
'******************************************
'Obtenez IP du client
'******************************************
fonction getip ()
Dim Strip, ip_ary, strip_list
strip_list = remplacer (request.servervariables (http_x_forwarded_for), ',)
Si instr (strip_list ,,) <> 0 alors
Ip_ary = split (strip_list ,,)
strip = ip_ary (0)
Autre
strip = strip_list
Terminer si
Si strip = vide alors strip = remplacer (request.servervariables (reote_addr), ',)
getip = bande
Fonction finale
Cet article est collecté et compilé par Design Home
'******************************************
'Obtenez des informations sur le navigateur client
'******************************************
fonction getbrowser (strua)
Dim Arrinfo, Strype, Temp1, Temp2
strType =
strua = lcase (strua)
Arrinfo = Array (Nonskown, Unkown)
'Jugement du navigateur
Si instlin (strua, mozilla)> 0 alors arrinfo (0) = Mozilla
Si instlin (strua, icab)> 0 alors arrinfo (0) = ICAB
Si instlin (strua, lynx)> 0 alors arrinfo (0) = lynx
Si instlin (strua, liens)> 0 alors arrinfo (0) = liens
Si instlin (strua, elinks)> 0 alors arrinfo (0) = elinks
Si instlin (strua, jbrowser)> 0 alors arrinfo (0) = jbrowser
Si instlin (strua, konqueror)> 0 alors arrinfo (0) = konqueror
Si instlin (strua, wget)> 0 alors arrinfo (0) = wget
Si instlin (strua, demandez à Jeeves)> 0 ou instlin (strua, teoma)> 0 alors arrivfo (0) = demandez jeeves / teoma
Si instlin (strua, wget)> 0 alors arrinfo (0) = wget
Si instlin (strua, opéra)> 0 alors arrinfo (0) = opéra
Si instr (strua, gecko)> 0 alors
strType = [gecko]
Arrinfo (0) = Mozilla
Si instlin (strua, aol)> 0 alors arrinfo (0) = aol
Si instlin (strua, netscape)> 0 alors arrinfo (0) = netscape
Si instlin (strua, firefox)> 0 alors arrinfo (0) = firefox
Si instlin (strua, chimera)> 0 alors arrinfo (0) = chimère
Si instlin (strua, camino)> 0 alors arrinfo (0) = camineo
Si instlin (strua, galeon)> 0 alors arrinfo (0) = galeon
Si instlin (strua, k-meleon)> 0 alors arrinfo (0) = k-meleon
Arrinfo (0) = Arrinfo (0) + Strype
terminer si
Si instr (strua, bot)> 0 ou instr (strua, crawl)> 0 alors
strType = [bot / robot]
Arrinfo (0) =
Si instlin (strua, grub)> 0 alors arrinfo (0) = grub
Si instlin (strua, googlebot)> 0 alors arrinfo (0) = googlebot
Si instlin (strua, msnbot)> 0 alors arrinfo (0) = msn bot
Si instr (strua, slurp)> 0 alors arrinfo (0) = yahoo! Slurp
Arrinfo (0) = Arrinfo (0) + Strype
terminer si
Si instr (strua, Applewebkit)> 0 alors
strType = [Applewebkit]
Arrinfo (0) =
Si instlin (strua, omniweb)> 0 alors arrinfo (0) = omniweb
Si instlin (strua, safari)> 0 alors arrinfo (0) = safari
Arrinfo (0) = Arrinfo (0) + Strype
terminer si
Si instr (strua, msie)> 0 alors
strType = [msie
temp1 = mid (strua, (instr (strua, msie) +4), 6)
temp2 = instant (temp1,;)
temp1 = gauche (temp1, temp2-1)
strType = strType & temp1]
Arrinfo (0) = Internet Explorer
Si instlin (strua, msn)> 0 alors arrinfo (0) = msn
Si instlin (strua, aol)> 0 alors arrinfo (0) = aol
Si instlin (strua, webtv)> 0 alors arrinfo (0) = webtv
Si instlin (strua, myie2)> 0 alors arrinfo (0) = myie2
Si instlin (strua, maxthon)> 0 alors arrinfo (0) = maxthon
Si instlin (strua, gosurf)> 0 alors arrinfo (0) = gosurf
Si instlin (strua, netcaptor)> 0 alors arrinfo (0) = netcaptor
Si instlin (strua, sleipnir)> 0 alors arrinfo (0) = sleipnir
Si instlin (strua, avant navigateur)> 0 alors arrinfo (0) = Avantbrowser
Si instlin (strua, greenbrowser)> 0 alors arrinfo (0) = greenbrowser
Si instlin (strua, slimbrowser)> 0 alors arrinfo (0) = slimbrowser
Arrinfo (0) = Arrinfo (0) + Strype
terminer si
'Jugement du système d'exploitation
Si instlin (strua, windows)> 0 alors arrinfo (1) = windows
Si instlin (strua, windows ce)> 0 alors arrinfo (1) = Windows CE
Si instlin (strua, windows 95)> 0 alors arrinfo (1) = Windows 95
Si instlin (strua, win98)> 0 alors arrinfo (1) = windows 98
Si instlin (strua, windows 98)> 0 alors arrinfo (1) = windows 98
Si instlin (strua, windows 2000)> 0 alors arrinfo (1) = Windows 2000
Si instlin (strua, windows xp)> 0 alors arrinfo (1) = windows xp
Si instr (strua, windows nt)> 0 alors
Arrinfo (1) = Windows NT
Si instr (strua, windows nt 5.0)> 0 alors arrivfo (1) = windows 2000
Si instr (strua, windows nt 5.1)> 0 puis Arrinfo (1) = Windows XP
Si instlin (strua, windows nt 5.2)> 0 alors arrinfo (1) = Windows 2003
terminer si
Si instlin (strua, x11)> 0 ou instr (strua, Unix)> 0 alors arrinfo (1) = Unix
Si instlin (strua, sunos)> 0 ou instr (strua, soleil os)> 0 alors arrinfo (1) = soleil os
Si instlin (strua, powerpc)> 0 ou instlin (strua, ppc)> 0 alors arrinfo (1) = powerpc
Si instlin (strua, macintosh)> 0 alors arrinfo (1) = mac
Si instlin (strua, mac osx)> 0 alors arrinfo (1) = macOsx
Si instlin (strua, freebsd)> 0 alors arrinfo (1) = freebsd
Si instlin (strua, linux)> 0 alors arrinfo (1) = Linux
Si instlin (strua, palmsource)> 0 ou instr (strua, palmos)> 0 puis arrinfo (1) = palmos
Si instlin (strua, wap)> 0 alors arrinfo (1) = wap
'Arrinfo (0) = Strua
getBrowser = Arrinfo
fonction finale
'******************************************
'Computer des nombres aléatoires
'******************************************
fonction randomstr (intLength)
Dim Strseed, semedlength, pos, str, i
strseed = abcdefghijklmnopqrstuvwxyz1234567890
SeedLength = len (strseed)
str =
Randomiser
pour i = 1 à intlength
str = str + mid (strseed, int (SeedLength * rnd) +1,1)
suivant
RandomStr = str
fonction finale
'******************************************
'Fermer automatiquement UBB
'******************************************
Fonction CloseUBB (StrContent)
Dim Arrtags, I, OpenPOS, RostoPos, Re, StrMatchs, J, Match
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
Arrtags = Array (code, citation, liste, couleur, alignement, police, taille, b, i, u, html)
pour i = 0 à Ubund (Arrtags)
OpenPOS = 0
Closepos = 0
re.Pattern = / [+ arrtags (i) + (= [^ / [/]] + |) /]
Set strmatchs = re.execute (strContent)
Pour chaque match dans les strmatchs
OpenPOS = OpenPOS + 1
suivant
re.Pattern = / [/ + arrtags (i) + /]
Set strmatchs = re.execute (strContent)
Pour chaque match dans les strmatchs
Roserpos = roserpos + 1
suivant
Pour j = 1 à OpenPos-Closepos
strContent = strContent + [/ + arrtags (i) +]
suivant
suivant
closeUBB = strContent
fonction finale
'******************************************
'Fermer automatiquement HTML
'******************************************
Fonction CloseHTML (StrContent)
Dim Arrtags, I, OpenPOS, RostoPos, Re, StrMatchs, J, Match
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
Arrtags = Array (P, Div, Span, Table, UL, Font, B, U, I, H1, H2, H3, H4, H5, H6)
pour i = 0 à Ubund (Arrtags)
OpenPOS = 0
Closepos = 0
re.Pattern = / <+ arrtags (i) + ([^ / </>] + |) /
Set strmatchs = re.execute (strContent)
Pour chaque match dans les strmatchs
OpenPOS = OpenPOS + 1
suivant
re.Pattern = / </ + arrtags (i) + //>
Set strmatchs = re.execute (strContent)
Pour chaque match dans les strmatchs
Roserpos = roserpos + 1
suivant
Pour j = 1 à OpenPos-Closepos
strContent = strContent + </ + arrtags (i) +>
suivant
suivant
closehtml = strContent
fonction finale
'******************************************
'Lisez le fichier
'******************************************
Fonction LoadFromFile (fichier ByVal)
Objstream sombre
Dim rtext
RText = Array (0,)
Sur l'erreur reprendre ensuite
Définir ObjStream = Server.CreateObject (Adodb.Stream)
Si err alors
RText = array (err.number, err.dercription)
LoadFromfile = RText
Err.Clear
fonction de sortie
Terminer si
Avec objstream
.Type = 2
.Mode = 3
.Ouvrir
.Charset = UTF-8
.Position = Objstream.Size
.LoadFromFile Server.Mappath (fichier)
Si err.number <> 0 alors
RText = array (err.number, err.dercription)
LoadFromfile = RText
Err.Clear
fonction de sortie
Terminer si
RText = Array (0, .readText)
.Fermer
Se terminer avec
LoadFromfile = RText
Définir objstream = rien
Fonction finale
'******************************************
'Enregistrer le fichier
'******************************************
Fonction Savetofile (Byval Strbody, fichier byval)
Objstream sombre
Dim rtext
RText = Array (0,)
Sur l'erreur reprendre ensuite
Définir ObjStream = Server.CreateObject (Adodb.Stream)
Si err alors
RText = array (err.number, err.dercription)
Err.Clear
fonction de sortie
Terminer si
Avec objstream
.Type = 2
.Ouvrir
.Charset = UTF-8
.Position = Objstream.Size
.WriteText = Strbody
.Savetofile server.mappath (fichier), 2
.Fermer
Se terminer avec
RText = array (0, enregistrez le fichier avec succès!)
SaveTofile = rText
Définir objstream = rien
Fonction finale
'******************************************
'Opération de modification de l'ajout de domaine
'******************************************
fonction dbQuest (table, dbArray, action)
Dim addcount, tempdb, i, v
Si Action <> Insérer ou Action <> Mise à jour alors Action = INSERT
Si l'action = insérer alors v = 2 else v = 3
Sinon IsArray (DBArray) alors
DbQuest = -1
fonction de sortie
autre
Set tempdb = server.createObject (adodb.recordSet)
Sur l'erreur reprendre ensuite
TABLEAU TEMPDB.Open, Conn, 1, V
Si err alors
DbQuest = -2
fonction de sortie
terminer si
Si l'action = insérer alors tempdb.addnew
AddCount = Ubound (dbArray, 1)
pour i = 0 à addCount
Tempdb (dbArray (i) (0)) = dbArray (i) (1)
suivant
Tempdb.update
Tempdb.close
Set tempdb = rien
DbQuest = 0
terminer si
fonction finale
'******************************************
'Vérifiez si les composants système sont installés
'******************************************
Fonction CheckObJinStalled (StrClassString)
Sur l'erreur reprendre ensuite
Température
Err = 0
Tmpobj dim
Définir TMPOBJ = Server.CreateObject (StrClassString)
Temp = err
Si temp = 0 ou temp = -2147221477 alors
CheckObJinStalled = true
Elseif temp = 1 ou temp = -2147221005 alors
CheckObjinStalled = false
Terminer si
Err.Clear
Définir tmpobj = rien
Err = 0
Fonction finale
'******************************************
'Juge serveur Microsoft.xmldom
'******************************************
Fonction getxmldom
Sur l'erreur reprendre ensuite
Température
getXmldom = Microsoft.xmldom
Err = 0
Tmpobj dim
Définir TMPOBJ = Server.CreateObject (GetXMldom)
Temp = err
Si temp = 1 ou temp = -2147221005 alors
getXmldom = msxml2.domDocument.5.0
Terminer si
Err.Clear
Définir tmpobj = rien
Err = 0
fonction finale
'******************************************
'Juge serveur msxml2.serverxmlhttp
'******************************************
Fonction getxmlhttp
Sur l'erreur reprendre ensuite
Température
getxmlhttp = msxml2.serverxmlhttp
Err = 0
Tmpobj dim
Définir tmpobj = server.createObject (getXmlhttp)
Temp = err
Si temp = 1 ou temp = -2147221005 alors
getxmlhttp = msxml2.serverxmlhttp.5.0
Terminer si
Err.Clear
Définir tmpobj = rien
Err = 0
fonction finale
'******************************************
'Filtrage de mots clés à ordures
'******************************************
Fonction filterspam (str, chemin)
sur l'erreur reprendre ensuite
filterspam = false
DIM SPAMXML, SPAMITEM
Définir spamxml = server.createObject (getXmldom)
Si err alors
Err.Clear
fonction de sortie
terminer si
spamxml.async = false
spamxml.load (server.mappath (path))
Si spamxml.parseerror.errorcode = 0 alors
Pour chaque spamitem dans spamxml.selectnodes (// clé)
Si instr (lcase (str), lCase (spamitem.text)) <> 0 alors
filterspam = true
fonction de sortie
terminer si
suivant
terminer si
définir spamxml = rien
fonction finale
'***************************************************************
'Objectif: vérifiez le formulaire régulier
'Entrez: ID
'Retour: le succès est vrai
'***************************************************************
Fonction CheckRegexp (source, para)
Si para = [nom d'utilisateur] alors
para = ^ [. A-za-z0-9 / u4e00- / u9fa5] +
Terminer si
Si para = [mot de passe] alors
para = ^ [a-z0-9] +
Terminer si
Si para = [e-mail] alors
para = ^ ([0-9a-za-z] ([-. / w] * [0-9a-za-z]) * @ ([0-9a-za-z] [- / w] * /.) + [a-za-z] *)
Terminer si
Si para = [page d'accueil] alors
para = ^ [a-za-z] +: // [a-za-z0-9 /-/./] +? / *
Terminer si
Si para = [nojapan] alors
para = [/ u3040- / u30ff] +
Terminer si
Si para = [GUID] alors
para = ^ / w {8} / - / w {4} / - / w {4} / - / w {4} / - / w {4} / - / w {12}
Terminer si
Dim re
Définir Re = nouveau regexp
re.global = true
re.Pattern = para
re.ignorecase = false
CheckRegexp = re.test (source)
Fonction finale
'***************************************************
'Obtenez le nombre de personnes en ligne
'***************************************************
fonction getOnline
getOnline = 1
Si Len (application (Space_cookiename_onlineCount))> 0 alors
Si DADIFF (S, application (spatial_cookiename_useronlineCountTime), maintenant ())> 60 alors
Application.lock ()
Application (spatial_cookiename_online) = application (space_cookiename_onlineCount)
Application (space_cookiename_onlineCount) = 1
Application (Space_cookiename_onlineCountkey) = Randstr (2)
Application (spatial_cookiename_useronlineCountTime) = maintenant ()
Application.unlock ()
autre
Si session (spatial_cookienameuseronlinekey) <> application (space_cookiename_onlineCountkey) alors
Application.lock ()
Application (spatial_cookiename_onlineCount) = application (space_cookiename_onlineCount) +1
Application.unlock ()
Session (Space_CooKienameUseronLinekey) = Application (Space_cookiename_onlineCountKey)
terminer si
terminer si
autre
Application.lock
Application (spatial_cookiename_online) = 1
Application (space_cookiename_onlineCount) = 1
Application (Space_cookiename_onlineCountkey) = Randstr (2)
Application (spatial_cookiename_useronlineCountTime) = maintenant ()
Application.unlock
terminer si
getOnline = application (spatial_cookiename_online)
fonction finale
%>
Cet article est collecté et compilé par Design Home
Partager: ASP exporte les données de la base de données vers le tableau Excel Le code d'instance ASP exporte directement les données de la base de données vers la feuille de calcul Excel. ! - # Inclut File = .. / Conn.asp--% Dim S, SQL, FileName, FS, MyFile, X set fs = server.createObject (scripting.fileSystemObject) '- supposez que vous souhaitez que le fichier Excel généré soit stocké comme suit FileName = Server.