2.建立数据库基本链接文件conn_memo.inc(这个名字随你变，一般为conn.asp)

<%
 strConnect ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("memo.mdb")
 Set db = Server.CreateObject("ADODB.Connection")
 db.Open strConnect 
%>

 

 

3.添加功能write_ok.asp

<!--#include file=conn_memo.inc-->   '数据库连接
<%
title = request("title")            '定义
name = request("name")

title = replace(title,"'","''")

 'title = replace(title,"&","&amp;")
 'title = replace(title,"<","&lt;")
 'title = replace(title,">","&gt;")

 SQL = "Select Max(num) from m"
   
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open SQL, db

 If IsNULL(rs(0)) Then
   number = 1
 else
   number = rs(0) + 1
 End If

 SQL = "INSERT INTO m (title,name,num,"
 SQL = SQL & "writeday) VALUES "
 SQL = SQL & "('" & title & "'"
 SQL = SQL & ",'" & name & "'"
 SQL = SQL & "," & number  
 SQL = SQL & ",'" & date() & "')"
 db.Execute SQL
 rs.Close                '关闭Recordset
 db.close                '数据库关闭
 Set rs = Nothing        '释放对象  ( Rs.Close之后还可以Rs.open  
  但Set   Rs=Nothing之后就不可以Rs.open。作个形象比喻rs.close只是把水龙头关了,还可以再开,set   rs=nothing则是把水管给拆了)
 Set db = Nothing        '
 Response.redirect "list.asp"    'ASP里跳转功能
%>

 

4.删除功能 DEL_OK.ASP

<!--#include file=conn_memo.inc-->
<%
set rs = server.CreateObject("ADODB.recordset")
sql = "select * from m where board_idx = "& request("board_idx")
rs.Open(sql),db,3,3

rs.Delete
rs.Update

rs.Close
set rs = nothing

Response.Redirect "list.asp"
%>