cls_refreshjs.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

								  JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;<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>&nbsp;"&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>&nbsp;"&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
					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 "ProclaimNews"
				if RsSysJsObj("FileType")=1 then
					RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and "& CharIndexStr &"(NewsProperty,19,1)='1' and isLock=0 order by AddTime desc" '公告新闻
				else
					RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and "& CharIndexStr &"(NewsProperty,19,1)='1' and isLock=0 order by AddTime 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,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
					  If DateTF = true then
						If ShowClassTF = true then
							If RsCreateObj("IsURL") <> 1 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>&nbsp;<Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
							  JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
							Else
							  JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
							End If
						Else
							If RsCreateObj("IsURL") <> 1 then
							  JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
							  JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
							Else
							  JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&FS_JsObj.DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&BrStr
							End If
						End IF
					  Else
						If ShowClassTF = true then
							If RsCreateObj("IsURL") <> 1 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>&nbsp;"&ListSpaceStrs&BrStr
							  JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
							Else
							  JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&BrStr
							End If
						Else
							If RsCreateObj("IsURL") <> 1 then
							  JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&BrStr
							  JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
							Else
							  JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&BrStr
							End If
						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
					if RsSysJsObj("FileType")=1 and MoreContentTF=True then
						JSCodeStr = JSCodeStr &"<a class="""&LinkCSS&""" href="""&GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName"))&""">"& MoreContentStr&"</a>"&ListSpaceStrs
					end if
					JSCodeStr = JSCodeStr & "</marquee>');"
					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 Else 
				
				if RsSysJsObj("FileType")=1 then
					RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isLock=0 order by AddTime desc" '最新新闻
				else
					RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 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>&nbsp;<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>&nbsp;<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>&nbsp;"&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>&nbsp;"&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
					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=""" & FS_JsObj.GetOneNewsLinkURL(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=""" & FS_JsObj.GetOneNewsLinkURL(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
		End Select
	Else
		CreateSysJS = "参数传递错误."
	End If
	set FS_JsObj=nothing
	RsSysJsObj.Close
	Set RsSysJsObj = Nothing
End Function

Function WriteFile(SaveFilePath,FileNameStr,JSCodeStr)
	'On Error ReSume Next
	Dim MyFile,CrHNJS
	Set MyFile=Server.CreateObject(G_FS_FSO)
	If MyFile.FolderExists(Server.MapPath(SaveFilePath))=false then
		MyFile.CreateFolder(Server.MapPath(SaveFilePath))
	End If
	If MyFile.FileExists(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".js") then
		MyFile.DeleteFile(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".js")
	End if
	Set CrHNJS=MyFile.CreateTextFile(Server.MapPath( SaveFilePath) &"/"& FileNameStr &".js")
		CrHNJS.write JSCodeStr
	Set MyFile=nothing
End Function

%>