sitemodify.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<%
Dim Conn,CollectConn
MF_Default_Conn
MF_Collect_Conn
MF_Session_TF

Dim RsEditObj,EditSql,SiteID
Set RsEditObj = Server.CreateObject ("ADODB.RecordSet")
SiteID = Request("SiteID")
if SiteID <> "" then
	EditSql="Select * from FS_Site where ID=" & SiteID
	RsEditObj.Open EditSql,CollectConn,1,3
	if RsEditObj.Eof then
		Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
		Response.end
	end if
else
	Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
	Response.end
end if

Function SiteFolderList()
	Dim ClassListObj,SelectStr
	Set ClassListObj = CollectConn.Execute("Select * from FS_SiteFolder where 1=1 order by ID desc")
	do while Not ClassListObj.Eof
		if RsEditObj("Folder") = ClassListObj("ID") then
			SelectStr = "selected"
		else
			SelectStr = ""
		end if
		SiteFolderList = SiteFolderList & "<option " & SelectStr & " value="&ClassListObj("ID")&"" & ">&nbsp;&nbsp;|--" & ClassListObj("SiteFolder") & "</option><br>"
		ClassListObj.MoveNext	
	loop
	ClassListObj.Close
	Set ClassListObj = Nothing
End Function

if Request.Form("Result") = "Edit" then
    Dim RsAddObj,sql
    if Request.Form("SiteName")="" or Request.Form("objURL")="" then
		Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
		Response.end
	end if
	Set RsAddObj = Server.CreateObject ("ADODB.RecordSet")
	Sql = "select * from FS_Site where id=" & Request.Form("SiteID")
	RsAddObj.Open Sql,CollectConn,1,3
	RsAddObj("SiteName") = Request.Form("SiteName")
	RsAddObj("objURL") = Request.Form("objURL")
	RsAddObj("Folder")=Request.Form("SiteFolder") '修改分类
	'On Error Resume Next 
	Dim ListSetting,LinkSetting,PageBodySetting,PageTitleSetting,OtherNewsPageSetting,AuthorSetting,SourceSetting,AddDateSetting,OtherPageSetting,StrErr
	StrErr = ""
	If InStr(Request.Form("ListSetting"),"[列表内容]")<>0 then
		ListSetting = Split(Request.Form("ListSetting"),"[列表内容]",-1,1)
		RsAddObj("ListHeadSetting") = ListSetting(0)
		RsAddObj("ListFootSetting") = ListSetting(1)
	ElseIf ListSetting(0)="" Or ListSetting(1)="" Or err Then
		Err.clear
		RsAddObj("ListHeadSetting") = "<body"
		RsAddObj("ListFootSetting") = "</body>"
	End If
	LinkSetting = Split(Request.Form("LinkSetting"),"[列表URL]",-1,1)
	RsAddObj("LinkHeadSetting") = LinkSetting(0)
	RsAddObj("LinkFootSetting") = LinkSetting(1)
	If err Then
		StrErr = "列表URL没有设置或设置不正确！"
		Err.clear
	End if
	PageBodySetting = Split(Request.Form("PageBodySetting"),"[新闻内容]",-1,1)
	RsAddObj("PagebodyHeadSetting") = PageBodySetting(0)
	RsAddObj("PagebodyFootSetting") = PageBodySetting(1)
	If err Then
		StrErr = StrErr & "\r\n新闻内容没有设置或设置不正确！"
		Err.clear
	End if
	PageTitleSetting = Split(Request.Form("PageTitleSetting"),"[新闻标题]",-1,1) 
	RsAddObj("PageTitleHeadSetting") = PageTitleSetting(0)
	RsAddObj("PageTitleFootSetting") = PageTitleSetting(1)
	If err Then
		StrErr = StrErr & "\r\n新闻标题没有设置或设置不正确！"
		Err.clear
	End If
	If InStr(Request.Form("AuthorSetting"),"[作者]")<>0 then
		AuthorSetting = Split(Request.Form("AuthorSetting"),"[作者]",-1,1)
		RsAddObj("AuthorHeadSetting") = AuthorSetting(0)
		RsAddObj("AuthorFootSetting") = AuthorSetting(1)
	End If
	If InStr(Request.Form("SourceSetting"),"[来源]")<>0 then
		SourceSetting = Split(Request.Form("SourceSetting"),"[来源]",-1,1)
		RsAddObj("SourceHeadSetting") = SourceSetting(0)
		RsAddObj("SourceFootSetting") = SourceSetting(1)
	End If
	If InStr(Request.Form("AddDateSetting"),"[加入时间]")<>0 then
		AddDateSetting = Split(Request.Form("AddDateSetting"),"[加入时间]",-1,1)
		RsAddObj("AddDateHeadSetting") = AddDateSetting(0)
		RsAddObj("AddDateFootSetting") = AddDateSetting(1)
	End if
	
	Select Case Request.Form("OtherNewsType")
		Case "0"
			RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
			RsAddObj("OtherNewsPageHeadSetting") = ""
			RsAddObj("OtherNewsPageFootSetting") = ""
			RsAddObj("OtherNewsPageIndexSetting") = ""
			RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
		Case "1"
			RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
			If InStr(Request.Form("OtherNewsPageSetting"),"[分页新闻]")<>0 Then
				OtherNewsPageSetting = Split(Request.Form("OtherNewsPageSetting"),"[分页新闻]",-1,1)
				RsAddObj("OtherNewsPageHeadSetting") = OtherNewsPageSetting(0)
				RsAddObj("OtherNewsPageFootSetting") = OtherNewsPageSetting(1)
			End if
			RsAddObj("OtherNewsPageIndexSetting") = ""
			RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
		Case "2"
			RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
			RsAddObj("OtherNewsPageHeadSetting") = ""
			RsAddObj("OtherNewsPageFootSetting") = ""
			RsAddObj("OtherNewsPageIndexSetting") = Request.Form("OtherNewsPageIndexSetting")
			RsAddObj("OtherNewsPageIndexSettingStartPageNum") = Request.Form("OtherNewsPageIndexSettingStartPageNum")
			RsAddObj("OtherNewsPageIndexSettingEndPageNum") = Request.Form("OtherNewsPageIndexSettingEndPageNum")
			RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
		Case "3"
			RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
			RsAddObj("OtherNewsPageHeadSetting") = ""
			RsAddObj("OtherNewsPageFootSetting") = ""
			RsAddObj("OtherNewsPageIndexSetting") = ""
			RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingHandPageContent") = Request.Form("OtherNewsPageIndexSettingHandPageContent")
		Case Else
			RsAddObj("OtherNewsType") = "0"
			RsAddObj("OtherNewsPageHeadSetting") = ""
			RsAddObj("OtherNewsPageFootSetting") = ""
			RsAddObj("OtherNewsPageIndexSetting") = ""
			RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
			RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
	End Select
	
	If StrErr<>"" Then
		Err.clear
		Response.Write "<script>alert('"& StrErr &"');history.back();</script>"
		Response.End
	End If 
	Select Case Request.Form("OtherType")
		Case "0"
			RsAddObj("OtherType") = Request.Form("OtherType")
			RsAddObj("IndexRule") = ""
			RsAddObj("StartPageNum") = ""
			RsAddObj("EndPageNum") = ""
			RsAddObj("HandPageContent") = ""
			RsAddObj("OtherPageHeadSetting") = ""
			RsAddObj("OtherPageFootSetting") = ""
		Case "1"
			RsAddObj("OtherType") = Request.Form("OtherType")
			RsAddObj("IndexRule") = ""
			RsAddObj("StartPageNum") = ""
			RsAddObj("EndPageNum") = ""
			RsAddObj("HandPageContent") = ""
			OtherPageSetting = Split(Request.Form("OtherPageSetting"),"[其他页面]",-1,1)
			RsAddObj("OtherPageHeadSetting") = OtherPageSetting(0)
			RsAddObj("OtherPageFootSetting") = OtherPageSetting(1)
		Case "2"
			RsAddObj("OtherType") = Request.Form("OtherType")
			RsAddObj("IndexRule") = Request.Form("IndexRule")
			RsAddObj("StartPageNum") = Request.Form("StartPageNum")
			RsAddObj("EndPageNum") = Request.Form("EndPageNum")
			RsAddObj("HandPageContent") = ""
			RsAddObj("OtherPageHeadSetting") = ""
			RsAddObj("OtherPageFootSetting") = ""
		Case "3"
			RsAddObj("OtherType") = Request.Form("OtherType")
			RsAddObj("IndexRule") = ""
			RsAddObj("StartPageNum") = ""
			RsAddObj("EndPageNum") = ""
			RsAddObj("HandPageContent") = Request.Form("HandPageContent")
			RsAddObj("OtherPageHeadSetting") = ""
			RsAddObj("OtherPageFootSetting") = ""
		Case Else
			RsAddObj("OtherType") = 0
			RsAddObj("IndexRule") = ""
			RsAddObj("StartPageNum") = ""
			RsAddObj("EndPageNum") = ""
			RsAddObj("HandPageContent") = ""
			RsAddObj("OtherPageHeadSetting") = ""
			RsAddObj("OtherPageFootSetting") = ""
	End Select
	RsAddObj("HandSetAuthor") = Request.Form("HandSetAuthor")
	RsAddObj("HandSetSource") = Request.Form("HandSetSource")
	if IsDate(Request.Form("HandSetAddDate")) then
		RsAddObj("HandSetAddDate") = Request.Form("HandSetAddDate")
	end if
	if Request.Form("IsIFrame") = "1" then
		RsAddObj("IsIFrame") = True
	else
		RsAddObj("IsIFrame") = False
	end if
	if Request.Form("IsScript") = "1" then
		RsAddObj("IsScript") = True
	else
		RsAddObj("IsScript") = False
	end if
	if Request.Form("IsClass") = "1" then
		RsAddObj("IsClass") = True
	else
		RsAddObj("IsClass") = False
	end if
	if Request.Form("IsFont") = "1" then
		RsAddObj("IsFont") = True
	else
		RsAddObj("IsFont") = False
	end if
	if Request.Form("IsSpan") = "1" then
		RsAddObj("IsSpan") = True
	else
		RsAddObj("IsSpan") = False
	end if
	if Request.Form("IsObject") = "1" then
		RsAddObj("IsObject") = True
	else
		RsAddObj("IsObject") = False
	end if
	if Request.Form("IsStyle") = "1" then
		RsAddObj("IsStyle") = True
	else
		RsAddObj("IsStyle") = False
	end if
	if Request.Form("IsDiv") = "1" then
		RsAddObj("IsDiv") = True
	else