El uso de editores de texto se remonta a Java, pero muchas personas no estaban interesadas en los editores de texto en ese momento. El artículo de hoy se trata de editar archivos de edición. ¡Aprendamos sobre ello con el editor del canal de tecnología New Wrong New!
#Title = sintaxis común y funciones de ASP
#Info
Algunas sintaxis de uso común y funciones personalizadas en ASP
#Sort = n
#T = === Sintaxis común para ASP ===
#T =========================================
#T = Base de datos relacionada con
#T = conectar a la base de datos de acceso
<%
Dim dbname, Conn
Dbname "^!" 'Defina la ruta y el nombre de la base de datos
Establecer conn = server.createObject ("ADODB.Connection")
Conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath (DBName)
%>
#T = conectarse a la base de datos MS SQL
<%
Dim CONN
Establecer conn = server.createObject ("ADODB.Connection")
Conn.open "Provider = sqloledb; data source = SQL Server Name o dirección IP; uid = cuenta de inicio de sesión de base de datos; pwd = contraseña de base de datos; base de datos = nombre de base de datos"
%>
#T = crear un conjunto de registros
Set ^! = Server.createObject ("ADODB.Recordset")
#T = ejecutar comandos SQL
Rs.open SQL, Conn, 1,1
#T = ejecutar comandos SQL
Conn.execute ("^!")
#T = RS ejecuta directamente los comandos SQL
Establecer rs = conn.execute ("^!")
#T = Cerrar el conjunto de registros
Rs.
Establecer RS = nada
#T = Cerrar la base de datos
Conn.clar
Establecer conn = nada
#T =========================================
#T = ServerVariables relacionados
#T = Obtenga la dirección de la página anterior
Request.ServerVariAbles ("http_referer")
#T = tomar el nombre del servidor 1
Request.ServerVariAbles ("server_name")
#T = tomar el nombre del servidor 2
Request.ServerVariables ("http_host")
#T = Get Servidor IP
Request.ServerVariables ("local_addr")
#T = Obtener la IP del usuario
Request.ServerVariAbles ("Remote_host")
#T = Obtener el IP1 real del usuario
Request.ServerVariAbles ("Remote_Addr")
#T = Obtener la función IP real del usuario
Función getRealip ()
GetRealip = request.ServerVariAbles ("http_x_forwarded_for")
If (getRealip = "") y luego getRealip = request.ServerVariAbles ("Remote_Addr")
Función final
#T = Obtener el puerto del servidor
Request.ServerVariAbles ("server_port")
#T = Obtener el sistema operativo del servidor
Request.ServerVariables ("OS")
#T = Obtener la ruta absoluta al servidor
Request.ServerVariables ("Appl_physical_path")
#T = tomar la ruta absoluta 1 de este archivo
Requet.servervariables ("Path_translated")
#T = tomar la ruta absoluta 2 de este archivo
Server.mappath (request.serverVariAbles ("script_name"))
#T = tomar la ruta relativa 1 de este archivo
Request.ServerVariables ("URL")
#T = tomar la ruta relativa 2 de este archivo
Request.ServerVariAbles ("script_name")
#T = tomar la ruta relativa 3 de este archivo
Request.ServerVariables ("Path_info")
#T = los parámetros después de la barra de direcciones
Request.ServerVariAbles ("Query_String")
#T = obtener información del sistema de servidor
Request.ServerVariAbles ("http_user_agent")
#T = detección de componentes del servidor
<%
Función isobjinstalled (strclassstring)
En el currículum de error siguiente
Isobjinstalled = falso
Err = 0
Dim xtestobj
Establecer xtestobj = server.createObject (strclassstring)
If (0 = err) entonces isobJinstalled = true
Establecer Xtestobj = nada
Err = 0
Función final
'If (isobjinstalled ("persits.upload") = true) entonces
'Response.Write "Soporte de componentes de Aspuplroad"
'DEMÁS
'Response.write "El componente de Aspupload no es compatible"
'Finalizar si
%>
#T = Obtener la configuración regional del cliente
^! Request.servervariables ("http_accept_language")
#T = Obtener información del cliente: http_user_agent
^! Request.servervariables ("http_user_agent")
#T = Obtener el valor del elemento de valor de formulario
Request.form ("^!")
#T = Obtener el valor aprobado por la URL
Request.querystring ("^!")
#T = Obtenga la dirección de URL completa
Función getURL ()
GetUrl = "http: //" & request.servervariables ("server_n ... .ServerVariables (" url ")
If (request.serverVariables ("query_string") <> "") y luego getURL = getUrl & "?" & Request.ServerVariAners ("Query_String")
Función final
#T =========================================
#T = funciones personalizadas
#T = Filtro HTML caracteres
<%
'Filtrar la función de caracteres HTML
Función htmlencode (str)
If (str <> "") entonces
str = reemplazar (str, "&", "&")
str = reemplazar (str, ">", ">")
str = reemplazar (str, "<", "<")
str = reemplazar (str, chr (32), "")
str = reemplazar (str, chr (9), "")
str = reemplazar (str, chr (34), "" ")
str = reemplazar (str, chr (39), "'")
str = reemplazar (str, chr (13), "")
str = reemplazar (str, chr (10) y chr (10) ",
")
str = reemplazar (str, chr (10) ",
")
str = reemplazar (str, chr (255), "")
Final si
Htmlencode = str
Función final
%>
#T = verifique si la página anterior se envía desde este sitio
<%
'Verifique si la página anterior fue enviada desde este sitio
'Return: Verdadero, Falso
'===============================================================================================================================================.
Function isselfrefer ()
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) entonces
ISSOLFREFER = verdadero
DEMÁS
ISSOLFREFER = FALSO
Final si
Función final
%>
#T = Borrar todas las etiquetas HTML
<%
'Borrar etiquetas HTML
Función striphtml (htmlstr)
Regex oscuro
Establecer regex = new Regexp
regex.ignorecase = true
regex.global = verdadero
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = reemplazar (htmlstr, "<", "<")
htmlstr = reemplazar (htmlstr, ">", ">")
htmlstr = reemplazar (htmlstr, chr (10), "")
htmlstr = reemplazar (htmlstr, chr (13), "")
striphtml = htmlstr
Establecer regex = nada
Función final
%>
#T = tomar la longitud de la cadena
<%
'Encuentra la función de longitud de cadena
Función getLength (str)
Longitud oscura
Para i = 1 a Len (Str)
If (asc (mid (str, i, 1)) <0 o asc (mid (str, i, 1))> 256) entonces
Longitud = longitud+2
DEMÁS
Longitud = longitud+1
Final si
Próximo
GetLength = longitud
Función final
%>
#T = interceptar la cadena de longitud especificada
<%
'Intercepe la cadena de la longitud especificada y use la extra en lugar de ...
Función strleft (str, strlen)
If (str = "") entonces
Strleft = ""
Función de salida
Final si
Dim l, t, c, yo
str = reemplazar (reemplazar (reemplazar (reemplazar (reemplazar (str, "", ""), ""), "" ", chr (34)),"> ","> ")," <"," <"," <")
l = len (str)
t = 0
Para i = 1 a l
C = ABS (ASC (Mid (Str, I, 1))))
If (c> 255) entonces
t = t+2
DEMÁS
t = t+1
Final si
If (t> strlen) entonces
Strleft = izquierda (str, i) y "..."
Salir
DEMÁS
Strleft = str
Final si
Próximo
Strleft = reemplazar (reemplazar (reemplazar (reemplazar (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
Función final
%>
#T = Obtener parámetros de envío seguros
<%
'===============================================================================================================================================.
'Verificación de inyección SQL
'Función Función: Filtro citas individuales en parámetros de caracteres, juzgar parámetros numéricos, si no es un tipo numérico, entonces asigne 0
'Significado del parámetro: Str ---- parámetros a filtrar
'Strtype --- Tipo de parámetro, dividido en tipo de caracteres y tipo numérico, el tipo de caracteres es "S" y el tipo numérico es "I"
'===============================================================================================================================================.
Función checkstr (str, strtype)
Dim strtmp
strtmp = ""
If (strtype = "s") entonces
strtmp = reemplazar (trim (str), "'", "' '")
Elseif (strtype = "i") entonces
If (isNumeric (str) = false) entonces str = falso
strtmp = str
DEMÁS
strtmp = str
Final si
Checkstr = strtmp
Función final
%>
#T = Filtrar caracteres malos (palabra mala)
<%
'Filtrar personajes malos (palabras malas)
Función chkbadwords (fString)
Palabras malas de Dim Bad, Bwords, yo
Palabras malas = "Me jodo | Follarte | Joder | Joder | Joder | Perro | Bastardo | Cuerto | Dick | Tortuga | Violación | Sexo | Virgen | Zemin | Falun | Falun | Hongzhi | Moda"
If (no (isNull (palabras malas) o isnull (fString))) entonces
bwords = dividido (palabras malas, "|")
Para i = 0 a Ubound (Bordes)
fString = reemplazar (fString, bwords (i), string (len (bwords (i)), "*"))
Próximo
Chkbadwords = fString
Final si
Función final
%>
#T = generar contraseña de longitud personalizada aleatoria
<%
'Generar contraseña de longitud personalizada aleatoria
Function MakePassword (MaxLen)
Dim strnewpass
Dim whatsNext, superior, inferior, intcounter
Aleatorizar
Para intCounter = 1 a Maxlen
whatsNext = int ((1 - 0 + 1) * rnd + 0)
If (whatsNext = 0) entonces
'personaje
superior = 90
inferior = 65
DEMÁS
superior = 57
inferior = 48
Final si
strNewPass = strnewpass & chr (int ((superior - inferior + 1) * rnd + inferior)))
Próximo
MakePassword = strnewpass
Función final
'Response.Write MakePassword (8)
%>
#T = Mantenga el formato inhtml al completar TextARea
<%
'===============================================================================================================================================.
'Elimine el formato HTML, utilizado para eliminar el valor de la base de datos y complete el cuadro de entrada
'Nota: Value = "?" Esto debe ser cotizaciones dobles aquí
'===============================================================================================================================================.
Función inhtml (str)
Dim stemp
stemp = str
inhtml = ""
If isnull (stemp) = true entonces
Función de salida
Final si
stemp = reemplazar (stemp, "&", "&")
stemp = reemplazar (stemp ",
", chr (13))
stemp = reemplazar (stemp, "<", "<")
stemp = reemplazar (stemp, ">", ">")
stemp = reemplazar (stemp, "" ", chr (34))
inhtml = stemp
Función final
%>
#T = función de verificación de expresión de tabla regular
<%
'Función de verificación de expresión de tabla regular de la expresión patrn-regular Strng-string para verificar
'===============================================================================================================================================.
Función regexptest (Patrn, strng)
Dim Regex, Retval 'Crear variable.
Set regex = new Regexp 'Crear expresión regular.
regex.pattern = Patrn 'Modo de conjunto.
regex.ignorecase = false 'Establecer si es sensible a la caja.
retval = regex.test (strng) 'Realice una prueba de búsqueda.
REGEXPTEST = RETVAL 'Valor de retorno, si no coincide, devuelve falso, si coincide es verdadero
Establecer regex = nada
Función final
%>
#T = generar cuerdas aleatorias
<%
'Generar cuerdas aleatorias
Función rndcode ()
Dim Codeset, equivalente
Codeset = "0123456789ABCDefghiJklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Montonset = 62 'Número de textos
Aleatorizar
Dim Vcode (10), Vcodes, I
Para i = 0 a 9
Vcode (i) = int (rnd * montonset)
Vcodes = VCodes & Mid (Codeset, Vcode (i) + 1, 1)
Próximo
Rndcode = vcodes
Función final
%>
#T =========================================
#T = operaciones relacionadas con FSO
#T = Determinar si el directorio existe
<%
Función isflodeRexist (strfoldername)
Establecer fso = server.createObject ("scripting.filesystemObject")
If (fso.foldereRexists (strfoldername)) entonces
IsflodeRexist = True
DEMÁS
IsflodeRexist = falso
Final si
Establecer FSO = nada
Función final
%>
#T = Crear directorio
<%
Function createFolder (strfoldername)
Establecer fso = server.createObject ("scripting.filesystemObject")
If (fso.foldereRexists (strfoldername) = false) entonces
FSO.CreateFolder (strfoldername)
Final si
Establecer FSO = nada
Función final
%>
#T = Directorio de eliminación
<%
Función deletefolder (strfoldername)
Establecer fso = server.createObject ("scripting.filesystemObject")
If (fso.foldereRexists (strfoldername)) entonces
Fso.deletefolder (strfoldername)
Final si
Establecer FSO = nada
Función final
%>
#T = determinar si el archivo existe
<%
Función isfileExist (strfileName)
Establecer fso = server.createObject ("scripting.filesystemObject")
If (fso.fileExists (strfileName)) entonces
IsFileExist = True
DEMÁS
IsfileExist = falso
Final si
Establecer FSO = nada
Función final
%>
#T = Eliminar archivo
<%
Función DeleteFile (strFileName)
Establecer fso = server.createObject ("scripting.filesystemObject")
If (fso.fileExists (strfileName)) entonces
FSO.DeleteFile (strfilename)
Final si
Establecer FSO = nada
Función final
%>
#T =========================================
#T = varias funciones comúnmente utilizadas por los ladrones ASP
<%
Función 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) entonces
strreturn = strreturn & chr (thisCharcode)
DEMÁS
Nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode) * & H100 + cint (nextcharcode)))
i = i + 1
Final si
Próximo
Bytetostr = strreturn
Función final
Función gethttppageContent (url, método, sendstr)
Recuperación de duificación
Establecer recuperación = server.createObject ("Microsoft.xmlhttp")
Con recuperación
.
.SetRequestHeader "Content-type", "Application/X-www-form-urlencoded"
.Send (sendstr)
GethttppageContent = .ResponseBody
Terminar con
Establecer recuperación = nada
GethttppageContent = bytetostr (gethttppageContent)
Función final
Function regexPtext (strng, regstr)
Dim regex, coincidente, partidos, retén
Establecer regex = new Regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = verdadero
Establecer coincidencias = regex.execute (strng)
Para cada partido en partidos
Retstr = retstr & regex.replace (match.Value, "$ 1") y ",", "
Próximo
RegexPtext = retroceder
establecer regex = nada
Función final
Función StreamByTestObstr (Strbody, CodeBase)
Dim objstream
Establecer objstream = server.createObject ("ADODB.Stream")
Con objstream
.Type = 1
.Mode = 3
.Abierto
.WRITE STRBOY
.Position = 0
.Type = 2
.Charset = CodeBase
StreamByTestObstr = .ReadText
.Cerca
Terminar con
Establecer objstream = nada
Función final
%>
A través del archivo de edición sobre EditPlus introducido por el editor del 未分 New Technology Channel, creo que todos tienen un cierto entendimiento. Si desea saber más contenido técnico, ¡continúe prestando atención al 未分 未分 nuevo canal de tecnología!