Recommandé: un conseil à utiliser pour la boucle dans ASP Cet article partage principalement une astuce pour une boucle pour ASP. Je n'y prête vraiment pas attention. J'espère que les amis qui comprennent ASP pourront y faire référence.
<%
'========================================.
'Liste des fonctions:
'1: Établir une connexion de base de données Connopen (DatabaseConnectstr, Dbtype, Conn_Object)
'2: Débranchez la base de données Connclose (Conn_Object)
'3: empêcher l'injection SQL de Saferequest (paraname, paratype)
'4: Date de format DateFormat (datestr, datetype)
'5: Afficher le message d'erreur Downr (ERRSTR)
'6: Recherchez des données spécifiques dans la chaîne de requête selectstr (ContentsTr, Patternstr, PatternNum)
'7: Filtrez la liach de caractère spécifiée (Contentstr, Badwords)
'8: le contenu de fichier distant rampant en rampant (URLSTR)
'9: codage de flux de données Traitement ByTesTobstr (corps, CSET)
'10: codage des cookies CodeCookie (ContentsTr)
'11: Decode Cookies DecodeCookie (MONTEURSTR)
'12: Vérifiez si la source de soumission des données est légale chkpost ()
'13: Encryption personnalisée Myencrypt (Strpassword)
'14: nobuffer () est interdit de mettre en cache sur cette page
'15: format de page Web Texte de saisie htmlencode (fstring)
'16: intercepter la longueur spécifiée de la chaîne de la tête (par nombre de caractères) gottopic (str, strlen)
'17: Vérifiez le code de vérification CheckRadompass (RADOMPASS)
'18: générer du code de vérification getcode ()
'19: Obtenez la version du système d'exploitation client GetSystem ()
'20: transaction de base de données Connmanage (Conn_Object)
'21: Quicksort (récursif) Quicksort (arr, bas, haut)
'22: Connectez les éléments du tableau dans une chaîne spécifique arr_join (arr, caractère)
'23: Renvoie le nombre de chaînes divisées par un certain caractère de caractère divisé_Character (STR, caractère)
'24: Intercepter le nombre spécifié de chaînes dans la chaîne contenant le séparateur inter_str_by_character_num (str, caractère, start, num)
'25: Utilisez Stream pour télécharger le fichier DownloadFile (Strfile)
'26: renvoyer le message Send_back (Resultimewords)
'27: Obtenez un message d'erreur get_err ()
'28: Contrairement à SafeResponse (contenu)
'29: Enregistrer la télécommande (localFileName, RemoteFileUrl)
'30: ...
Dim Language_Arr (10)
Language_arr (0) = Le paramètre Réglage de la connexion de la base de données est incorrect!
Language_arr (1) = Le paramètre de type de la connexion de la base de données est incorrect!
Language_arr (2) = La connexion de la base de données a échoué!
Language_Arr (3) = valeur de paramètre illégal!
Language_arr (4) = La valeur du paramètre n'est pas un format de date valide!
Language_arr (5) = L'opération a échoué!
Language_arr (6) = La colonne a un nom en double!
Language_arr (7) = Le nom de la colonne est vide!
Language_Arr (8) = La création de dossiers de colonne a échoué!
Language_arr (9) = Vous n'avez pas cette permission!
'
'ID de fonction: 1
'Fonction Fonction: établissez une connexion à la base de données
«Temps de modification:
«Paramètres successeurs:
'Connectstr: chaîne de connexion de la base de données
'ConnectType: Type de divume de catégorie de base de données, 0 est l'accès, 1 est MS SQL
'Valeur de retour:
'
Sub Connopen (DatabaseConnectstr, Dbtype, Conn_Object)
Définir Conn_Object = Server.CreateObject (ADODB.Connection)
Si databaseConnectstr = alors appelez showerr (linguiste_arr (0))
Si dbType = 0 alors
Conn_Object.Open Driver = {Microsoft Access Driver (* .mdb)}; dbq = & databaseconnectstr
elseif dbtype = 1 alors
Conn_object.open provider = sqloledB.1; & DatabaseConnectstr
autre
Appelez ShowerR (Language_Arr (1))
terminer si
err.Clear
Sub-Sub
'
'ID de fonction: 2
«Fonction: déconnectez la base de données
«Temps de modification:
«Paramètres successeurs:
'Valeur de retour:
'
Sous Connclose (Conn_Object)
Conn_object.close
Définir Conn_Object = Rien
Sub-Sub
'
'ID de fonction: 3
'Fonction Fonction: empêcher l'injection SQL
«Temps de modification:
«Paramètres successeurs:
'Paraname: Paraname-Character
'Paratype: Paratype: Type de paramètre Type de numerie (1 signifie que les paramètres ci-dessus sont des nombres, et 0 signifie que les paramètres ci-dessus sont des caractères)
'Valeur de retour:
'Chaîne filtrée
'
Fonction Saferequest (paraname, paratype)
paravalue faible
Paravalue = demande (paraname)
Sélectionnez le paratype du cas
cas 0
Paravalue = remplacer (paravalue, ', [Système: 34])
Paravalue = remplacer (paravalue, =, [système: 61])
cas 1
Sinon ISNUMERIC (paravalue), appelez Downr (Language_Ar (3))
cas -1
Sinon ISNUMERIC (paravalue), appelez Downr (Language_Ar (3))
Si paravalue = alors paravalue = 0
cas d'autre
Si Len (paravalue)> Paratype, appelez Showerr (Language_Ar (3))
Paravalue = remplacer (paravalue, ', [Système: 34])
Paravalue = remplacer (paravalue, =, [système: 61])
fin de sélection
SafeRequest = Paravalue
Fonction finale
'======================================= «ID Fonction: 4
«Fonction Fonction: date de format
«Temps de modification:
«Paramètres successeurs:
'Datestr: Datestr:
'Paratype: type de date
'Valeur de retour:
'Date formatée
Fonction DateFormat (Datestr, DateType)
Dim Datestring
Si isdate (datestr) = false alors
Appelez Showerr (Language_Arr (4))
terminer si
Sélectionner le casse-là DateType
Cas 1
dateString = année (datestr) & - & mois (datestr) & - & day (datestr)
Cas 2
DateString = Year (Datestr) &. & Month (Datestr) &. & Day (Datestr)
Cas 3
dateString = année (datestr) & / & mois (datestr) & / & day (datestr)
Cas 4
DateString = Mois (Datestr) & / & Day (Datestr) & / & Year (Datestr)
Cas 5
DateString = Day (Datestr) & / & Month (Datestr) & / & Year (Datestr)
Cas 6
DateString = Mois (Datestr) & - & Day (Datestr) & - & Year (Datestr)
Cas 7
DateString = Mois (Datestr) &. & Day (Datestr) &. & Year (Datestr)
Cas 8
DateString = Mois (Datestr) & - & Day (Datestr)
Cas 9
DateString = Mois (Datestr) & / & Day (Datestr)
Cas 10
DateString = Mois (Datestr) &. & Day (Datestr)
Cas 11
DateString = Mois (Datestr) & Language_Arr (6) & Day (Datestr) & Language_Arr (7)
Cas 12
DateString = Day (Datestr) & Language_Arr (7) & Hour (Datestr) & Language_Ar (8)
Cas 13
DateString = Day (Datestr) & Language_Arr (7) & Hour (Datestr) & Language_Ar (8)
Cas 14
DateString = Hour (Datestr) & Language_arr (8) & Minute (Datestr) & Language_Arr (9)
Cas 15
DateString = Hour (Datestr) &: & Minute (Datestr)
Cas 16
DateString = Year (Datestr) & Language_arr (5) & Mois (Datestr) & Language_Arr (6) & Day (Datestr) & Language_Arr (7)
Cas d'autre
datestring = datestring
Fin de sélection
DateFormat = datestring
Fonction finale
'
'ID de fonction: 5
'Fonction Fonction: Afficher l'invite d'erreur
«Temps de modification:
«Paramètres successeurs:
'errstr: invite d'erreur - type de caractère
'Valeur de retour: retour à la page de soumission
'
Partager: Ewebeditor v3.8 Répertoire de la colonne Titre: ASP Ewebeditor v3.8 Colonne Répertoire Vulnérabilité (autres versions sont des tests) Fichier de vulnérabilité: ASP / Browse.asp Vulnérabilité se produit: subitparam () stype = ucase (Trim (request.QueryString (type)))
2 pages de la page suivante de la page suivante précédente