O uso de editores de texto pode ser rastreado até Java, mas muitas pessoas não estavam interessadas em editores de texto naquele momento. O artigo de hoje é sobre os arquivos de edição do EditPlus. Vamos aprender sobre isso com o editor do New Technology Channel errado!
#Title = Sintaxe e funções comuns de ASP
#Info
Algumas funções de sintaxe e personalização comumente usadas no ASP
#Sort = n
#T = === Sintaxe comum para asp ===
#T ========================================
#T = banco de dados relacionado
#T = conectar ao banco de dados de acesso
<%
Dim DBName, Conn
Dbname "^!" 'Defina o caminho e o nome do banco de dados
Definir Conn = Server.CreateObject ("Adodb.Connection")
Conn.open "Provedor = Microsoft.Jet.oledb.4.0; Data Source =" & Server.Mappath (DBName)
%>
#T = conectar -se ao banco de dados MS SQL
<%
Dim Conn
Definir Conn = Server.CreateObject ("Adodb.Connection")
Conn.open "provider = sqloledb; fonte de dados = nome do servidor SQL ou endereço IP; uid = conta de login de banco de dados; pwd = senha do banco de dados; banco de dados = nome do banco de dados"
%>
#T = Criar conjunto de registros
Set ^! = Server.createObject ("adodb.recordset")
#T = executar comandos SQL
Rs.Open SQL, Conn, 1,1
#T = executar comandos SQL
Conn.Execute ("^!")
#T = rs executa diretamente os comandos SQL
Definir rs = Conn.Execute ("^!")
#T = feche o conjunto de registros
Rs.close
Defina rs = nada
#T = feche o banco de dados
Conn.Close
Definir conn = nada
#T ========================================
#T = serverVariables relacionados
#T = Obtenha o endereço da página anterior
Request.Servervariables ("http_referer")
#T = Pegue o nome do servidor 1
Request.Servervariables ("Server_name")
#T = Pegue o nome do servidor 2
Request.Servervariables ("http_host")
#T = obtenha IP do servidor
Request.Servervariables ("Local_addr")
#T = Obtenha o IP do usuário
Request.Servervariables ("Remote_Host")
#T = Obtenha o verdadeiro IP1 do usuário
Request.Servervariables ("Remote_addr")
#T = Obtenha a função IP real do usuário
Função getRealip ()
GetRealip = request.servervariables ("http_x_forwarded_for")
If (getRealip = "") então getRealip = request.servervariables ("remote_addr")
Função final
#T = Obtenha a porta do servidor
Request.Servervariables ("Server_port")
#T = Obtenha o sistema operacional do servidor
Request.Servervariables ("OS")
#T = Obtenha o caminho absoluto para o servidor
Request.Servervariables ("Appl_physical_path")
#T = Pegue o caminho absoluto 1 deste arquivo
Requet.Servervariables ("Path_translated")
#T = Pegue o caminho absoluto 2 deste arquivo
Server.mappath (request.servervariables ("script_name")))
#T = Pegue o caminho relativo 1 deste arquivo
Request.Servervariables ("URL")
#T = Pegue o caminho relativo 2 deste arquivo
Request.ServerVariables ("script_name")
#T = Pegue o caminho relativo 3 deste arquivo
Request.Servervariables ("Path_info")
#T = os parâmetros após a barra de endereço
Request.Servervariables ("Query_String")
#T = obtenha informações do sistema do servidor
Request.Servervariables ("http_user_agent")
#T = detecção de componentes do servidor
<%
Função isobjinstalled (strclassstring)
Em erro de erro em seguida
Isobjinstalled = false
Err = 0
Dim XteSTOBJ
Definir xtestobj = server.createObject (strclassString)
If (0 = err) então isobjinstalled = true
Definir XteSTOBJ = nada
Err = 0
Função final
'If (isobjinstalled ("Persits.upLoad") = true) então
'Response.Write "Suporte componentes do aspupload"
'OUTRO
'Response.Write "Aspupload Component não é suportado"
'Final se
%>
#T = Obtenha o local do cliente
^! Request.Servervariables ("http_accept_language")
#T = obtenha informações do cliente: http_user_agent
^! Request.Servervariables ("http_user_agent")
#T = Obtenha o valor do elemento do valor do formulário
Request.form ("^!")
#T = obtenha o valor passado pelo URL
Request.QueryString ("^!")
#T = Obtenha o endereço completo da URL
Função geturl ()
Geturl = "http: //" & request.servervariables ("server_n ... .Servervariables (" url ")
If (request.servervariables ("Query_string") <> "") Então geturl = geturl & "?" & Request.servervariables ("query_string")
Função final
#T ========================================
#T = funções personalizadas
#T = Filtro HTML caracteres
<%
'Filtre a função de caractere HTML
Função htmlencode (str)
If (str <> "") então
str = substituir (str, "&", "&")
str = substituir (str, ">", ">")
str = substituir (str, "<", "<")
str = substituir (str, chr (32), "")
str = substituir (str, chr (9), "")
str = substituir (str, chr (34), "" ")
str = substituir (str, chr (39), "'")
str = substituir (str, chr (13), "")
str = substituir (str, chr (10) e cr (10), "
")
str = substituir (str, chr (10), "
")
str = substituir (str, chr (255), "")
Final se
Htmlencode = str
Função final
%>
#T = verifique se a página anterior é enviada neste site
<%
'Verifique se a página anterior foi enviada deste site
'Retorno: verdadeiro, falso
'==================================================================================================
Função iselfrefer ()
Dim shttp_referer, sserver_name
shttp_referer = cstr (request.Servervariables ("http_referer"))))
sserver_name = cstr (request.servervariables ("server_name")))
If (mid (shttp_referer, 8, len (sserver_name)) = sserver_name) então
Iselfrefer = true
OUTRO
Iselfrefer = false
Final se
Função final
%>
#T = limpe todas as tags html
<%
'Clear tags HTML
Função striphtml (htmlstr)
Dim Regex
Definir regex = novo regexp
regex.IGNORECASE = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = substituir (htmlstr, "<", "<")
htmlstr = substituir (htmlstr, ">", ">")
htmlstr = substituir (htmlstr, chr (10), "")
htmlstr = substituir (htmlstr, chr (13), "")
StripHtml = htmlstr
Definir regex = nada
Função final
%>
#T = pegue o comprimento da string
<%
'Encontre função de comprimento da string
Função getLength (str)
Comprimento escuro
Para i = 1 a len (str)
If (ASC (MID (STR, I, 1)) <0 ou ASC (MID (STR, I, 1))> 256) então
Comprimento = comprimento+2
OUTRO
Comprimento = comprimento+1
Final se
Próximo
GetLength = comprimento
Função final
%>
#T = interceptar a sequência do comprimento especificado
<%
'Intercepte a sequência do comprimento especificado e use o extra em vez de ...
Função strleft (str, strlen)
If (str = "") então
Strleft = ""
Função de saída
Final se
Dim L, T, C, i
str = substituir (substituir (substituir (substituir (substituir (str, "" "" ")," ")," "", chr (34)), ">", ">"), "<", "<", "<")
l = len (str)
t = 0
Para i = 1 a l
C = ABS (ASC (MID (STR, I, 1)))))
Se (c> 255) então
t = t+2
OUTRO
t = t+1
Final se
Se (t> strlen) então
Strleft = esquerda (str, i) e "..."
Saída para
OUTRO
Strleft = str
Final se
Próximo
Strleft = substituir (substituir (substituir (substituir (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
Função final
%>
#T = Obtenha parâmetros de envio seguros
<%
'==================================================================================================
Verificação de injeção de SQL
'Função da função: filtre citações únicas nos parâmetros de caracteres, juiz os parâmetros numéricos, se não for um tipo numérico, então atribua 0
'Parâmetro Significado: STR ---- Parâmetros a serem filtrados
'strtype --- tipo de parâmetro, dividido no tipo de caractere e tipo numérico, o tipo de caractere é "s" e o tipo numérico é "i"
'==================================================================================================
Função checkstr (str, strtype)
Dim STRTMP
strtmp = ""
If (strtype = "s") então
strtmp = substituir (acabamento (str), "'", "' '")
Elseif (strtype = "i") então
If (isnumeric (str) = false) então str = false
strtmp = str
OUTRO
strtmp = str
Final se
Checkstr = strtmp
Função final
%>
#T = Filter caracteres ruins (badword)
<%
'Filter personagens ruins (badwords)
Função chkbadwords (fstring)
Badwords sombrios, bwords, i
Badwords = "eu foda | foda -se | foda -se | foda | foda | cachorro | Bastardo | boceta | pau | tartaruga | estupro | sexo | virgem | zemin | Falun | Falun | hongzhi | moda"
Se (não (isnull (badwords) ou isnull (fstring))) então
bwords = split (badwords, "|")
Para i = 0 para ubound (bwords)
fString = Substituir (fString, bwords (i), string (len (bwords (i)), "*")))
Próximo
Chkbadwords = fstring
Final se
Função final
%>
#T = gerar senha de comprimento personalizado aleatório
<%
'Gere senha de comprimento personalizado aleatório
Função makepassword (maxlen)
Dim strNewPass
Dim WhatsNext, Upper, Inferior, Intcounter
Randomizar
Para intcounter = 1 para maxlen
WhatsNext = int ((1 - 0 + 1) * rnd + 0)
If (whatsNext = 0) então
'personagem
superior = 90
inferior = 65
OUTRO
superior = 57
inferior = 48
Final se
strNewPass = strNewPass & chr (int ((superior - inferior + 1) * rnd + inferior))
Próximo
MakePassword = strNewPass
Função final
'Response.Write MakePassword (8)
%>
#T = Mantenha o formato Intml ao preencher a textarea
<%
'==================================================================================================
'Remova o formato HTML, usado para remover o valor do banco de dados e preencha a caixa de entrada
'Nota: value = "?" Isso deve ser citações duplas aqui
'==================================================================================================
Função INTML (STR)
Dim -tronco
Stemp = str
INHTML = ""
Se isnull (sTEMP) = true então
Função de saída
Final se
Stemp = Substitua (Stemp, "&", "&")
Stemp = Substitua (Stemp, "
", Chr (13))
Stemp = Substitua (Stemp, "<", "<")
Stemp = Substitua (Stemp, ">", ">")
Stemp = Substitua (Stemp, "" ", Chr (34))
INHTML = Stemp
Função final
%>
#T = Função regular de verificação de expressão da tabela
<%
'Expressão regular de expressão de verificação da função de patrn regulate strng string para verificar
'==================================================================================================
Função regexptest (patn, strng)
Dim regex, retval 'Crie variável.
Definir regex = novo regexp 'Crie expressão regular.
regex.pattern = patn 'Set Mode.
regex.ignorecase = false 'Defina se é sensível ao caso.
retval = regex.test (strng) 'execute um teste de pesquisa.
Regexptest = Retval 'Valor de retorno, se não corresponder, retorna false, se corresponder é verdadeiro
Definir regex = nada
Função final
%>
#T = gerar strings aleatórios
<%
'Gere strings aleatórios
Função rndcode ()
Código escuro, conjunto de valores
CodEset = "0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrststwxyz"
Número do valor = 62 'número de textos
Randomizar
Dim vcode (10), vcodes, i
Para i = 0 a 9
vcode (i) = int (rnd * valeset)
vcodes = vcodes & Mid (código de código, vcode (i) + 1, 1)
Próximo
Rndcode = vcodes
Função final
%>
#T ========================================
#T = operações relacionadas ao FSO
#T = determinar se o diretório existe
<%
Função isfloderexist (strfoldername)
Set fso = server.createObject ("scripting.filesystemobject")
If (fso.Polderexists (strFolderName)) então
Isfloderexist = true
OUTRO
Isfloderexist = false
Final se
Defina FSO = nada
Função final
%>
#T = Criar diretório
<%
Função createfolder (strfoldername)
Set fso = server.createObject ("scripting.filesystemobject")
If (fso.Polderexists (strFolderName) = false) então
Fso.createfolder (strfoldername)
Final se
Defina FSO = nada
Função final
%>
#T = excluir diretório
<%
Função DeleteFolder (StrFoldername)
Set fso = server.createObject ("scripting.filesystemobject")
If (fso.Polderexists (strFolderName)) então
FSO.DeleteFolder (StrFoldername)
Final se
Defina FSO = nada
Função final
%>
#T = determinar se o arquivo existe
<%
Função isfileExist (strfileName)
Set fso = server.createObject ("scripting.filesystemobject")
If (fso.fileExists (strfileName)) então
IsfileExist = true
OUTRO
IsfileExist = false
Final se
Defina FSO = nada
Função final
%>
#T = Excluir arquivo
<%
Função DeleteFile (StrfileName)
Set fso = server.createObject ("scripting.filesystemobject")
If (fso.fileExists (strfileName)) então
Fso.DeleteFile (strfileName)
Final se
Defina FSO = nada
Função final
%>
#T ========================================
#T = várias funções comumente usadas por ladrões ASP
<%
Função bytetostr (VIN)
Dim strreturn, i, thisCharcode, InnerCode, Hight8, Low8, NextCharCode
strreturn = ""
Para i = 1 a lenb (vin)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
If (thisCharcode <& h80) então
strreturn = strreturn & ch (thischarcode)
OUTRO
NextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode) * & h100 + cint (nextcharcode))
i = i + 1
Final se
Próximo
Bytetostr = strreturn
Função final
Função gethtppagecontent (url, método, sendstr)
Recuperação fraca
Set recuperação = server.createObject ("microsoft.xmlhttp")
Com recuperação
.Pened método, URL, falso, "", ""
.SetRequestHeader "Tipo de Conteúdo", "Aplicativo/X-Www-Form-Formle-Urlencoded"
.Send (sendstr)
GethttppagEcontent = .Responsebody
Termine com
Definir recuperação = nada
GethttppagEcontent = bytetostr (GethtppagEcontent)
Função final
Função regexptext (strng, regstr)
Dim Regex, Match, Matches, Retstr
Definir regex = novo regexp
regex.pattern = regstr
regex.IGNORECASE = true
regex.global = true
SET MOCHES = REGEX.EXECUTE (STRNG)
Para cada partida em partidas
Retstr = retstr & regex.Replace (match.value, "$ 1") & ","
Próximo
RegexptExt = retstr
Definir regex = nada
Função final
Função streambytestobstr (strbody, código de código)
ObjStream dim
Set objstream = server.createObject ("adodb.stream")
Com objstream
.Type = 1
.Mode = 3
.Abrir
.Write strbody
.Position = 0
.Type = 2
.CharSet = CodeBase
StreamByTestObstr = .readText
.Fechar
Termine com
Definir objstream = nada
Função final
%>
Através do arquivo de edição sobre o EditPlus introduzido pelo editor do 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 未分 o canal de tecnologia new, acredito que todos têm um certo entendimento. Se você quiser saber mais conteúdo técnico, continue prestando atenção ao 未分 NOVO CANAL DE TECNOLOGIA!