<% if session("key")>"2" then response.write "" response.end end if '========================================== ' ' supercms新闻文章内容管理系统 v 1.0 ' ' 官方网址：http://www.supercms.cn ' www.supercms.net ' '========================================== '程序名称： supercms新闻文章内容管理系统 '英文名称：super content management system '作 者： 创意小子 '联系 q q： 77801933 ' '程序创建时间：2005-6-10 '程序完成时间：2005-8-1 '========================================== '请尊重作者版权不要删除以上信息 ' '力争做国内最好最实用的开源网站内容管理系统 ' '特别感谢玄鸟科技提供的大力支持 ' http://www.superbtec.com '========================================== %> <% dim sqlcms dim rscms sqlcms="select * from article where newsid="&request("id") set rscms=server.createobject("adodb.recordset") rscms.open sqlcms,conn,1,1 %> "> <% rst.close set rst=nothing rstype.close set rstype=nothing rss.close set rss=nothing rscms.close set rscms=nothing conn.close set conn=nothing %>

修 改 文 章

文章分类： <% dim sqltype dim rstype sqltype="select * from article inner join type on article.typeid=type.typeid where newsid="&request("id") set rstype=server.createobject("adodb.recordset") rstype.open sqltype,conn,1,1 %> "> <%=rstype("typename")%> <% dim rss,sqls set rss=server.createobject("adodb.recordset") sqls="select * from type" rss.open sqls,conn,1,1 do while not rss.eof response.write ""+rss("typename")+""+chr(13)+chr(10) rss.movenext loop %> 推荐新闻： <%select case rstype("tjnews") case "0" response.write "是 否" case "1" response.write "是 否" end select%> 文章模版： ">不改变当前模板 <% dim rst,sqlt set rst=server.createobject("adodb.recordset") sqlt="select * from mode" rst.open sqlt,conn,1,1 do while not rst.eof response.write ""+rst("modename")+""+chr(13)+chr(10) rst.movenext loop %> 文章标题： "> -  + 来源： ">  -  + 文章作者： ">  -  + 文章内容： "> 　 　 首页图片路径： "> -  + <%select case rstype("picchk") case "0" response.write "有首页图片 无首页图片" case "1" response.write "有首页图片 无首页图片" end select%> ( * 后者必须选定 ) 通过审核： <%select case rstype("check") case "0" response.write "是 否" case "1" response.write "是 否" end select%> 新闻是否含有图片 <%select case rstype("selectpic") case "0" response.write "有 无" case "1" response.write "有 无" end select%> 如选择,新闻标题前将自动加上[图文]标志.

">