📄 cls_refreshjs.asp
字号:
<!--#include file="cls_js.asp"-->
<%
Dim JSCodeStr,i,TempClassObj,AvailableDoMain
Dim CharIndexStr
GetFunctionstr
Dim ListSpaces,ListSpaceStrs,Temp_ii
ListSpaces =0 '左右两条新闻之间的空格字符个数
ListSpaceStrs = ""
for Temp_ii = 0 to ListSpaces
ListSpaceStrs = ListSpaceStrs & " "
next
Function GetAllChildRenClassID(ClassID)
If ClassID = "" Then Exit Function
Dim GetClassIDRs,AllClassID
Set GetClassIDRs = Conn.ExeCute("Select ClassID From FS_NS_NewsClass Where ParentID = '"&ClassID&"' And ReycleTF = 0 Order By OrderID Desc,ID Desc")
If GetClassIDRs.Eof Then
AllClassID = "'" & ClassID & "'"
Else
AllClassID = ""
Do While Not GetClassIDRs.Eof
AllClassID = AllClassID & "," & GetAllChildRenClassID(GetClassIDRs(0))
GetClassIDRs.MoveNext
Loop
AllClassID = "'" & ClassID & "'" & AllClassID
End If
GetAllChildRenClassID = AllClassID
GetClassIDRs.Close
Set GetClassIDRs = Nothing
End Function
Function CreateSysJS(FileName)'栏目JS新闻列表
Dim FS_JsObj , RsSysJsObj,ClassIDStr,NewsNum,MarDirection,BrStr,MarSpeed,NaviPic,RsCreateSql,RsCreateObj,DateTF,RowNum,RowSpace,TitleNum,ShowClassTF
Dim RightDate,ClassID,RsClassObj,PicHeight,MarWidth,OpenMode,MarHeight,PicWidth,ShowTitle,TitleCSS,SavePath,FileNameStr,DateCSS,DateType,LinkCSS,MoreContentStr,MoreContentTF,setHitsValue
Set FS_JsObj=New Cls_Js
Set RsSysJsObj = Conn.Execute("Select * from FS_NS_Sysjs where FileName='"&FileName&"'")
If Not RsSysJsObj.eof then
ClassID = RsSysJsObj("ClassID")
If RsSysJsObj("NaviPic")<>"" then
NaviPic = "<img src=""" & RsSysJsObj("NaviPic") & """ border=""0"">"
Else
NaviPic = ""
End If
setHitsValue = RsSysJsObj("MarSpeed")
if isnull(setHitsValue) then setHitsValue= -1
NewsNum = RsSysJsObj("NewsNum")
RowNum = RsSysJsObj("RowNum")
RowSpace = RsSysJsObj("RowSpace")
TitleNum = RsSysJsObj("TitleNum")
TitleCSS = RsSysJsObj("TitleCSS")
SavePath = RsSysJsObj("FileSavePath")
FileNameStr = RsSysJsObj("FileName")
DateCSS = RsSysJsObj("DateCSS")
DateType = RsSysJsObj("DateType")
MarDirection = RsSysJsObj("MarDirection")
MarSpeed = RsSysJsObj("MarSpeed")
PicWidth = RsSysJsObj("PicWidth")
PicHeight = RsSysJsObj("PicHeight")
MarWidth = RsSysJsObj("MarWidth")
MarHeight = RsSysJsObj("MarHeight")
If RsSysJsObj("OpenMode")=1 then
OpenMode = " target=""_blank"""
Else
OpenMode = " target=""_self"""
End If
If RsSysJsObj("ShowTitle")<>0 then
ShowTitle = True
Else
ShowTitle = false
End If
If RsSysJsObj("MarDirection")="left" or RsSysJsObj("MarDirection")="right" then
BrStr = ""
Else
BrStr = "<br>"
End If
If RsSysJsObj("MoreContent")<>0 then
MoreContentTF = True
MoreContentStr = RsSysJsObj("LinkWord")
LinkCSS = RsSysJsObj("LinkCSS")
Else
MoreContentTF = False
End If
If RsSysJsObj("DateType")<>0 then
DateTF = true
Else
DateTF = false
End If
If RsSysJsObj("ClassName")<>0 then
ShowClassTF = true
Else
ShowClassTF = false
End If
If RsSysJsObj("RightDate")<>0 then
RightDate = true
Else
RightDate = false
End If
ClassIDStr = ClassID
If RsSysJsObj("SonClass")=1 then
ClassIDStr = GetAllChildRenClassID(ClassIDStr)
If Left(ClassIDStr,1) = "'" Then
ClassIDStr = Right(ClassIDStr,Len(ClassIDStr) - 1)
End If
If Right(ClassIDStr,1) = "'" Then
ClassIDStr = left(ClassIDStr,Len(ClassIDStr) - 1)
End If
End If
Select Case RsSysJsObj("NewsType")
Case "RecNews"
if RsSysJsObj("FileType")=1 then
RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isLock=0 and "& CharIndexStr &"(NewsProperty,1,1)='1' order by AddTime desc" '推荐新闻
else
RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 and "& CharIndexStr &"(NewsProperty,1,1)='1' order by AddTime desc" '推荐新闻
end if
Set RsCreateObj = Conn.Execute(RsCreateSql)
If Not RsCreateObj.eof then
JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
for i=1 to NewsNum
If RsCreateObj.eof then Exit For
Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
If DateTF = true then
If ShowClassTF = true then
If RightDate = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a></td><td><div align=Right><Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</div></td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
End If
Else
If RightDate = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a></td><td><div align=Right><Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</div></td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
End If
End IF
Else
If ShowClassTF = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> "&ListSpaceStrs&"</td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> "&ListSpaceStrs&"</td>"
End If
End If
RsCreateObj.MoveNext
if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
if RightDate = true then
JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background=""" & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
else
JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background=""" & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
end if
end if
next
If RsSysJsObj("FileType")=1 then
Dim RsTempClassObjs
Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
If RsTempClassObjs.eof then
CreateSysJS = "刷新栏目已经不存在."
Exit Function
End If
End If
If RightDate = true then
if RsSysJsObj("FileType")=1 and MoreContentTF=True then
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
else
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
end if
Else
if RsSysJsObj("FileType")=1 and MoreContentTF=True then
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
else
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
end if
End If
JSCodeStr = JSCodeStr & "</table>');"
WriteFile SavePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = true
RsCreateObj.Close
Set RsCreateObj = Nothing
Else
JSCodeStr = "document.write('未查询到符合条件的新闻')"
WriteFile SavePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = "文件操作成功.但未找到符合条件的新闻。"
End If
Case "MarqueeNews"
if RsSysJsObj("FileType")=1 then
RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and "& CharIndexStr &"(NewsProperty,3,1)='1' and isLock=0 order by AddTime desc" '滚动新闻
else
RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and "& CharIndexStr &"(NewsProperty,3,1)='1' and isLock=0 order by AddTime desc" '滚动新闻
end If
Response.write RsCreateSql
Set RsCreateObj = Conn.Execute(RsCreateSql)
If Not RsCreateObj.eof then
JSCodeStr = "document.write('<marquee onmouseout=start() onmouseover=stop() Width="&MarWidth&" Height="&MarHeight&" scrolldelay=80 direction="&MarDirection&" scrollamount="& CInt(MarSpeed) &">"
for i=1 to NewsNum
If RsCreateObj.eof then Exit For
Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
If DateTF = true then
If ShowClassTF = true then
JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
End IF
Else
If ShowClassTF = true then
JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
End If
End If
RsCreateObj.MoveNext
next
If RsSysJsObj("FileType")=1 then
Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
If RsTempClassObjs.eof then
CreateSysJS = "刷新栏目已经不存在."
Exit Function
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -