欢迎光临爱时尚女性网
 

构建你的网站新闻自动发布系统(四)

2012-8-2 编辑:knwz 来源:爱时尚女性网 阅读次数:952
  导读:程序处理完毕后,重新导向delete.asp这个asp文件,用以刷新新闻数据库内的显示,那么每提交一条新闻资料,我们马上可以看见执行的结果是否成功了。 牋以下是delete.asp的文件内容。 牋 牋 牋 牋 ...
程序处理完毕后,重新导向delete.asp这个asp文件,用以刷新新闻数据库内的显示,那么每提交一条新闻资料,我们马上可以看见执行的结果是否成功了。 牋以下是delete.asp的文件内容。 牋
<% @language="vbscript" %> 牋
<% 牋
response.buffer=true 牋
Response.Expires=0 牋

%> 牋

<% 牋

Set rs = Server.CreateObject("ADODB.Recordset") 牋
sql="select * from data order by news_class ASC,news_id Desc" 牋
'rs.PageSize=100 牋
rs.open sql,conn,3,2 牋


%> 牋




新闻数据库中所存的资料












<% 牋
do while not rs.eof 牋
%> 牋




<% 牋
rs.movenext 牋
loop 牋
%> 牋




size="3">新闻数据库中所存的资料

是否删除:<%if rs("news_delete")=-
1 then%> 牋
" 牋
value="ON"> 牋
<%else%> 牋
" 牋
value="OFF"> 牋
<%end if%> 牋
<%if rs
("news_class")=1 then%> 牋
市场风云
<%end if%> 牋
<%if rs("news_class")=2 then%> 牋
IT新闻
<%end if%> 牋
<%if rs("news_class")=3 then%> 牋
广州市场
<%end if%> 牋
<%if rs("news_class")=4 then%> 牋
保 留
<%end if%> 牋
<%if rs("news_class")=5 then%> 牋
保 留
<%end if%> 牋
<%=rs("news_title")%>


type="submit" value="提 交" name="B1">       type="reset" 牋
value="清 除" name="B2">





<% 牋

if Request.ServerVariables("REQUEST_METHOD")="POST" then 牋

if not rs.bof then 牋
rs.movefirst 牋
end if 牋
do while not rs.eof 牋
n=trim(cstr(rs("news_id"))) 牋
if request.form(n)="OFF" then 牋
rs.delete 牋
rs.update 牋
end if 牋
rs.movenext 牋
loop 牋
response.redirect "delete.asp" 牋

rs.close 牋
end if 牋
response.flush 牋
%> 牋
delete.asp也是一个构成webadmin.htm的管理页面的asp文件,它负责新闻数据库的标题显示,以便让您知道现在库用有些什么新闻。同时可以通过它来删除新闻记录,那么我们在使用新闻的主页里反应出来的结果就是动态的了,新闻可以在线添加和删除。令外一个附加的asp程序 牋set_diap.asp是用于控制每一类新闻在主页上显示的数目的,它主要使用application对象来设定。 牋

<% @language="vbscript" %> 牋
<% 牋
response.buffer=true 牋
Response.Expires=0 牋

application("disp_1")=request.form("disp_1") 牋
application("disp_2")=request.form("disp_2") 牋
application("disp_3")=request.form("disp_3") 牋
application("disp_4")=request.form("disp_4") 牋
application("disp_5")=request.form("disp_5") 牋

response.redirect "delete.asp" 牋


%> 牋

完成了上面的程序,我们的新闻发布系统就可以在线添加和删除,设置显示等的功能来,需要加上搜寻功能,也可以在这个基础上加上。下一节我们来分析,如何;令新闻代码嵌入不同的网页,实现真正的在线新闻功能。

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。