site.asp

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

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

Dim sRootDir,str_CurrPath,SaveRemotePicPath

if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/" & G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	If Session("Admin_FilesTF") = 0 Then
		str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
	Else
		str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
	End If	
End if

SaveRemotePicPath = Replace(sRootDir &"/"&G_UP_FILES_DIR & "/" & G_SAVE_FILE_PATH,"//","/")

if not MF_Check_Pop_TF("CS001") then Err_Show
Dim Rs
if Request("Action") = "Del" then
	if Request("id") <> "" then
		CollectConn.Execute("delete from FS_Site where ID in (" & Replace(Request("id"),"***",",") & ")")
	end If
	if Request("SiteFolderID") <> "" then
		CollectConn.Execute("delete from FS_SiteFolder where ID in (" & Replace(Request("SiteFolderID"),"***",",") & ")")
	end if
	Response.Redirect("site.asp")
	Response.End
elseif Request("Action") = "Lock" then
	if Request("LockID") <> "" then
		CollectConn.Execute("Update FS_Site Set IsLock=1 where ID in (" & Replace(Request("LockID"),"***",",") & ")")
		Response.Redirect("site.asp")
		Response.End
	end if
elseif Request("Action") = "UNLock" then
	if Request("LockID") <> "" then
		CollectConn.Execute("Update FS_Site Set IsLock=0 where ID in (" & Replace(Request("LockID"),"***",",") & ")")
		Response.Redirect("site.asp")
		Response.End
	end if
end if
if Request.Form("vs")="add" then
    if Request.Form("SiteName")="" or Request.Form("objURL")="" then
		Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
		Response.end
	end if
	IF Trim(Request.Form("PicSavePath")) = "" Then
		Response.write"<script>alert(""请选择图片保存路径！"");location.href=""javascript:history.back()"";</script>"
		Response.end
	End If	
    Dim Sql
	Set Rs = Server.CreateObject ("ADODB.RecordSet")
	Sql = "Select * from FS_Site where 1=0"
	Rs.Open Sql,CollectConn,1,3
	Rs.AddNew
	Rs("SiteName") = Request.Form("SiteName")
	Rs("objURL") = Request.Form("objURL")
	Rs("folder") = Request.Form("SiteFolder")
	if Request.Form("IsIFrame") = "1" then
		Rs("IsIFrame") = True
	else
		Rs("IsIFrame") = False
	end if
	if Request.Form("IsReverse") = "1" then
		Rs("IsReverse") = 1
	else
		Rs("IsReverse") = 0
	end if
	if Request.Form("IsScript") = "1" then
		Rs("IsScript") = True
	else
		Rs("IsScript") = False
	end if
	if Request.Form("IsClass") = "1" then
		Rs("IsClass") = True
	else
		Rs("IsClass") = False
	end if
	if Request.Form("IsFont") = "1" then
		Rs("IsFont") = True
	else
		Rs("IsFont") = False
	end if
	if Request.Form("IsSpan") = "1" then
		Rs("IsSpan") = True
	else
		Rs("IsSpan") = False
	end if
	if Request.Form("IsObject") = "1" then
		Rs("IsObject") = True
	else
		Rs("IsObject") = False
	end if
	if Request.Form("IsStyle") = "1" then
		Rs("IsStyle") = True
	else
		Rs("IsStyle") = False
	end if
	if Request.Form("IsDiv") = "1" then
		Rs("IsDiv") = True
	else
		Rs("IsDiv") = False
	end if
	if Request.Form("IsA") = "1" then
		Rs("IsA") = True
	else
		Rs("IsA") = False
	end if
	if Request.Form("Audit") = "1" then
		Rs("Audit") = True
	else
		Rs("Audit") = False
	end if
	if Request.Form("TextTF") = "1" then
		Rs("TextTF") = True
	else
		Rs("TextTF") = False
	end if
	if Request.Form("SaveRemotePic") = "1" then
		Rs("SaveRemotePic") = True
	else
		Rs("SaveRemotePic") = False
	end if
	if Request.Form("Islock") <> "" then
		Rs("Islock") = True
	else
		Rs("Islock") = False
	end if
	'===2007-02-25 Edit By Ken =======
	If Request.Form("IsAutoPicNews") <> "" then
		Rs("IsAutoPicNews") = 1
	Else
		Rs("IsAutoPicNews") = 0
	End If
	If Request.Form("ToClass") <> "" then
		Rs("ToClassID") = Trim(Request.Form("ToClass"))
	Else
		Rs("ToClassID") = "0"
	End If
	Rs("NewsTemplets") = Trim(Request.Form("NewsTemp"))
	IF Request.Form("AutoCTF") = "no" Then
		Rs("AutoCellectTime") = "no"
	ElseIf Request.Form("AutoCTF") = "day" Then
		Rs("AutoCellectTime") = "day$$$" & Request.Form("TimeHour")
	ElseIF Request.Form("AutoCTF") = "week" Then
		Rs("AutoCellectTime") = "week$$$" & Request.Form("TimeWeek") & "|" & Request.Form("TimeHour")
	ElseIF Request.Form("AutoCTF") = "month" Then
		Rs("AutoCellectTime") = "month$$$" & Request.Form("TimeMonth") & "|" & Request.Form("TimeHour")
	End IF
	if Trim(Request.Form("NewsNum")) = "" Or Not IsNumeric(Trim(Request.Form("NewsNum"))) Then
		Rs("CellectNewNum") = 0
	Else
		If Cint(Trim(Request.Form("NewsNum"))) < 0 Then
			Rs("CellectNewNum") = 0
		Else
			Rs("CellectNewNum") = Cint(Trim(Request.Form("NewsNum")))
		End IF	
	End If
	Rs("WebCharset") = Trim(Request.Form("WebCharset"))
	Rs("RulerID") = Trim(Request.Form("CS_SiteReKeyID"))
	Rs("PicSavePath") = Trim(Request.Form("PicSavePath"))
	IF Request.Form("WaterPrint") = 1 Then
		Rs("WaterPrintTF") = 1
	Else
		Rs("WaterPrintTF") = 0
	End IF
	'===End===========================	
	Rs.UpDate
	Rs.Close
	Set Rs = Nothing
	Set CollectConn = Nothing
	Response.Write "<script>alert('操作成功');location.href='Site.asp';</script>"
	Response.End
