classadd.asp

asp源码 图片ASP整站

<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.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/Function.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：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:[e-mail]
'MSN：[e-mail]
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
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=""
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"" & Request("ParentID") & "") then Call ReturnError1()
if Not JudgePopedomTF(Session("Name"),"P010100") then Call ReturnError1()
Dim ParentID,Result,ClassID,ParentCName,RsParentObj,SaveFilePath,DoMain,SelectPathBtnDisabledStr,TempParentID,SelectPath
Dim CheckRootClassNumber  '检查根栏目次数，防止死循环
Dim HaveValueTF
if CInt(GetConfig(20)) = 1 then
	HaveValueTF = True
Else
	HaveValueTF = False
End if
Result = Request("Result")
Dim Add_ClassCache
if Result = "InClass" then
	Dim CClass,ReturnCheckInfo,ReturnValueArray
	Set CClass = New InfoClass
	CClass.TForm = Request.Form
	ReturnCheckInfo = CClass.AddAndModifyClass()
	ReturnValueArray = Split(ReturnCheckInfo,"||")
	if ReturnValueArray(0) = "Success" Then
		Set Add_ClassCache = New Cls_FsCache
		Add_ClassCache.Name="ClassCache"
		Add_ClassCache.ReLoadCache("1")
		Set Add_ClassCache=Nothing
		%>
		<script>
			top.GetNavFoldersObject().location='../Menu_Folders.asp?Action=ContentTree&OpenClassIDList=<% = ReturnValueArray(1) %>';	
		</script>
		<%
	else
		%>
		<script>alert('<% = ReturnCheckInfo %>');history.back();</script>
		<%
	end if
ElseIf Result="OutClass" then
	Dim RsAddClass,StrClassID
	Err.Clear
	'on error resume next
	Set RsAddClass=Server.CreateObject(G_FS_RS)
	RsAddClass.open "Select * from FS_NewsClass where 1=2",Conn,3,3
	RsAddClass.addNew
	StrClassID=GetRandomID18()
	RsAddClass("ClassID") = StrClassID
	RsAddClass("ClassCName")=NoCSSHackAdmin(request.Form("ClassName"),"栏目名称")
	RsAddClass("ClassLink")=NoCSSHackAdmin(Request.Form("ClassLink"),"连接地址")
	RsAddClass("ClassEName")="OutClass"&StrClassID
	RsAddClass("ParentID")=0
	RsAddClass("ChildNum")=0
	RsAddClass("ClassTemp")="ClassTemplet"
	RsAddClass("Contribution")=0
	RsAddClass("DelFlag")=0
	RsAddClass("FileTime")=100
	RsAddClass("BrowPop") = 0
	RsAddClass("RedirectList") = Cint(Request("RedirectList"))
	if Request.Form("Orders") <> "" then
		if IsNumeric(Request.Form("Orders")) then RsAddClass("Orders") = Request.Form("Orders")
	end if
	if Request.Form("ShowTF") = "1" then
		RsAddClass("ShowTF") = 1
	else
		RsAddClass("ShowTF") = 0
	end if
	RsAddClass("AddTime") = Now
	RsAddClass("IsOutClass")=1
	RsAddClass.UpDate
	RsAddClass.Close
	Set RsAddClass=Nothing
	If Err.Number=0 then 
		Set Add_ClassCache = New Cls_FsCache
		Add_ClassCache.Name="ClassCache"
		Add_ClassCache.ReLoadCache("")
		Set Add_ClassCache=Nothing
		%>
		<script>
			top.GetNavFoldersObject().location='../Menu_Folders.asp?Action=ContentTree&OpenClassIDList=<% = StrClassID %>';		
		</script>
		<%
	else
		%>
		<script>alert('<% = err.description %>');history.back();</script>
		<%
	end if
end if

CheckRootClassNumber = 30
SelectPathBtnDisabledStr = ""
ClassID = Request("ClassID")
ParentID = Request("ParentID")
SaveFilePath = Request("SaveFilePath")
if ParentID = "" Or ParentID = "0" then
	ParentID = "0"
	ParentCName = "系统根栏目"
	SelectPath = "/" & RemoveVirtualPath(ClassDir)
else
	Set RsParentObj = Conn.Execute("Select ClassCName,ParentID,DoMain,SaveFilePath from FS_NewsClass where ClassID='" & ParentID & "'")
	if RsParentObj.Eof then
		Set RsParentObj = Nothing
		Set Conn = Nothing
		Alert "父栏目不存在，请重新加载"
		Response.End
	else
		Dim CheckRootClassIndex
		CheckRootClassIndex = 1
		ParentCName = RsParentObj("ClassCName")
		TempParentID = RsParentObj("ParentID")
		do while Not (TempParentID = "0")
			CheckRootClassIndex = CheckRootClassIndex + 1
			RsParentObj.Close
			Set RsParentObj = Nothing
			Set RsParentObj = Conn.Execute("Select ClassCName,ParentID,Domain,SaveFilePath from FS_NewsClass where ClassID='" & TempParentID & "'")
			if RsParentObj.Eof then
				Set RsParentObj = Nothing
				Alert "根栏目不存在"
				Response.End
			end if
			TempParentID = RsParentObj("ParentID")
			if CheckRootClassIndex > CheckRootClassNumber then TempParentID = "0" '防止死循环
		Loop
		DoMain = RsParentObj("DoMain")
		if (Not IsNull(DoMain)) And (DoMain <> "") then
			SelectPath = RsParentObj("SaveFilePath")
			SelectPathBtnDisabledStr = " disabled"
		else
			SelectPath = "/" & RemoveVirtualPath(ClassDir)
		end if
	end if
	Set RsParentObj = Nothing
end if
Dim DoMainDisabledStr
if ParentID <> "0" then
	DoMainDisabledStr = " disabled"
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 id="TempShowMenu" style="display=''">
<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="OK();" 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="InClass"> 
              <input name="ClassID" value="<% = ClassID %>" type="hidden" id="ClassID"> 
              <input name="ParentID" value="<% = ParentID %>" type="hidden" id="ParentID"></td>
        </tr>
      </table>
	  </td>
  </tr>
</table>
</div>
<div id="InClass" style="display:none;">
<form action="" method="post" name="InClassForm">
<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="InClass"> 
              <input name="ClassID" value="<% = ClassID %>" type="hidden" id="ClassID"> 
              <input name="ParentID" value="<% = ParentID %>" type="hidden" id="ParentID"></td>
        </tr>
      </table>
	  </td>
  </tr>
</table>

    <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
      <tr bgcolor="#FFFFFF"> 
        <td width="100" height="26"> <div align="center">中文名称</div></td>
        <td> <div align="center"> 
            <input value="<% = Request("ClassCName") %>" name="ClassCName" type="text" id="ClassCName" style="width:100%;">
          </div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> <div align="center">英文名称</div></td>