¿Dónde está la enciclopedia de sintaxis de comandos de base de datos de acceso para operar código ASP?

1. Extraer lista de campos

//& lt;%

Establecer cn=Servidor. CreateObject("ADODB.Connection")

cn. Abra " Proveedor = fuente de datos SQLOLEDB = localhost; "& amp_

"Directorio inicial = pub; ID de usuario = sa contraseña = "

Establezca rs=cn. Ejecutar(" Seleccionar * de los autores ")

en lugar de rs. Fin del archivo

Respuesta. Escribe rs("au_fname ")

rs. Siguientes

filas

rs. Cerrar

cn. Cerrar

//% & gt;

2. Función de conjunto de datos de retorno

La función pública GetData() es ADODB. Conjunto de registros

Marcar cn como ADODB. Relación

Dim rs es ADODB. Conjunto de registros

Establecer cn=CreateObject("ADODB.Connection")

cn. Abra " Proveedor = fuente de datos SQLOLEDB = localhost; "& amp_

" directorio inicial = pub; ID de usuario = sa contraseña = "

Set rs = CreateObject("ADODB.Connect ” )

rs. LockType=adLockBatchOptimistic

rs. CursorLocation=adUseClient

rs. CursorType=adOpenStatic

rs. Active "Seleccionar * de los autores", cn

Establezca rs. ActiveConnection=Ninguno

cn. Cerrar

Establecer cn = Ninguno

Establecer GetData=rs

Finalizar función

3.

p>

<! -Tipo de metadatos = " typelib " file = " c:\program files\common files\system\ado\msado 15.dll"-& gt;

& lt%

Escribir anunciar. "&adopenstreamfromurl

Response.end()

Establecer rs = Server.CreateObject("adodb.recordset ")

Establecer stmData = Server.CreateObject(" ADODB .Stream")

StmData.Charset="gb2312 " 'Muy importante; de ​​lo contrario, se informará un error. El conjunto de registros no se puede crear a partir de la fuente especificada. El archivo o secuencia fuente debe contener datos del conjunto de registros en XML o formato ADTG. Mueve montañas y desea buena suerte a todos_

xmbm = QueryString("xmbm ")

Si xmbm = " " entonces xmbm = " 110100001 "

Resultado difuso

Dimensión xml, longitud XML

establecer servidor DCOM = CreateObject(" remo object.SDK.COMServer")

DCOMServer MessageType = "TROBINBessage"

DCOMServer.channel type = "TROWinInetHTTPChannel"

DCOMServer.SetChannelProperty "TargetURL", "mand")

cmd

strQuery = "& ltROOT". xmlns:SQL = ' urn:schemas-Microsoft-com:XML-SQL ' >& ltsql:query >& ampstrQuery &"</SQL:query >& lt/ ROOT >>p>

Establecer stm= servidor CreateObject("adodb.stream ")

stm.

Escribir consulta de texto, 0

stm. posición=0

cmd. comando flujo=stm

cmd. dialecto = " { 5d 531cb 2-E6Ed-11 D2-B252-00c 04 f 681b 71 } "

Establecer xmldoc=servidor. CreateObject(" Documento MSXML 2 . DOM ")

cmd. Propiedades("OutputStream") = xmldoc

cmd. Ejecutar,, 1024

getXml=xmldoc.xml

Establecer cmd=nada

Establecer xmldoc=nada

Establecer stm=nada

Fin de función

str query = " select * from test 1 for XML auto "

Respuesta. escribir getXml(Connecticut strQuery)

%>

4.2

& ltscript language = " jscript " runat = " server " & gt; p>var conn = nuevo objeto ActiveX(" adodb . conexión ")

conn open(" Proveedor = Microsoft . jet . oledb . 4.0; fuente de datos = "+server.MapPath("db .mdb "))

var sql = "Seleccione diferentes provincias de todas las ciudades"

var rs = conn.Execute(sql)

var XML doc = new ActiveX object("Microsoft.XMLDOM")

xmldoc.async = false

var XML head = XML doc . createprocessinginstruction(' XML ', ' versión = " 1.0 " codificación = " GB. 2312 " ')

xmldoc.insertBefore(xmlhead, xmldoc.childNodes(0))

