<% Rem 首页页面设置 Const CachePage=false '是否做页面缓存 Const CacheTime=60 '缓存失效时间 Dim XMLDom,page,TopicMode,Cmd If Request("w") = "1" Then Passport_Main() Response.End End If If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Session(Dvbbs.Cach
下面是网上的 复制代码 代码如下: class ArrayToXML { /** * The main function for converting to an XML document. * Pass in a multi dimensional array and this recrusively loops through and builds up an XML document. * * param array $data * param string $rootNodeName –
<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = “” Then xmlroot = “xml” Set ArrayToxml = Server.CreateObject(“msxml2.FreeThreadedDOMDocument”& MsxmlVersion) ArrayToxml.appendChild(A
