Normalerweise haben wir nur von einem Typ von ASP-Objekten wie ADO gehört, aber es gibt in ASP ein wenig bekanntes ASP-Zugriffsobjekt speziell für SQL Server, nämlich das SQLOLE.SQLServer-Objekt. SQLOLE.SQLServer kann direkt auf die Systemeigenschaften von SQL Server zugreifen. Die Anweisung „Set oSQLServer = CreateObject („SQLOLE.SQLServer“) generiert ein SQL Server-Serverobjekt.
---- Um die Datenbanksammlung auf diesem Server anzuzeigen, verwenden Sie die folgende Anweisung:
Für jede SQLDB in oSQLServer.Databases
Response.Write SQLDB.Name 'listet alle Datenbanken wie Pubs usw. auf.
Weiter
---- Um die Sammlung von Datentabellen in einer Datenbank (z. B. der PUBS-Datenbank) anzuzeigen, können Sie die folgende Anweisung verwenden:
pubDatabase=oSQLServer.Databases("pubs")
'oSQLServer ist das zuvor erstellte SQL Server-Serverobjekt
Für jede DBTable in pubDatabase.Tables
Response.WriteDBTable.Name
Weiter
---- Die folgende Anweisung listet die Datenansichten in der Datenbank (PUBS-Datenbank) auf.
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer ist das zuvor erstellte SQL Server-Serverobjekt
Für jede DBView in pubDatabase.Views
Response.Write DBView.Text
Weiter
---- Die folgende Anweisung listet die gespeicherten Prozeduren in der Datenbank (PUBS-Datenbank) auf.
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer ist das zuvor erstellte SQL Server-Serverobjekt
Für jeden DBSP in pubDatabase.StoredProcedures
Response.Write DBSP.Text
Weiter
---- Das Ergebnis der Ausführung des Programms (Name der Datentabelle abrufen):
---- Das Ergebnis des gespeicherten Prozesses abrufen:
---- Ein vollständiger kleiner Beispielquellcode ist beigefügt (Leser mit anderen Funktionen). kann es hinzufügen).
< %@ LANGUAGE = VBScript % >
< HTML >
<KOPF>
< META NAME="GENERATOR" Content=
„Microsoft Developer Studio“ >
< META HTTP-EQUIV="Content-Type"
content="text/html; charset=gb2312" >
< TITLE >< /TITLE >
< /HEAD >
< %
Bei Fehler Weiter fortsetzen
oSQLServer dimmen
Legen Sie oSQLServer = CreateObject ("SQLOLE.SQLServer") fest.
strServer = "dep"
strLogin = "sa"
strPwd = ""
oSQLServer.Connect strServer,strLogin,strPwd
%>
<BODY BGCOLOR=#ffffff>
Datenbankliste
< SELECT NAME="Datenbank" >
<%
Für jede SQLDB in oSQLServer.Databases
Wenn nicht SQLDB.SystemObject, dann
Response.Write „< OPTION VALUE=
""" & SQLDB.Name & """ >" & SQLDB.Name
& " "
Ende wenn
Nächste
Legen Sie oSQLServer = Nothing fest
%>
< /SELECT>
< /BODY >
< /HTML>