asp+ajax打造无刷新新闻评论系统

　　服务器处理程序

　　根据JS代码页的分段介绍，我们了解此系统的功能大致包括评论的显示处理、评论的删除处理、评论的提交处理三个功能，那么我们就根据这三个功能分别介绍。

　　评论的显示处理页面：pl_list.asp

　　此程序为asp生成xml文件，通过分页的方式将评论的内容以XML的形式呈现出来，我们可以单独运行，结果如下图：

　　代码：

　　〈!--#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应用程序终究会变成一件易常简单的事。