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