|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;server|sql|会见 寻常我们只传闻过ADO等一类ASP工具,但在ASP中另有个不为人知的专门SQLServer的ASP会见工具,它就是SQLOLE.SQLServer工具。SQLOLE.SQLServer能够间接会见SQLServer的体系属性。以SetoSQLServer=CreateObject("SQLOLE.SQLServer")语句将发生一个SQLServer服务器工具。若要检察此服务器中数据库的汇合,可用语句:
ForEachSQLDBInoSQLServer.Databases
Response.WriteSQLDB.Name‘将列出一切的数据库,如Pubs等
Next
若要检察某数据库中(如PUBS数据库)数据表的汇合,可用语句:
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是后面创立的SQLServer服务器工具
ForEachDBTableInpubDatabase.Tables
Response.WriteDBTable.Name
Next
上面的语句将列出数据库中(PUBS数据库)数据视图
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是后面创立的SQLServer服务器工具
ForEachDBViewInpubDatabase.Views
Response.WriteDBView.Text
Next
以下语句将列出数据库中(PUBS数据库)存贮历程
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是后面创立的SQLServer服务器工具
ForEachDBSPInpubDatabase.StoredProcedures
Response.WriteDBSP.Text
Next
程序运转的了局(取数据表名):
取存贮历程的了局:
一个完全的小例子源码附后。
<%@LANGUAGE=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content=
"MicrosoftDeveloperStudio">
<METAHTTP-EQUIV="Content-Type"
content="text/html;charset=gb2312">
<TITLE></TITLE>
</HEAD>
<%
OnErrorResumeNext
DimoSQLServer
SetoSQLServer=CreateObject("SQLOLE.SQLServer")
strServer="dep"
strLogin="sa"
strPwd=""
oSQLServer.ConnectstrServer,strLogin,strPwd
%>
<BODYBGCOLOR=#ffffff>
数据库列表
<SELECTNAME="Database">
<%
ForEachSQLDBInoSQLServer.Databases
IfNotSQLDB.SystemObjectThen
Response.Write"<OPTIONVALUE=
"""&SQLDB.Name&""">"&SQLDB.Name
&""
EndIf
Next
SetoSQLServer=Nothing
%>
</SELECT>
</BODY>
</HTML>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|