TA的每日心情 | 慵懒
2017-10-9 22:20 |
|---|
签到天数: 111 天 [LV.6]常住居民II
|
本帖最后由 harken 于 2011-1-5 00:28 编辑
更正一下，是所有的办公模块都不可以上传附件。
A8OA 错误 '800a005b' Object variable or With block variable not set
/a8.web/CRM/Utility/AddUploadFileExe.asp，行 84
第84行代码：'On Error Resume Next
上传那个文件的全部代码如下：
<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% Response.Buffer = True %>
<% Server.ScriptTimeout = 600 %>
<!--#include file = "../System/Adovbs.inc" -->
<!--#include file = "../System/ConstDefine.asp" -->
<!--#include file = "../System/FunDefine.asp" -->
<!--#include file = "../System/VarDefineExe.asp" -->
<%
'上传附件直接保存为文件的模式，不要删除
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'Dim upfile
'Set upfile = Server.CreateObject("uploadcom.upfile")
'upfile.FileSaveAs("d:\"+upfile.FileName)
'set upfile = nothing
'Response.End
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim szCoObject
szCoObject = Request("CoObject") & ""
Select Case szCoObject
Case "Employee"
nPageLimit = LIMIT_EMPLOYEE
Case "Interunit"
nPageViewLimit = LIMIT_INTERUNIT
nPageOperateLimit = LIMIT_INTERUNIT_OPERATE
Case "Activity"
nPageLimit = LIMIT_ACTIVITY
Case "Commodity"
nPageLimit = LIMIT_COMMODITY
Case "Project"
nPageLimit = LIMIT_PROJECT
Case "SalesTask"
nPageLimit = LIMIT_SALESTASK
Case "SalesRegister"
nPageLimit = LIMIT_SALESREGISTER
Case "Bbs"
nPageLimit = LIMIT_BBS
Case "Fee"
nPageLimit = LIMIT_FEE
Case Else
nPageLimit = LIMIT_EMPLOYEE
End Select
If szCoObject = "Interunit" Then
%>
<!--#include file = "../System/PurviewAdd5.asp" -->
<%
Else
%>
<!--#include file = "../System/PurviewAdd1.asp" -->
<%
End If
Dim szCreatorTypeID
Dim szCoObjectTypeID
Dim vBinaryData
Dim nMaxUploadFileSize
szCreatorTypeID = szEmployeeTypeID
szCoObjectTypeID = Request("CoObjectTypeID") & ""
vBinaryData = Request.BinaryRead(Request.TotalBytes)
'删除关联OFFICE的原项目，实现更新的目的
IF Right(szCoObject,8) = "CoOFFICE" Then
objConn.Execute("DELETE FROM [CRM_UploadFile] WHERE [CoObject]='" _
& convertTextToSQLStr(szCoObject) & "' AND [CoObjectTypeID]='" _
& convertTextToSQLStr(szCoObjectTypeID) & "'")
End IF
nMaxUploadFileSize = getParameterValue("MaxUploadFileSize") * 1024 * 1024 + 400
If Request.TotalBytes > nMaxUploadFileSize Then
Response.Write "<SCRIPT LANGUAGE=javascript>alert('附件大小不能超过" & getParameterValue("MaxUploadFileSize") & "M字节！');history.back();top.ifrCRM.TopMenu.goBack();</SCRIPT>"
Response.End
End if
%>
<%
Dim objUtility
Set objUtility = Server.CreateObject("A8OA.Utility")
%>
<%
'On Error Resume Next
If objUtility.AddUploadFile(szCreatorTypeID,szCoObject,szCoObjectTypeID,vBinaryData,szConnStr) Then
Else
writePageErrorInfo 1003,objUtility.GetLatestError
Set objUtility = Nothing
Set objCommon = Nothing
Set objConn = Nothing
Response.End
End If
%>
<%
Set objUtility = Nothing
Set objCommon = Nothing
Set objConn = Nothing
%>
<SCRIPT LANGUAGE=javascript>
<!--
top.ifrCRM.TopMenu.goBack() ;
//-->
</SCRIPT>
|
|
|
发表于 2011-1-4 23:54:15
