代码：
〈!--#include file="conn.asp"--〉
〈%
Response.ContentType = "text/XML"
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.write("〈?xml version=""1.0"" encoding=""gb2312""?〉")
currentpage=request("page")
if currentpage="" or int(currentpage)=0 then currentpage=1
set rs=server.createobject("adodb.recordset")
sql="select * from pl order by id desc"
rs.cursorlocation=3
rs.open sql,conn,1,1
if not rs.bof or not rs.eof then
rs.pagesize=5
rs.absolutepage=currentpage
rowcount=rs.pagesize
Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")
do while not rs.eof and rowcount〉0
Response.write("〈pllist〉")
Response.write("〈user〉"&rs("user")&"〈/user〉")
Response.write("〈dateandtime〉"&rs("dateandtime")&"〈/dateandtime〉")
Response.write("〈content〉"&rs("content")&"〈/content〉")
Response.write("〈id〉"&rs("id")&"〈/id〉")
Response.write("〈/pllist〉")
rowcount=rowcount-1
rs.movenext
loop
else
Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")
end if
rs.close
set rs=nothing
response.write("〈/pl〉")
%〉
Conn.asp 数据库连结文件，在删除与提交处理中同样使用
〈%
dim conn
dim connstr
dim db
db="main.mdb" '数据库文件位置
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%〉
评论的删除处理页面：pl_list.asp
〈% Response.Charset="gb2312" %〉
〈% Session.CodePage=936 %〉
〈!--#include file="conn.asp"--〉
〈%
id=request("id")
if id="" then
response.write("参数错误!")
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from pl where id="&id
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.write("删除成功!")
%〉
评论的提交处理页面：pl_fb.asp
〈% Response.Charset="gb2312" %〉
〈% Session.CodePage=936 %〉
〈!--#include file="conn.asp"--〉
〈%
user=request("user")
content=request("content")
newsid=request("newsid")
set rs=server.CreateObject("adodb.recordset")
sql="select * from pl"
rs.open sql,conn,1,3
rs.addnew
rs("user")=user
rs("content")=content
rs("newsid")=newsid
rs("dateandtime")=time()
rs.update
rs.close
set rs=nothing
response.write("添加成功!")
%〉
CSS样式 main.css
一个好的页面呈现效果离不开一个好的样式，当然我这个属于最基本的，算是看得清楚罢了，大家如果有兴趣可以对样式文件作修改。
.u { /*呢称*/
font-size: 12px;
float:left;
height:25px;
line-height:20px;
width:120px;
}
.d { /*时间*/
font-size: 12px;
float:left;
height:25px;
line-height:20px;
width:120px;
}
.idnub { /*删除*/
text-align:center;
font-size: 12px;
height:25px;
line-height:25px;
width:30px;
}
.co {/*内容*/
font-size: 12px;
width:280px;
}
这是我第一次尝试在asp中使用ajax,习惯于donet中的拖拖拉拉，突然用最原始的方式写代码还真有点不习惯，特别是缺少了那种所见即所得的效果，每一步的实现都得在不断的调试中完成,的确是一件很累的事情。当然随着Ajax式的程序开发愈来愈受欢迎，现在市面的框架、工具也越来越多，相信有那么一天，开发Ajax应用程序终究会变成一件易常简单的事。
