这个是简单的留言板代码，数据库就要你自己设计了，网页代码是：
留言薄<%@ language="vbscript"%>
<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,Chr(13),"
")
Deal=exp2
End Function
'建立与数据库的连接
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("guestbook.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
If Request("task")="insert" then
If Request("xm")="" then
xm="不告诉你"
else
xm=Request("xm")
xm=Deal(xm)
end if
if request("email")="" then
email="还没有那"
email=Deal(email)
else
email=Request("email")
end if
if request("url")="" then
url="没有"
else
url=Request("url")
url=Deal(url)
end if
sj = Date()
sj = sj & " " & Hour(Time()) & ":" & Minute(Time())
If Request("ly")="" then
Response.write("请输入留言！")
Response.end
else
ly=Request("ly")
ly=Deal(ly)
end if
sql="INSERT INTO lyb (ip,xm,url,email,sj,ly) VALUES ('"
sql=sql & Request("REMOTE_ADDR") & "','" & xm & "','" & url & "','" & email & "','" & sj & "','" & ly & "')"
conn.execute(sql)
end if
set rs=server.createobject("adodb.recordset")
on error resume next
rs.open "select * from lyb order by sj DESC",conn,1,1
rs.pagesize=15
rs.AbsolutePage =1
if request("page")<>"" then rs.AbsolutePage =Request("page")
RowCount =rs.pagesize
%>
留言薄
<%
if not rs.eof then
Do While Not RS.EOF and RowCount>0
%>
日期：<%=rs("sj")%>
<%
if rs("xm")<>"" then
%>
姓名：<%=rs("xm")%>
<%
end if
if rs("url")<>"" then
%>
主页："><%=rs("url")%>
<%
end if
if rs("email")<>"" then
%>
邮件:"><%=rs("email")%>
<%
end if
%>
留言：
<%=rs("ly")%>
<%
RowCount = RowCount - 1
rs.movenext
loop
else
response.write("留言本空")
end if
%>
<%
if rs.pagecount>1 then
%>
<%
end if
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
