魔方世界联机太卡:Microsoft][ODBC Microsoft Access Driver] 客户端的工作过多

我用的是动易流言本..开始的时候没问题...可是到后来的时候.出现了
Microsoft][ODBC Microsoft Access Driver] 客户端的工作过多
我在本地测试...不可能有人上啊...我把代码发上来让大家刚我看看
-------------------------------------------------------------
<%

dim show_vote,vote_DBPath
dim conn,sqlstr,DBPath
dim bodymax,name,url,gbook_url,password,count,today_count,today_time,setup_ip,setup_time

show_vote=0 '设置为0则不显示，设置为1则显示形象中国在线调查。
vote_DBPath="../data/admin.mdb" '如果以上设置为1，则请修改调查表数据库所在路径。

''''''''''更改数据库路径''''''''''''
DBPath = Server.MapPath("data/-Gbook.mdb")

''''''''''''''以下无需修改'''''''''''''''''
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from admin"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

gbook_name = Rs("gbook_name")
passwords = Rs("password")
name = Rs("name")
url = Rs("url")
bodymax = Rs("bodymax")
pagesize = Rs("pagesize")
today_count = Rs("today_count")
today_time = Rs("today_time")
setup_ip = Rs("setup_ip")
setup_time = Rs("setup_time")
Rs.close

set Rs = nothing
sub error(message)
%>

<script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
response.end
end sub
sub error1(message)
%>
<script>alert('<%=message%>');history.go(-2);</script><script>window.close();</script>
<%
response.end
end sub
sub htmlend()
%>
<table width=760 height="50" align=center cellpadding=0 cellspacing=1 bgcolor="#999999">
<tbody>
<tr>
<td align=center valign="middle" bgcolor="#F7f7f7">
<p>本留言本言论纯属发表者个人意见，与<font color=#990000><b> <a href="http://www.gzez.cn" target="_blank"></a></b></font>
立场无关<br>
Copyright©2002 - 2003：<a href="http://www.AspEasy.com" target="_blank"><b><font color="#FF0000"></font></b></a>
& <strong><font color="#000066"></font></strong> E：<a href="http://www.gxez.cn/" target="_blank"></a>

</p>
</td>
</tr>
</tbody>
</table>

<br>
</BODY></HTML>
<%
end sub
%>
QQ:35732387