ASP Collection de fonction couramment utilisée

Auteur：Eve Cole Date de mise à jour：2025-03-01 01:16:01

OLEDB Way pour ouvrir la connexion de données SQL

Sous-opensqlbyoledb

Sur l'erreur reprendre ensuite

Définir Conn = Server.CreateObject (ADODB.Connection)

Conn.OpenD Provider = SQLOLEDB.1;

Si err.number <> 0 alors

err.Clear

Response.Write (<div align = 'Center'> La base de données est connectée à une erreur, veuillez contacter l'administrateur! </div>)

Réponse.end ()

Terminer si

Sub-Sub

«Fonctions liées à la base de données

'************************************************* **************************************************** **************************************************** **************************************************** **************************************************** **************, *************

'[Sub] OpenReadrs RS, SQL, Otype

«Fonction: ouvrez le type de données correspondant à l'ensemble de données et lisez uniquement l'opération

'paramètre:

'RS Open RS Collection

'Instruction SQL exécutée

Sub OpenReadrs (RS, SQL)

Si ce n'est pas IsObject (RS) alors

Set rs = server.createObject (adodb.oldset)

Rs.OOPEN SQL, Conn, 1,1

Terminer si

Sub-Sub

'[Sub] OpenWriters RS, SQL

'Fonction: ouvrez le type de données correspondant, vous pouvez écrire l'opération

'paramètre:

'RS Open RS Collection

'Instruction SQL exécutée

Sous-rédacteurs (RS, SQL)

Si ce n'est pas IsObject (RS) alors

Set rs = server.createObject (adodb.oldset)

Rs.OOPEN SQL, Conn, 1,3

Terminer si

Sub-Sub

'[Sub] endrs rs

«Fonction: fermez le type de données correspondant

'paramètre:

'RS Open RS Collection

Sous-endrs (RS)

Si isObject (RS) alors

Rs.Close: Set rs = rien

Terminer si

Sub-Sub

'[Sub] EndConn

'Fonction: fermez la connexion de la base de données

'Paramètre: aucun

Sous-endnn

Si isObject (Conn) alors

Conn.Close: Définissez Conn = Rien

Terminer si

Sub-Sub

'[Sub] EXECSQL SQL

'Fonction: Exécutez l'instruction SQL

'paramètre:

'Instruction SQL exécutée

Sub ExecSQL (SQL)

Conn.execute (SQL)

Sub-Sub

'[] Selectalone SQL

'Fonction: requête de champ unique

'paramètre:

'Instruction SQL exécutée

'Retour: la valeur du champ de requête

Selectalone (SQL)

Sélectaloners DIM

SET SELECTALONERS = CONS.EXECUTE (SQL)

SelectalOne = Selectaloners (0)

Endrs selectaloners

Fin

«Fonctions liées à l'opération de chaîne

'[] ISSAFERSTR STR

'Fonction: déterminez s'il s'agit de chaîne sûre, utilisez dans des champs spéciaux tels que l'enregistrement et la connexion

'paramètre:

'STR String à détecter

'Return: true = Security, false = danget

ISSAFERSTR (STR)

Dim s_badstr, n, i

s_badstr = '& <>?% ,;: () ~! @ # $ ^ * {} [] | + - = & chr (34) & chr (9) & chr (32)

n = len (s_badstr)

IssaFerstr = true

Pour i = 1 à n

Si instr (str, mid (s_badstr, i, 1))> 0 alors

IssaFerstr = false

Sortie

Terminer si

Fin

'[] Htmltoencode str

'Fonction: code html

'paramètre:

'Str doit coder une chaîne

'Return: chaîne de code

Htmltoencode (str) '

Sinon ISNULL (STR) et STR <> alors

str = remplacer (str, &, & amp;)

str = remplacer (str,>, & gt;)

str = remplacer (str, <, & lt;)

Str = remplacer (str, chr (32),)

str = remplacer (str, chr (9), & nbsp;)

str = remplacer (str, chr (34), & quot;)

Str = remplacer (str, chr (39), & # 39;)

str = remplacer (str, chr (13),)

Str = remplacer (str ,, & # 115; Cript)

Str = remplacer (str, & # 115;, & # 115;)

Htmltoencode = str

terminer si

Fin

'[] Encodétohtml str

'Fonction: code HTML Code

'paramètre:

'STR doit être codé de chaîne

'Retour: chaîne codée à reverse

Codétohtml (str)

Sinon ISNULL (STR) et STR <> alors

str = remplacer (str, & amp; ,, &)

str = remplacer (str, & gt ;,>)

str = remplacer (str, & lt;, <)

Str = remplacer (str ,, chr (32))

str = remplacer (str, & nbsp;, chr (9))

Str = remplacer (str, & quot ;, chr (34))

str = remplacer (str, & # 39;, chr (39))

Str = remplacer (str ,, chr (13))

str = remplacer (str, & # 115; cript,)

Str = remplacer (str, & # 115;, & # 115;)

Codétohtml = str

terminer si

Fin

'[] Gottopic Str, Strlen

'Fonction: testez la longueur de la chaîne Stoln, les caractères chinois sont calculés 2 longueur

'paramètre:

'STR doit être intercepté

'Longueur d'interception de strlen

'Retour: la chaîne après la longueur de la longueur des strlen

GetTopic (str, strlen)

Si str = alors

Gottopic =

sortie

terminer si

dim l, t, c, i

l = len (str)

T = 0

pour i = 1 à L

C = ABS (ASC (Mid (Str, I, 1)))))

Si c> 255 alors

t = t + 2

autre

t = t + 1

terminer si

Si t> = strlen alors

Gottopic = gauche (str, i) & ...

sortir pour

autre

Gottopic = str

terminer si

Fin

'[] Tvar dateformattime, style

'Fonction: formatage temporel

'paramètre:

'TVAR a besoin de formatage de chaîne de temps

'Type de formatage STYPE

'Retour: chaîne de temps de formatage

DateFormAttime (Tvar, style)

Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond

Si ce n'est pas un isdate (tvar) alors dateFormatTime =:

Tt = tvar

Syear = année (TT)

Smonth = à droite (0 et mois (TT), 2)

Sday = à droite (0 & jour (tt), 2)

Shour = à droite (0 et heure (tt), 2)

Sminute = à droite (0 et minute (tt), 2)

ssecond = droite (0 et sexe (tt), 2)

Sélectionner le style de cas

Cas 1'2006-3-13

DateFormAttime = Syear & - & Smonth & - & Sday

Cas 2 '13 mars 2006

DateFormAttime = Syear & Year & Smnth & Monthly & Sday & Day

Cas 3 '2006031313120123

DateFormAttime = Syear & Smonth & Sday & Shour & Sminute & Ssecond

Cas d'autre

DateFormatTime = TT

Fin de sélection

Fin

'[] ISNUM Str

'Fonction: si c'est un nombre

'paramètre:

'STR doit juger String

'Return: true = nombre, false = non-nombres

Isnum (str) '

Si str <> et isnimérique (str) alors

ISNUM = VRAI

autre

Isnum = faux

terminer si

Fin

«Fonctions liées à débogage de sortie

'[Sub] Mesgoback Str

'Fonction: apparaître les informations et retourner

'paramètre:

'STR doit juger String

Sous-mesgoback (str)

Response.Write (<Language = 'Java'> alert ('& Str &'); History.back (); </>)

Réponse.end ()

Sub-Sub

'[Sub] Mesgourl Str, URL

'Fonction: apparaître les informations et retourner

'paramètre:

'STR doit juger String

'Adresse de saut d'URL

Soutrmesgourl (Str, URL)

Réponse.Write (<Language = 'Java'> alert ('& Str &'); local.href = '& url &'; </>)

Réponse.end ()

Sub-Sub

«[Sub] débogue mal

'Fonction: débogage de sortie

'paramètre:

'Le mal veut des informations de sortie

'Retour: pas de valeur de retour

Sous-débogage (ingrong) 'débogue

Réponse.Write (ing)

Réponse.end ()

Sub-Sub

'Fonctions liées à la fonction

'[] Getip

'Fonction: Obtenez une adresse IP de l'utilisateur

'paramètre:

' aucun

'Retour: IP actuel de l'utilisateur

Getip ()

Faible utilisateur

userip = request.servervariables (http_x_forwarded_for)

Si userIp = alors userIp = request.servervariables (Remote_addr)

Getip = userip

Fin

'[] geturl

'Fonction: obtenez le nom de domaine actuel

'paramètre:

' aucun

'Retour: le nom de domaine actuel

geturl ()

getUrl = request.servervariables (server_name)

Fin