📄 cls_refreshjs.asp
字号:
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = true
RsCreateObj.Close
Set RsCreateObj = Nothing
Else
JSCodeStr = "document.write('未查询到符合条件的新闻')"
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = "文件添加或修改成功\n\n但未找到符合条件的新闻,建议您稍后再试"
End If
Case "ProclaimNews"
if RsSysJsObj("FileType")=1 then
RsCreateSql = "Select top "&NewsNum&" * From FS_News where ClassID in ('"&ClassIDStr&"') and DelTF=0 and ProclaimNews=1 and AuditTF=1 order by AddDate desc" '公告新闻
else
RsCreateSql = "Select top "&NewsNum&" * From FS_News where DelTF=0 and ProclaimNews=1 and AuditTF=1 order by AddDate desc" '公告新闻
end if
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) &"><font color=red>【公告】</font>"&BrStr
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 RsCreateObj("HeadNewsTF") <> 1 then
JSCodeStr = JSCodeStr & 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&BrStr
JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(LoseHtml(RsCreateObj("Content")),chr(13) & chr(10),"")," ",""),100) & "..." & ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
End If
Else
If RsCreateObj("HeadNewsTF") <> 1 then
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(LoseHtml(RsCreateObj("Content")),chr(13) & chr(10),"")," ",""),100) & "..." & ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> <Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
End If
End IF
Else
If ShowClassTF = true then
If RsCreateObj("HeadNewsTF") <> 1 then
JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(LoseHtml(RsCreateObj("Content")),chr(13) & chr(10),"")," ",""),100) & "..." & ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
End If
Else
If RsCreateObj("HeadNewsTF") <> 1 then
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(LoseHtml(RsCreateObj("Content")),chr(13) & chr(10),"")," ",""),100) & "..." & ListSpaceStrs&BrStr
Else
JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a> "&ListSpaceStrs&BrStr
End If
End If
End If
RsCreateObj.MoveNext
next
If RsSysJsObj("FileType")=1 then
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 RsSysJsObj("FileType")=1 and MoreContentTF=True then
JSCodeStr = JSCodeStr &"<a class="""&LinkCSS&""" href="""&GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),RsTempClassObjs("FileExtName"))&""">"& MoreContentStr&"</a>"&ListSpaceStrs
end if
JSCodeStr = JSCodeStr & "</marquee>');"
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = true
RsCreateObj.Close
Set RsCreateObj = Nothing
Else
JSCodeStr = "document.write('未查询到符合条件的新闻')"
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = "文件添加或修改成功\n\n但未找到符合条件的新闻,建议您稍后再试"
End If
Case Else
if RsSysJsObj("FileType")=1 then
RsCreateSql = "Select top "&NewsNum&" * From FS_News where ClassID in ('"&ClassIDStr&"') and DelTF=0 and AuditTF=1 order by AddDate desc" '最新新闻
else
RsCreateSql = "Select top "&NewsNum&" * From FS_News where DelTF=0 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
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=""" & GetOneNewsLinkURL(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=""" & GetOneNewsLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),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 SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = true
RsCreateObj.Close
Set RsCreateObj = Nothing
Else
JSCodeStr = "document.write('未查询到符合条件的新闻')"
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update FS_SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
CreateSysJS = "文件添加或修改成功\n\n但未找到符合条件的新闻,建议您稍后再试"
End If
End Select
Else
CreateSysJS = "参数传递错误"
End If
RsSysJsObj.Close
Set RsSysJsObj = Nothing
End Function
Function WriteFile(SaveFilePath,FileNameStr,JSCodeStr)
Dim MyFile,CrHNJS
Set MyFile=Server.CreateObject(G_FS_FSO)
If MyFile.FolderExists(Server.MapPath(TempJSSysRootDir&SaveFilePath))=false then
MyFile.CreateFolder(Server.MapPath(TempJSSysRootDir&SaveFilePath))
End If
If MyFile.FileExists(Server.MapPath(TempJSSysRootDir&SaveFilePath)&"/"& FileNameStr &".js") then
MyFile.DeleteFile(Server.MapPath(TempJSSysRootDir&SaveFilePath)&"/"& FileNameStr &".js")
End if
Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempJSSysRootDir & SaveFilePath) &"/"& FileNameStr &".js")
CrHNJS.write JSCodeStr
Set MyFile=nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -