请看下面的一段回答 才是我真正的提问
參考答案:刚才没写全我是一名初学者 利用放假学学 可是 刚学完数据库操作想自己边一下 就做了个功能最简单的留言板 就是读 和入数据库 虽然可一运行 但是总有几个我头疼的问题
1：网页不能刷新 或者不能连续刷新 就会出现什么 不能刷新等 提示
2：留言超过十个字就不能写入数据库 无法显示 注：（程序全是自己编写 没有抄袭什么有字数限制等程序）
3：有时候还打不开主页
4：最郁闷的是会出现 Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e4d'
[Microsoft][ODBC Microsoft Access Driver] 客户端的工作过多。
？？？？？？？？？？？？？这到底是怎么回事？？？？？请有开发经验的人来解答一下 原程序如下 ：
★★★★★★★★★★index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="act.asp"-->
<html>
<head>
<title>M</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
color: #FFFFFF;
}
body {
background-color: #FFFFFF;
}
.style2 {
font-family: "华文行楷";
font-size: 18px;
}
.style3 {
font-family: "华文行楷";
font-size: 16px;
}
.style5 {
font-family: "华文行楷";
font-size: 14px;
color: #FF0000;
}
.style6 {font-size: 9px}
-->
</style></head>
<body bgproperties="fixed" background="tu/1.gif" >
<form action="add.asp" method="post" name="form">
<table width="779" height="167" border="0" align="center" bgcolor="#669933">
<tr>
<td width="95" height="33"> <span class="style2">姓 名</span> </td>
<td width="674">
<input type="text" name="xingming"> </td>
</tr>
<tr>
<td><span class="style3"> 留言内容</span></td>
<td><textarea cols="53" rows="6" name="liuyan"></textarea ><input type="submit" value="提交留言" name="Submit">
<a href="del.asp">删除空白留言</a>
</td>
</tr>
</table>
</form>
<%
set r=Server.CreateObject("ADODB.RecordSet")
r.open "select * from liuyan ",conn,1,3
Do While Not r.eof
lyxm=r("user")
nr=r("book")
%>
<table width="783" height="104" border="10" align="center" bgcolor="#999999">
<tr>
<td width="78" height="20"><span class="style5">留言者姓名</span></td>
<td width="695"> <%=lyxm%></td>
</tr>
<tr>
<td> <span class="style5">留言内容</span></td>
<td> <%=nr%></td>
</tr>
</table><br><br><br>
<%
r.movenext
loop
%>
<p> </p></body></html><%r.close %>
★★★★★★★★★★act.asp
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db.mdb")
%>
★★★★★★★★★★add.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="act.asp"-->
<%dim rs
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from liuyan"
rs.open sql,conn,1,3
rs.addnew
rs("user")=request.form("xingming")
rs("book")=request.form("liuyan")
rs.update
rs.close
set rs=nothing
response.redirect "index.asp"
response.end
%>
★★★★★★★★★★del.asp (注：这个程序不能用 我也不知道为什么不能删掉纪录)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="act.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="delete from liuyan where(user='')"
rs.open sql,conn,1,1
rs.close
response.redirect"index.asp"
response.end
%>
★★★★★★★★★★数据库中只有一个表 liuyan 字段 user book
哪为有经验的人帮我看一下 我觉得我编的程序想个老头子 没有一点健壮性 唉
