En ASP, un código con un valor de retorno se llama función. Podemos escribir un código para calcular si un número natural es un número primo y luego volver al programa de llamadas. Hoy, el nuevo canal de tecnología compartirá con usted ¿Cuáles son las funciones comúnmente utilizadas de ASP? El editor se lo explicará en detalle.
<%
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)
resultado = resultado+"<br>"
Case CHR (34)
resultado = resultado+"" "
caso "&"
resultado = resultado+"&"
Case CHR (32)
'resultado = resultado+""
Si i+1 <= ly i-1> 0 entonces
Si Mid (str, i+1,1) = chr (32) o mid (str, i+1,1) = chr (9) o mid (str, i-1,1) = chr (32) o mid (str, i-1,1) = chr (9) entonces
resultado = resultado+""
demás
resultado = resultado+""
final si
demás
resultado = resultado+""
final si
Case CHR (9)
resultado = resultado+""
caso
Result = Result+Mid (Str, I, 1)
final seleccionar
próximo
htmlencode2 = resultado
función final
'********************************************************************************
'Verifique si hay citas individuales en la cadena SQL, y si lo hay, conviértalo
'********************************************************************************
función checkstr (str)
dim tstr, l, i, ch
str = TRIM (STR)
l = len (str)
para i = 1 a l
CH = Mid (Str, I, 1)
Si ch = "'" entonces
tstr = tstr+"'"
final si
tstr = tstr+ch
próximo
Checkstr = tstr
función final
%>
¿Cuáles son las funciones comunes utilizadas en ASP introducidas por el nuevo canal de tecnología en el artículo de hoy? Creo que a través de la introducción anterior, todos lo han aprendido a fondo, pero aún necesita revisarlo para consolidar este conocimiento.