A cópia do código é a seguinte:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'Tianfeng Aspclassv1.0, integra funções ASP comumente usadas
'Tianfeng Copyright http://www.52515.net
Qq: 76994859Email: [email protected]
'Todos os nomes de funções são os seguintes:
'Comprimento (str) recebe o comprimento da corda
Cutstr (str, strlen) corte de comprimento
'Checkisempty (TSTR) verifica se está vazio
'ISINTEGER (PARA) Teste inteiro
'CheckName (str) Nome Verificação do caractere
'CheckPassword (str) Verificação de senha
'Verificação do formato da caixa de correio de checkEmail (email)
'Alert (msg, gourl) caixa de diálogo Prompt Pump
'Goback (str1, str2, isback) mensagem de erro
'Suc (STR1, STR2, URL) Prompt de informações de sucesso da operação
'Chkpost () detecta se deve enviar um formulário fora do site
'PSQL () impede a injeção de SQL
'FiltrateHtmlCode (STR) impede a geração HTML
'HTMLCODE (STR) FILTRO HTML
'Substituahtml (tstr) html transparente
'Getip () recebe o ip do cliente
'GetBrowser recebe a mensagem do navegador do cliente
'GetSystem recebe o sistema operacional do cliente
'Geturl () obtém o URL da página atual contém parâmetros
'Curl () obtém o URL da página atual
'GetExtend recebe a extensão do arquivo
'CHECKEXIST (TABLE, FIELDNAME, FIELDCONTENT, ISBLUR) detecta se o conteúdo de um campo em uma determinada tabela existe
'GetNum (tabela, fieldname, resultype, args) detecta quantos campos existem em uma determinada tabela, valor máximo, valor mínimo etc.
'GetFoldersize (pastaPath) calcula o tamanho de uma determinada pasta
'GetFilesize (nome do arquivo) calcula o tamanho de um arquivo
'Isobjinstalled (strclassstring) verifica se o componente está instalado
'Sendmailjmail Enviar e -mail
'ResponseCookies Escreva cookies
'Cookies limpos claros
'GettimeOver recebe o tempo de execução da página do programa
'Formatize formatação de tamanho
'Formato de tempo de formato
'O zodíaco obtém o zodíaco
'Constelação para obter constelação
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
ClassCls_fun
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ �
'*************************************************************
'Nome da função: strLength
'Função: Obtenha o comprimento da string (os caracteres chineses são 2)
'Argumentos: STR ----- Conteúdo da string
'Valor de retorno: comprimento da string
'*************************************************************
PublicFunctionstrLength (STR)
Dimrep, lente, i