废话不说，总之我很菜，刚接触ASP，我买本书，上面有一个留言板的代码光盘，我照着书调可是怎么也调不通，我的学习进度搁浅了，我身边没有可咨询的人，跪求了，高手帮我看看怎么回事，我快郁闷死了！下面是代码，有4个文件和一个pic文件夹。其中数据库文件——留言板.mdb我上传了. 一、输入表单主页面liuyan.htm <html> <head><title>初级留言板</title> </head> <script language="javascript"> <!-- function CheckLogin(form){ if(form.nickname.value==""){ alert("请输入用户名"); return false; } if(form.neirou.value==""){ alert("请输入用户密码"); return false; } form.submit(); return true; } --> </script>
<body language="VBS" > <p align="center"><font size="5" face="华文行楷" color="#000080">初级留言板</font><br> <hr>
<!-- 将表单的名称取为"dapibu" --> <form action="liuyanfabu.asp" method="post" name="liuyan"> <img border="0" src="pic/arrow.gif" width="6" height="9">姓 名：<input name="nickname" size="12"> <br> <img border="0" src="pic/arrow.gif" width="6" height="9">E_mail ：<input type="text" name="e_mail" size="40"> <br> <img border="0" src="pic/arrow.gif" width="6" height="9">内 容：<br> <textarea name="neirou" rows="6" cols="62"> </textarea> <br> <p> <!-- 暗伏一隐藏栏，并将其值设定为-1 --> <input type="hidden" name="FirstRec" value="-1"> <!-- 按下「签名啦」按钮后，将执行datacheck函数 --> <input type="button" value="留言" onclick="return CheckLogin(this.form)"> <input type="reset" value="重来"> <hr> </form>
<form action="liuyansee.asp" method="post"> <!-- 隐藏栏，预设值是从第1笔开始显示 --> <input type="hidden" name="FirstRec" value="1"> <input type="submit" value="查看留言"> </form> </body></html> ------------------------------------- 二、把留言内容写入数据库文件liuyanfabu.asp <% @ Language=VBScript%> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=gb2312"> <title>初级留言板</title> </head> <% dim nickname,neirou,mail Dim exec,bhcheck exec=" " firstcheck=" " bhcheck=" " nickname=Trim(Request("nickname")) neirou=Trim(Request("neirou")) mail=Trim(Request("e_mail")) exec="insert into liuyan(nickname,neirou,e_mail) values(''"+nickname+"'',''"+neirou+"'',''"+mail+"'')" %> <p align="center"><strong><big>恭喜！你的留言已经成功上载。</big></strong></p> <% Set Conn=Server.CreateObject("ADODB.Connection") connstr="DBQ="+server.mappath("留言板.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.open connstr Conn.Execute exec Conn.close %> <div align="center"> <br> <a href="liuyansee.asp" border="0">查看留言</a> </div> </html> ------------------------------ 三、显示留言内容liuyansee.asp <html> <head> <title>查看留言</title> </head>
<BODY bgColor=white leftMargin=0 link=black rightMargin=0 text=black topMargin=0> <% dim Choose,Content,Field dim SQLQuery dim connstr SQLQuery="" connstr="DBQ="+server.mappath("留言板.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set DBobj = server.createobject("adodb.connection") DBobj.open connstr SQLQuery = "select * from liuyan " set RSclassmate=DBobj.Execute(SQLQuery) %> <p align="center"><font face="隶书" size="5" color="#008080">留言内容</font></p>
<table align=left width=765 cellspacing="1" cellpadding="1" border="1" bordercolor="#FFFFFF" bordercolordark="#000033" bordercolorlight="#000066" height="44"> <tr bgcolor="#9f90ef" bordercolor="#000066"> <td align="center" width="45" height="13"><font style="FONT-SIZE: 14px"><b>留言者</b></font></td> <td align="center" width="300" height="13"><b><font style="font-size: 14px">留言内容</font></b></td> <td align="center" width="75" height="13"><b><font style="font-size: 14px">电子信箱</font></b></td> <tr> <%Do while not RSclassmate.eof %> <tr> <td align=center bgcolor="#FFFFFF" bordercolor="#eeeeff" width="45" nowrap height="19"><font style="FONT-SIZE: 14px"> <% nickname=RSclassmate("nickname") Response.Write (nickname)%></font> </td> <td align=center bgcolor="#eeeeff" bordercolor="#eeeeff" width="300" height="19"><font style="FONT-SIZE: 14px"> <% neirou=RSclassmate("neirou") Response.Write(neirou) %></font> </td> <td align=center bgcolor="#FFFFFF" bordercolor="#eeeeff" width="75" height="19"><font style="FONT-SIZE: 14px"> <% mail=RSclassmate("e_mail") Response.Write(mail) %></font> </td> </tr> <% RSclassmate.MoveNext loop %> </table>
<% RSclassmate.close set RSClassmate=nothing DBobj.close set RSclassmate=nothing %>
</body> </html> ---------------- 当我输入留言内容时，显示
恭喜！你的留言已经成功上载。
Microsoft VBScript 编译器错误
错误 ''800a03f6''缺少 ''End''
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/ASPCODE/ch10/guestbook1/liuyanfabu.asp，行25 —————————————————————— 然而数据库内并没有增加记录呀！怎么回事？ 我在ODBC管理器这样配的：系统DSN——添加——“Microsoft Acess Driver (*.mdb)”,数据源名“liuyan”，数据库——选择——就是那个我传上去的“留言板.mdb”。 ———————————————————— 请大家帮帮我，我真的想利用这个五一学点东西，求求大家了，这个问题解决不了，我下面的知识点无法学习呀，根本不懂呀！谢谢大家了！
gnpI2vwQ.rar[此贴子已经被作者于2005-5-3 17:18:31编辑过]
