Note_Admin数据表的结构
字段 字段类型 主关键字 说明
ID 自动编号 * 编号
Admin 文本 - 用户名
Pwd 文本 - 密码
ReplyColor 文本 - 回复留言颜色
IsReply 文本 - 回复留言提示
Note_Comment数据表的结构
字段 字段类型 主关键字 说明
ID 自动编号 * 编号
Name 文本 - 留言用户姓名
Email 文本 - 留言用户电子邮箱
URL 文本 - 留言用户的主页
IP 文本 - 留言用户的IP地址
Communication 文本 - 留言用户的其他联系方式
Subject 文本 - 留言主题
Comment 文本 - 留言内容
PostDate 日期时间 - 提交留言时间
Reply 文本 - 留言的回复内容
ReplyDate 日期时间 - 回复留言的时间
ReplyName 文本 - 回复留言的管理员名称
创建成功后分别如下:
-Web数据表-
-Note_Admin数据表-
-Note_Comment数据表-
3.2 数据库连接文件
数据库文件Conn.asp连接数据库NOTES.
<%
Dim database,conn,connstr
Response.Buffer=True
database="NOTES.mdb"
Set conn=server.createobject("ADODB.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
conn.Open connstr
Set WBrs=Server.CreateObject("ADODB.RecordSet")
WBrs.Open "Select * from web",conn,1,3
if not WBrs.eof then
sitename=WBrs("SiteName")
maxlength=WBrs("MaxLength")
mail=WBrs("Mail")
distance=WBrs("Distance")
counts=WBrs("Counts")
subjectmaxlength=WBrs("SubjectMaxLength")
上一页 [1] [2] [3] [4] [5] [6] 下一页