Introducción a las funciones ASP de uso común

Las funciones ASP son una parte necesaria de la función de implementación de la programación web ASP, pero ¿sabes sobre las funciones ASP? De hecho, solo necesitamos dominar algunas funciones ASP de uso común, así que echemos un vistazo a la introducción de funciones ASP de uso común ahora.

========= Obtén la URL con el puerto, se recomienda usar =========================

Función get_scriptnameUrl ()

If request.serverVariables ("server_port") = "80" entonces

Get_scriptnameUrl = "http: //" & request.ServerVariAbles ("server_name") & lcase (request.ServerVariAbles ("script_name"))

Demás

Get_scriptnameUrl = "http: //" & request.servervariAnbles ("server_name") & ":" & request.serverVariAnbles ("server_port") & lcase (request.servervariables ("script_name"))

Final si

Función final

Lo anterior es una introducción a las funciones ASP de uso común. Después de leerlo, ¿entiendes las funciones ASP?

'===================.

Función Boldword (strContent, Word)

Si Word = "" entonces

Boldword = strContent

Función de salida

Final si

dim oblegexp

Establecer objregexp = new Regexp

objegexp.ignorecase = True

objregexp.global = verdadero

objregexp.pattern = "(" & word & ")"

strContent = objregExp.replace (strContent, "<font color =" "#ff0000" "> <b> $ 1 </b> </font>")

Establecer objregexp = nada

Boldword = strContent

Función final

'======================== Obtenga la dirección IP actual del usuario =====================

Función getip ()

uip = request.serverVariAnbles ("http_x_forwarded_for")

If uip = "" entonces uip = request.ServerVariAbles ("remotos_addr")

Getip = UIP

Función final

'==================== ¡Obtenga la ruta actual del script del programa ======================

Función getScriptName ()

Scriptaddress = cstr (request.serverVariables ("script_name")) 'Obtenga la dirección actual

If (request.querystring <> "") entonces

Scriptaddress = scriptaddress & "?" & Server.htmlencode (request.queryString) 'Obtenga la dirección con el parámetro

Final si

Si Len (scriptaddress)> 250, entonces scriptaddress = left (sciptaddress, 250) y "..." 'realice una ruta interceptando, con un máximo de 250 caracteres

GetScriptName = scriptaddress

Función final

'================ URL de retorno con parámetros, utilizados al clasificar múltiples palabras clave ======================

'Parámetro de eliminación: los parámetros que deben eliminarse de la URL pueden ser múltiples, por favor, separarlos con comas en el medio.

Función KeepUrlStr (eliminación)

Scriptaddress = cstr (request.serverVariables ("script_name")) y "?" 'Obtenga la dirección actual y agregue el "?" símbolo

M_itemurl = ""

Para cada m_item en request.Querystring

If instrer (removealist, m_item) = 0 entonces

M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.QueryString ("" & m_item & "")) & "&"

Final si

Próximo

KeepUrlStr = scriptaddress & m_itemurl

Función final