28,390
社区成员
发帖
与我相关
我的任务
分享asp连access问题
一个小程序，我在本地测试没问题的，在我自己空间上也正常，但在客户的国外空间就报错，asp连接access，前面有个session验证登陆，登陆后报错：
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/test/feedbackadmin.asp, line 38
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/test/feedbackadmin.asp, line 38
...全文
请发表友善的回复…
发表回复
vital 2004-04-29
- 打赏
- 举报
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<%
dim rs,rs1
dim strsql,strsql1
dim pagenumber
dim lynumber
dim i
const mperpage=10
if request("action")="del" then
dim rsdel,sqldel,id
id=request("id")
set rsdel=server.createobject("adodb.recordset")
sqldel="delete from message where id="&cstr(id)
conn.execute sqldel
end if
if request("page")="" then
tpage=1
else
tpage=cint(request("page"))
end if
set rs=server.createobject("adodb.recordset")
strsql="select * from message order by id desc"
rs.open strsql,conn,1,1
if not rs.eof then
lynumber=rs.recordcount
if lynumber>mperpage then
if lynumber mod mperpage=0 then
pagenumber=lynumber/mperpage
else
pagenumber=(lynumber-lynumber mod mperpage)/mperpage+1
end if
else
pagenumber=1
end if
if tpage<1 then tpage=1
if tpage>pagenumber then tpage=pagenumber
rs.move mperpage*(tpage-1)
end if
%>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#999999">
<tr>
<td height="16">total <%=lynumber%> feedback message <%=tpage%>/<%=pagenumber%> pages</td>
<td align="right"><a href="feedbackadmin.asp?page=1">first</a> | <a href="feedbackadmin.asp?page=<%=tpage-1%>">back</a>
| <a href="feedbackadmin.asp?page=<%=tpage+1%>">next</a> | <a href="feedbackadmin.asp?page=<%=pagenumber%>">last</a></td>
<form action="feedbackadmin.asp" method="post">
<td align="right">jump to
<input name="page" type="text" class="input1" id="page" value="<%=tpage%>" size="5">
page
<input name="Submit" type="submit" class="input2" value="GO"></td>
</form>
</tr>
</table>
<table width="100%" height="40" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#eeeeee">
<td>name</td>
<td>E-mail</td>
<td>country</td>
<td>company</td>
<td>address</td>
<td>Tel</td>
<td>Fax</td>
<td>message</td>
<td>Delete</td>
</tr>
<%
if rs.eof and rs.bof then
response.write"<tr><td><p align=center>no message!</p></td></tr>"
else
showconnect
end if
sub showconnect
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td> <%=rs("name")%></td>
<td><%=rs("email")%></td>
<td><%=rs("country")%></td>
<td><%=rs("company")%></td>
<td><%=rs("address")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("fax")%></td>
<td><%=rs("message")%></td>
<td><a href="feedbackadmin.asp?id=<%=rs("id")%>&action=del">Del</a></td>
</tr>
<%
i=i+1
if i>=mperpage then exit do
rs.movenext
loop
end sub
endconnection()
%>
</table>
</body>
</html>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<%
dim rs,rs1
dim strsql,strsql1
dim pagenumber
dim lynumber
dim i
const mperpage=10
if request("action")="del" then
dim rsdel,sqldel,id
id=request("id")
set rsdel=server.createobject("adodb.recordset")
sqldel="delete from message where id="&cstr(id)
conn.execute sqldel
end if
if request("page")="" then
tpage=1
else
tpage=cint(request("page"))
end if
set rs=server.createobject("adodb.recordset")
strsql="select * from message order by id desc"
rs.open strsql,conn,1,1
if not rs.eof then
lynumber=rs.recordcount
if lynumber>mperpage then
if lynumber mod mperpage=0 then
pagenumber=lynumber/mperpage
else
pagenumber=(lynumber-lynumber mod mperpage)/mperpage+1
end if
else
pagenumber=1
end if
if tpage<1 then tpage=1
if tpage>pagenumber then tpage=pagenumber
rs.move mperpage*(tpage-1)
end if
%>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#999999">
<tr>
<td height="16">total <%=lynumber%> feedback message <%=tpage%>/<%=pagenumber%> pages</td>
<td align="right"><a href="feedbackadmin.asp?page=1">first</a> | <a href="feedbackadmin.asp?page=<%=tpage-1%>">back</a>
| <a href="feedbackadmin.asp?page=<%=tpage+1%>">next</a> | <a href="feedbackadmin.asp?page=<%=pagenumber%>">last</a></td>
<form action="feedbackadmin.asp" method="post">
<td align="right">jump to
<input name="page" type="text" class="input1" id="page" value="<%=tpage%>" size="5">
page
<input name="Submit" type="submit" class="input2" value="GO"></td>
</form>
</tr>
</table>
<table width="100%" height="40" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#eeeeee">
<td>name</td>
<td>E-mail</td>
<td>country</td>
<td>company</td>
<td>address</td>
<td>Tel</td>
<td>Fax</td>
<td>message</td>
<td>Delete</td>
</tr>
<%
if rs.eof and rs.bof then
response.write"<tr><td><p align=center>no message!</p></td></tr>"
else
showconnect
end if
sub showconnect
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td> <%=rs("name")%></td>
<td><%=rs("email")%></td>
<td><%=rs("country")%></td>
<td><%=rs("company")%></td>
<td><%=rs("address")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("fax")%></td>
<td><%=rs("message")%></td>
<td><a href="feedbackadmin.asp?id=<%=rs("id")%>&action=del">Del</a></td>
</tr>
<%
i=i+1
if i>=mperpage then exit do
rs.movenext
loop
end sub
endconnection()
%>
</table>
</body>
</html>
seaonce 2004-04-29
- 打赏
- 举报
老兄把代码贴出来
