conn.asp
----------------------------------------
<%
dim conn
set conn=server.CreateObject("adodb.connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("db.mdb")
%>
---------------------------
default.asp
----------------------------
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from message order by id desc" '这个地方你的message写错了。
rs.open sql,conn,3,2
'Response.write sql 这两句是把SQL语句在网页上写出来看看有哪里错了,有的时候SQL语句很容易写错。
'Response.end 这一句不可少,要不然写出SQL语句往下执行还是看不出错,这一句让网页在这个地方停住。
%>
Untitled Document
<%do while not rs.eof or rs.bof%>
|
<%=rs("message")%> |
|
<%
rs.movenext
loop
%>
---------------------------------------------
save.asp
--------------------------------------------
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from message"
'response.Write sql
'response.End 这两句在查错的时候有用,查完了你就应该把它注释掉,要不然网页无法往入执行,当然写不进数据库了。
rs.open sql,conn,3,2'我最喜欢用这种找开方式,为数据库可读写打开方式。
rs.addnew
rs("message")=request.Form("message")
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "default.asp" '你这一句,你写错了。你看一下。response.redirectt多了一个t
%>
你在你的数据库里面随便插入一条字段就可以了。
-------------------------------------