<%@ Language=VBScript %><% '---开始链接数据库Dim strConnStringstrConnString = driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo set Conn = Server.CreateObject( ADODB.Connection )Conn.Open strConnstring'---结束链接数据库 '---开始为输入参数赋值Dim SelectSql , SelectRs Dim SelectID , SelectName , SelectReturnSelectSql = Select Max(CompanyID) From Dim_Company Set SelectRs = Conn.Execute(SelectSql)SelectID = SelectRs(0)'---结束为输入参数赋值 Dim TiggerTypeTiggerType = 3 Set Cmd = Server.CreateObject( ADODB.Command ) S...
查看详细内容 >>