<% 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
%>
