Colección de funciones de ASP comúnmente utilizada

Autor：Eve Cole Fecha de actualización：2025-03-01 01:16:01

Forma OLEDB para abrir la conexión de datos SQL

Sub opensqlbyoledb

En el currículum de error siguiente

Establecer conn = server.createObject (ADODB.Connection)

Conn.open Provider = SQLoledB.1;

Si err.number <> 0 entonces

Err.Clear

Response.Write (<div align = 'Center'> La base de datos está conectada a un error, por favor contacte al administrador! </div>)

Respuesta.end ()

Final si

Final

'Funciones relacionadas con la operación de la base de datos

'********************************************************** ************************************************************ ************************************************************ ************************************************************ ************************************************************ **************, ****************

'[Sub] OpenReadrs RS, SQL, Otype

'Función: abra el tipo de conjunto de datos correspondiente y lea solo la operación

'parámetro:

'RS Open RS Collection

Declaración de SQL ejecutada

Subenreadrs (RS, SQL)

Si no es ISObject (RS), entonces

Establecer RS = Server.CreateObject (ADODB.oldset)

Rs.oopen SQL, Conn, 1,1

Final si

Final

'[Sub] OpenWriters RS, SQL

'Función: Abra el tipo de conjunto de datos correspondiente, puede escribir la operación

'parámetro:

'RS Open RS Collection

Declaración de SQL ejecutada

Sub OpenWriters (RS, SQL)

Si no es ISObject (RS), entonces

Establecer RS = Server.CreateObject (ADODB.oldset)

Rs.open SQL, Conn, 1,3

Final si

Final

'[Sub] endrs rs

'Función: cierre el tipo de conjunto de datos correspondiente

'parámetro:

'RS Open RS Collection

Sub endrs (RS)

If isObject (rs) entonces

Rs.close: establecer rs = nada

Final si

Final

'[Sub] endconn

'Función: cierre la conexión de la base de datos

'Parámetro: ninguno

Subdnn

If isObject (Conn) entonces

conn.close: establecer conn = nada

Final si

Final

'[Sub] EXECSQL SQL

'Función: ejecutar la instrucción SQL

'parámetro:

Declaración de SQL ejecutada

Sub execSQL (SQL)

Conn.execute (SQL)

Final

'[] selectAlone sql

'Función: consulta de campo único

'parámetro:

Declaración de SQL ejecutada

'Regreso: valor de campo de consulta

SelectAlone (SQL)

Selectaloners de Dim

Establecer selectAloners = const.execute (SQL)

SelectAlone = selectAloners (0)

Endrs selectAloners

Fin

'Funciones relacionadas con la operación de cadena

'[] Issafestr str

'Función: determine si es una cadena segura, use en campos especiales como el registro e inicio de sesión

'parámetro:

'Str String para detectar

'Return: true = Security, false = inseguro

Issafestr (str)

Dim s_badstr, n, yo

s_badstr = '& <>?%,;: () ~!#$^*{} [] |+-= & chr (34) & chr (9) & chr (32)

n = len (S_BADSTR)

Issafestr = verdadero

Para i = 1 a n

Si Instr (str, mid (s_badstr, i, 1))> 0 entonces

Issafestr = falso

Salida

Final si

Fin

'[] Htmltoencode str

'Función: código HTML

'parámetro:

'STR necesita codificar una cadena

'Return: Code String

Htmltoencode (str) '

Si no es isnull (str) y str <> entonces

str = reemplazar (str, &, & amp;)

str = reemplazar (str,>, & gt;)

str = reemplazar (str, <, & lt;)

Str = reemplazar (str, chr (32),)

str = reemplazar (str, chr (9), & nbsp;)

str = reemplazar (str, chr (34), & quot;)

