call dbase
sub dbase
Set conn=CreateObject ("adodb.connection")
strConn="driver={SQL Server};server=192.168.0.2;uid=sa;Pwd=;database=website"
conn.open strConn
sql="CREATE PROCEDURE dbo.ttt @liu int output as select @liu=1"
Set MyCommand=createobject("adodb.command")
Set MyCommand.ActiveConnection=conn
MyCommand.CommandType=1
MyCommand.CommandText=sql
Set MyParam=MyCommand.CreateParameter("liu",3,2,4)
MyCommand.Parameters.Append Myparam
MyCommand.execute
bbb=MyCommand("liu")
alert(bbb)
end sub