在这里大家还记得,在登陆后台的时候我传递给session("yes")这个会话一个值嘛?
　　它就是此时有用了,因为如果你登陆不成功,会话就是空值,添加页面就不会被直接URL进去,想必大家可以听明白我的讲解吧!

　　 

　　好了讲解下面的代码,看上图:

　　这段代码主要就是声明一个记录集,然后起名RS,用记录集来添加新闻!

set rs=server.createobject("adodb.recordset")
sql="select * from erennew"
rs.open sql,db,1,3
 数据挖掘交友 

　　SQL语句对这个数据库的erennew表,然后rs.open sql,db,1,3是用赋值的参数来打开记录集,附带的1,3简单的来说就是可以让记录集添加数据

rs.addnew
rs("title")=trim(request.form("title"))
rs("name")=trim(request.form("name"))
rs("content")=server.htmlencode(request.form("content"))
rs("xhcount")=0
rs("xhtime")=now()
rs.update
 数据挖掘实验室 

　　这段就是添加记录的代码
　　rs.addnew添加
　　rs.update更新
　　其中的数据,大家可以明白就是通过递交表单的参数传递给了数据库!

rs.close
set rs=nothing
response.redirect "xh_add.asp"
 
数据挖掘实验室
 

　　关闭记录集,然后跳转页面。

　　5.写后台显示页面,功能带有编辑和删除xh_add.asp
　　好了,这节可以讲解xh_add.asp就是登陆后台的主页面
　　下图是后台效果。
　　
　　 

　　然后咱们来看看代码。
　　
　　 

　　这段代码看着是不是很熟悉啊,对了,在上节课我已经详细讲解了这个会话的功能了!

　　 

　　大家看看这个代码,就是用SQL搜索了,erennew所有的记录,然后用execute执行了这个SQL,关于输入各个数据,由于我没有界图,所以就用代码说明了啊!

 
数据挖掘实验室
 
<%do while not rs.eof%>
<tr> 
<td align="center"><%=rs("id")%></td>
<td><a href=../xh_look.asp?id=<%=rs("id")%> target="_blank"><%=rs("title")%></a></td>
<td><%=rs("xhtime")%></td>
<td align="center"><a href="xh_edit.asp?id=<%=rs("id")%>">编辑</a></td>
<td align="center"><a href="xh_del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
 
数据挖掘实验室
 

　　大家看这段代码,难点就是编辑和删除的连接为:
　　xh_edit.asp?id=<%=rs("id")%>"就拿这个讲解吧!
　　意思就是传递到edit.asp这个页面一个参数,这个在edit.asp页面用querystring来探测这个参数,为什么这么说呢,主要就是为了分别到底是那个那个新闻需要被编辑或者删除,毕竟ID是唯一的!

　　6.写后台编辑新闻页面xh_edit.asp和删除新闻页面xh_dll.asp
　　
　　这节课主要讲新闻的2个重要部分也是难点部分,删除和编辑。

　　首先是xh_del.asp

　　 

　　大家仔细看看主要部分就是：

id=request.querystring("id")
delsql="delete * from erennew where id="&id
db.execute(delsql)
 
数据挖掘工具
 

　　这段代码,主要是什么呢?
　　ID的赋值,是从XH_ADD.ASP页面传递过来的参数,然后赋值给变量ID上,大家明白了嘛?
　　然后在根据这个传递来查询要删除的记录!
　　然后执行这个DELSQL语句!

　　编辑部分原理上和删除是相同的。

　　 

　　 

　　上图就是代码部分:

if request.form("active")="" then
else
rs("title")=trim(request.form("title"))
rs("content")=server.htmlencode(request.form("content"))
rs("name")=trim(request.form("name"))
rs.update
response.redirect "xh_add.asp" 
数据挖掘实验室
 
end if
 
数据挖掘论坛
 

　　注意这部分中的这个

if request.form("active")="" then
 数据挖掘工具 

　　这个是在表单部分我赋值了一个隐藏域名为active值为yes,这个有点优点就是打开这个页面不直接传递递交,要点击提交才能赋值,递交后执行。

rs("title")=trim(request.form("title"))
rs("content")=server.htmlencode(request.form("content"))
rs("name")=trim(request.form("name"))
rs.update
response.redirect "xh_add.asp"
 数据挖掘论坛 

　　最后一句是刷新页面到管理页面!
　　然后跟着参数rs.update直接刷新数据库,好了,大家该明白了吧!

　　7.完成前台新闻页面index.asp和查看新闻页面xh_look.asp

　　好了这是最后一节来个简单的结尾。

　　 

　　这个在上节课已经讲解这个代码了,就是倒叙排列表中的记录!

　　 

　　在这个代码中,我列出来

</tr>
<%do while not rs.eof%>
<tr> 
<td height="28" align="left">  <img src="images/page.gif" _
width="12" height="14"> <a href=xh_look.asp?id=<%=rs("id")%> target_ 数据挖掘交友 
="_blank"><%=rs("title")%></a>  (<font color="#006699"><%=rs_
("xhtime")%>发表</font>) 
<font color="#006699"> 浏览过<%=rs("xhcount")%>次</font></td>
</tr>
<%
rs.movenext
loop
%>
</table>
 
数据挖掘实验室
 

　　这个do while not rs.eof 主要就是循环,然后和loop之间的代码就是反复输出记录!
　　not rs.eof判断记录有没有到结尾,如果没有继续输入!

　　好了,下面是新闻页面xh_look.asp

　　 

　　这句主要是判断传递过来的参数是否为空,如果不是就赋值给参数,如果是空就赋值1。

　　 

　　自写一个参数,主要用来替换换行代码!

　　 

sql="select * from erennew where id="&id
rs.open sql,db,1,3 
数据挖掘交友
 
rs("xhcount")=rs("xhcount")+1
rs.update
 
数据挖掘交友
 

　　上面代码大家可以看明白嘛?和以前差不多,就是累加浏览数,搜索到ID值,然后更新数据库中的xhount的数值,大家明白了吧~!

　　演示

　　下载 数据挖掘工具