Str = reemplazar (str, chr (39), ')

str = reemplazar (str, chr (13),)

Str = reemplazar (str ,, s Cript)

Str = reemplazar (str, s, s)

HtmlToencode = str

final si

Fin

'[] Encodetohtml str

'Función: código HTML Código

'parámetro:

'STR necesita ser codificado Cadena

'Return: cadena codificada por inversiones

Encodetohtml (STR)

Si no es isnull (str) y str <> entonces

str = reemplazar (str, & amp; ,, &)

str = reemplazar (str, & gt ;,>)

str = reemplazar (str, & lt ;, <)

Str = reemplazar (str ,, chr (32))

str = reemplazar (str, & nbsp ;, chr (9))

Str = reemplazar (str, & quot ;, chr (34))

str = reemplazar (str, &#39 ;, chr (39))

Str = reemplazar (str ,, chr (13))

str = reemplazar (str, s Cript,)

Str = reemplazar (str, s, s)

Encodetohtml = str

final si

Fin

'[] Gottópico str, strlen

'Función: prueba la longitud de la cadena Stroln, los caracteres chinos se calculan 2 longitud

'parámetro:

'STR necesita ser interceptado

'Longitud de intercepción de Strlen

'Return: la cadena después de la longitud de la longitud de Strlen

Gettopic (str, strlen)

Si str = entonces

Gottopic =

salida

final si

dim l, t, c, yo

l = len (str)

T = 0

para i = 1 a l

C = ABS (ASC (Mid (Str, I, 1)))))

Si c> 255 entonces

t = t+2

demás

t = t+1

final si

Si t> = strlen entonces

Gottópico = izquierda (str, i) y ...

salir

demás

Gottopic = str

final si

Fin

'[] DateFormattime tvar, estilo

'Función: formato de tiempo

'parámetro:

'TVAR necesita una cadena de tiempo de formato

'Tipo de formato de Stype

'Return: Formatting Time String

DateFormattime (TVAR, estilo)

dim tt, syear, smnon, sday, shour, sminute, ssecond

Si no es ISDate (TVAR), entonces dateFormatTime =: Salir

TT = TVAR

Syear = año (TT)

Smonth = Right (0 & mes (TT), 2)

Sday = derecho (0 y día (TT), 2)

Shour = Right (0 & Hour (TT), 2)

Sminute = Right (0 & Minute (TT), 2)

ssecond = Right (0 & Sex (TT), 2)

Seleccionar estilo de caja

Caso 1'2006-3-13

DateFormatTime = Syear & -& Smonth & -& Sday

Caso 2 '13 de marzo de 2006

DateFormatTime = Syear & Year & Smnth & Monthly & Sday & Day

Caso 3 '2006031313120123

DateFormatTime = Syear & Smonth & Sday & Shour & Sminute & Ssecond

Caso

DateFormattime = TT

Final seleccionar

Fin

'[] Isnum str

'Función: si es un número

'parámetro:

'Str necesita juzgar una cadena

'Return: true = number, false = no -numbers

Isnum (str) '

Si str <> e isnumeric (str) entonces

Isnum = verdadero

demás

Isnum = falso

final si

Fin

'Funciones relacionadas con la depuración de salida

'[Sub] Mesgoback str

'Función: información emergente y retorno

'parámetro:

'Str necesita juzgar una cadena

Sub Mesgoback (STR)

Response.Write (<lenguaje = 'java'> alerta ('& str &'); History.back (); </>)

Respuesta.end ()

Final

'[Sub] mesgourl str, url

'Función: información emergente y retorno

'parámetro:

'Str necesita juzgar una cadena

'Dirección de salto de URL

SubmesGourl (STR, URL)

Response.Write (<lenguaje = 'java'> alerta ('& str &'); local.href = '& url &'; </>)

Respuesta.end ()

Final

'[Sub] depurar mal

'Función: salida de depuración

'parámetro:

'Información de salida que quiere incorrectamente

'Retorno: sin valor de retorno

Salida de depuración de sub depuración (ingrong) '

Respuesta. Escribe (ing)

Respuesta.end ()

Final

'Funciones relacionadas con la función

'[] Getip

'Función: Obtener IP de usuario

'parámetro:

' ninguno

'RETURN: IP actual del usuario

Getip ()

Userip dim

userIP = request.serverVariables (http_x_forwarded_for)

Si userIP = entonces userIP = request.ServerVariAbles (remota_addr)

Getip = userip

Fin

'[] geturl

'Función: obtenga el nombre de dominio actual

'parámetro:

' ninguno

'Return: el nombre de dominio actual

getURL ()

getURL = request.ServerVariAbles (server_name)

Fin