Set MyComm=Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection=cn
MyComm.CommandText="insert_gq_2"
MyComm.CommandType=4
'MyComm.Prepared=true
'声明参数
MyComm.Parameters.Append MyComm.CreateParameter( "@title",200,1,200,title)
MyComm.Parameters.append MyComm.CreateParameter( "@fid",3,1,4,fid)
MyComm.Parameters.append MyComm.CreateParameter( "@filename",200,1,100,filename)
MyComm.Parameters.append MyComm.CreateParameter( "@fl1",200,1,50,fl1)
MyComm.Parameters.append MyComm.CreateParameter( "@fl2",200,1,50,fl2)
MyComm.Parameters.append MyComm.CreateParameter( "@fl3",200,1,50,fl3)
MyComm.Parameters.append MyComm.CreateParameter( "@sf",200,1,50,sf)
MyComm.Parameters.append MyComm.CreateParameter( "@dq",200,1,50,dq)
MyComm.Parameters.append MyComm.CreateParameter( "@bz",3,1,4,bz)
MyComm.Parameters.append MyComm.CreateParameter( "@lxr",200,1,50,lxr)
MyComm.Parameters.append MyComm.CreateParameter( "@lxdh",200,1,50,lxdh)
MyComm.Parameters.append MyComm.CreateParameter( "@address",200,1,200,address)
MyComm.Parameters.append MyComm.CreateParameter( "@fw",200,1,50,fw)
MyComm.Parameters.append MyComm.CreateParameter( "@hybz",3,1,4,hybz)
MyComm.Parameters.append MyComm.CreateParameter( "@content",201,1,2147483647,content)
MyComm.Parameters.append MyComm.CreateParameter( "@autoid",3,2)
MyComm.Execute
'取得出参
ppid=MyComm.Parameters( "@autoid").value
Set MyComm.ActiveConnection = nothing
Set MyComm = nothing