基于Ajax asp的留言板示例源码

ajax.asp

<%
dim conn,rs
dim connstr
dim sqlcmd

'创建数据库教程连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("guestbook.mdb")
conn.open connstr
'用于从数据库中获取数据的sql语句
sqlcmd="select title,author,date,content from data order by date desc"
'创建数据集对象
set rs=server.createobject("adodb.recordset")

'从数据库中获取数据
rs.open sqlcmd,conn,1,1

%>

 <%
  '遍历记录集生成html代码，从而将数据显示于页面
  while not rs.eof
 %>
 

  

标题：<%=rs("title")%>

  

作者：<%=rs("author")%>  日期：<%=rs("date")%>

  

<%=rs("content")%>

 

 <%
  rs.movenext
  wend
  '关闭数据库连接及记录集，释放资源
  rs.close
  conn.close
  set rs=nothing
  set conn=nothing
 %>

 

  

   

发表您的留言

   

标题：

   

作者：

   

内容：

   

    
    
   

  

 

保存由ajax发送过来的数据进行保存

<%
dim conn,rs
dim connstr
dim sqlcmd

'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("guestbook.mdb")
conn.open connstr

'将提交的数据加入数据库
sqlcmd="insert into data(title,author,content) values('" & request.form("title") & "','" & request.form("author") & "','" & request.form("content") & "')"
conn.execute(sqlcmd)

'返回服务器时间
response.write(date)
%>

显示留言记录，并且下面提供留方输入框

<%
dim conn,rs
dim connstr
dim sqlcmd

'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("guestbook.mdb")
conn.open connstr
'用于从数据库中获取数据的sql语句
sqlcmd="select title,author,date,content from data order by date desc"
'创建数据集对象
set rs=server.createobject("adodb.recordset")

if request.form("title")<>"" then
 '如果是页面提交数据则将提交的数据加入数据库
 rs.open sqlcmd,conn,1,3
 rs.addnew
 rs("title")=request.form("title")
 rs("author")=request.form("author")
 rs("content")=request.form("content")
 rs.update
else
 '否则直接从数据库中获取数据
 rs.open sqlcmd,conn,1,1
end if
%>

 <%
  '遍历记录集生成html代码，从而将数据显示于页面
  while not rs.eof
 %>
 

  

标题：<%=rs("title")%>

  

作者：<%=rs("author")%>  日期：<%=rs("date")%>

  

<%=rs("content")%>

 

 <%
  rs.movenext
  wend
  '关闭数据库连接及记录集，释放资源
  rs.close
  conn.close
  set rs=nothing
  set conn=nothing
 %>

 

  

   

发表您的留言

   

标题：

   

作者：

   

内容：