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

2025-04-11 19:53:19

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.openmdbfiledim sql,rssql="select * from 表名"set rs=server.createobject("adodb.recordset")rs.open sql,conn,1,1do while not rs.eofresponse.write rs("id") & "<br>"response.write rs("name") & "<br>"response.write rs("message") & "<br>"response.write rs("data") & "<br>"&"<br>"rs.movenextlooprs.closeset rs =nothingconn.closeset 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.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")& "<br>" (^显示表中一条数据的id,然后换行)⑿-⒁ (^同⑾)⒂rs.movenext (^指向下一条数据)⒃loop (^循环上面的操作)⒄rs.colse (^把rs打开的操作关闭)⒅set rs=nothing (^把rs变量设为空)⒆conn.close set conn=nothing(^同上)⒇%>(^asp代码结束)

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

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