cls_refreshjs.asp

asp源码 图片ASP整站

								  JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode&"><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
								End If
							Else
								If ShowTitle = True then
								  JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td colspan=2 align=center valign=middle><a href="&GetOneNewsLinkURL(RsCreateObj("NewsID"))&OpenMode&"><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
								  JSCodeStr = JSCodeStr &"<tr><td align=center>"& NaviPic &"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddDate"),""&DateType&"")&"</Span></td></tr></table></td>"
								Else
								  JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
								End If
							End If
						End IF
					  Else
						If ShowClassTF = true then
							If ShowTitle = True then
							  JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td align=center valign=middle><a href=" & GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
							  JSCodeStr = JSCodeStr &"<tr><td align=center>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a></td></tr></table></td>"
							Else
							  JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
							End If
						Else
							If ShowTitle = True then
							  JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td align=center valign=middle><a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&"><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0 ></a></td></tr>"
							  JSCodeStr = JSCodeStr &"<tr><td align=center>"& NaviPic &"<a class="""&TitleCSS&""" href=""" & GetOneNewsLinkURL(RsCreateObj("NewsID")) & """" & OpenMode & ">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a></td></tr></table></td>"
							Else
							  JSCodeStr = JSCodeStr &"<td align=center valign=middle><a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&"><img src="&DoMainStr&RsCreateObj("PicPath")&" height="&PicHeight&" width="&PicWidth&" border=0 ></a></td>"
							End If
						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=""" & 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
					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
			Case "NewNews"
				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>&nbsp;<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>&nbsp;<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>&nbsp;"&ListSpaceStrs&"</td>"
						Else
							  JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),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=""" & 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="""&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
					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
			Case "HotNews"
				if RsSysJsObj("FileType")=1 then
					RsCreateSql = "Select top "&NewsNum&" * From FS_News where ClassID in ('"&ClassIDStr&"') and DelTF=0 and AuditTF=1 order by ClickNum desc" '热点新闻
				else
					RsCreateSql = "Select top "&NewsNum&" * From FS_News where DelTF=0 and AuditTF=1 order by ClickNum 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>&nbsp;<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>&nbsp;<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>&nbsp;"&ListSpaceStrs&"</td>"
						Else
							  JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Title")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&"</td>"
						End If
					  End If
					  RsCreateObj.MoveNext