Utilice la comunicación de servicio Pseudo -Web de HTTPService y ASP para completar la operación de la base de datos
Proporciono una idea de pseudo -servicio para ASP:
ClientReq.xml:
-------------------------------------------------- ---------------------------------------------
<? Versión XML = 1.0 codificación = GB2312?>
<TestPacket>
<sgtype> getValuereq </msgtype>
<Versión> 1.0 </versión>
</testPacket>
index.mxml:
-------------------------------------------------- ---------------------------------------------
<mx: model id = mreq source = clientReq.xml/>
<mx: httpservice id = hs url = http: //asp/testserver.asp
resultFormat = xml
Método = publicar
ContentType = Application/XML
showbusycursor = true>
<mx: solicitud>
<xml> {mreq} </xml>
</mx: solicitud>
</mx: httpservice>
testServer.asp:
-------------------------------------------------- ---------------------------------------------
Obtener principalmente paquetes de datos, analizar paquetes de datos, operaciones especificadas y volver a cuatro pasos de datos
1. Obtenga un paquete de datos enviado
Establecer DOM = Server.CreateObject (msxml2.document)
Solicitud de Odom.Load
2. Analice el paquete de datos y obtenga msgtype
Smsgtype = trim (odom.selectsinglede (// msgtype) .text)
Seleccione Case SMSGTYPE
Caso getValuereq
llamar a GetValue
'Case DeleteValueq
'Llame Deletevalue
Case InsertValueq
'Llamar InsertValue (Odom)
'Case UpdateValueq
'Llame a UpdateValue
'Más caso
'Llame a showrmsg
final seleccionar
3. Especifique la operación, complete la operación GetValue aquí, muchos de los cuales se pueden convertir en módulos públicos para otras funciones
Sconn = controlador = {Microsoft Access Driver (*.mdb)};
Establecer oconn = server.createObject (ADODB.Connection)
Oconn.open sconn
Ssql = seleccionar * de la orden de mensajes por ID DESC
setrs = server.createObject (ADODB.Oldset)
ORS.Preen SSQL, Oconn, 1, 1
'Documento XML de registro constructivo
Si Organ.eof y nuestro.Bof entonces
sxml = <?
<TestPacket> & vbcrlf & _
<sgtype> systemResp </sgtype> & vbcrlf & _
<Versión> 1.0 </versión> y vbcrlf & _
<Resultado> 0 </sult> & vbcrlf & _
</testPacket>
final si
'La construcción tiene un documento récord XML
Si no (IATES.EOF y ORS.BOF) entonces
haz mientras no om.eof
stmpxml = stmpxml & <essages> & vbcrlf & _
<name> & org (nombre) & </name> & vbcrlf & _
<Ege> & & </age> & vbcrlf & _
<EXE> & & </EEXO> & VBCRLF & _
<ssg> & org (msg) & </sg> & vbcrf & _
</sessages> y vbcrlf
ondenext
bucle
sxml = <?
<TestPacket> & vbcrlf & _
<sgtype> systemResp </sgtype> & vbcrlf & _
<Versión> 1.0 </versión> y vbcrlf & _
<Resultado> 1 </sult> & vbcrlf & stmpxml & _
</testPacket>
final si
4. Datos de retorno
Establecer DOM = Server.CreateObject (msxml2.document)
Odom.LoadXml (SXML)
Odom.save (respuesta)
Establecer Odom = nada
Mensaje.mdb
-------------------------------------------------- ---------------------------------------------
Nombre de la base de datos: Message.mdb
Título de datos: mensaje
Campo de datos: tipo de campo
ID Número automático
texto de nombre
Número de edad
texto sexual
Observaciones de MSG
Resultados de la ejecución:
-------------------------------------------------- ---------------------------------------------
Cuando establezco el texto de resultados = text de httpservice, consulte los resultados de la pantalla
Este tema contiene archivos adjuntos: SF_200411813537.jpg (23359bytes)
Blog CSDN: http://blog.csdn.net/stefli
mp3 de Stefli: http://stefli.88ip.net/flex/mp3player.swf