当前位置: 代码迷 >> ASP >> 上传图片出现ADODB.Stream 异常 '800a0bbc'
  详细解决方案

上传图片出现ADODB.Stream 异常 '800a0bbc'

热度:595   发布时间:2012-03-12 12:45:33.0
上传图片出现ADODB.Stream 错误 '800a0bbc'
这是我asp文件的代码,在本机测试好用,放到服务器上就出现ADODB.Stream 错误 '800a0bbc'错误提示,我有服务器远程桌面,请问怎么改?这是远程服务器IIS的配置截图

这是我上传图片asp文件的源码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../index.asp"
MM_grantAccess=false
If Session("adminMM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
  (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
  MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../Connections/xw.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
  MM_IIf = ifFalse
  Else
  MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
  ' execute the insert
  Dim MM_editCmd

  Set MM_editCmd = Server.CreateObject ("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_xw_STRING
  MM_editCmd.CommandText = "INSERT INTO picture (mc, dz, tjry, tjsj) VALUES (?, ?, ?, ?)" 
  MM_editCmd.Prepared = true
  MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("mc")) ' adVarWChar
  MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("dz")) ' adVarWChar
  MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("tjry")) ' adVarWChar
  MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("tjsj"), Request.Form("tjsj"), null)) ' adDBTimeStamp
  MM_editCmd.Execute
  MM_editCmd.ActiveConnection.Close

  ' append the query string to the redirect URL
  Dim MM_editRedirectUrl
  MM_editRedirectUrl = "xc.asp"
  If (Request.QueryString <> "") Then
  If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
  Else
  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
  End If
  End If
  Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  相关解决方案