Esta postagem coletará e solicitará as funções funcionais gerais mais abrangentes em aplicativos de programação ASP, todos são para mim, eu sou para todos :)
Enquanto cada um de vocês distribuir uma ou duas funções gerais clássicas que você coletou há muito tempo, acho que este post será de grande ajuda para muitos entusiastas e trabalhadores da ASP Programming e também se tornará um conjunto necessário de funções para a programação do ASP de todos.
Verifique sua própria biblioteca de funções rapidamente e veja se você tem algum de nós aqui?
Se você achar que existem uma ou duas funções pouco conhecidas na sua biblioteca de funções, responda no formato a seguir.
Publique um formato de post de função geral:
A cópia do código é a seguinte:
<%
'***********************************
'Função: functionRndip (s)
Parâmetro: S, quatro cabeçalhos IP gerados aleatoriamente, como "218 $ 211 $ 61 $ 221"
'Autor: Alixi
Data: 2007/7/12
'Descrição: geração aleatória de endereço IP, retorne um valor de endereço IP aleatório
'Exemplo: <%= rndip ("218 $ 211 $ 61 $ 221")%>
'***********************************
FunctionRndip (s)
OnErrorReSumenext
Dimip, ip1, ip2, ip3, a, b, c
ifs = "" Orubund (dividido (s, "$")) <> 3then
Response.Write "A configuração do parâmetro de prefixo IP está incorreta, retorne a reiniciar o programa após a redefinição".
resposta.END
endif
Randomizar
ip1 = cint (254*rnd)
ip2 = cint (254*rnd)
ip3 = cint (254*rnd)
b = int ((3*rnd) +1)
a = divisão (s, "$")
c = a (b)
Rndip = (c & "." & Ip1 & "." & Ip2 & "." & Ip3)
Função final
%>
Filtro comumente usado caracteres ilegais
A cópia do código é a seguinte:
<%
'***********************************
'Função: substituirbadchar (strchar)
'Argumentos: strchar, personagens a serem filtrados
'Autor: Alixi
Data: 2007/7/12
'Descrição: Filtrando caracteres ilegais comumente usados
'Exemplo: <%= substituirbadchar ("contém'*exemplo ')%>
'***********************************
FunctionRplaceBadchar (strchar)
ifstrchar = "" então
Substituirbadchar = ""
outro
ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?"?"),"?"),"<",""),"<","",.",""),".",""),""),".",.","")
endif
Função final
%>
Formatar exibição de caracteres html
A cópia do código é a seguinte:
<%
'***********************************
'Função: htmlencode (fstring)
'Argumentos: fString, string a ser formatada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Formato HTML Display
'Exemplo: <%= htmlencode (fstring)%>
'***********************************
functionhtmlencode (fstring)
ifnotisnull (fString) então
fString = substituir (fstring, ">", ">")
fString = substituir (fstring, "<", "<")