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

 

基本参数: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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值