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