您的位置首页百科知识

个人网页6-----留言板1(ASP显示ACCESS数据)

个人网页6-----留言板1(ASP显示ACCESS数据)

小编尝试做一个网页留言板,分几次来写,这是第一篇,实现网页显示数据库信息。

IIS服务器--Web服务扩展--“Active Server Pages”(asp)设为允许。

在服务器上安装access,可以直接安装一个office,access是office中的一个组件。

左上角菜单栏,"文件"--"新建"--"空数据库",将文件放在网站新建的留言板文件夹下。

选择"使用设计器创建表",然后点击"打开"。

弹出了一张表格,这张表可以设置数据库数据所具有的元素,小编这里设置了四项:

①字段名称:id,数据类型:自动编号;

②字段名称:name,数据类型:文本;

③字段名称:message,数据类型:备注;

④字段名称:data,数据类型:日期/时间。"日期/时间"下,如图设置默认值为Now()。

这样这个数据库的任何一条数据,都会有以上四种元素,关于access数据库的数据类型各代表什么,大家可以自行百度。

"文件"—>"保存",填写表名称,确定。

弹出提示,"是否设置主键",点击是,自动将字段"id"设为了主键,在主键前面有一个钥匙的图标,如图,主键可以看做是数据的索引,方便随时查找到想要的数据。

关闭设计器,打开刚建的表,加上两条数据,这样一个access数据库就建立好了。

接下来是asp代码。

在网站留言板文件夹下新建一个txt文件,将它重命名为xxx.asp,以记事本的方式打开,在里面添加如下图代码。

<%

dim conn,mdbfile

mddfile="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("数据库文件名.mdb)

set conn=server.createobject("adodb.connection")

conn.openmdbfile

dim sql,rs

sql="select * from 表名"

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

do while not rs.eof

response.write rs("id") & "
"

response.write rs("name") & "
"

response.write rs("message") & "
"

response.write rs("data") & "
"&"
"

rs.movenext

loop

rs.close

set rs =nothing

conn.close

set conn=nothing

%>

小编用自己话一行行解释,如果有错,请多见谅:

①<% (^asp代码开始)

②dim conn,mdbfile(^定义两个变量,一个叫conn,一个叫mdbfile)

③mddfile="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("数据库文件名.mdb) (^变量mdbfile设为了access数据库的连接点,后面的是获得相应数据库的绝对路径)

④set conn=server.createobject("adodb.connection") (^变量conn设为了VB连接数据库的对象)

⑤conn.openmdbfile (^conn对象打开了mdbfile数据库)

⑥dim sql,rs (^同②)

⑦sql="select * from表名 (^变量sql查询数据库里的这张表)

⑧set rs=server.CreateObject("adodb.recordset") (^rs设为数据集对象)

⑨rs.open sql,conn,1,1 (^rs打开了相应的数据库下的表)

⑩do while not rs.eof (^如果没到数据集尾部,便执行某种操作)

⑾response.write rs("id")& "
" (^显示表中一条数据的id,然后换行)

⑿-⒁ (^同⑾)

⒂rs.movenext (^指向下一条数据)

⒃loop (^循环上面的操作)

⒄rs.colse (^把rs打开的操作关闭)

⒅set rs=nothing (^把rs变量设为空)

⒆conn.close set conn=nothing(^同上)

⒇%>(^asp代码结束)

最后别忘了在网站主页上加一条指向这个asp文件的链接。