<%@ Language=VBScript %> <!-- #include file="ADOVBS.inc" --> <% Dim objConn, objCmd, i Set objConn = Server.createobject("ADODB.CONNECTION") objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=PBA;Data Source=(local)" Set objCmd = Server.CreateObject("ADODB.Command") objCmd.ActiveConnection = objConn objCmd.Properties("Output Stream") = Response objCmd.Properties("XML Root") = "root" objCmd.CommandText = "Select * from UserStatus for XML Auto" Response.ContentType = "text/xml" objCmd.Execute i, , adExecuteStream Set objCmd = Nothing objConn.Close Set objConn = Nothing %> |
Word教程网 | Excel教程网 | Dreamweaver教程网 | Fireworks教程网 | PPT教程网 | FLASH教程网 | PS教程网 |
HTML教程网 | DIV CSS教程网 | FLASH AS教程网 | ACCESS教程网 | SQL SERVER教程网 | C语言教程网 | JAVASCRIPT教程网 |
ASP教程网 | ASP.NET教程网 | CorelDraw教程网 |