📄 class_add.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="lib/cls_main.asp" -->
<%
Dim Conn,User_Conn
MF_Default_Conn
MF_User_Conn
MF_Session_TF
Dim Fs_news,NS_ClassNameValure,sRootDir,strShowErr,str_newsDir
set Fs_news = new Cls_News
MF_GetUserGroupID
Fs_News.GetSysParam()
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
if Fs_news.newsDir<>"" then str_newsDir = "/"+Fs_news.newsDir else str_newsDir=""
Dim obj_Class_Rs,ClassID,str_ClassKeywords,str_Classdescription,str_currpath
Dim lng_OrderID,str_ClassName,str_ClassEName_add,str_ParentID,str_Templet,str_NewsTemplet,str_Domain,lng_AdminID,int_RefreshNumber
Dim lng_GroupID,lng_PointNumber,flt_Money,str_FileExtName,dtm_Addtime,int_isConstr,int_IsURL,str_UrlAddress,lng_Oldtime,int_isShow
Dim str_ClassNaviContent,str_ClassNaviPic,lng_DefineID,int_NewsCheck,int_AddNewsType,tmp_fileExtName,str_SavePath,str_FileSaveType,int_isConstrDel,str_GetParentID,IsAdPic,AdPicWH,AdPicLink,AdPicAdress
ClassID = NoSqlHack(Trim(Request.QueryString("ClassID")))
Select Case fs_news.fileExtName
Case 0
tmp_fileExtName ="html"
Case 1
tmp_fileExtName ="htm"
Case 2
tmp_fileExtName ="shtml"
Case 3
tmp_fileExtName ="shtm"
Case 4
tmp_fileExtName ="asp"
End Select
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
if Request.QueryString("Action")="add" then
if not Get_SubPop_TF(ClassID,"NS016","NS","class") then Err_Show
str_Templet = Replace("//"&G_TEMPLETS_DIR&"/NewsClass/class.htm","//","/")
str_NewsTemplet = Replace("/"&G_TEMPLETS_DIR&"/NewsClass/news.htm","//","/")
dtm_Addtime = now
lng_AdminID = session("Admin_Name")
lng_OrderID = 10
lng_PointNumber = ""
flt_Money = ""
str_SavePath = Replace(str_newsDir,"//","/")
str_UrlAddress = "http://"
str_FileExtName = tmp_fileExtName
int_isShow = 1
int_RefreshNumber = 0
int_AddNewsType=Fs_news.addNewsType
str_FileSaveType = Fs_news.ClassSaveType
if NoSqlHack(ClassID)<>"" then
str_GetParentID = ClassID
Else
str_GetParentID = "0"
End if
lng_Oldtime = 180
if ClassID<>"" then
Dim obj_IsUrlTF_Rs
Set obj_IsUrlTF_Rs = server.CreateObject(G_FS_RS)
obj_IsUrlTF_Rs.Open "Select IsUrl from FS_NS_NewsClass where ClassID='"& ClassID &"' order by id desc",Conn,1,1
if not obj_IsUrlTF_Rs.eof then
if obj_IsUrlTF_Rs(0) = 1 then
strShowErr = "<li>外部栏目不能添加子类</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
end if
End if
Elseif Request.QueryString("Action")="edit" then
if not Get_SubPop_TF(ClassID,"NS017","NS","class") then Err_Show
Set obj_Class_Rs = server.CreateObject(G_FS_RS)
obj_Class_Rs.open "select ClassID,OrderID,ClassName,ClassEName,ParentID,Templet,NewsTemplet,[Domain],RefreshNumber,ClassAdmin,isPop,FileExtName,Addtime,isConstr,IsURL,UrlAddress,Oldtime,isShow,ClassNaviContent,ClassNaviPic,DefineID,NewsCheck,AddNewsType,SavePath,FileSaveType,isConstrDel,ClassKeywords,Classdescription,IsAdPic,AdPicWH,AdPicLink,AdPicAdress From FS_NS_NewsClass where ClassID = '"& ClassID &"'",Conn,1,3
if not obj_Class_Rs.eof then
if obj_Class_Rs("isPop")=1 then
Dim obj_tmppop_rs
set obj_tmppop_rs = Conn.execute("select GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP where InfoID='"& obj_Class_Rs("ClassID") &"' and isClass=1 and PopType='NS'")
if obj_tmppop_rs.eof then
lng_GroupID = ""
lng_PointNumber=""
flt_Money = ""
obj_tmppop_rs.close:set obj_tmppop_rs = nothing
Else
lng_GroupID = obj_tmppop_rs("GroupName")
if obj_tmppop_rs("PointNumber") = 0 or isnull(trim(obj_tmppop_rs("PointNumber"))) then:lng_PointNumber="" else:lng_PointNumber=obj_tmppop_rs("PointNumber"):end if
if obj_tmppop_rs("FS_Money") = 0 or isnull(trim(obj_tmppop_rs("FS_Money"))) then:flt_Money="" else:flt_Money=obj_tmppop_rs("FS_Money"):end if
obj_tmppop_rs.close:set obj_tmppop_rs = nothing
End if
Else
lng_GroupID = ""
lng_PointNumber=""
flt_Money = ""
End if
lng_OrderID = obj_Class_Rs("OrderID")
str_ClassName = obj_Class_Rs("ClassName")
str_ClassEName_add = obj_Class_Rs("ClassEName")
str_ParentID = obj_Class_Rs("ParentID")
str_GetParentID = obj_Class_Rs("ParentID")
str_Templet = obj_Class_Rs("Templet")
str_NewsTemplet = obj_Class_Rs("NewsTemplet")
str_Domain = obj_Class_Rs("Domain")
lng_AdminID = obj_Class_Rs("ClassAdmin")
int_RefreshNumber = obj_Class_Rs("RefreshNumber")
str_FileExtName = obj_Class_Rs("FileExtName")
dtm_Addtime = obj_Class_Rs("Addtime")
int_isConstr = obj_Class_Rs("isConstr")
int_IsURL = obj_Class_Rs("IsURL")
str_UrlAddress = obj_Class_Rs("UrlAddress")
lng_Oldtime = obj_Class_Rs("Oldtime")
int_isShow = obj_Class_Rs("isShow")
str_ClassNaviContent = obj_Class_Rs("ClassNaviContent")
str_ClassNaviPic = obj_Class_Rs("ClassNaviPic")
lng_DefineID = obj_Class_Rs("DefineID")
int_NewsCheck = obj_Class_Rs("NewsCheck")
int_AddNewsType = obj_Class_Rs("AddNewsType")
str_SavePath = obj_Class_Rs("SavePath")
str_FileSaveType = obj_Class_Rs("FileSaveType")
int_isConstrDel = obj_Class_Rs("isConstrDel")
str_ClassKeywords = obj_Class_Rs("ClassKeywords")
str_Classdescription = obj_Class_Rs("Classdescription")
IsAdPic = obj_Class_Rs("IsAdPic")
AdPicWH = obj_Class_Rs("AdPicWH")
AdPicLink = obj_Class_Rs("AdPicLink")
AdPicAdress = obj_Class_Rs("AdPicAdress")
obj_Class_Rs.close
set obj_Class_Rs = nothing
Else
strShowErr = "<li>错误的参数</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Else
strShowErr = "<li>错误的参数</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
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>栏目管理___Powered by foosun Inc.</title>
<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">
<!--
function insertType() {
if (document.ClassForm.isUrl.checked==true)
OutUrl.style.display=''
else
OutUrl.style.display='none'
if (document.ClassForm.isUrl.checked==true)
InUrl.style.display='none';
else
InUrl.style.display='';
}
//-->
</script>
<script language="JavaScript" src="js/Public.js"></script>
</head>
<body>
<form name="ClassForm" method="post" action="Class_Save.asp">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td class="xingmu">栏目管理<a href="../../help?Lable=NS_Class_add" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr>
<td height="18" class="hback"><div align="left"><a href="Class_Manage.asp">管理首页</a>┆<a href="Class_add.asp?ClassID=&Action=add">添加根栏目</a>┆<a href="Class_Action.asp?Action=one">一级栏目排序</a>┆<a href="Class_Action.asp?Action=n">N级栏目排序</a>┆<a href="Class_Action.asp?Action=reset" onClick="{if(confirm('确认复位所有栏目？\n\n如果选择确定，所有的栏目将设置为一级分类!!')){return true;}return false;}">复位所有栏目</a>┆<a href="Class_Action.asp?Action=unite">栏目合并</a>┆<a href="Class_Action.asp?Action=allmove">栏目转移</a>┆<a href="Class_Action.asp?Action=clearClass" onClick="{if(confirm('确认清空所有栏目里的数据吗？\n\n如果选择确定,所有的栏目的新闻将被放到回收站中!!')){return true;}return false;}">删除所有栏目</a> <a href="../../help?Lable=NS_Class_add_1" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></div></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td colspan="3" class="xingmu">添加栏目</td>
</tr>
<tr>
<td width="23%" height="29" class="hback"><div align="right">栏目类型： </div></td>
<td width="14%" class="hback"><input name="isUrl" type="checkbox" id="isUrl" onClick="insertType()" value="1" <%if int_IsURL = 1 then response.Write("Checked")%>>
外部栏目
<input name="ClassID" type="hidden" id="ClassID" value="<% = ClassID %>">
<input name="ParentID" type="hidden" id="ParentID" value="<% = str_GetParentID %>" readonly>
</td>
<td width="63%" class="hback"><span class="tx">内部栏目具有详细的参数设置。可以添加子栏目和新闻<br>
外部栏目指链接到本系统以外的地址中。当此栏目准备链接到网站中的其他系统时，请使用这种方式。不能在外部栏目中添加新闻，也不能添加子栏目。</span></td>
</tr>
<tr>
<td width="23%" class="hback"><div align="right">栏目中文名称：</div></td>
<td colspan="2" class="hback"><input name="ClassName" type="text" id="ClassName" size="40" maxlength="100" value="<% = str_ClassName%>" onKeyUp="value=value.replace(/[\s]/g,'');" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[\s]/g,''));">
<span class="tx"> *3-100个字符</span></td>
</tr>
<tr>
<td height="22" class="hback"><div align="right">父级栏目ID：</div></td>
<td height="22" colspan="2" class="hback"><%
Dim str_Parentvalue
if Request.QueryString("Action") = "add" then
if Not isnull(Trim(ClassID)) then
str_Parentvalue = Fs_news.GetClassName(ClassID)
Else
str_Parentvalue = "根栏目"
End if
Elseif Request.QueryString("Action") = "edit" then
if str_ParentID = "0" then
str_Parentvalue = "根栏目"
Else
str_Parentvalue = Fs_news.GetClassName(str_ParentID)
End if
End if
%>
<input name="ParentIDs" type="text" id="ParentIDs" value="<% = str_Parentvalue %>" size="40" readonly>
<span class="tx"> *0为根栏目</span></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table" style="<%if int_IsURL = 1 then%>display:<%else%>display:none<%end if%>" id="OutUrl">
<tr >
<td width="23%" height="19" class="hback"><div align="right">外部地址：</div></td>
<td width="78%" height="19" class="hback"><input name="UrlAddress" type="text" id="UrlAddress" size="40" maxlength="250" value="<% = str_UrlAddress%>">
<span class="tx"> *</span> 最大250个字符</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table" id="InUrl" style="<%if int_IsURL = 1 then%>display:none<%else%>display:<%end if%>">
<tr id="InUrl1" style="dispay:">
<td width="23%" class="hback"><div align="right">栏目英文名称：</div></td>
<td width="77%" class="hback"><input name="ClassEName" type="text" id="ClassEName" size="40" maxlength="50" value="<% =str_ClassEName_add%>" <%if Request.QueryString("Action")="edit" then response.Write("Readonly")%>>
<span class="tx"> *<br>
3-50个字符,必须是字母，数字，中划线，下划线,@,.，一旦确认,将不能修改</span></td>
</tr>
<tr id="InUrl2" style="dispay:">
<td class="hback"><div align="right">栏目模板地址：</div></td>
<td class="hback"><input name="Templet" type="text" id="Templet" value="<% = str_Templet %>" size="50" maxlength="250" readonly>
<input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.ClassForm.Templet);document.ClassForm.Templet.focus();">
<span class="tx"> *250个字符</span></td>
</tr>
<tr id="InUrl3" style="dispay:">
<td class="hback"><div align="right">新闻模板地址：</div></td>
<td class="hback"><input name="NewsTemplet" type="text" id="NewsTemplet" value="<% = str_NewsTemplet %>" size="50" maxlength="250" readonly>
<input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.ClassForm.NewsTemplet);document.ClassForm.NewsTemplet.focus();">
<span class="tx"> *250个字符</span></td>
</tr>
<tr id="InUrl4" style="dispay:">
<td class="hback"><div align="right">捆绑域名：</div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -