需要源文件留下email成业作品，欢迎转载 FLASH简单留言本
文件一：
建立一个文本文档复制下面的内容（不包含行号），另存为conn.asp放在IIS测试目录里
1 <%
2 On Error Resume Next
3 set conn=server.createobject("adodb.connection")
4 connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("db2.mdb")
5 conn.open connstr
6 If Err Then
7 err.Clear
8 Set Conn = Nothing
9 End If
10 %>
说明一下上面的文档：
第一行和最后一行的<% %>符号表示asp代码的开始和结束；
第二行的意思是,如果在执行（代码）过程中出错，则执行下一行；
第三行到第五行的功能是，和数据库建立连接，并打开这个连接；
第六行到第九行的功能是，如果执行过程中有错误，则清空所有错误信息；并断开连接。
以上文档，并非完全必要，你也可以把它进行简单化处理,比如：
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("db2.mdb")
conn.open connstr
%>
文档中出现的db2.mdb就是asp+access+as3+flash留言本教程——asp篇中建立的数据库名称。
文件二：
下面建立一个读取数据库中信息的asp页面文件，index.asp
内容如下：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book order by id desc"
rs.open sql,conn,1,1
%>
<guestbook>
<%do while not rs.eof%> <record>
<name> <%=rs("name")%> </name>
<date> <%=rs("date")%> </date>
<content><%=rs("content")%></content>
<qq> <%=rs("qq")%> </qq>
<email> <%=rs("mail")%> </email>
</record>
<%
rs.movenext
loop
%></guestbook>
说明一下上面的文档：
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book order by id desc"
rs.open sql,conn,1,1
%>
这一段的含义是建立一个查询数据集合，又叫记录集（RecordSet）
<%=rs("mail")%>
这句的含义是输出记录集中的mail数据
<%do while not rs.eof%>
....
<%
rs.movenext
loop
%>
意思是循环输出。
=================上面所有的代码执行的结果如下（源代码）===============
<guestbook>
<record>
<name> chengye </name>
<date> </date>
<contend>baibi</contend>
<qq> 123456789 </qq>
<email> hj@nfa.com </email>
</record>
<record>
<name> 2 </name>
<date> 2007-3-1 </date>
<contend>好的</contend>
<qq> 545634545453 </qq>
<email> 4345 </email>
</record>
<record>
<name> 1 </name>
<date> 2007-2-1 </date>
<contend>你好1</contend>
<qq> 924205763 </qq>
<email> 123·123.com </email> |
