错误 '80020009'

发生意外。

D:\CXWEB\CXCMS\ADMIN\../../Inc/Session.asp，行31 (红色的地方就是第31行)

在将FoosunCMS中access数据库转换成oracle时,遇到上边问题,Session.asp文件如下：

<%
Dim LoginUrl,Confimsn
Set Confimsn=conn.execute("select domain,Sitelock,IndexExtName,NumberContPoint,NumberLoginPoint from FS_config")
If Request.ServerVariables("SERVER_PORT")<>"80" then
LoginUrl = "http://"&Request.ServerVariables("LOCAL_ADDR")& ":" & Request.ServerVariables("SERVER_PORT")& Request.ServerVariables("URL")&"?"&request.QueryString
Else
LoginUrl = "http://"&Request.ServerVariables("LOCAL_ADDR")& Request.ServerVariables("URL")&"?"&request.QueryString
End if
Dim UserName,UserPass,UserID,RsSessionObj,TopLocation
UserName = Session("Name")
UserPass = Session("PassWord")
UserID = Session("AdminID")
If G_FS_Session = 0 then
if Session("Name") = "" OR Session("PassWord") = "" OR Session("AdminID") = "" OR Session("UnRefreshs") = "" then
  TopLocation = "" & ConfiMSN("domain") & "/" & AdminDir & "Login.asp"
  Response.Write("<script>top.location='" & TopLocation & "'</script>")
  Response.end
End If
ElseIf G_FS_Session = 1 then
Dim SessionTFObj,SessionSQL
if Session("AdminID") <> ""  then
  Set SessionTFObj = Server.CreateObject(G_FS_RS)
  SessionSQL = "Select ID,Name,PassWord From FS_Admin where Name = '"& UserName &"' and PassWord='"& UserPass &"' and Id="&Cint(Session("AdminID"))
  SessionTFObj.Open SessionSQL,Conn,1,1
  If SessionTFObj.eof then
  TopLocation = "" & ConfiMSN("domain") & "/" & AdminDir & "Login.asp"
  Response.Write("<script>top.location='" & TopLocation & "'</script>")
  Response.end
  End if
Else
  TopLocation = "" & ConfiMSN("domain") & "/" & AdminDir & "Login.asp"
  Response.Write("<script>top.location='" & TopLocation & "'</script>")
  Response.end
End If
Else
  Response.Write("<script>alert(""错误:\n配置信息出错，请与系统管理员联系\n\n系统即将关闭窗口!"&Copyright&""");window.close();</script>")
      Response.End
End If
if Confimsn("Sitelock")="" then
  Response.Write("<script>alert(""错误:\n产品信息没有找到\n\n系统即将关闭窗口!"&Copyright&""");window.close();</script>")
      Response.End
session.timeout=3600
Server.ScriptTimeOut =3600
end if
%>

[此贴子已经被作者于2005-12-15 13:18:41编辑过]

我是菜鸟学习ING。。。

另外，在搜索微软的知识库的时候，发现在数据类型是text BLOB 的读取处理的时候，也有80020009错误



http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q175/2/39.asp&NoWebContent=1

When dealing with BLOB fields from Microsoft SQL Server, you must put them to the right of non-BLOB columns in the resultset. To be safe, you should also read the columns in left-to-right order, so if you have two BLOB columns as the last two columns in your resultset, read the first one and then the second. Do not read them in the reverse order.


数据读取的先后顺序，竟然也会出现这个问题。

数据库里面的某个字段和接收过来的数据类型不一致,建议检查一下你的数据库里面的字段的设置

活动评审组：加1分魅力值，请查收。

(原始值:魅力35分)鼓励分

http://www.elearning4gurus.com/only4gurus/techlib/miscellaneous/CurrentFAQ-20021215.pdf

这里是 ASPFAQ 3.0 ，这里有很多ASP3.0稀奇古怪错误的介绍。