elseif Request("vs")="addfolder" then
	Dim SiteFolder,SiteFolderDetail,SqlStr
	SiteFolder = Request.Form("SiteFolder")
	SiteFolderDetail = Request.Form("SiteFolderDetail")
	If SiteFolder = "" or SiteFolderDetail = "" Then
		Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
		Response.end
	End If
	Set Rs = Server.CreateObject ("ADODB.RecordSet")
	if Request("SiteFolderID") <> "" then
		SqlStr = "Select * from FS_SiteFolder where ID=" & Request("SiteFolderID")
		Rs.Open SqlStr,CollectConn,1,3
	else
		SqlStr = "Select * from FS_SiteFolder where 1=0"
		Rs.Open SqlStr,CollectConn,1,3
		Rs.AddNew
	end if
	Rs("SiteFolder") = SiteFolder
	Rs("SiteFolderDetail") = SiteFolderDetail
	Rs.UpDate
	Rs.Close
	Set Rs = Nothing
	Set Conn = Nothing
	Set CollectConn = Nothing
	Response.Redirect("Site.asp")
	Response.end
elseif Request("vs")="Copy" then
	Dim SiteID,SiteFolderID,RsCopySourceObj,RsCopyObjectObj,FiledObj
	SiteID = Request("SiteID")
	SiteFolderID = Request("SiteFolderID")
	if SiteID <> "" then
		Set RsCopySourceObj = CollectConn.Execute("Select * from FS_Site where ID in (" & Replace(SiteID,"***",",") & ")")
		do while Not RsCopySourceObj.Eof
			Set RsCopyObjectObj = Server.CreateObject("ADODB.RecordSet")
			RsCopyObjectObj.Open "Select * from FS_Site where 1=0",CollectConn,3,3
			RsCopyObjectObj.AddNew
			For Each FiledObj In RsCopyObjectObj.Fields
				if LCase(FiledObj.name) <> "id" then
					RsCopyObjectObj(FiledObj.name) = RsCopySourceObj(FiledObj.name)
				end if
			Next
			RsCopyObjectObj.Update
			RsCopySourceObj.MoveNext
		Loop
		Set RsCopySourceObj = Nothing
		Set RsCopyObjectObj = Nothing
	end If
	if SiteFolderID <> "" then
		Set RsCopySourceObj = CollectConn.Execute("Select * from FS_SiteFolder where ID in (" & Replace(SiteFolderID,"***",",") & ")")
		do while Not RsCopySourceObj.Eof
			Set RsCopyObjectObj = Server.CreateObject("ADODB.RecordSet")
			RsCopyObjectObj.Open "Select * from FS_SiteFolder where 1=0",CollectConn,3,3
			RsCopyObjectObj.AddNew
			For Each FiledObj In RsCopyObjectObj.Fields
				if LCase(FiledObj.name) <> "id" then
					RsCopyObjectObj(FiledObj.name) = RsCopySourceObj(FiledObj.name)
				end if
			Next
			RsCopyObjectObj.Update
			RsCopySourceObj.MoveNext
		Loop
		Set RsCopySourceObj = Nothing
		Set RsCopyObjectObj = Nothing
	end if
	Set CollectConn = Nothing
	Response.Redirect("Site.asp")
	Response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改新闻</title>
</head>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript" src="../../FS_Inc/PublicJS.js"></script>
<body leftmargin="2" topmargin="2">
<%
if Request("Action") = "Addsite" then
	Call Add()
ElseIf Request("Action") = "Addsitefolder" Then
	Call AddFolder()
ElseIf Request("Action") = "SubFolder" Then