Ce message collectera et sollicitera les fonctions fonctionnelles générales les plus complètes dans les applications de programmation ASP, tout le monde est pour moi, je suis pour tout le monde :)
Tant que chacun de vous donne une ou deux fonctions générales classiques que vous avez recueillies depuis longtemps, je pense que ce post sera d'une grande aide à de nombreux amateurs de programmation ASP et travailleurs, et deviendra également un ensemble nécessaire de fonctions pour la programmation ASP de tous.
Vérifiez rapidement votre propre bibliothèque de fonctions et voyez si vous avez un de nous ici?
Si vous constatez qu'il existe une ou deux fonctions peu connues dans votre bibliothèque de fonctions, répondez dans le format suivant.
Publier un format de poste de fonction générale:
La copie de code est la suivante:
<%
'*******************************
'Fonction: fonctionrndip (s)
'Paramètre: S, quatre en-têtes IP générés au hasard, tels que "218 211 $ 61 $ 221 $"
'Auteur: Alixi
'Date: 2007/7/12
«Description: génération d'adresses IP aléatoire, renvoyez une valeur d'adresse IP aléatoire
'Exemple: <% = rndip ("218 211 $ 61 $ 221 $")%>
'*******************************
Fonctionrndip (s)
onerrorresumenext
Dimip, ip1, ip2, ip3, a, b, c
ifs = "" Orubund (Split (s, "$")) <> 3Then
Response.Write "Le paramètre du préfixe IP est incorrect, veuillez revenir pour redémarrer le programme après la réinitialisation."
réponse.
endire
Randomiser
IP1 = CINT (254 * RND)
ip2 = Cint (254 * rnd)
IP3 = Cint (254 * RND)
b = int ((3 * rnd) +1)
A = Split (s, "$")
c = a (b)
Rndip = (c & "." & Ip1 & "." & Ip2 & "." & Ip3)
Finition de fin
%>
Filtre des caractères illégaux couramment utilisés
La copie de code est la suivante:
<%
'*******************************
'Fonction: RemplaceBadchar (Strchar)
'Arguments: strchar, caractères à filtrer
'Auteur: Alixi
'Date: 2007/7/12
'Description: Filtrage des caractères illégaux couramment utilisés
'Exemple: <% = RemplaceBadchar ("contient' * Exemple ')%>
'*******************************
FunctionReplaceBadchar (Strchar)
ifstrchar = "" alors
RemplaceBadchar = ""
autre
RemplaceBadchar = Remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (strar, "'", ""), "*", ""), "?"? "),"? ")," <"," ")," <"," ",", "") ".", ""), "),". ",", "," ")". "," "),"), ".
endire
finition de fin
%>
Format affichage de caractères HTML
La copie de code est la suivante:
<%
'*******************************
«Fonction: htmlencode (fstring)
'Arguments: fstring, chaîne à formater
'Auteur: Alixi
'Date: 2007/7/12
'Description: Format Affichage des caractères HTML
'Exemple: <% = htmlencode (fstring)%>
'*******************************
functionhtmlencode (fstring)
ifnotisnull (fstring) puis
fString = remplacer (fstring, ">", ">")
fString = remplacer (fstring, "<", "<")