Untitled Document

<% 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 rs,tsql dim rst set rst=server.CreateObject("ADODB.RecordSet") %> Untitled Document

文章模板管理

<% SET DATABASE=Server.CreateObject("ADODB.connection") rst.open "select * from mode ",conn,1,1 if rst.EOF then response.write "

暂时没有任何模板信息

" else %> <%do while NOT rst.EOF%> <% rst.MoveNext loop end if rst.close %>

ID	模板名称	修改	删除
<%=rst("id")%>	<%=rst("modename")%>	">修改	&action=del">删除

添加模板