📄 cls_refreshjs.asp
字号:
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim JSCodeStr,i,TempClassObj,AvailableDoMain
Dim ListSpaces,ListSpaceStrs,Temp_ii
ListSpaces = 3 '左右两条新闻之间的空格字符个数
ListSpaceStrs = ""
for Temp_ii = 1 to ListSpaces
ListSpaceStrs = ListSpaceStrs & " "
next
Dim TempJSSysRootDir
if SysRootDir = "" then
TempJSSysRootDir = ""
else
TempJSSysRootDir = "/" & SysRootDir
end if
AvailableDoMain = GetConfig(0)
Function CreateSysJS(FileName)'栏目JS新闻列表
Dim 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,SaveFilePath,FileNameStr,DateCSS,DateType,LinkCSS,MoreContentStr,MoreContentTF
Set RsSysJsObj = Conn.Execute("Select * from FS_SysJs where FileName='"&FileName&"'")
If Not RsSysJsObj.eof then
ClassID = RsSysJsObj("ClassID")
If RsSysJsObj("NaviPic")<>"" then
NaviPic = "<img src=""" & AvailableDoMain & RsSysJsObj("NaviPic") & """ border=""0"">"
Else
NaviPic = ""
End If
NewsNum = RsSysJsObj("NewsNum")
RowNum = RsSysJsObj("RowNum")
RowSpace = RsSysJsObj("RowSpace")
TitleNum = RsSysJsObj("TitleNum")
TitleCSS = RsSysJsObj("TitleCSS")
SaveFilePath = 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
Set RsClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID='"&ClassID&"' and DelFlag=0 order by ID desc")
If Not RsClassObj.eof then
Do While not RsClassObj.eof
ClassIDStr = ClassIDStr &"','"& RsClassObj("ClassID")
RsClassObj.MoveNext
Loop
RsClassObj.Close
Set RsClassObj = Nothing
End If
End If
Select Case RsSysJsObj("NewsType")
Case "RecNews"
if RsSysJsObj("FileType")=1 then
RsCreateSql = "Select top "&NewsNum&" * From FS_News where ClassID in ('"&ClassIDStr&"') and DelTF=0 and RecTF=1 and AuditTF=1 order by AddDate desc" '推荐新闻
else
RsCreateSql = "Select top "&NewsNum&" * From FS_News where DelTF=0 and RecTF=1 and AuditTF=1 order by AddDate 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,ClassCName,SaveFilePath from FS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
If DateTF = true then
If ShowClassTF = true then
If RightDate = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a></td><td><div align=Right><Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</div></td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
End If
Else
If RightDate = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a></td><td><div align=Right><Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</div></td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
End If
End IF
Else
If ShowClassTF = true then
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> "&ListSpaceStrs&"</td>"
Else
JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),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=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
else
JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
end if
end if
next
If RsSysJsObj("FileType")=1 then
Dim RsTempClassObjs
Set RsTempClassObjs = Conn.Execute("Select SaveFilePath,ClassEName,FileExtName from FS_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("SaveFilePath"),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("SaveFilePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
else
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -