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

　2007-06-18 12:04:45　来源：WEB开发网　　　

核心提示： 〈% dim conn dim connstr dim db db="main.mdb" '数据库文件位置 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Ma

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

上一页 3 4 5 6 7 8