高手救救我

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/111/admin/manage.asp，行 199
197--202代码
set rs=server.CreateObject("adodb.recordset")
'response.write(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 影 片</p>"
else
这个是CONN1里的代码:
<%
'如果使用国外主页空间，请使用下面语句：'
'rem codepage="936" '


dim conn
dim connstr
dim db
'更改数据库名字'
db="../data/#tk007#com#skyuc#com#4#0.asp"
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")

if err then
err.clear
errormsg="<BR><li>操作失败，无法创建数据库对象！"
call disperrs(errormsg)
response.end
end if

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

if err then
err.clear
errormsg="<BR><li>操作失败，无法创建数据库连接！"
call disperrs(errormsg)
response.end
end if


sub endConnection()
conn.close
set conn=nothing
end sub



sub disperrs(errormsg)'出错提示'
%>
出错
<%
end sub

Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---防止SQL注入 '
'ParaName:参数名称-字符型'
'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)'

Dim ParaValue
ParaValue = Request(ParaName)
If ParaType = 1 then
If not isNumeric(ParaValue) then
Response.write "参数" & ParaName & "必须为数字型！"
Response.end
End if
Else
ParaValue=replace(ParaValue,"","")
End if
SafeRequest=ParaValue
End function

function connClose'关闭数据库
Conn.close
Set conn = Nothing
End Function

%>
这个是articleconn代码:
%
'以下是MSSQL版的配置
' dim conn
' dim connstr

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=IP地址; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr


'以下是ACCESS版的配置

connstr="DBQ="+server.mappath("../data/#tk007#com#skyuc#com#4#0.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr
%>

 

什么意思不太明白

 

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/111/admin/manage.asp，行 199
这个就是199的代码：rs.open sql,conn,1,1
是那里出错了

 

怎么改法帮帮我

 

<%
'如果使用国外主页空间，请使用下面语句：'
'rem codepage="936" '


dim conn
dim connstr
dim db
'更改数据库名字'
db="../data/#tk007#com#skyuc#com#4#0.asp"
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")

if err then
err.clear
errormsg="<BR><li>操作失败，无法创建数据库对象！"
call disperrs(errormsg)
response.end
end if

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

if err then
err.clear
errormsg="<BR><li>操作失败，无法创建数据库连接！"
call disperrs(errormsg)
response.end
end if


sub endConnection()
conn.close
set conn=nothing
end sub



sub disperrs(errormsg)'出错提示'
%>
出错
<%
end sub

Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---防止SQL注入 '
'ParaName:参数名称-字符型'
'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)'

Dim ParaValue
ParaValue = Request(ParaName)
If ParaType = 1 then
If not isNumeric(ParaValue) then
Response.write "参数" & ParaName & "必须为数字型！"
Response.end
End if
Else
ParaValue=replace(ParaValue,"","")
End if
SafeRequest=ParaValue
End function

function connClose'关闭数据库
Conn.close
Set conn = Nothing
End Function

%>
这个不是吗?

 

我是个新手什么也不懂不要生气了呵呵大哥要帮帮我
你看看这是网站:886.it50.net/521站长管理:http://886.it50.net/521/admin/login.asp帐号和密码:admin进入自己看看就明百了
http://886.it50.net/qqq.zip这个是电影的程序
帮帮我看看谢谢.