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

YPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.***w3.org/TR/REC-html40/loose.dtd">

YPE html PUBLIC "-//w3c//dtd html 4.0 transitional//en">

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

%>

//将用户输入显示到页面
function addtolist(date){
//获取留言列表div容器
var msg=document.getelementbyid("msglist");
//创建dl标记及其子标记
var dl=document.createelement("dl");
var dt=document.createelement("dt");
var dd=document.createelement("dd");
var dd2=document.createelement("dd");
//将结点插入到相应的位置
msg.insertbefore(dl,msg.firstchild);
dl.appendchild(dt);
dl.appendchild(dd);
dl.appendchild(dd2);
//填充留言内容
dt.innerhtml="标题："+document.forms[0].title.value;
dd.innerhtml="作者："+document.forms[0].author.value+" 日期："+date;
dd2.innerhtml=document.forms[0].content.value;
//清空用户输入框
document.forms[0].title.value="";
document.forms[0].author.value="";
document.forms[0].content.value="";
}
//-->

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

标题：

作者： 日期：

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

发表您的留言

标题：

作者：

内容：