当前位置 > 文字教程 > Flash AS编程教程

asp+as3+flash留言本教程-asp篇

文章类别:Flash AS编程 | 发表日期:2008-10-6 18:13:02


文件一:

建立一个文本文档复制下面的内容(不包含行号),另存为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>
</record>
</guestbook>
可以对照着数据库看一下

实际上就是返回一个xml文件。

文件三: addsave.asp
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book"
rs.open sql,conn,1,3
rs.addnew
rs("name")=Request.querystring("name")
rs("qq")=Request.querystring("qq")
rs("mail")=Request.querystring("mail")
rs("content")=Request.querystring("content")
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>

文件的作用是向数据库中添加文件。

接下来请看asp+access+as3+flash留言本教程——flash篇