飞
飞云.net
Unregistered / Unconfirmed
GUEST, unregistred user!
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。
/feiyun/zmw/Admin_gjpass.asp，行45
当itable=Trim(Request.QueryString("action"))得到的值是Bianlun时运行正常
换成Yanjiang是不正常(出现以上错误)
说明:bianlun和yanjiang是两个表里面的字段除了首字母不同后面的都相同
如:B_title,Y_title
经检查所有字段和变量都对应,没有打错字段和变量的地方.
<!-- 程序开始执行 -->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- 样式表开始 -->
<style type="text/css">
<!--
.A105pt { font-family: "宋体"; font-size: 10.5pt; letter-spacing: 0.1em}
.a:link { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
.A-height { font-family: "宋体"; font-size: 9pt; line-height: 135%}
a:visited { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
a:hover { font-family: "宋体"; font-size: 9pt; color: #FF0000; text-decoration: none}
-->
</style>
<!-- 样式表结束 -->
</head>
<body bgcolor="#FFFFFF" text="#000000">
<!-- 验证部分开始 -->
<%
if Session("A_Name_Com_N")="" then Response.Redirect "Admin_login.asp"%>
<!-- 验证部分结束 -->
<%
itable=Trim(Request.QueryString("action"))
it=mid(""&itable&"",1,1)
id=Trim(Request.QueryString("id"))
if isnumeric(id) then
id=Clng(id)
'打开con数据库链接
Set con=Server.CreateObject("ADODB.Connection")
con.Open Connstr
'将数据库内容存入指定表中
set rs=Server.CreateObject("ADODB.Recordset")
strsql ="SELECT * From Submit where id="&id
rs.Open strSQL,con,3
if not(rs.bof) and not(rs.eof) then
Set rs1=server.CreateObject("ADODB.Recordset")
str1sql="select * from "&itable&""
rs1.open str1sql,con,1,3
rs1.addnew
rs1(""&it&"_title")=rs("S_Title")
rs1(""&it&"_Author")=rs("S_Author")
rs1(""&it&"_Puber")="sureapple"
=============出错的那一行=======================================
rs1(""&it&"_coment")=rs("S_comment")
================================================================
rs1(""&it&"_zz")=rs("S_gjfrom")
rs1.update
rs1.close
set rs1=nothing
Else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章数据库中没有找到!')"
Response.Write" </SCRIPT>"
End if
rs.close
'将投稿用户数据存入havebeen表
set rs=Server.CreateObject("ADODB.Recordset")
strsql ="SELECT * From Submit where id="&id
rs.Open strSQL,con,3
if not(rs.bof) and not(rs.eof) then
Set rs1=server.CreateObject("ADODB.Recordset")
str1sql="select * from Havebeen"
rs1.open str1sql,con,1,3
rs1.addnew
rs1("H_title")=rs("S_Title")
rs1("H_Author")=rs("S_Author")
rs1("H_email")=rs("S_email")
rs1("H_School")=rs("S_school")
rs1("H_Gjfrom")=rs("S_Gjfrom")
rs1("H_addr")=rs("S_addr")
rs1("H_ip")=rs("S_ip")
rs1("H_table")=rs("S_table")
rs1.update
rs1.close
set rs1=nothing
Else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章数据库中没有找到!')"
Response.Write" </SCRIPT>"
End if
rs.close
set rs=nothing
'打开Submit表并将转移数据同时删除
con.Execute "Delete * From Submit where id="&id
set con=nothing
'数据库操作完毕
Response.Write "<p><table width=90% class='A105pt'><tr><td>"
Response.Write "<p><center><h2>操作成功!</h2><br>"
Response.Write "您已经成功将所选文章转入到正式库中!<br>"
Response.Write "系统将在两秒后自动返回! </center></p>"
Response.Write "<meta http-equiv=Refresh content=""2; URL=Admin_Splist.asp?action="&itable&""">"
Response.Write "</td></tr></table></p>"
else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章不存在!')"
Response.Write" </SCRIPT>"
end if
%>
<!-- 操作完毕 -->
</html>
<!-- 程序结束执行 -->
多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。
/feiyun/zmw/Admin_gjpass.asp，行45
当itable=Trim(Request.QueryString("action"))得到的值是Bianlun时运行正常
换成Yanjiang是不正常(出现以上错误)
说明:bianlun和yanjiang是两个表里面的字段除了首字母不同后面的都相同
如:B_title,Y_title
经检查所有字段和变量都对应,没有打错字段和变量的地方.
<!-- 程序开始执行 -->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- 样式表开始 -->
<style type="text/css">
<!--
.A105pt { font-family: "宋体"; font-size: 10.5pt; letter-spacing: 0.1em}
.a:link { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
.A-height { font-family: "宋体"; font-size: 9pt; line-height: 135%}
a:visited { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
a:hover { font-family: "宋体"; font-size: 9pt; color: #FF0000; text-decoration: none}
-->
</style>
<!-- 样式表结束 -->
</head>
<body bgcolor="#FFFFFF" text="#000000">
<!-- 验证部分开始 -->
<%
if Session("A_Name_Com_N")="" then Response.Redirect "Admin_login.asp"%>
<!-- 验证部分结束 -->
<%
itable=Trim(Request.QueryString("action"))
it=mid(""&itable&"",1,1)
id=Trim(Request.QueryString("id"))
if isnumeric(id) then
id=Clng(id)
'打开con数据库链接
Set con=Server.CreateObject("ADODB.Connection")
con.Open Connstr
'将数据库内容存入指定表中
set rs=Server.CreateObject("ADODB.Recordset")
strsql ="SELECT * From Submit where id="&id
rs.Open strSQL,con,3
if not(rs.bof) and not(rs.eof) then
Set rs1=server.CreateObject("ADODB.Recordset")
str1sql="select * from "&itable&""
rs1.open str1sql,con,1,3
rs1.addnew
rs1(""&it&"_title")=rs("S_Title")
rs1(""&it&"_Author")=rs("S_Author")
rs1(""&it&"_Puber")="sureapple"
=============出错的那一行=======================================
rs1(""&it&"_coment")=rs("S_comment")
================================================================
rs1(""&it&"_zz")=rs("S_gjfrom")
rs1.update
rs1.close
set rs1=nothing
Else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章数据库中没有找到!')"
Response.Write" </SCRIPT>"
End if
rs.close
'将投稿用户数据存入havebeen表
set rs=Server.CreateObject("ADODB.Recordset")
strsql ="SELECT * From Submit where id="&id
rs.Open strSQL,con,3
if not(rs.bof) and not(rs.eof) then
Set rs1=server.CreateObject("ADODB.Recordset")
str1sql="select * from Havebeen"
rs1.open str1sql,con,1,3
rs1.addnew
rs1("H_title")=rs("S_Title")
rs1("H_Author")=rs("S_Author")
rs1("H_email")=rs("S_email")
rs1("H_School")=rs("S_school")
rs1("H_Gjfrom")=rs("S_Gjfrom")
rs1("H_addr")=rs("S_addr")
rs1("H_ip")=rs("S_ip")
rs1("H_table")=rs("S_table")
rs1.update
rs1.close
set rs1=nothing
Else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章数据库中没有找到!')"
Response.Write" </SCRIPT>"
End if
rs.close
set rs=nothing
'打开Submit表并将转移数据同时删除
con.Execute "Delete * From Submit where id="&id
set con=nothing
'数据库操作完毕
Response.Write "<p><table width=90% class='A105pt'><tr><td>"
Response.Write "<p><center><h2>操作成功!</h2><br>"
Response.Write "您已经成功将所选文章转入到正式库中!<br>"
Response.Write "系统将在两秒后自动返回! </center></p>"
Response.Write "<meta http-equiv=Refresh content=""2; URL=Admin_Splist.asp?action="&itable&""">"
Response.Write "</td></tr></table></p>"
else
Response.Write" <SCRIPT LANGUAGE='JavaScript'>"
Response.Write" alert('所批准的文章不存在!')"
Response.Write" </SCRIPT>"
end if
%>
<!-- 操作完毕 -->
</html>
<!-- 程序结束执行 -->
]