No ASP, um pedaço de código com um valor de retorno é chamado de função. Podemos escrever um código para calcular se um número natural é um número primo e, em seguida, retornar ao programa de chamada. Hoje, o novo canal de tecnologia compartilhará com você quais são as funções comumente usadas do ASP? O editor explicará isso em detalhes.
<%
DB DB
db = "dbms.mdb"
'***********************************************
'Execute a instrução SQL sem retornar o valor. A melhor declaração SQL é a seguinte:
'Atualizar o nome da tabela Definir nome do campo = valor, nome do campo = valor onde o nome do campo = valor
'Exclua do nome da tabela onde o nome do campo = valor
'Insira no nome da tabela (nome do campo, nome do campo) (valor, valor)
'***********************************************
Sub Noresult (SQL)
Dim Conn
Dim Connstr
Definir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath ("" & db & "")
Conn.Open Connstr
Conn.Execute sql
Conn.Close
Definir conn = nada
Final sub
'*************************************************
'Execute a instrução SELECT e retorne o objeto RecordSet. Este objeto é somente leitura. Isto é, não pode ser atualizado
'*************************************************
Resultado da função (SQL)
Dim Conn
Dim Connstr
Dim RCs
Definir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath ("" & db & "")
Conn.Open Connstr
Set rcs = server.createObject ("adodb.recordset")
rcs.open sql, Conn, 1,1
set resultado = rcs
Função final
'*************************************************
'A caixa de diálogo aparece
'*************************************************
Sub -alerta (mensagem)
mensagem = substituir (mensagem, "'", "/'")
Response.Write ("<Script> alert ('" & Message & "') </sCript>")
Final sub
'*************************************************
'Retornar à página anterior, geralmente usado após julgar se as informações são enviadas completamente
'*************************************************
Sub -retorno ()
Response.Write ("<Script> history.go (-1) </sCript>")
Final sub
'*************************************************
'Redirecionar outra conexão
'*************************************************
Sub Go (url)
Response.Write ("<cript> location.href ('" & url & "') </sCript>")
Final sub
'*************************************************
'Substitua a tag html
'*************************************************
função htmlencode2 (str)
resultado escuro
dim l
Se isnull (str) então
htmlencode2 = ""
função de saída
final se
l = len (str)
resultado = ""
dim i
para i = 1 a l
Selecione Case Mid (str, i, 1)
caso "<"
resultado = resultado+"<"
caso ">"
resultado = resultado+">"
Caso Chr (13)
resultado = resultado+"<br>"
Case Chr (34)
resultado = resultado+"" "
caso "&"
resultado = resultado+"&"
Case Chr (32)
'resultado = resultado+""
Se eu+1 <= l e i-1> 0 então
Se MID (STR, I+1,1) = Chr (32) ou MID (STR, I+1,1) = Chr (9) ou Mid (STR, I-1,1) = Chr (32) ou Mid (STR, I-1,1) = Chr (9) então
resultado = resultado+""
outro
resultado = resultado+""
final se
outro
resultado = resultado+""
final se
Caso Chr (9)
resultado = resultado+""
caso mais
resultado = resultado+mid (str, i, 1)
final Selecione
próximo
htmlencode2 = resultado
Função final
'*************************************************
'Verifique se existem citações únicas na string sql e, se houver, convertem -a
'*************************************************
função checkstr (str)
Dim Tstr, L, I, cap
STR = TRIM (STR)
l = len (str)
para i = 1 a l
CH = MID (STR, I, 1)
Se ch = "'" então
tstr = tstr+"'"
final se
TSTR = TSTR+CH
próximo
Checkstr = tstr
Função final
%>
Quais são as funções comuns usadas no ASP introduzidas pelo novo canal de tecnologia no artigo de hoje? Acredito que, através da introdução acima, todo mundo aprendeu minuciosamente, mas ainda precisa revisá -lo para consolidar esse conhecimento.