<% IF not(Session("KEY")="1") 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 '========================================== %> 发布文章_SUPERCMS文章管理系统--力争做国内最好最实用的文章管理系统！ <% dim sql dim rs sql="select * from Mode where id="+request("id") set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>
文章模板修改
模版编号：<%=rs("ID")%>
相关参数：  位置导航 CMS_TYPE 文章标题 CMS_TITLE 站内搜索 CMS_SOUSUO　 　
            发布日期 CMS_DATE　文章作者 CMS_AUTHOR　文章来源 CMS_FROM　
            文章内容 CMS_CONTENT　文章ID号 CMS_NEWSID　文章评论 CMS_RCONTENT
            底部导航 CMS_BOTTOMNAVI 文章版权 CMS_FOOTER　
模版名称： "> ">
 
<% rs.close set rs=nothing %> <% if request("method")="edit" then dim rst,tsql set rst=server.CreateObject("ADODB.RecordSet") rst.open "select * from Mode where id="+request("Modeid"),conn,1,3 rst("ModeName")=request("ModeName") rst("ModeContent")=request("ModeContent") rst.Update rst.close response.write "" end if conn.close set conn=nothing %>