服务器处理程序

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

上一页  [1] [2]