Используйте Httpservice и Pedo -Wweb Service Communication для завершения операции базы данных
Я предоставляю идею псевдо -сервиса для ASP:
clientReq.xml:
-------------------------------------------------- ---------------------------------------------
<?
<Testpacket>
<ssgtype> getvaluereq </msgtype>
<Версия> 1.0 </версия>
</testpacket>
index.mxml:
-------------------------------------------------- ---------------------------------------------
<MX: ID MODEL = MREQ SOURCE = clientReq.xml/>
<MX: httpservice id = hs url = http: //asp/testserver.asp
ResultFormat = XML
Метод = post
ContentType = Application/XML
ShowBusyCursor = true>
<MX: запрос>
<xml> {mreq} </xml>
</mx: запрос>
</mx: httpservice>
TestServer.asp:
-------------------------------------------------- ---------------------------------------------
В основном получение пакетов данных, пакетов данных анализа, указанных операций и возврата к четырем шагам данных
1 Получите отправленный пакет данных
Установить dom = server.createObject (msxml2.document)
odom.load запрос
2 Проанализируйте пакет данных и получите msgtype
Smsgtype = trim (odom.selectsinglede (// msgtype) .text)
Выберите Case smsgtype
Case getValuereq
Позвоните GetValue
'Case DeleteValueq
'Позвоните в DeleteValue
case insertvalueq
'CALL INSERTVALUE (ODOM)
'Case UpdateValueq
'Call UpdateValue
'Else Case
'Позвоните в душ
конец выбора
3 Укажите операцию, завершите операцию GetValue здесь, многие из которых могут быть превращены в общественные модули для других функций
Sconn = Driver = {Microsoft Access Driver (*.mdb)};
Установить oconn = server.createObject (adodb.connection)
Oconn.open sconn
SSQL = SELECT * из порядка сообщений по id desc
setrs = server.createObject (adodb.oldset)
Or.pen SSQL, OCONN, 1, 1
'Конструктивная запись XML документ
Если Organ.EOF и наш.BOF, тогда
sxml = <?
<TestPacket> & vbcrlf & _
<ssgtype> SystemResp </msgtype> & vbcrlf & _
<Версия> 1.0 </version> & vbcrlf & _
<Результат> 0 </result> & vbcrlf & _
</testpacket>
конец, если
'Construction имеет запись XML -документ
Если нет (iates.eof и ors.bof), тогда
делать, пока не ом.
stmpxml = stmpxml & <Сообщения> & vbcrlf & _
<mame> & org (name) & </name> & vbcrlf & _
<Ege> & & & </age> & vbcrlf & _
<Sex> & & & </sex> & vbcrlf & _
<msg> & org (msg) и </msg> & vbcrf & _
</messages> & vbcrlf
Ondenext
петля
sxml = <?
<TestPacket> & vbcrlf & _
<ssgtype> SystemResp </msgtype> & vbcrlf & _
<Версия> 1.0 </version> & vbcrlf & _
<Результат> 1 </result> & vbcrlf & stmpxml & _
</testpacket>
конец, если
4. вернуть данные
Установить dom = server.createObject (msxml2.document)
odom.loadxml (sxml)
Odom.save (ответ)
Установить Odom = ничего
Message.mdb
-------------------------------------------------- ---------------------------------------------
Имя базы данных: message.mdb
Название данных: сообщение
Поле данных: тип поля
Id автоматический номер
Название текст
Возраст номер
Половый текст
MSG замечания
Результаты исполнения:
-------------------------------------------------- ---------------------------------------------
Когда я устанавливаю ResultFormat = текст httpservice, см. Результаты дисплея
Эта тема содержит вложения: SF_200411813537.jpg (23359bytes)
Блог CSDN: http://blog.csdn.net/stefli
MP3: http://stefli.88ip.net/flex/mp3player.swf