|
方法一:是執行一條SQL語句(最人用這方法)
<%
MyConStr="Driver={SQL Server};server=(local);uid=sa;pwd=thl0019;database=test;"
DIM MyComm,MyRst
Set MyComm = Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection = MyConStr 'MyConStr是数据库连接字串
MyComm.CommandText = "upGetUserName('db_news',2)" '指定存储过程名
MyComm.CommandType = 4 '表明这是一个存储过程
MyComm.Prepared = true '要求将SQL命令先行编译
Set MyRst = MyComm.Execute
Set MyComm = Nothing
response.Write(MyRst("title"))
%>
方法二:
Set conn = Server.CreateObject("ADODB.Connection")
ConnStr = ConnStr = "Provider = Sqloledb;User ID = "& SqlUsername &";Password = "& SqlPassword &";Initial Catalog = "& SqlDatabaseName &";Data Source = "& SqlLocalName &";"
conn.Open ConnStr
set rs=server.CreateObject("adodb.recordset")
rs.open "exec upGetUserName 'db_news',2",conn,1,1
response.write(rs("title")) |
|