关闭

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

557人阅读 评论(0) 收藏 举报

 

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:8692次
    • 积分:133
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:4篇
    • 译文:0篇
    • 评论:0条
    文章分类