<% select case Request("menu") case "" config case "config" config case "configok" configok end select sub config%>
网站基本设置
网站名称：
＊
网站域名：
＊
前面的“http://”和后面的“/”不用写！
站长邮箱：
＊
站长ＱＱ：
＊
站长电话：
＊
备案信息：
＊
I P 屏蔽：
＊
支持通配符*，用 | 隔开
统计代码：
＊
只支持“
站长站
”的，使用其他的会出错误！
网站维护开关：
>= 正常开放 =
>= 关闭维护 =
网站维护说明：
添写维护说明，支持HTML标签。
后台认证码开关：
>= 开启 =
>= 关闭 =
认证码：
＊
网站生成设置
生成每页间隔：
秒 每页生成：
条
页面运行模式：
> 动态
> 静态
> 伪静态
分类页面存放路径：
系统样式
样式一
样式二
样式三
样式四
样式五
文件后缀名不支持 asp,php,aspx,jsp 格式
文件夹需要手动建立
播放页面存放路径：
系统样式
样式一
样式二
样式三
样式四
样式五
样式六
文件后缀名不支持 asp,php,aspx,jsp 格式
文件夹需要手动建立
专辑页面存放路径：
系统样式
样式一
样式二
样式三
样式四
样式五
样式六
文件后缀名不支持 asp,php,aspx,jsp 格式
文件夹需要手动建立
新闻栏目页存放路径：
系统样式
样式一
样式二
文件后缀名不支持 asp,php,aspx,jsp 格式
文件夹需要手动建立
新闻内容页存放路径：
系统样式
样式一
样式二
样式三
样式四
样式五
样式六
文件后缀名不支持 asp,php,aspx,jsp 格式
文件夹需要手动建立
其它相关设置
网站缓存开关：
>= 开启 =
>= 关闭 =
缓存时间：
分钟 缓存标识：
<% end sub sub configok CD_WebName = SafeRequest("CD_WebName","post") CD_WebUrl = SafeRequest("CD_WebUrl","post") CD_WebMail = SafeRequest("CD_WebMail","post") CD_WebQQ = SafeRequest("CD_WebQQ","post") CD_WebTel = SafeRequest("CD_WebTel","post") CD_WebIcp = SafeRequest("CD_WebIcp","post") CD_WebIp = SafeRequest("CD_WebIp","post") CD_WebCount = replace(Trim(Request.Form("CD_WebCount")),CHR(34),"'") CD_WebOffA = SafeRequest("CD_WebOffA","post") CD_WebOffB = SafeRequest("CD_WebOffB","post") CD_WebHtml = SafeRequest("CD_WebHtml","post") CD_WebCodeA = SafeRequest("CD_WebCodeA","post") CD_WebCodeB = SafeRequest("CD_WebCodeB","post") CD_IsCache = SafeRequest("CD_IsCache","post") CD_CacheTime = SafeRequest("CD_CacheTime","post") CD_CacheMark = SafeRequest("CD_CacheMark","post") CD_StopTime = SafeRequest("CD_StopTime","post") CD_Createpre = SafeRequest("CD_Createpre","post") CD_Calistfolder = SafeRequest("CD_Calistfolder","post") CD_Caplayfolder = SafeRequest("CD_Caplayfolder","post") CD_Caspecialfolder = SafeRequest("CD_Caspecialfolder","post") CD_Canewscfolder = SafeRequest("CD_Canewscfolder","post") CD_Canewsfolder = SafeRequest("CD_Canewsfolder","post") Dim n,TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim CD_WebName,CD_WebUrl,CD_WebMail,CD_WebQQ,CD_WebTel,CD_WebIcp,CD_WebIp,CD_WebCount,CD_WebOffA,CD_WebOffB" & VbCrLf TempStr = TempStr & "Dim CD_WebHtml,CD_WebCodeA,CD_WebCodeB,CD_IsCache,CD_CacheTime,CD_CacheMark,CD_StopTime,CD_Createpre" & VbCrLf TempStr = TempStr & "Dim CD_Calistfolder,CD_Caplayfolder,CD_Caspecialfolder,CD_Canewscfolder,CD_Canewsfolder" & VbCrLf TempStr = TempStr & "CD_WebName="& Chr(34) & CD_WebName & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebUrl="& Chr(34) & CD_WebUrl & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebMail="& Chr(34) & CD_WebMail & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebQQ="& Chr(34) & CD_WebQQ & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebTel="& Chr(34) & CD_WebTel & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebIcp="& Chr(34) & CD_WebIcp & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebIp="& Chr(34) & CD_WebIp & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebCount="& Chr(34) & CD_WebCount & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebOffA="& Chr(34) & CD_WebOffA & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebOffB="& Chr(34) & CD_WebOffB & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebHtml="& Chr(34) & CD_WebHtml & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebCodeA="& Chr(34) & CD_WebCodeA & Chr(34) & VbCrLf TempStr = TempStr & "CD_WebCodeB="& Chr(34) & CD_WebCodeB & Chr(34) & VbCrLf TempStr = TempStr & "CD_IsCache="& Chr(34) & CD_IsCache & Chr(34) & VbCrLf TempStr = TempStr & "CD_CacheTime="& Chr(34) & CD_CacheTime & Chr(34) & VbCrLf TempStr = TempStr & "CD_CacheMark="& Chr(34) & CD_CacheMark & Chr(34) & VbCrLf TempStr = TempStr & "CD_StopTime="& Chr(34) & CD_StopTime & Chr(34) & VbCrLf TempStr = TempStr & "CD_Createpre="& Chr(34) & CD_Createpre & Chr(34) & VbCrLf TempStr = TempStr & "CD_Calistfolder="& Chr(34) & FormatStrHtml(CD_Calistfolder) & Chr(34) & VbCrLf TempStr = TempStr & "CD_Caplayfolder="& Chr(34) & FormatStrHtml(CD_Caplayfolder) & Chr(34) & VbCrLf TempStr = TempStr & "CD_Caspecialfolder="& Chr(34) & FormatStrHtml(CD_Caspecialfolder) & Chr(34) & VbCrLf TempStr = TempStr & "CD_Canewscfolder="& Chr(34) & FormatStrHtml(CD_Canewscfolder) & Chr(34) & VbCrLf TempStr = TempStr & "CD_Canewsfolder="& Chr(34) & FormatStrHtml(CD_Canewsfolder) & Chr(34) & VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile TempStr,"../Include/CmsDj.Config.asp" Call AdminAlert("更新网站信息成功，正在返回...","Admin_Config.asp",0) Response.End End Sub %>