📄 refreshfunction.asp
字号:
TitleNumberStr = 10
End If
if Fun_Refresh_Type = "Class" then
Dim ClassSql,RsClassObj,AllChildClassID,i
AllChildClassID = ChildClassIDList(Fun_Refresh_ID)
if AllChildClassID <> "" then
if Left(AllChildClassID,1) = "," then AllChildClassID = Right(AllChildClassID,Len(AllChildClassID)-1)
else
ChildClassList = ""
Exit Function
end if
if ClassBGPicStr <> "" then
ClassBGPicStr = "<tr>" & Chr(13) & Chr(10) & "<td Height=1 colspan=""" & ClassRowNumberStr & """>" & Chr(13) & Chr(10) & "<table width=""100%"" cellpadding=""0"" cellspacing=""0"">" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 background=""" & ClassBGPicStr & """>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10) & "</table>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>"
end if
ClassSql = "Select Top " & ClassNumberStr & " * from FS_NewsClass where ClassID in (" & AllChildClassID & ") and DelFlag=0 order by orders desc"
Set RsClassObj = Conn.Execute(ClassSql)
if Not RsClassObj.Eof then
ChildClassList = "<table cellpadding=""2"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
do while Not RsClassObj.Eof
TempSetNewsRowHeightStr = NewsRowHeightStr
TempSetNewsRowHeightStr = NewsRowHeightStr
TempSetNewsNumberStr = NewsNumberStr
TempSetTitleNumberStr = TitleNumberStr
TempSetCompatPicStr = CompatPicStr
TempSetNaviPicStr = NaviPicStr
TempSetDateRuleStr = DateRuleStr
TempSetDateRightStr = DateRightStr
TempSetNewsRowNumberStr = NewsRowNumberStr
TempSetMoreLinkTypeStr = MoreLinkTypeStr
TempSetMoreLinkContentStr = MoreLinkContentStr
TempSetCSSStyleStr = CSSStyleStr
TempSetOpenTypeStr = OpenTypeStr
TempSetDateCSSStyleStr = DateCSSStyleStr
TempSetTxtNaviStr = TxtNaviStr
TempClassCSSSTyle = ClassCSSSTyle
ChildClassList = ChildClassList & "<tr>" & Chr(13) & Chr(10)
For i = 1 to ClassRowNumberStr
ChildClassList = ChildClassList & "<td valign=""top"">" & GetOneClassNewsList(RsClassObj,TempSetNewsNumberStr,TempSetTitleNumberStr,TempSetCompatPicStr,TempSetNaviPicStr,TempSetDateRuleStr,TempSetDateRightStr,TempSetNewsRowHeightStr,TempSetNewsRowNumberStr,TempSetMoreLinkTypeStr,TempSetMoreLinkContentStr,TempSetCSSStyleStr,TempSetOpenTypeStr,TempSetDateCSSStyleStr,TempSetTxtNaviStr,TempClassCSSSTyle) & "</td>"
RsClassObj.MoveNext
if RsClassObj.Eof then
Exit For
end if
Next
ChildClassList = ChildClassList & "</tr>" & Chr(13) & Chr(10)
ChildClassList = ChildClassList & ClassBGPicStr & Chr(13) & Chr(10)
Loop
ChildClassList = ChildClassList & "</table>" & Chr(13) & Chr(10)
else
ChildClassList = ""
end if
else
ChildClassList = ""
end if
End Function
'得到一个栏目的新闻列表
Function GetOneClassNewsList(AlreadyClassObj,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr_R,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr,ClassCSSSTyle)
Dim RsNewsObj,NewsSql,i,ClassSaveFilePath
Dim TempDateShowStr,MoreLinkContentStr
if Not AlreadyClassObj.Eof then
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NewsSql = "Select top " & NewsListNumberStr & " NewsID,Title,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName,TitleStyle from FS_News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0 order by id desc"
GetOneClassNewsList = "<table class=""fs_main"" cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" and instr(1,RowHeightStr,"Height")=0 then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
if DateRuleStr <> "" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td Class=""fs_main_title"" colspan=""2"" align=""left""><a " & OpenTypeStr & GetCSSStyleStr(ClassCSSStyle) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""center""><a " & OpenTypeStr & GetCSSStyleStr(ClassCSSStyle) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
end if
Set RsNewsObj = Conn.Execute(NewsSql)
if Not RsNewsObj.Eof then
do while Not RsNewsObj.Eof
GetOneClassNewsList = GetOneClassNewsList & "<tr>" & Chr(13) & Chr(10)
Dim OneWeekNewPic
for i = 1 to RowNumberStr
if DateDiff("d",RsNewsObj("AddDate"),Now())<1 Then
OneWeekNewPic = "<img src='/images/New.gif' border=0>"
else
OneWeekNewPic = ""
end if
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>" & "</td>" & Chr(13) & Chr(10)
else
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>"
end if
else
TempDateShowStr = ""
end if
if DateRightStr = "Center" OR DateRightStr = "Right" then
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>"&OneWeekNewPic&"</td>" & TempDateShowStr & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>"&OneWeekNewPic & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
RsNewsObj.MoveNext
if RsNewsObj.Eof then
Exit For
end if
Next
GetOneClassNewsList = GetOneClassNewsList & "</tr>" & Chr(13) & Chr(10) & CompatPicStr & Chr(13) & Chr(10)
Loop
if MoreLinkContentStr_R <> "" then
if AlreadyClassObj("SaveFilePath") = "/" then
ClassSaveFilePath = AlreadyClassObj("SaveFilePath")
else
ClassSaveFilePath = AlreadyClassObj("SaveFilePath") & "/"
end if
if MoreLinkTypeStr = "1" then
MoreLinkContentStr="<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr_R & """></a>"
elseif MoreLinkTypeStr = "0" then
MoreLinkContentStr = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & MoreLinkContentStr_R & "</a>"
else
MoreLinkContentStr = ""
end if
if DateRuleStr <> "" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & GetRowSpanNumber(DateRightStr,DateRightStr,RowNumberStr) & " align=""right"">" & MoreLinkContentStr & "</td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""right"" " & GetRowSpanNumber(DateRightStr,DateRightStr,RowNumberStr) & ">" & MoreLinkContentStr & "</td></tr>" & Chr(13) & Chr(10)
end if
end if
GetOneClassNewsList = GetOneClassNewsList & "</table>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = ""
end if
Set RsNewsObj = Nothing
else
GetOneClassNewsList = ""
end if
End Function
'调用专题新闻列表
Function SpecialNewsList(SpecialID,NewsNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
Dim SpecialSql,RsSpecialObj,i,RsTempObj,ClassSaveFilePath
Dim TempRowNumberStr,TempDateShowStr
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
TempRowNumberStr = GetRowSpanNumber(DateRuleStr,DateRightStr,RowNumberStr)
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
SpecialSql = "Select * from FS_Special where EName ='" & SpecialID & "'"
Set RsTempObj = Conn.Execute(SpecialSql)
if Not RsTempObj.Eof then
if RsTempObj("SaveFilePath") = "/" then
ClassSaveFilePath = RsTempObj("SaveFilePath")
else
ClassSaveFilePath = RsTempObj("SaveFilePath") & "/"
end if
if MoreLinkContentStr <> "" then
if MoreLinkTypeStr = "1" then
MoreLinkContentStr="<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & ClassSaveFilePath & RsTempObj("EName") & "/index." & RsTempObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr & """></a>"
elseif MoreLinkTypeStr = "0" then
MoreLinkContentStr = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & ClassSaveFilePath & RsTempObj("EName") & "/index." & RsTempObj("FileExtName") & """ >" & MoreLinkContentStr & "</a>"
else
MoreLinkContentStr = ""
end if
end if
SpecialSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.SpecialID like '%" & RsTempObj("SpecialID") & "%' and FS_News.AuditTF=1 and FS_News.DelTF=0 order by FS_News.ID Desc"
Set RsSpecialObj = Conn.Execute(SpecialSql)
SpecialNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">"
do while Not RsSpecialObj.Eof
SpecialNewsList = SpecialNewsList & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</td>" & "</span>" & Chr(13) & Chr(10)
else
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
end if
else
TempDateShowStr = ""
end if
if DateRightStr = "Center" OR DateRightStr = "Right" then
SpecialNewsList = SpecialNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
else
SpecialNewsList = SpecialNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
RsSpecialObj.MoveNext
if RsSpecialObj.Eof then Exit For
Next
SpecialNewsList = SpecialNewsList & "</tr>" & Chr(13) & Chr(10)
SpecialNewsList = SpecialNewsList & CompatPicStr & Chr(13) & Chr(10)
Loop
if MoreLinkContentStr <> "" then
SpecialNewsList = SpecialNewsList & "<tr><td align=""right"" " & TempRowNumberStr & ">" & MoreLinkContentStr & "</td></tr>" & Chr(13) & Chr(10)
end if
SpecialNewsList = SpecialNewsList & "</table>"
Set RsSpecialObj = Nothing
else
SpecialNewsList = ""
end if
Set RsTempObj = Nothing
End Function
'专题终极分类
Function SpecialLastNewsList(NewsNumberStr,RowNumberStr,NaviPicStr,BGPicStr,RowHeightStr,CssFileStr,OpenModeStr,DetachPageStr,TitleNumberStr,DateRuleStr,DateRightStr,DateCSSStyleStr,TxtNaviStr)
Dim SpecialSql,RsSpecialObj,RsTempObj,i,ClassSaveFilePath
Dim PageNum,PageIndex,LoopVar,TempSpecialNewsList,SpecialNewsPageStr,TempClassSaveFilePath,ClassSaveExtName,j
Dim TempRowNumberStr,TempDateShowStr
if Fun_Refresh_Type = "Special" then
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
TempRowNumberStr = GetRowSpanNumber(DateRuleStr,DateRightStr,RowNumberStr)
BGPicStr = GetCompatPicStr(BGPicStr,DateRightStr,DateRuleStr,RowNumberStr)
OpenModeStr = GetOpenTypeStr(OpenModeStr)
SpecialSql = "Select * from FS_Special where SpecialID ='" & Fun_Refresh_ID & "'"
Set RsTempObj = Conn.Execute(SpecialSql)
if Not RsTempObj.Eof then
if RsTempObj("SaveFilePath") = "/" then
TempClassSaveFilePath = GetConfig(0) & RsTempObj("SaveFilePath") & RsTempObj("EName")
ClassSaveExtName = RsTempObj("FileExtName")
else
TempClassSaveFilePath = GetConfig(0) & RsTempObj("SaveFilePath") & "/" & RsTempObj("EName")
ClassSaveExtName = RsTempObj("FileExtName")
end if
SpecialSql = "Select *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.SpecialID like '%" & Fun_Refresh_ID & "%' and FS_News.AuditTF=1 and FS_News.DelTF=0 order by FS_News.ID Desc"
Set RsSpecialObj = Server.CreateObject(G_FS_RS)
RsSpecialObj.Open SpecialSql,Conn,1,1
if Not RsSpecialObj.Eof then
RsSpecialObj.PageSize = NewsNumberStr
PageNum = RsSpecialObj.PageCount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -