<%
IF Session("KEY")>"1" THEN
response.write ""
response.end
END IF
%>
<%
if request("method")="ok" then
dim rst,sqlt
''########定义生成栏目文件名称
Dim fname
fname =fname&"SuperCMS.html"
set rst=server.createobject("adodb.recordset")
sqlt="select * from ModeSuperCms"
rst.open sqlt,conn,3,3
rst("ModeSuperCmsContent")=request("ModeSuperCmsContent")
rst.Update
rst.close
set rst=nothing
''########获取站内搜索和文章页面底部版权信息
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
sousuo=""
sousuo=sousuo&""
bottomnavi=""
footer=""
footer=footer&"| Copyright © "&rsconfig("copyrights")&" All Rights Reserved |
"
footer=footer&"| "&rsconfig("saddress")&"："&rsconfig("address")&" 邮政编码："&rsconfig("postcode")&" |
"
footer=footer&"E-mail："&rsconfig("webemail")&" ![QQ在线支持](http://wpa.qq.com/pa?p=1:"&rsconfig("qq")&":10) |
"
rsconfig.close
set rs = server.CreateObject("ADODB.RecordSet")
StrSql = "select * from ModeSuperCms"
set rs=server.createobject("adodb.recordset")
rs.open StrSql,conn,1,1
ModeName=rs("ModeSuperCmsname")
pencat=rs("ModeSuperCmsContent")
pencat=replace(pencat,"CMS_SOUSUO",sousuo)
pencat=replace(pencat,"CMS_BOTTOMNAVI",bottomnavi)
pencat=replace(pencat,"CMS_FOOTER",footer)
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile(server.mappath("..")& "/"&fname)
Set fso1 = nothing
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("..")& "/"&fname)
fout.WriteLine pencat
fout.close
set fso = nothing
response.write ""
end if
conn.close
set conn=nothing
%>