<%
Dim strConn, strSQL, Rs, strC
strConn = "Provider=SQLOLEDB;Server=127.0.0.1;Database=TestDb;UID=sa;PWD=sa;"
strSQL = "SELECT * FROM sys_bps_groups"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,strConn1,1,1
rs.MoveFirst()
strC = strC & ("<?xml version='1.0' encoding='gb2312'?>") & vbcrlf
strC = strC & ("<group>") & vbcrlf
while (not rs.EOF)
strC = strC & ("<r>") & vbcrlf
strC = strC & ("<gn>" & Trim(rs("group_name")) & "</gn>") & vbcrlf
strC = strC & ("<gp>" & Trim(rs("group_parent")) & "</gp>") & vbcrlf
strC = strC & ("</r>") & vbcrlf
rs.MoveNext()
wend
strC = strC & ("</group>")
rs.close
set rs =nothing
Call SaveXml(strC)
Sub SaveXml(str)
Dim sDir
Dim Fso
Dim Fout
sDir = Server.MapPath("../Meeting")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = Fso.CreateTextFile(sDir&"/"&"groups.xml")
Fout.WriteLine str
Fout.close
Set Fout = Nothing
Set Fso = Nothing
End Sub
%>
评论