Классический ASP-скрипт для создания XML

Question

Мне нужно использовать классический ASP для создания файла XML из экспресс-базы данных SQL2005.Я получаю 500 ошибок.Я считаю, что моей проблемой является строка подключения, мне было интересно, смогу ли я взглянуть на это свежим взглядом, чтобы, возможно, дать мне новый путь.Вот код:

<%
Dim objConn, strConnect, strSQL, rs, tb, objFSO, xmlFile, objWrite
xmlFile = Server.MapPath("inventory.xml")
tb = chr(9)
set objFSO  = Server.CreateObject( "Scripting.FileSystemObject" )
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.Open "Provider=SQLOLEDB;Data Source=mybox.com;Initial      Catalog=myDB;UserId=myID;Password=myPW;"

If Not objFSO.FileExists( xmlFile ) Then objFSO.CreateTextFile( xmlFile )
set objWrite = objFSO.OpenTextFile( xmlFile, 2 )


objWrite.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")
objWrite.WriteLine("<data>")

strSQL = "SELECT * FROM table1"
Set rs = objConn.Execute(StrSQL)


Do While not rs.EOF
objWrite.WriteLine(tb & "<marker>")
objWrite.WriteLine(tb & tb & "<name>" & rs("name") & "</name>")
objWrite.WriteLine(tb & tb & "<address>" & replace(rs("address"),"&","&amp;") & "</address>")
objWrite.WriteLine(tb & tb & "<city>" & rs("city") & "</city>")
objWrite.WriteLine(tb & tb & "<state>" & rs("size") & "</state>")
objWrite.WriteLine(tb & tb & "<zipcode>" & rs("zipcode") & "</zipcode>")
objWrite.WriteLine(tb & tb & "<lat>" & rs("lat") & "</lat>")
objWrite.WriteLine(tb & tb & "<lng>" & rs("lng") & "</lng>")
objWrite.WriteLine(tb & "</marker>")
rs.MoveNext
Loop


objWrite.WriteLine("</data>")
objWrite.Close()
%>

Я ценю любую свежую точку зрения, которой может поделиться каждый.Спасибо, - Matt

Answer 1

Больше всего мне нравится ваша строка подключения. Я не уверен, как он обрабатывает лишние пробелы в "Initial Catalog", но я могу сказать, что mybox.com почти наверняка неправильное значение для источника данных. Вам следует использовать внутреннее имя и не предоставлять свою базу данных общедоступному Интернету.

Кроме того, прошло много времени с тех пор, как я использовал классический asp, но IIRC вам нужно позвонить .MoveNext(), прежде чем получить доступ к любым записям & mdash; вверху петли, а не внизу.

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