var raíz = documento XML. createelement(" raíz ")

xmldoc.appendChild(raíz)

Hacer {

var provincia = documento XML createelement(" provincia ")

province.text = rs ("provincia" )

root.appendChild(provincia)

var osql = " seleccione una ciudad distinta de todas las ciudades donde provincia = ' "+RS(" provincia ")+" ' "

var ors = conn.Execute(osql)

Hacer {

var city = XML doc . createelement(" city ")

city. text = ors("ciudad")

province.appendChild(ciudad)

var MySQL = " seleccione universidad de todas las ciudades donde ciudad = ' "+ors(" ciudad " )+" ' "

var myrs = conn.Execute(mysql)

Hacer {

var college = XML doc . /p>

college.text = myrs("universidad ")

ciudad.appendChild(universidad)

myrs.movenext()

}mientras (! (myrs.eof||myrs.bof))

Molinos.

close()

ors.movext()

} while(!(ors.eof||ors.bof))

ors. close()

rs.movext()

} while(!(rupeeeof | |rupeebof))

xmldoc.save(server.MapPath( "allcity .xml "))

Respuesta. Escribir ("¡Creado correctamente!")

& lt/script & gt;

5. Recorrer el documento XML

& lt% @ Language = VBScript %. & gt

& lt% Opción % explícito & gt

& lttable border="1 " >& lttr & gt& ltth & gtName& lt/th & gt;& ltth & gt Número de canciones</th></tr>

& lt%

Dim objParser, objRoot, objNode, I

Establecer objParser =Servidor. CreateObject("MSXML.DOMDocument")

objParser. Load(server. MapPath(% % 1)) // " álbumes . XML "

establecer objRoot = obj elemento del documento

for I = 0 To(objroot . nodos secundarios. .longitud-1)

Si objRoot.childNodes.Item(i). baseName="album "Entonces

establezca objNode = objroot . nodos secundarios elemento(I)

responda. Escriba "<tr><TD>;

Respuesta. Escriba el atributo objnode.get("nombre")&"</TD><td align='center'>

Respuesta. Escribe objNode.childNodes.length

Finalizar si...

Entonces

% & gt

& lt/TD & gt ; & lt/tr & gt;

& lt/table & gt;

Buscar elementos XML

& lt% @ Language = VBScript % & gt

& lt% Opción % explícito & gt

//& lt;%

Dim objDocument, objRoot, objNode, objNodeList

Configuración objDocumento=Servidor. CreateObject("MSXML.DOMDocument")

objDocument. Load(server. MapPath(% % 1)) // " álbumes . XML "

establecer objRoot = elemento de documento obj

