📄 cls_main.asp
字号:
<%'Copyright (c) 2006 Foosun Inc.
Class Cls_News
Private m_Obj_news_Rs
Private m_sysID,m_Lock,m_IPType,m_IPList,m_OverDueMode,m_DownDir,m_LinkType,m_IsDomain,m_FileNameRule,m_fileDirRule,m_classSaveType,m_fileExtName,m_indexPage,m_newsCheck
Private m_ReycleTF,m_InsideLink
Private m_refreshFile,m_isOpen,m_indexTemplet,m_isPrintPic,m_picClassid,m_fileChar
Private m_isCheck,m_isReviewCheck,m_reviewFiltChar,m_isConstrCheck,m_addNewsType,m_allInfotitle
Private m_RSSTF,m_rssNumber,m_rssdescript,m_RSSPIC,m_rssContentNumber
'调用类的初始值
Private Sub Class_Initialize()
End Sub
'释放初始值
Private Sub Class_Terminate()
End Sub
'得到多少位数的随机函数
Public Function GetRamCode(f_number)
Randomize
Dim f_Randchar,f_Randchararr,f_RandLen,f_Randomizecode,f_iR
f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
f_Randchararr=split(f_Randchar,",")
f_RandLen=f_number '定义密码的长度或者是位数
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
GetRamCode = f_Randomizecode
End Function
'得到子类下载类别分页
Public Function GetChildClassList(f_classid)
End Function
Public Function GetSysParamDir()
GetSysParamDir = ""
End Function
'得到栏目名称,返回值GetClassName
Public Function GetClassName(f_classid)
Dim f_obj_className_rs
if f_classid<>"" then
Set f_obj_className_rs = server.CreateObject(G_FS_RS)
f_obj_className_rs.Open "select ClassID,ClassName,ParentID from FS_DS_Class where ClassID='"& NoSqlHack(f_classid) &"'",Conn,1,1
if not (f_obj_className_rs.eof or f_obj_className_rs.bof) then
GetClassName =f_obj_className_rs("ClassName")
Else
GetClassName ="根栏目"
End if
Else
GetClassName ="根栏目"
End if
set f_obj_className_rs = nothing
End Function
'添加下载的时候，获得栏目中文名称
Public Function GetAdd_ClassName(f_classid)
Dim f_obj_addclassName_rs
Set f_obj_addclassName_rs = server.CreateObject(G_FS_RS)
f_obj_addclassName_rs.Open "select ClassID,ClassName from FS_DS_Class where ClassID='"& NoSqlHack(f_classid) &"'",Conn,1,1
if not (f_obj_addclassName_rs.eof or f_obj_addclassName_rs.bof) then
GetAdd_ClassName =f_obj_addclassName_rs("ClassName")
Else
GetAdd_ClassName =""
End if
set f_obj_addclassName_rs = nothing
End Function
'得到自定义字段
Public Function GetDefineClassId()
Dim f_obj_Define_rs
GetDefineClassId = ""
Set f_obj_Define_rs = server.CreateObject(G_FS_RS)
f_obj_Define_rs.Open "select DefineName,DefineID from FS_MF_DefineTableClass where ParentID=0 Order by DefineID desc",Conn,1,1
if not (f_obj_Define_rs.eof or f_obj_Define_rs.bof) then
Do while Not f_obj_Define_rs.eof
if lng_DefineID = f_obj_Define_rs("DefineID") then
GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" selected>---" & f_obj_Define_rs("DefineName") &"</option>"
Else
GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" >---" & f_obj_Define_rs("DefineName") &"</option>"
End if
f_obj_Define_rs.movenext
Loop
Else
GetDefineClassId = GetDefineClassId & "<option value="""">没有自定义分类</option>"
End if
End Function
Public Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = NoSqlHack(CStr(Request.ServerVariables("HTTP_REFERER")))
sServer_Name = NoSqlHack(CStr(Request.ServerVariables("SERVER_NAME")))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
'得到子类下载栏目
Public Function GetChildNewsList(TypeID,CompatStr)
Dim ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr
Set ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID,IsUrl,isConstr,isShow,[Domain] from FS_DS_Class where ParentID='" & NoSqlHack(TypeID) & "' and ReycleTF=0 order by Orderid desc,id desc" )
TempStr =CompatStr & "<img src=""images/L.gif""></img>"
do while Not ChildNewsRs.Eof
TmpStr = ""
if ChildNewsRs("IsUrl") = 1 then
TmpStr = TmpStr & "<font color=red>外部</font> ┆ "
Else
TmpStr = TmpStr & "系统 ┆ "
End if
if ChildNewsRs("isConstr") = 1 then
TmpStr = TmpStr & "<font color=red>稿</font> ┆ "
Else
TmpStr = TmpStr & "<strike>稿</strike> ┆ "
End if
if ChildNewsRs("isShow") = 1 then
TmpStr = TmpStr & "<font color=red>显示</font> ┆ "
Else
TmpStr = TmpStr & "隐藏 ┆ "
End if
if len(ChildNewsRs("Domain")) >5 then
TmpStr = TmpStr & "<font color=red>域</font> ┆ "
Else
TmpStr = TmpStr & "本 ┆ "
End if
GetChildNewsList = GetChildNewsList & "<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>"&Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"& ChildNewsRs("id")&"</td>" & Chr(13) & Chr(10)
if ChildNewsRs("IsUrl") = 1 then
f_isUrlStr = ""
Else
f_isUrlStr = "["&ChildNewsRs("ClassEName")&"]"
End if
GetChildNewsList = GetChildNewsList & "<td class=""hback""> "& TempStr &"<Img src=""images/-.gif""></img><a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=edit"">" & ChildNewsRs("ClassName") & "</a> <font style=""font-size:11.5px;"">"& f_isUrlStr &"</font></td>" & Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"&ChildNewsRs("OrderID")&"</td>" & Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"& TmpStr &"</td>" & Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center""><a href=""DownClass_review.asp?id="&ChildNewsRs("ClassID")&""" target=""_blank"">预览</a>┆<a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=add"">添加子栏目</a>┆<a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=edit"">修改</a>┆<a href=""Class_Action.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=clear"" onClick=""{if(confirm('确定清空此栏目下信息吗?')){return true;}return false;}"">清空</a>┆<a href=""Class_Action.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=del"" onClick=""{if(confirm('确定删除您所选择的栏目吗？\n\n此栏目下的子类也将被删除!!')){return true;}return false;}"">删除</a><input name=""Cid"" type=""checkbox"" id=""Cid"" value="""& ChildNewsRs("ClassID")&"""></td>" & Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList & "</tr>" & Chr(13) & Chr(10)
GetChildNewsList = GetChildNewsList &GetChildNewsList(ChildNewsRs("ClassID"),TempStr)
ChildNewsRs.MoveNext
loop
ChildNewsRs.Close
Set ChildNewsRs = Nothing
End Function
'获得排序号子类
Public Function GetChildNewsList_order(TypeID,CompatStr)
Dim Order_ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr,lng_GetCount
Set Order_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID from FS_DS_Class where ParentID='" & NoSqlHack(TypeID) & "' and ReycleTF=0 order by Orderid desc,id desc" )
TempStr =CompatStr & "<img src=""images/L.gif""></img>"
do while Not Order_ChildNewsRs.Eof
GetChildNewsList_order = GetChildNewsList_order & "<form name=""ClassForm"" method=""post"" action=""Class_Action.asp""><tr>"&Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback""> "& TempStr &"<Img src=""images/-.gif""></img>" & Order_ChildNewsRs("ClassName") & "</td>" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">"& Order_ChildNewsRs("ID")&"</td>" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<input name=""OrderID"" type=""text"" id=""OrderID"" value="& Order_ChildNewsRs("OrderID") &" size=""4"" maxlength=""3"">" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<input name=""ClassID"" type=""hidden"" id=""ClassID"" value="& Order_ChildNewsRs("ClassID") &">" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<input name=""Action"" type=""hidden"" id=""ClassID"" value=""Order_n"">" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "<input type=""submit"" name=""Submit"" value=""更新权重(排列序号)"">" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "</td>" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order & "</tr></form>" & Chr(13) & Chr(10)
GetChildNewsList_order = GetChildNewsList_order &GetChildNewsList_order(Order_ChildNewsRs("ClassID"),TempStr)
Order_ChildNewsRs.MoveNext
loop
Order_ChildNewsRs.Close
Set Order_ChildNewsRs = Nothing
End Function
'得到子类select列表,多选
Public Function News_ChildNewsList(TypeID,f_CompatStr)
Dim f_ChildNewsRs_1,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
Set f_ChildNewsRs_1 = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_DS_Class where ParentID='" & NoSqlHack(TypeID) & "' and ReycleTF=0 order by Orderid desc,id desc" )
f_TempStr =f_CompatStr & "┄"
do while Not f_ChildNewsRs_1.Eof
News_ChildNewsList = News_ChildNewsList & "<option value="""& f_ChildNewsRs_1("ClassID") &""">"
News_ChildNewsList = News_ChildNewsList & "├" & f_TempStr & f_ChildNewsRs_1("ClassName")
News_ChildNewsList = News_ChildNewsList & "</option>" & Chr(13) & Chr(10)
News_ChildNewsList = News_ChildNewsList &News_ChildNewsList(f_ChildNewsRs_1("ClassID"),f_TempStr)
f_ChildNewsRs_1.MoveNext
loop
f_ChildNewsRs_1.Close
Set f_ChildNewsRs_1 = Nothing
End Function
'得到子类select列表,单ID
Public Function UniteChildNewsList(TypeID,f_CompatStr)
Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
Set f_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_DS_Class where ParentID='" & NoSqlHack(TypeID) & "' and ReycleTF=0 order by Orderid desc,id desc" )
f_TempStr =f_CompatStr & "┄"
do while Not f_ChildNewsRs.Eof
UniteChildNewsList = UniteChildNewsList & "<option value="""& f_ChildNewsRs("ClassID") &","& f_ChildNewsRs("ParentID") &""">"
UniteChildNewsList = UniteChildNewsList & "├" & f_TempStr & f_ChildNewsRs("ClassName")
UniteChildNewsList = UniteChildNewsList & "</option>" & Chr(13) & Chr(10)
UniteChildNewsList = UniteChildNewsList &UniteChildNewsList(f_ChildNewsRs("ClassID"),f_TempStr)
f_ChildNewsRs.MoveNext
loop
f_ChildNewsRs.Close
Set f_ChildNewsRs = Nothing
End Function
'删除子类下载栏目
Public Function DelChildNewsList(TypeID,f_tmp_del_rcy)
Dim del_ChildNewsRs
f_tmp_del_rcy = 0
Set del_ChildNewsRs = Conn.Execute("Select id,ParentID,ClassID from FS_DS_Class where ParentID='" & NoSqlHack(TypeID) & "' order by id desc" )
do while Not del_ChildNewsRs.Eof
if f_tmp_del_rcy =0 then'彻底删除
Conn.Execute("Delete From FS_DS_Class Where ClassID ='"& NoSqlHack(del_ChildNewsRs("ClassID")) &"'")
'删除下载
Conn.execute("Delete From FS_DS_List Where ClassID='"& NoSqlHack(del_ChildNewsRs("ClassID")) &"'")
End if
'获得下级分类列表，并进行删除操作
DelChildNewsList = DelChildNewsList &DelChildNewsList(NoSqlHack(del_ChildNewsRs("ClassID")),f_tmp_del_rcy)
del_ChildNewsRs.MoveNext
loop
del_ChildNewsRs.Close
Set del_ChildNewsRs = Nothing
End Function
'检查英文名称是否合法
Public Function chkinputchar(f_char)
Dim f_name, i, c
f_name = f_char
chkinputchar = True
If Len(f_name) <= 0 Then
chkinputchar = False
Exit Function
End If
For i = 1 To Len(f_name)
c = Mid(f_name, i, 1)
If InStr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@,.0123456789|-_", c) <= 0 Then
chkinputchar = False
Exit Function
End If
Next
End Function
Public Function GetSysParam()
Dim f_Obj_sysparm,SysParmTF
SysParmTF = True
Set f_Obj_sysparm=server.CreateObject(G_FS_RS)
f_Obj_sysparm.Open "select top 1 SysID,Lock,IPType,IPList,OverDueMode,DownDir,LinkType,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName,IndexPage,NewsCheck from FS_DS_SysPara",Conn,1,1
if not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
m_sysID = f_Obj_sysparm("sysID")
m_Lock = f_Obj_sysparm("Lock")
m_IPType= f_Obj_sysparm("IPType")
m_IPList= f_Obj_sysparm("IPList")
m_OverDueMode= f_Obj_sysparm("OverDueMode")
m_IsDomain= f_Obj_sysparm("IsDomain")
m_FileNameRule= f_Obj_sysparm("FileNameRule")
m_fileDirRule= f_Obj_sysparm("FileDirRule")
m_classSaveType= f_Obj_sysparm("ClassSaveType")
m_fileExtName= f_Obj_sysparm("FileExtName")
m_indexPage= f_Obj_sysparm("IndexPage")
m_newsCheck= f_Obj_sysparm("NewsCheck")
m_DownDir = f_Obj_sysparm("DownDir")
m_LinkType = f_Obj_sysparm("LinkType")
SysParmTF = True
Else
SysParmTF = false
End if
End Function
'赋值
Public Property Get sysID() '参数ID
sysID = m_sysID
End Property
Public Property Get Lock() '下载系统站点标题
Lock = m_Lock
End Property
Public Property Get IPType() '站点关键字
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -