📄 classedit.asp

📁 asp源码图片ASP整站
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<!--#include file="../Inc/Cls_Info.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn,UserConn,sRootDir
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
if SysRootDir<>"" then sRootDir="/"+SysRootDir else sRootDir=""
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421 
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),""&Request("ClassID")&"") then Call ReturnError1()
if Not JudgePopedomTF(Session("Name"),"P010200") then Call ReturnError1()
Dim ClassID,Sql,RsClassEditObj,ClassEName,ClassCName,ClassTemp,Contribution,AddTime,ParentID,ParentIDStr,HaveContTF,BrowPop,IsOutClass
Dim SaveFilePath,FileExtName,ShowTF,NewsTemp,DownLoadTemp,ProductTemp,DoMain,DoMainDisabledStr,SelectPathBtnDisabledStr,TempParentID,FileTime,Orders,RedirectList
Dim CheckRootClassNumber  '检查根栏目次数，防止死循环
Dim StrInClass,StrOutClass,StrClassLink
CheckRootClassNumber = 30
SelectPathBtnDisabledStr = ""
ClassID = Request("ClassID")
Dim HaveValueTF
if CInt(GetConfig(20)) = 1 then
	HaveValueTF = True
Else
	HaveValueTF = False
End if
Dim ClassCache
if ClassID <> "" then
	Sql = "Select * from FS_NewsClass where ClassID='" & ClassID & "' and DelFlag=0"
	Set RsClassEditObj = Conn.Execute(Sql)
	if RsClassEditObj.Eof then
		Set RsClassEditObj = Nothing
		Set Conn = Nothing
		Alert "栏目已经被删除"
	else
		Dim RsTempObj,SelectPath
		ClassEName = RsClassEditObj("ClassEName")
		ClassCName = RsClassEditObj("ClassCName")
		ClassTemp = RsClassEditObj("ClassTemp")
		NewsTemp = RsClassEditObj("NewsTemp")
		DownLoadTemp = RsClassEditObj("DownLoadTemp")
		ProductTemp =RsClassEditObj("ProductTemp")
		Contribution = RsClassEditObj("Contribution")
		ShowTF = RsClassEditObj("ShowTF")
		AddTime = RsClassEditObj("AddTime")
		ParentID = RsClassEditObj("ParentID")
		SaveFilePath = RsClassEditObj("SaveFilePath")
		FileExtName = RsClassEditObj("FileExtName")
		BrowPop = RsClassEditObj("BrowPop")
		DoMain = RsClassEditObj("DoMain")
		FileTime = RsClassEditObj("FileTime")
		Orders = RsClassEditObj("Orders")
		IsOutClass=RsClassEditObj("IsOutClass")
		StrClassLink=RsClassEditObj("ClassLink")
		RedirectList = RsClassEditObj("RedirectList")
		If IsOutClass="1" then 
			StrInClass="style=""display:none;"""
		Else
			StrOutClass="style=""display:none;"""
		End If
		if ParentID <> "0" then
			Set RsTempObj = Conn.Execute("Select ClassCName,ParentID,DoMain,DelFlag,SaveFilePath,RedirectList from FS_NewsClass where ClassID='" & ParentID & "'")
			if RsTempObj.Eof then
				Set RsTempObj = Nothing
				Set RsClassEditObj = Nothing
				Alert "父栏目不存在"
				Response.End
			else
				if RsTempObj("DelFlag") = 1 then
					Set RsTempObj = Nothing
					Set RsClassEditObj = Nothing
					Alert "父栏目在回收站"
					Response.End
				else
					Dim CheckRootClassIndex
					CheckRootClassIndex = 1
					ParentIDStr = RsTempObj("ClassCName")
					TempParentID = RsTempObj("ParentID")
					do while Not (RsTempObj("ParentID") = "0")
						CheckRootClassIndex = CheckRootClassIndex + 1
						RsTempObj.Close
						Set RsTempObj = Nothing
						Set RsTempObj = Conn.Execute("Select ClassCName,ParentID,Domain,SaveFilePath,RedirectList from FS_NewsClass where ClassID='" & TempParentID & "'")
						if RsTempObj.Eof then
							Set RsTempObj = Nothing
							Set RsClassEditObj = Nothing
							Alert "根栏目不存在"
							Response.End
						end if
						TempParentID = RsTempObj("ParentID")
						if CheckRootClassIndex > CheckRootClassNumber then TempParentID = "0" '防止死循环
					Loop
					DoMain = RsTempObj("DoMain")
					if (Not IsNull(DoMain)) And (DoMain <> "") then
						SelectPath = RsTempObj("SaveFilePath")
						SelectPathBtnDisabledStr = " disabled"
					else
						SelectPath =sRootDir & "/" & ClassDir
					end if
				end if
			end if
			Set RsTempObj = Nothing
		else
			ParentIDStr = "根栏目"
			SelectPath =sRootDir & "/" & ClassDir
		end if
		if Contribution = 1 then
			Set RsTempObj = UserConn.Execute("Select ContID from FS_Contribution where ClassID='" & ClassID & "'")
			if Not RsTempobj.Eof then
				HaveContTF = True
			else
				HaveContTF = False
			end if
			Set RsTempObj = Nothing
		else
			HaveContTF = False
		end if
	end if
else
	Alert "参数传递错误"
end if
if ParentID <> "0" then
	DoMainDisabledStr = " disabled"
end if

Dim Result
Result = Request.Form("Result")
if Result = "Submit" then
	Dim CClass,ReturnCheckInfo,ReturnValueArray
	Set CClass = New InfoClass
	CClass.TForm = Request.Form
	ReturnCheckInfo = CClass.AddAndModifyClass()
	Set CClass = Nothing
	ReturnValueArray = Split(ReturnCheckInfo,"||")
	if ReturnValueArray(0) = "Success" Then
		Set ClassCache = New Cls_FsCache
		ClassCache.Name="ClassCache"
		ClassCache.ReLoadCache("1")
		Set ClassCache=Nothing
		%>
		<script>
			top.GetNavFoldersObject().location='../Menu_Folders.asp?Action=ContentTree&OpenClassIDList=<% = ReturnValueArray(1) %>';		
		</script>
		<%
	else
		%>
			<script>alert('<% = ReturnCheckInfo %>');history.back();</script>
		<%
	end if
	response.end
ElseIf Result="OutClass" then
	Dim RsEditClass
	Err.Clear
	Set RsEditClass=Server.CreateObject(G_FS_RS)
	RsEditClass.open "Select ClassCName,ClassLink,ShowTf,Orders,ParentID from FS_NewsClass where ClassID='"&ClassID &"'",Conn,3,3
	if Request.Form("OutOrders") <> "" then
		if IsNumeric(Request.Form("OutOrders")) then RsEditClass("Orders") = Request.Form("OutOrders")
	end if
	if Request.Form("ShowTF") = "1" then
		RsEditClass("ShowTF") = 1
	else
		RsEditClass("ShowTF") = 0
	end If
	RsEditClass("ClassCName")=NoCSSHackAdmin(request.Form("ClassName"),"栏目名称")
	RsEditClass("ClassLink")=NoCSSHackAdmin(Request.Form("ClassLink"),"连接地址")
	RsEditClass("ParentID")=0
	RsEditClass.UpDate
	RsEditClass.Close
	Set RsEditClass=Nothing
	If Err.Number=0 Then
		Set ClassCache = New Cls_FsCache
		ClassCache.Name="ClassCache"
		ClassCache.ReLoadCache("")
		Set ClassCache=Nothing
		%>
		<script>
			top.GetNavFoldersObject().location='../Menu_Folders.asp?Action=ContentTree&OpenClassIDList=<% = ClassID %>';		
		</script>
		<%
	else
		%>
		<script>alert('<% = err.description %>');history.back();</script>
		<%
	end if
	response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>栏目修改</title>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script language="JavaScript" src="../../SysJS/PublicJS.js"></script>
<body scroll=no topmargin="2" leftmargin="2">
<div <%=StrInClass%>>
<form action="" method="post" name="ClassForm">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#EEEEEE"> 
    <td height="26" colspan="5" valign="middle">
      <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
              <td width="35" align="center" alt="保存" onClick="InOK();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
			  <td width=2 class="Gray">|</td>
			  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
            <td>&nbsp; <input name="Result" type="hidden" id="Result" value="Submit"> 
              <input name="ClassID" value="<% = ClassID %>" type="hidden" id="ClassID2"> 
              <input name="ParentID" value="<% = ParentID %>" type="hidden" id="ParentID2"></td>
        </tr>
      </table>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -