asp
<%
Dim conn, sql, username
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(data.mdb)
username = Request.Form(username)
If username < Then
sql = INSERT INTO Guestbook (Name) VALUES (' & Replace(username, ', '') & ')
conn.Execute(sql)
End If
asp
<%
Dim conn, rs, sql
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(data.mdb)
Set rs = Server.CreateObject(ADODB.Recordset)
sql = SELECT * FROM Guestbook ORDER BY ID DESC
rs.Open sql, conn
%
<!DOCTYPE html
<html
<head
<title留言列表</title
<meta charset=gb2312
</head
<body
<h2所有留言:</h2
<%
Do While Not rs.EOF
Response.Write rs(ID) & 、 & rs(Name) & <br
rs.MoveNext
Loop
%
<hr
<a href=form.asp我要留言</a
</body
</html
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%