Funciones comúnmente utilizadas de ASP, espero que puedan usarse.
<%
DB DB
db = dbms.mdb
'************************************************************************
'Ejecute la instrucción SQL sin devolver el valor. La mejor declaración SQL es la siguiente:
'Actualizar el nombre de la tabla Establecer nombre de campo = valor, nombre de campo = valor donde el nombre de campo = valor
'Eliminar del nombre de la tabla donde el nombre del campo = valor
'Insertar en el nombre de la tabla (nombre de campo, nombre de campo) Valores (valor, valor)
'************************************************************************
Sub Noresult (SQL)
Dim CONN
Dim CONNSTR
Establecer conn = server.createObject (ADODB.Connection)
Connstr = Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & Server.Mappath (& DB &)
Conn.open Connstr
Conn.execute SQL
Conn.clar
establecer conn = nada
Final
'********************************************************************************
'Ejecute la instrucción SELECT y devuelve el objeto RegistroSet. Este objeto es de solo lectura. Es decir, no se puede actualizar
'********************************************************************************
Resultado de la función (SQL)
Dim CONN
Dim CONNSTR
Dim RCS
Establecer conn = server.createObject (ADODB.Connection)
Connstr = Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & Server.Mappath (& DB &)
Conn.open Connstr
Establecer rcs = server.createObject (ADODB.RecordSet)
rcs.open SQL, Conn, 1,1
Establecer resultado = RCS
Función final
'********************************************************************************
'Aparece el cuadro de diálogo
'********************************************************************************
Sub Alert (mensaje)
mensaje = reemplazar (mensaje, ',/')
Response.Write (<Script> Alert ('& Message &') </script>)
Final
'********************************************************************************
'Regrese a la página anterior, generalmente utilizada después de juzgar si la información se envía por completo
'********************************************************************************
Sub Goback ()
Response.Write (<Script> History.Go (-1) </script>)
Final
'********************************************************************************
'Redirige otra conexión
'********************************************************************************
Sub Go (URL)
Response.Write (<Script> Location.href ('& url &') </script>)
Final
'********************************************************************************
'Reemplace la etiqueta HTML
'********************************************************************************
función htmlencode2 (str)
Resultado atenuante
dim l
si isnull (str) entonces
htmlencode2 =
función de salida
final si
l = len (str)
resultado =
Dim I
para i = 1 a l
Seleccione Caso Mid (STR, I, 1)
caso <
resultado = resultado+<
Caso>
resultado = resultado+>
Case CHR (13)