<% IF 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 '========================================== %> <% if request("method")="edit" then dim rst,sqlt set rst=server.createobject("adodb.recordset") sqlt="select * from Config" rst.open sqlt,conn,3,3 rst("WebName")=request("webName") rst("WebUrl")=request("weburl") rst("CopyRights")=request("copyrights") rst("WebEmail")=request("webemail") rst("Tel")=request("tel") rst("Qq")=request("qq") rst("Saddress")=request("saddress") rst("Address")=request("address") rst("PostCode")=request("postcode") rst("replyon")=request("replyon") rst("Picnum")=request("picnum") rst("About")=request("about") rst("Defaultauthor")=request("defaultauthor") rst("Defaultfrom")=request("defaultfrom") rst("Superstat")=request("superstat") rst.Update rst.close set rst=nothing response.write "" end if conn.close set conn=nothing %>