我在DW中设计一个简易的留言本,但是在我数据库里的数据拖到相应表格里的时候进行调试,就出错了 。新建数据库名db1.mdb包含有admin和b_bbs两个表,表admin里新建两个字段,名为f_name和f_password,数据类型分别设为文本;表b_bbs就有
字段ID为留言内容的关键字段,它的数据类型为自动编号,为主键。
f_name为留言用户的姓名,它的数据类型为文本。
f_content中存放的是留言内容,它的数据类型为备注。
f_oicq为留言用户的OICQ号码,设置同用户名。
f_email为留言用户的Email地址,设置同用户名。
f_homepage为留用户的主页地址,设置同用户名。
f_time为提交留言的时间,数据类型为日期/时间,默认值为now()。
f_repcontent为站长回复的内容,同留言内容。默认值为“暂无回复”。
我的邮箱为 hlq208@163.com 在此谢过了~~~
代码为下
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim guestbook
Dim guestbook_numRows
Set guestbook = Server.CreateObject("ADODB.Recordset")
guestbook.ActiveConnection = MM_guestbooks_STRING
guestbook.Source = "SELECT * FROM b_bbs"
guestbook.CursorType = 0
guestbook.CursorLocation = 2
guestbook.LockType = 1
guestbook.Open()
guestbook_numRows = 0
%>
我的留言本
姓名 |
<%=(guestbook.Fields.Item("f_name").value)%> |
  |
 |
 |
回复该主题 |
流言内容 |
<%=(guestbook.Fields.Item("f_content").value)%>
|
|
发表于 |
站长回复 |
<%=(guestbook.Fields.Item("f_repcontent").value)%> |
编辑删除 |
<%
guestbook.Close()
Set guestbook = Nothing
%>