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

2025-12-01 07:19:35

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

8、接下来是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.open mdbfile

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")   & "<br>"

response.write rs("name") & "<br>"

response.write rs("message") & "<br>"

response.write rs("data") & "<br>"&"<br>"

rs.movenext

loop

rs.close

set rs =nothing

conn.close

set conn=nothing

%> 

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

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

①<%                           (^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.open mdbfile    (^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")  & "<br>"    (^显示表中一条数据的id,然后换行)

⑿-⒁                              (^同⑾)

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

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

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

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

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

⒇%>                               (^asp代码结束)

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

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