转载本站论坛:http://bbs.codepub.com/
这两天见有人在问留言板,可惜我不知道大家想做怎样的留言板,所以只能在这里介绍一种最简单的方式吧。
要求:
1、建立数据库:testdb.mdb 库中有表:mydate 表中有字段: id(自动)、name(文本)、text(备注)。
2、复制以下代码分别生成3个文件:
conn.asp
引用:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("testdb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("testdb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
index.asp
引用:
处理 SSI 文件时出错
<%rs.open "select * from mydate order by id desc",conn,1,1%>
<%rs.close%>
<%rs.open "select * from mydate order by id desc",conn,1,1%>
| ||||
|
|
<%rs.close%>
ly.asp
引用:
处理 SSI 文件时出错
<%if request("p")="insert" then
rs.open "select * from mydate",conn,3,3
rs.addnew
rs("name")=request("text1")
rs("text")=request("text2")
rs.update
rs.close
end if%>
<%if request("p")="insert" then
rs.open "select * from mydate",conn,3,3
rs.addnew
rs("name")=request("text1")
rs("text")=request("text2")
rs.update
rs.close
end if%>
然后试着在本机运行,有问题的回贴问。
