再写出一个我刚刚整理出来的存储过程：

if request.form(mod) = MOD then
   Set conn = Server.CreateObject(ADODB.Connection)
 Set  cmdExec = Server.CreateObject(ADODB.Command)
 cmdExec.CommandType = adCmdStoredProc
 cmdExec.ActiveConnection = Conn
 '//以下三个是参数
 cmdExec.Parameters.Append cmdExec.CreateParameter(,adVarWChar,adParamInput ,, SpeicalTPStr)
    cmdExec.Parameters.Append cmdExec.CreateParameter(,adInteger,adParamInput ,,request(CoseSheetId))
    cmdExec.Parameters.Append cmdExec.CreateParameter(,adInteger,adParamInput ,,session(logincompanyid))
    cmdExec.CommandText = sp_CalculateSpecialTP   '// 存储过程名
    Set DoRegCompany = cmdExec.Execute
    Set cmdExec = Nothing
end if