求助：上传不了文件 - ASP技术论坛

问题点数：0 回复次数：0

求助：上传不了文件

提示报错
AceCRM 错误 '800a005b'

Object variable or With block variable not set

/bbs/AddUploadFileExe.asp，行 70

代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>

<body>
<%@ Language=VBScript %> 
 <% Option Explicit %> 
 <% Response.Expires = 0 %> 
 <% Response.Buffer = True %> 
 <% Server.ScriptTimeout = 600 %> 
  
  
  
  
 <% 
 '上传附件直接保存为文件的模式，不要删除 
 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
 'Dim upfile 
 'Set upfile = Server.CreateObject("uploadcom.upfile") 
 'upfile.FileSaveAs("d:\"+upfile.FileName) 
 'set upfile = nothing 
 'Response.End 
 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
%>
<% 
 If szEmployeeName = "8888观摩客人" Then 
 writeGoBack TEXT_NWQM 
 Set objCommon = Nothing 
 Set objConn = Nothing 
 Response.End 
 End If
Dim szCreatorTypeID 
 Dim szCoObjectTypeID 
 Dim szCreatorName 
 Dim szContent 
 Dim vBinaryData 
 Dim nMaxUploadFileSize 
 Dim szCoObject 
 Dim szSubject 
 Dim szisEdit 
 Dim szLinkType 

szSubject = Request("Subject") 
 szCoObject = Request("CoObject") 
 szCreatorTypeID = szEmployeeTypeID 
 szCreatorName = Trim(Request("CreatorName") & "") 
 szContent = Request("Content") 
 szCoObjectTypeID = Trim(Request("CoObjectTypeID") & "") 
 szLinkType = Request("LinkType") & "" 
 szisEdit = Request("isEdit") 
 'szCoObjectTypeID = "Email" 
 vBinaryData = Request.BinaryRead(Request.TotalBytes)
 
nMaxUploadFileSize = getParameterValue("MaxUploadFileSize") * 1024 * 1024 + 400
If Request.TotalBytes > nMaxUploadFileSize Then 
 Response.Write "<SCRIPT LANGUAGE=javascript>alert('附件大小不能超过" & getParameterValue("MaxUploadFileSize") & "M字节！');history.back();</SCRIPT>" 
 Response.End 
 End if 

%> 
 <% 
 Dim objUtility 
 Set objUtility = Server.CreateObject("AceCRM.Utility") 
 %> 
 <%
If objUtility.AddUploadFile(szCreatorTypeID,szCoObject,szCoObjectTypeID,vBinaryData,szConnStr,GetAttachmentDir(),BBSAttachment) Then 
 Else 
 writePageErrorInfo 1003,objUtility.GetLatestError 
 Response.End 
 End If
%> 
 <% 
 Set objUtility = Nothing 
 Set objCommon = Nothing 
 Set objConn = Nothing 
 %> 
 <% 
 If szisEdit = "Yes" Then 
 %> 
 <SCRIPT LANGUAGE=javascript> 
  
 </SCRIPT> 
 <% 
 Else 
 %> 
 <SCRIPT LANGUAGE=javascript> 
  
 </SCRIPT> 
 <% 
 End If 
 %>
</body>
</html>

搜索更多相关主题的帖子: PUBLIC　Object　content　html　