ASP разрабатывает доску объявлений на основе XML

XML (расширяемый язык разметки) - это язык разметки, основанный на текстовом формате. В следующем используется XML в качестве носителя данных для разработки доски объявлений на основе XML.

XML (расширяемый язык разметки) - это язык разметки, основанный на текстовом формате. Поскольку XML фокусируется на описании содержания данных, он очень значимый для поиска данных. С другой стороны, XML -файлы являются носителем данных. Благодаря активному участию крупных компьютерных компаний по всему миру, XML все больше становится стандартом для следующего поколения интернет-форматов. В следующем используется XML в качестве носителя данных для разработки доски объявлений на основе XML.

Во -первых, мы создаем xml File Guestbook.xml, которая записывает имя, электронное письмо, URL и содержимое сообщения комментатора. Конечно, мы также можем добавить столько информации, сколько нам нужно.

Содержимое файла следующее:

1. <? xmlversion = 1.0coding = gb2312?>
2. <Сообщения Книга>
3. <Запись сообщения>
4. <Имя комментатора> Мэн Сяньхуи </Имя комментатора>
5. <mail> [email protected] </email>
6. <Веб -сайт> http://go.163.com/~colorweb </websity>
7. <Содержание сообщения> Провернут успешно! ! </Содержание сообщений>
8. </Record сообщества>
9. </Книга сообщений>

Поскольку многие серверы в настоящее время поддерживают ASP, мы используем Common ASP в качестве инструмента реализации.

1. <%@Language = vbscript%>
2. <%
3. 'Установите информацию на веб -странице
4. Response.buffer = true
5. Response.expires = -1
6. 'Показать функцию сообщения init ()
7. FunctionInit ()
8. intryform ()
9. 'Определите локальные переменные
10. Dimobjxml
11. Dimarrnames
12. Dimarremails
13. Dimarrurls
14. Dimarrmessages
15. 'Создать объект документа Xmldom для хранения сообщений
16. SetObjxml = server.createObject (msxml2.domdocument)
17. objxml.async = false
18. objxml.load (server.mappath (guestbook.xml))
19. 'Получите коллекцию элементов книги сообщений
20. Setarrnames = objxml.getelementsbytagname (имя комментатора)
21. Setarremails = objxml.getelementsbytagname (электронная почта)
22. Setarrurls = objxml.getelementsbytagname (веб -сайт)
23. Setarrmessages = objxml.getelementsbytagname (Содержание сообщения)
24. Response.write <tableborder = '0'width =' 100%'>
25. Response.write <tr> <tdbgcolor = '#00ccff'align =' center'height = '26 '>
26. Response.write <b> Комментарии врачей следующие: </b>
27. Response.write </td> </tr>
28. 'Вывод содержимого каждого элемента книги сообщений, сначала будет отображаться последнее сообщение
29. Forx = arrnames.length-1to0step-1
30. Response.write <tr> <td> <ahref = mailto: & arrmails.item (x) .text &> & arrnames.item (x) .text & </a> </td> </tr>
31. Response.write <tr> <td> Веб -сайт: <ahref = & arrurls.item (x) .text & target = '_ blank'> & arrurls.item (x) .text & </a> <td> </tr>
32. Response.write <tr> <td> Содержание сообщения: </td> </tr>
33. Response.write <tr> <tdbgcolor = '#0099ff'> & arrmessages.item (x) .text & </td> </tr>
34. Response.write <tr> <td> </td> </tr>
35. Следующий
36. Response.write </table>
37. SetObjxml = ничего
38. Конечная функция
39. 'Функция для добавления записи сообщения в xml -файл AddEntry ()
40. FunctionAddentry ()
41. 'Определите локальные переменные
42. Dimstrname
43. DIMSTREMAIL
44. Dimstrurl
45. DimStrmessage
46. 'Получите входное содержание формы сообщения
47. strname = request.form (имя)
48. strmail = request.form (электронная почта)
49. strurl = request.form (веб -сайт)
50. strmessage = request.form (оставьте сообщение)
51. Dimobjxml
52. Dimobjentry
53. Dimobjname
54. Dimobjemail
55. Dimobjurl
56. Dimobjmessage
57. 'Добавить содержимое сообщения в файл XML
58. SetObjxml = server.createObject (msxml2.domdocument)
59. objxml.async = false
60. objxml.load (server.mappath (guestbook.xml))
61. Setobjentry = objxml.createNode (элемент, запись сообщения,)
62. objxml.documentelement.appendchild (objentry)
63. SetObjname = objxml.createNode (элемент, имя комментатора,)
64. objentry.appendchild (objname)
65. objname.text = strname
66. Setobjemail = objxml.createNode (элемент, электронная почта,)
67. objentry.appendchild (objemail)
68. objemail.text = strmail
69. Setobjurl = objxml.createNode (element, url,)
70. objentry.appendchild (objurl)
71. objurl.text = strurl
72. SetObjmessage = objxml.createNode (элемент, содержимое сообщения,)
73. objentry.appendchild (objmessage)
74. objmessage.text = strmessage
75. objxml.save (server.mappath (guestbook.xml))
76. Response.redirect (Guestbook.asp)
77. Конечная функция
78. 'Заполните и отправляйте функцию формы сообщения entryform ()
79. Funcationryform ()
80. Response.write <palign = 'center'> <b> xml Книга сообщений Пример </b> </p>
81. Response.write <hrcolor = '#000099'width =' 100%'noshade>
82. Response.write <formAction = GuestBook.asp? Action = addEntryMethod = post>
83. Response.write <tableborder = 1>
84. Response.write <tr> <td> Ваше имя: </td> <td> <inputtype = textName = name/> </td> </tr>
85. Response.write <tr> <td> Электронная почта: </td> <td> <inputtype = textName = email/> </td> </tr>
86. Response.write <tr> <td> your url: </td> <td> <inputtype = textName = webse/> </td> </tr>
87. Response.write <tr> <td> Ваше сообщение: </td> <td> <textareName = Сообщение Cols = 40Rows = 5> </textare> </td> </tr>
88. Response.write <tr> <td> </td> <td> <inputtype = postvalue = post message/</td> </tr>
89. Response.write </table>
90. Response.write </form>
91. Конечная функция
92. %>
93. <html>
94. <голова>
95. <TILE> xml Message Пример </title>
96. <metahttp-equiv = content-typecontent = text/html; charset = gb2312>
97. </head>
98. <тело>
99. <%
100. 'Судите, было ли сообщение отправлено и обновит информацию о сообщении
101. Димат
102. a = request.querystring (действие)
103. Ifa <> then
104. добавление
105. еще
106. инициатор
107. Эндиф
108. %>
109. </body>
110. </html>

Выше приведено простой пример использования XML для разработки досок объявлений, и по мере необходимости можно добавить больше функций.