📄 cls_main.asp
字号:
<%'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie
Class Cls_News
Private m_Obj_news_Rs
Private m_sysID,m_siteName,m_keyWords,m_newsDir,m_isDomain,m_fileNameRule
Private m_ReycleTF,m_fileDirRule,m_classSaveType,m_fileExtName,m_indexPage,m_newsCheck
Private m_refreshFile,m_isOpen,m_indexTemplet,m_isPrintPic,m_picClassid,m_linkType,m_fileChar
Private m_isCheck,m_isReviewCheck,m_reviewFiltChar,m_isConstrCheck,m_addNewsType,m_allInfotitle
Private m_markType,m_markText,m_markFontSize,m_markFontColor,m_markFontName,m_markFontBond,m_markPicture,m_markOpacity,m_markWidth,m_markHeight,m_markTranspColor,m_markPosition
Private m_thumbnailComponent,m_rateTF,m_thumbnailWidth,m_thumbnailHeight,m_thumbnailRate
'调用类的初始值
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()
Dim f_Obj_sysparm,SysParmTF
Set f_Obj_sysparm = server.CreateObject(G_FS_RS)
f_Obj_sysparm.Open "select top 1 NewsDir from FS_NS_SysParam",Conn,1,1
if not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
GetSysParamDir = "/"& f_Obj_sysparm("NewsDir")
Else
GetSysParamDir = ""
End if
if isNull(Trim(f_Obj_sysparm("NewsDir"))) then
GetSysParamDir = GetSysParamDir
Else
GetSysParamDir = GetSysParamDir & "/"
End if
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_NS_NewsClass where ClassID='"& 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_NS_NewsClass where ClassID='"& 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_NS_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 = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = 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_NS_NewsClass 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 & " | "
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>"&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:9px;"">"& 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=""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"">清空</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_NS_NewsClass where ParentID='" & 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_NS_NewsClass 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_NS_NewsClass 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
Set del_ChildNewsRs = Conn.Execute("Select id,ParentID,ClassID from FS_NS_NewsClass 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_NS_NewsClass Where ClassID ='"& del_ChildNewsRs("ClassID") &"'")
'删除新闻
Conn.execute("Delete From FS_NS_News Where ClassID='"& del_ChildNewsRs("ClassID") &"'")
Else'删除到回收站
Conn.Execute("Update FS_NS_NewsClass set ReycleTF=1 Where ClassID ='"& del_ChildNewsRs("ClassID") &"'")
'删除新闻
Conn.execute("Update From FS_NS_News set isRecyle=1 Where ClassID='"& del_ChildNewsRs("ClassID") &"'")
End if
'获得下级分类列表，并进行删除操作
DelChildNewsList = DelChildNewsList &DelChildNewsList(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,SiteName,Keywords,NewsDir,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName,IndexPage,NewsCheck,RefreshFile,isOpen,IndexTemplet,isPrintPic,PicClassid,LinkType,FileChar,isCheck,isReviewCheck,ReviewFiltChar,isConstrCheck,addNewsType,AllInfotitle,MarkType,MarkText,MarkFontSize,MarkFontSize,MarkFontColor,MarkFontName,MarkFontBond,MarkPicture,MarkOpacity,MarkWidth,MarkHeight,MarkTranspColor,MarkPosition,ReycleTF,ThumbnailComponent,RateTF,ThumbnailWidth,ThumbnailHeight,ThumbnailRate from FS_NS_SysParam",Conn,1,1
if not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
m_sysID = f_Obj_sysparm("sysID")
m_siteName = f_Obj_sysparm("siteName")
m_keywords= f_Obj_sysparm("Keywords")
m_newsDir= f_Obj_sysparm("NewsDir")
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_refreshFile= f_Obj_sysparm("RefreshFile")
m_isOpen= f_Obj_sysparm("isOpen")
m_indexTemplet= f_Obj_sysparm("IndexTemplet")
m_isPrintPic= f_Obj_sysparm("isPrintPic")
m_picClassid= f_Obj_sysparm("PicClassid")
m_linkType= f_Obj_sysparm("LinkType")
m_fileChar= f_Obj_sysparm("FileChar")
m_isCheck= f_Obj_sysparm("isCheck")
m_isReviewCheck= f_Obj_sysparm("isReviewCheck")
m_reviewFiltChar= f_Obj_sysparm("ReviewFiltChar")
m_isConstrCheck= f_Obj_sysparm("isConstrCheck")
m_addNewsType= f_Obj_sysparm("addNewsType")
m_allInfotitle= f_Obj_sysparm("AllInfotitle")
m_markType=f_Obj_sysparm("MarkType")
m_markText=f_Obj_sysparm("MarkText")
m_markFontSize=f_Obj_sysparm("MarkFontSize")
m_markFontColor=f_Obj_sysparm("MarkFontColor")
m_markFontName=f_Obj_sysparm("MarkFontName")
m_markFontBond=f_Obj_sysparm("MarkFontBond")
m_markPicture=f_Obj_sysparm("MarkPicture")
m_markOpacity=f_Obj_sysparm("MarkOpacity")
m_markTranspColor=f_Obj_sysparm("MarkTranspColor")
m_markWidth=f_Obj_sysparm("MarkWidth")
m_markHeight=f_Obj_sysparm("MarkHeight")
m_markPosition=f_Obj_sysparm("MarkPosition")
m_reycleTF=f_Obj_sysparm("ReycleTF")
m_thumbnailComponent=f_Obj_sysparm("thumbnailComponent")
m_rateTF=f_Obj_sysparm("rateTF")
m_thumbnailWidth=f_Obj_sysparm("thumbnailWidth")
m_thumbnailHeight=f_Obj_sysparm("thumbnailHeight")
m_thumbnailRate=f_Obj_sysparm("thumbnailRate")
SysParmTF = True
Else
SysParmTF = false
End if
End Function
'赋值
Public Property Get sysID() '参数ID
sysID = m_sysID
End Property
Public Property Get siteName() '新闻系统站点标题
siteName = m_siteName
End Property
Public Property Get keyWords() '站点关键字
keyWords = m_keyWords
End Property
Public Property Get newsDir() '新闻系统前台目录
newsDir = m_newsDir
End Property
Public Property Get isDomain() '是否启用供求系统二级域名
isDomain = m_isDomain
End Property
Public Property Get fileNameRule() '新闻文件静态文件生成规则
fileNameRule = m_fileNameRule
End Property
Public Property Get fileDirRule() '静态文件生成目录
fileDirRule = m_fileDirRule
End Property
Public Property Get classSaveType() '新闻栏目目录生成首页格式
classSaveType = m_classSaveType
End Property
Public Property Get fileExtName() '生成静态文件扩展名
fileExtName = m_fileExtName
End Property
Public Property Get indexPage() '首页文件名及扩展名
indexPage = m_indexPage
End Property
Public Property Get newsCheck() '发布的新闻是否需要审核
newsCheck = m_newsCheck
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -