Funções comumente usadas do ASP, espero que elas possam ser usadas.
<%
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 = provedor = microsoft.jet.oledb.4.0; fonte de dados = & 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 = provedor = microsoft.jet.oledb.4.0; fonte de dados = & 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 (<cript> 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 (<cript> 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)