存储过程中的一些参数备份

 

基本参数:adovbs.inc

 

set cmd = Server.CreateObject("adodb.Command")
cmd.activeConnection = conn
cmd.commandText = "web_workflow_fenfa"
cmd.CommandType = 4

cmd.Parameters.append cmd.CreateParameter("@tableType",3,1,4,1)
cmd.Parameters.append cmd.CreateParameter("@tableauid",3,1,4,f_auid)
cmd.Parameters.append cmd.CreateParameter("@Body",200,1,200,isSubject)
cmd.Parameters.append cmd.CreateParameter("@liucheng",200,1,2000,lujingname)
  cmd.Parameters.Append cmd.CreateParameter("@Body",adLongVarChar,adParamInput,2147483647,Body)//text类型

cmd.execute
set cmd = nothing

 Function InsertNewMail()
  Set cmd = Server.CreateObject("ADODB.Command")
  cmd.ActiveConnection=conn
  cmd.CommandType=adCmdStoredProc
  cmd.prepared=true'保存编译
  cmd.CommandText="NewEmail" '存储过程 名称
        Cmd.Parameters.Append Cmd.CreateParameter("@EmpCode",adInteger,adParamInput,,Empcode)
  cmd.Parameters.Append cmd.CreateParameter("@EmpName",adVarChar,adParamInput,4000,EmpName)
  cmd.Parameters.Append     cmd.CreateParameter("@sMail",adVarchar,adParamInput,4000,PopServer) 
  cmd.Parameters.Append     cmd.CreateParameter("@Subject",adVarchar,adParamInput,4000,Subject)
        cmd.Parameters.Append     cmd.CreateParameter("@FromName",adVarchar,adParamInput,4000,FromName)
  cmd.Parameters.Append cmd.CreateParameter("@Body",adLongVarChar,adParamInput,2147483647,Body)
  cmd.Parameters.Append cmd.CreateParameter("@Dtime",adDBTimeStamp,adParamInput,,Dtime)
        cmd.Parameters.Append cmd.CreateParameter("@Priority",adInteger,adParamInput,100,Priority)
  cmd.Parameters.Append cmd.CreateParameter("@Attach",adInteger,adParamInput,,Attach)
  cmd.Parameters.Append cmd.CreateParameter("@Auid",AdInteger,adParamOutput,,0)
        cmd.execute()
  InsertNewMail = cmd.Parameters("@Auid")
  Set cmd = Nothing
 End function