Уеб 2 УД "Програмиране на ASP: Създаване на XML файл

Начало > Програмиране > Програмиране на ASP: Създаване на XML файл

ASP Програмиране: Писане XML файл

31ви януари, 2010

Изпращам

Печат

Гото коментари Оставете коментар

Ето един прост функция, за да напишете XML файл директно от страницата ASP.

Този скрипт, който използва данните от база данни, подкрепа за достъп MDB формат, но можете да се свържете с всяка база данни от всякакъв вид.

  <% @ LANGUAGE => VBScript%
 <%
 "Response.ContentType =" текст / XML "
 Response.CodePage = 65001
 Response.Charset = "UTF-8"
 Response.Write ("<? Xml версия =" 1 0.0 "кодиране =" ISO-8859-1'?>"& VbCrLf)
 Response.Write ("<group>" & vbCrLf)

 Задайте Кон = Server.CreateObject ("ADODB.Connection")
 conn.Open "DRIVER = (Microsoft Access водача (*. MDB)); DBQ ="
 & Server.MapPath ("MioDB.mdb)

  Задайте RS = Server.CreateObject ("ADODB.Recordset")
 SQL = "SELECT * FROM MiaTabella"
 rs.open SQL, Кон, 3, 3

 ако не тогава rs.eof

 ContentId = РС ("IDTab)
 ContentPal = РС ("SitoTab)
 ContentNome = РС ("NomeTab)
 ContentDescrizione = РС ("DescrizioneTab)
 ContentUrl = РС ("UrlTab)
 ContentClip = РС ("FlashTab)

 Response.Write ("<Мрежата идентификатор =" "& & ContentId" "palid =" & ContentPal & "" ")

  Response.Write ("заглавие =" "& & ContentNome" връзката "=" & ContentUrl & "" ")

  Response.Write ("малка =" "& & ContentId" "клип =" & ContentClip & "" ")

  Response.Write ("><![ CDATA ["& ContentDescrizione &"]]></ Интернет>" & vbCrLf)

 крайна сметка, ако

 rs.Close
 conn.Close
 Задайте RS = Нищо
 Задайте Кон = Нищо

 Response.Write ("</ група>" & vbCrLf)
 %>