Establecer objNodeList=objRoot. seleccione nodos("//ablum[@ artista = ' " & request.form("artista")&']")

Si objNodeList.length=0, entonces

Respuesta Escriba "No hay coincidencia"

Otro

Respuesta /th><th>year</th></tr>

Para cada objNode en objNodeList

Respuesta. Escriba " & lttr & gt& ltTD >; & ampobjNode.getAttribute("nombre ")

en respuesta.

Escriba "</TD><TD>&objnode.get atributo("fecha de lanzamiento")&"</TD></tr>

Luego

Respuesta. Escribe " & lt/table

Terminará si...

Terminará si...

//% & gt;

7. Descargar archivo

& lt% @ Idioma = VBScript % & gt

& lt% Opción % explícito & gt

// & lt;%

Llamar a descargar archivo(replace(Solicitud(" archivo "),",",""))

Función descargar archivo(strFile)

Asegúrese de utilizar la última versión de MDAC

Obtenga la ruta completa del archivo especificado

strFilename = ruta del mapa del servidor (strFile)

Borrar el búfer

Response.buffer=True

Response.Clear

Crear flujo

Establecer s = Servidor p>

Nan Open.

Establecer en binario

Nan Type = 1

Cargar archivo

Continúe con el siguiente paso si ocurre un error

Compruebe si el archivo existe

Establezca fso = Server. CreateObject("Script.FileSystemObject")

Si no es fso, entonces

Respuesta. & lth 1 & gt; Error: & lt/h1 >&strFilename &" no existe& ltp >)

Fin.

Terminará si...

Obtener longitud del archivo

Establecer f = GetFile(strFilename)

intFilelength = f.size

South LoadFromFile(strFilename)

Si se produce un error, entonces

Respuesta. write("<h 1> Error:</h1>&er.Description& "& ltp >)

Fin

Finalizar si...

Enviar encabezados al navegador del usuario

Respuesta AddHeader "Content-Length", "attachment; filename = " & ampf.name

Respuesta. AddHeader "Contenido-Longitud", intFilelength

Respuesta. CharSet = "UTF-8 "

Respuesta. ContentType = "application/octet stream"

Archivo de salida al navegador

Respuesta. Escritura binaria s .read

respuesta. Rubor

Organizar

Cerrar Sur

Establecer s=none

Función final

//% & gt ;

8. Llamar a la consulta de procedimiento almacenado

& lt% @ Idioma = VBScript % & gt

& lt% Opción Explícita % & gt

//<%

Connecticut dim db,myconn

db="/database/product.mdb"

establecer conn=servidor. CreateObject("ADODB.Connection")

myconn="Provider=Microsoft.Jet.OLEDB.4.0 DataSource="&Server. MapPath(" & db & "")

Sala de control, abre mi sala de control

dim rs

dim sql

palabra clave dim

Selección difusa

Palabra clave=request("palabra clave ")' recibe el valor enviado por la página.

Select = request("select")

set RS = server . createobject(" adodb . recordset ")

Sql="exec tse " 'Usar exec ejecuta el procedimiento almacenado tse y pasa palabras clave y selecciones como parámetros al procedimiento almacenado.

Connecticut, 1, 1

Si rs.eof y rs.bof entonces

Response.write("¡Sin registro!")

Response.End

Terminará si...

Los registros buscados por respuesta.write son los siguientes:

Hasta rs.eof

response.write " " & ampRS(" id ")& amp;":" & amprs("title")& amp" " 'Imprime el ID y el título del artículo.

response.write " & ltbr & gt& ltbr >;

rs.movext

Anillo

Limpiar el campo de batalla

rs cerrado

Conexión cerrada

Establecer rs=Ninguno

Establecer conexión=Ninguno

//% & gt;

9. Consulta de procedimiento almacenado de parámetros

Procedimiento almacenado:

Crear el procedimiento almacenado dbo.tse en SQL

Crear procedimiento [ dbo]. [Xie]

@keyword varchar(20)=null, 'Define la palabra clave de la consulta

@choose int=null 'Define el tipo de consulta. 1 es la columna de consulta, otras son contenido)

Me gusta

if @choose=1

seleccione * de la web donde el título es @ palabra clave+' %. '

Otros

selecciona * de la web, donde @keyword + '% ' y otro contenido

Volver

Ir

Lista.página asp

& lt% @ Idioma = VBScript % & gt

& lt% Opción % explícito & gt

// & lt；%

Connecticut dim db, myconn

db="/database/product.mdb "

Establecer conexión = servidor CreateObject("ADODB.Connection ")

myconn="Proveedor=Microsoft. Jet .OLEDB.4.0 data source = " & server.MapPath(" & db & "")

Sala de control, abre mi sala de control

dim rs

dim sql

palabra clave dim

Selección difusa

Palabra clave=request("palabra clave")'Recibir el valor enviado por la página.

select = request("select")

set RS = server . createobject(" adodb . recordset ")

SQL = " exec tse " & amp ; Palabras clave y;, "& amp select & amp" 'Utilice exec para ejecutar el procedimiento almacenado tse y pase la palabra clave y la selección como parámetros al procedimiento almacenado.

Connecticut, 1, 1

Si rs.eof y rs.bof entonces

Response.write("¡Sin registro!")

Response.End

Terminará si...

Los registros buscados por respuesta.write son los siguientes:

Hasta rs.eof

response.write " " & ampRS(" id ")& amp;":" & amprs("title")& amp" " 'Imprime el ID y el título del artículo.

response.write " & ltbr & gt& ltbr >;

rs.movext

Anillo

Limpiar el campo de batalla

rs cerrado

Conexión cerrada

Establecer rs=Ninguno

Establecer conexión=Ninguno

//% & gt;