开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Cls_RefreshJs.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：44k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Cls_RefreshJs.asp：源码内容
  1. <!--#include file="cls_js.asp"-->
  2. <%
  3. Dim JSCodeStr,i,TempClassObj,AvailableDoMain
  4. Dim CharIndexStr
  5. GetFunctionstr
  6. Dim ListSpaces,ListSpaceStrs,Temp_ii
  7. ListSpaces =0   '左右两条新闻之间的空格字符个数 
  8. ListSpaceStrs = ""
  9. for Temp_ii = 0 to ListSpaces
  10. ListSpaceStrs = ListSpaceStrs & "&nbsp;"
  11. next 
  13. Function CreateSysJS(FileName)'栏目JS新闻列表
  14. Dim FS_JsObj , RsSysJsObj,ClassIDStr,NewsNum,MarDirection,BrStr,MarSpeed,NaviPic,RsCreateSql,RsCreateObj,DateTF,RowNum,RowSpace,TitleNum,ShowClassTF
  15. Dim RightDate,ClassID,RsClassObj,PicHeight,MarWidth,OpenMode,MarHeight,PicWidth,ShowTitle,TitleCSS,SavePath,FileNameStr,DateCSS,DateType,LinkCSS,MoreContentStr,MoreContentTF,setHitsValue
  17. Set FS_JsObj=New Cls_Js
  18. Set RsSysJsObj = Conn.Execute("Select * from FS_NS_Sysjs where FileName='"&FileName&"'")
  19. If Not RsSysJsObj.eof then
  20. ClassID = RsSysJsObj("ClassID")
  21. If RsSysJsObj("NaviPic")<>"" then
  22. NaviPic = "<img src="""  & RsSysJsObj("NaviPic") & """ border=""0"">"
  23. Else
  24. NaviPic = ""
  25. End If
  26. setHitsValue = RsSysJsObj("MarSpeed")
  27. if isnull(setHitsValue) then setHitsValue= -1
  28. NewsNum = RsSysJsObj("NewsNum")
  29. RowNum = RsSysJsObj("RowNum")
  30. RowSpace = RsSysJsObj("RowSpace")
  31. TitleNum = RsSysJsObj("TitleNum")
  32. TitleCSS = RsSysJsObj("TitleCSS")
  33. SavePath = RsSysJsObj("FileSavePath")
  34. FileNameStr = RsSysJsObj("FileName")
  35. DateCSS = RsSysJsObj("DateCSS")
  36. DateType = RsSysJsObj("DateType")
  37. MarDirection = RsSysJsObj("MarDirection")
  38. MarSpeed = RsSysJsObj("MarSpeed")
  39. PicWidth = RsSysJsObj("PicWidth")
  40. PicHeight = RsSysJsObj("PicHeight")
  41. MarWidth = RsSysJsObj("MarWidth")
  42. MarHeight = RsSysJsObj("MarHeight")
  43. If RsSysJsObj("OpenMode")=1 then
  44. OpenMode = " target=""_blank"""
  45. Else
  46. OpenMode = " target=""_self"""
  47. End If
  48. If RsSysJsObj("ShowTitle")<>0 then
  49. ShowTitle = True
  50. Else
  51. ShowTitle = false
  52. End If
  53. If RsSysJsObj("MarDirection")="left" or RsSysJsObj("MarDirection")="right" then
  54. BrStr = ""
  55. Else
  56. BrStr = "<br>"
  57. End If
  58. If RsSysJsObj("MoreContent")<>0 then
  59. MoreContentTF = True
  60. MoreContentStr = RsSysJsObj("LinkWord")
  61. LinkCSS = RsSysJsObj("LinkCSS")
  62. Else
  63. MoreContentTF = False
  64. End If
  65. If RsSysJsObj("DateType")<>0 then
  66. DateTF = true
  67. Else
  68. DateTF = false
  69. End If
  70. If RsSysJsObj("ClassName")<>0 then
  71. ShowClassTF = true
  72. Else
  73. ShowClassTF = false
  74. End If
  75. If RsSysJsObj("RightDate")<>0 then
  76. RightDate = true
  77. Else
  78. RightDate = false
  79. End If
  80. ClassIDStr = ClassID
  81. If RsSysJsObj("SonClass")=1 then
  82. Set RsClassObj = Conn.Execute("Select ClassID from FS_NS_NewsClass where ParentID='"&ClassID&"' and DelFlag=0 order by ID desc")
  83. If Not RsClassObj.eof then
  84. Do While not RsClassObj.eof
  85. ClassIDStr = ClassIDStr &"','"& RsClassObj("ClassID")
  86. RsClassObj.MoveNext
  87. Loop
  88. RsClassObj.Close
  89. Set RsClassObj = Nothing
  90. End If
  91. End If
  92. Response.write "FileName="&FileName&";type="&RsSysJsObj("NewsType")
  93. Select Case RsSysJsObj("NewsType")
  94. Case "RecNews"
  95. if RsSysJsObj("FileType")=1 then
  96. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isLock=0 and "& CharIndexStr &"(NewsProperty,1,1)='1' order by AddTime desc" '推荐新闻
  97. else
  98. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 and "& CharIndexStr &"(NewsProperty,1,1)='1' order by AddTime desc" '推荐新闻
  99. end if
  100. Set RsCreateObj = Conn.Execute(RsCreateSql)
  101. If Not RsCreateObj.eof then
  102. JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
  103. for i=1 to NewsNum
  104.   If RsCreateObj.eof then Exit For
  105.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  106.   If DateTF = true then
  107. If ShowClassTF = true then
  108. If RightDate = true then
  109.   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>"
  110. Else
  111.   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>"
  112. End If
  113. Else
  114. If RightDate = true then
  115.   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>"
  116. Else
  117.   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>"
  118. End If
  119. End IF
  120.   Else
  121. If ShowClassTF = true then
  122.   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>"
  123. Else
  124.   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>"
  125. End If
  126.   End If
  127.   RsCreateObj.MoveNext
  128.   if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
  129. if RightDate = true then
  130.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  131. else
  132.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  133. end if
  134.   end if
  135. next 
  136. If RsSysJsObj("FileType")=1 then
  137. Dim RsTempClassObjs
  138. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  139. If RsTempClassObjs.eof then
  140. CreateSysJS = "刷新栏目已经不存在."
  141. Exit Function
  142. End If
  143. End If
  144. If RightDate = true then
  145. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  146. 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>"
  147. else
  148. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
  149. end if
  150. Else
  151. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  152. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
  153. else
  154. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
  155. end if
  156. End If
  157. JSCodeStr = JSCodeStr & "</table>');"
  158. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  159. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  160. CreateSysJS = true
  161. RsCreateObj.Close 
  162. Set RsCreateObj = Nothing 
  163. Else
  164. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  165. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  166. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  167. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  168. End If
  169. Case "MarqueeNews"
  170. if RsSysJsObj("FileType")=1 then
  171. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and "& CharIndexStr &"(NewsProperty,3,1)='1' and isLock=0 order by AddTime desc" '滚动新闻
  172. else
  173. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and "& CharIndexStr &"(NewsProperty,3,1)='1' and isLock=0 order by AddTime desc" '滚动新闻
  174. end If
  175. Response.write RsCreateSql
  176. Set RsCreateObj = Conn.Execute(RsCreateSql)
  177. If Not RsCreateObj.eof then
  178. JSCodeStr = "document.write('<marquee onmouseout=start() onmouseover=stop() Width="&MarWidth&" Height="&MarHeight&" scrolldelay=80 direction="&MarDirection&" scrollamount="& CInt(MarSpeed) &">"
  179. for i=1 to NewsNum
  180.   If RsCreateObj.eof then Exit For
  181.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  182.   If DateTF = true then
  183. If ShowClassTF = true then
  184.   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
  185. Else
  186.   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
  187. End IF
  188.   Else
  189. If ShowClassTF = true then
  190.   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
  191. Else
  192.   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
  193. End If
  194.   End If
  195.   RsCreateObj.MoveNext
  196. next 
  197. If RsSysJsObj("FileType")=1 then
  198. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  199. If RsTempClassObjs.eof then
  200. CreateSysJS = "刷新栏目已经不存在."
  201. Exit Function
  202. End If
  203. End If
  204. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  205. JSCodeStr = JSCodeStr &"<a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs
  206. end if
  207. JSCodeStr = JSCodeStr & "</marquee>');"
  208. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  209. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  210. CreateSysJS = true
  211. RsCreateObj.Close 
  212. Set RsCreateObj = Nothing 
  213. Else
  214. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  215. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  216. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  217. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  218. End If
  219. Case "PicNews"
  220. if RsSysJsObj("FileType")=1 then
  221. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isPicNews=1 and isLock=0 order by AddTime desc" '图片新闻
  222. else
  223. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isPicNews=1 and isLock=0 order by AddTime desc" '图片新闻
  224. end if
  225. Set RsCreateObj = Conn.Execute(RsCreateSql)
  226. If Not RsCreateObj.eof then
  227. JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
  228. Dim DoMainStr
  229. for i=1 to NewsNum
  230.   If RsCreateObj.eof then Exit For
  231.   If LCase(Left(RsCreateObj("NewsSmallPicFile"),4))="http" Then
  232.    DoMainStr = ""
  233.   Else
  234.    DoMainStr = AvailableDoMain
  235.   End If
  236.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  237.   If DateTF = true then
  238. If ShowClassTF = true then
  239. If RightDate = true then
  240. If ShowTitle = True then
  241.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td colspan=2 align=center valign=middle><a href="&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
  242.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& 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></div></td></tr></table></td>"
  243. Else
  244.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
  245. End If
  246. Else
  247. If ShowTitle = True then
  248.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td colspan=2 align=center valign=middle><a href="&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
  249.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& 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></td></tr></table></td>"
  250. Else
  251.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
  252. End If
  253. End If
  254. Else
  255. If RightDate = true then
  256. If ShowTitle = True then
  257.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td colspan=2 align=center valign=middle><a href="&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
  258.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& 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></div></td></tr></table></td>"
  259. Else
  260.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
  261. End If
  262. Else
  263. If ShowTitle = True then
  264.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td colspan=2 align=center valign=middle><a href="&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
  265.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& 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></td></tr></table></td>"
  266. Else
  267.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
  268. End If
  269. End If
  270. End IF
  271.   Else
  272. If ShowClassTF = true then
  273. If ShowTitle = True then
  274.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td></tr>"
  275.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) &""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a></td></tr></table></td>"
  276. Else
  277.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a href=" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & OpenMode & "><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0></a></td>"
  278. End If
  279. Else
  280. If ShowTitle = True then
  281.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><table border=0 cellspacing=0 cellpadding=0><tr><td align=center valign=middle><a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0 ></a></td></tr>"
  282.   JSCodeStr = JSCodeStr &"<tr><td align=center>"& NaviPic &"<a class="""&TitleCSS&""" href=""" & FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID")) & """" & OpenMode & ">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a></td></tr></table></td>"
  283. Else
  284.   JSCodeStr = JSCodeStr &"<td align=center valign=middle><a class="""&TitleCSS&""" href="""&FS_JsObj.GetOneNewsLinkURL(RsCreateObj("NewsID"))&""""&OpenMode&"><img src="&DoMainStr&RsCreateObj("NewsSmallPicFile")&" height="&PicHeight&" width="&PicWidth&" border=0 ></a></td>"
  285. End If
  286. End If
  287.   End If
  288.   RsCreateObj.MoveNext
  289.   if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
  290. if RightDate = true then
  291.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  292. else
  293.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  294. end if
  295.   end if
  296. next 
  297. If RsSysJsObj("FileType")=1 then
  298. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  299. If RsTempClassObjs.eof then
  300. CreateSysJS = "刷新栏目已经不存在."
  301. Exit Function
  302. End If
  303. End If
  304. If RightDate = true then
  305. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  306. 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>"
  307. else
  308. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
  309. end if
  310. Else
  311. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  312. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
  313. else
  314. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
  315. end if
  316. End If
  317. JSCodeStr = JSCodeStr & "</table>');"
  318. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  319. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  320. CreateSysJS = true
  321. RsCreateObj.Close 
  322. Set RsCreateObj = Nothing 
  323. Else
  324. JSCodeStr = "document.write('未查询到符合条件的新闻.')"
  325. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  326. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  327. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  328. End If
  329. Case "NewNews"
  330. if RsSysJsObj("FileType")=1 then
  331. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isLock=0 order by AddTime desc" '最新新闻
  332. else
  333. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 order by AddTime desc" '最新新闻
  334. end if
  335. Set RsCreateObj = Conn.Execute(RsCreateSql)
  336. If Not RsCreateObj.eof then
  337. JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
  338. for i=1 to NewsNum
  339.   If RsCreateObj.eof then Exit For
  340.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  341.   If DateTF = true then
  342. If ShowClassTF = true then
  343. If RightDate = true then
  344.   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>"
  345. Else
  346.   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>"
  347. End If
  348. Else
  349. If RightDate = true then
  350.   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>"
  351. Else
  352.   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>"
  353. End If
  354. End IF
  355.   Else
  356. If ShowClassTF = true then
  357.   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>"
  358. Else
  359.   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>"
  360. End If
  361.   End If
  362.   RsCreateObj.MoveNext
  363.   if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
  364. if RightDate = true then
  365.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  366. else
  367.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  368. end if
  369.   end if
  370. next 
  371. If RsSysJsObj("FileType")=1 then
  372. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  373. If RsTempClassObjs.eof then
  374. CreateSysJS = "刷新栏目已经不存在."
  375. Exit Function
  376. End If
  377. End If
  378. If RightDate = true then
  379. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  380. 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>"
  381. else
  382. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
  383. end if
  384. Else
  385. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  386. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
  387. else
  388. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
  389. end if
  390. End If
  391. JSCodeStr = JSCodeStr & "</table>');"
  392. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  393. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  394. CreateSysJS = true
  395. RsCreateObj.Close 
  396. Set RsCreateObj = Nothing 
  397. Else
  398. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  399. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  400. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  401. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  402. End If
  404. Case "HotNews"
  405. if RsSysJsObj("FileType")=1 then
  406. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and Hits>"&setHitsValue&" and isLock=0 order by Hits desc,ID DESC" '热点新闻
  407. else
  408. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 and Hits>"&setHitsValue&" order by Hits desc,ID DESC" '热点新闻
  409. end If
  410. Set RsCreateObj = Conn.Execute(RsCreateSql)
  411. If Not RsCreateObj.eof then
  412. JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
  413. for i=1 to NewsNum
  414.   If RsCreateObj.eof then Exit For
  415.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  416.   If DateTF = true then
  417. If ShowClassTF = true then
  418. If RightDate = true then
  419.   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>"
  420. Else
  421.   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>"
  422. End If
  423. Else
  424. If RightDate = true then
  425.   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>"
  426. Else
  427.   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>"
  428. End If
  429. End IF
  430.   Else
  431. If ShowClassTF = true then
  432.   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>"
  433. Else
  434.   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>"
  435. End If
  436.   End If
  437.   RsCreateObj.MoveNext
  438.   if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
  439. if RightDate = true then
  440.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  441. else
  442.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  443. end if
  444.   end if
  445. next 
  446. If RsSysJsObj("FileType")=1 then
  447. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  448. If RsTempClassObjs.eof then
  449. CreateSysJS = "刷新栏目已经不存在."
  450. Exit Function
  451. End If
  452. End If
  453. If RightDate = true then
  454. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  455. 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>"
  456. else
  457. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
  458. end if
  459. Else
  460. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  461. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
  462. else
  463. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
  464. end if
  465. End If
  466. JSCodeStr = JSCodeStr & "</table>');"
  467. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  468. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  469. CreateSysJS = true
  470. RsCreateObj.Close 
  471. Set RsCreateObj = Nothing 
  472. Else
  473. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  474. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  475. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  476. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  477. End If
  481. Case "ProclaimNews"
  482. if RsSysJsObj("FileType")=1 then
  483. 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" '公告新闻
  484. else
  485. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and "& CharIndexStr &"(NewsProperty,19,1)='1' and isLock=0 order by AddTime desc" '公告新闻
  486. end if
  487. Set RsCreateObj = Conn.Execute(RsCreateSql)
  488. If Not RsCreateObj.eof then
  489. JSCodeStr = "document.write('<marquee onmouseout=start() onmouseover=stop() Width="&MarWidth&" Height="&MarHeight&"  scrolldelay=80 direction="&MarDirection&" scrollamount="& CInt(MarSpeed) &"><font color=red>【公告】</font>"&BrStr
  490. for i=1 to NewsNum
  491.   If RsCreateObj.eof then Exit For
  492.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  493.   If DateTF = true then
  494. If ShowClassTF = true then
  495. If RsCreateObj("IsURL") <> 1 then
  496.   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
  497.   JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
  498. Else
  499.   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
  500. End If
  501. Else
  502. If RsCreateObj("IsURL") <> 1 then
  503.   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
  504.   JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
  505. Else
  506.   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
  507. End If
  508. End IF
  509.   Else
  510. If ShowClassTF = true then
  511. If RsCreateObj("IsURL") <> 1 then
  512.   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
  513.   JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
  514. Else
  515.   JSCodeStr = JSCodeStr & NaviPic &"["&TempClassObj("ClassName")&"]"&"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&BrStr
  516. End If
  517. Else
  518. If RsCreateObj("IsURL") <> 1 then
  519.   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
  520.   JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(Lose_Html(RsCreateObj("Content")),chr(13) & chr(10),""),"&nbsp;",""),100) & "..." & ListSpaceStrs&BrStr
  521. Else
  522.   JSCodeStr = JSCodeStr & NaviPic &"<a class="""&TitleCSS&""" href="""&RsCreateObj("HeadNewsPath")&""""&OpenMode&">"&FS_JsObj.GotTopic(Lose_Html(RsCreateObj("NewsTitle")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&BrStr
  523. End If
  524. End If
  525.   End If
  526.   RsCreateObj.MoveNext
  527. next 
  528. If RsSysJsObj("FileType")=1 then
  529. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  530. If RsTempClassObjs.eof then
  531. CreateSysJS = "刷新栏目已经不存在."
  532. Exit Function
  533. End If
  534. End If
  535. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  536. JSCodeStr = JSCodeStr &"<a class="""&LinkCSS&""" href="""&GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SavePath"),RsTempClassObjs("FileExtName"))&""">"& MoreContentStr&"</a>"&ListSpaceStrs
  537. end if
  538. JSCodeStr = JSCodeStr & "</marquee>');"
  539. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  540. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  541. CreateSysJS = true
  542. RsCreateObj.Close 
  543. Set RsCreateObj = Nothing 
  544. Else
  545. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  546. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  547. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  548. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  549. End If
  550. Case Else 
  551. if RsSysJsObj("FileType")=1 then
  552. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where ClassID in ('"&ClassIDStr&"') and isRecyle=0 and isLock=0 order by AddTime desc" '最新新闻
  553. else
  554. RsCreateSql = "Select top "&NewsNum&" * From FS_NS_News where isRecyle=0 and isLock=0 order by AddTime desc" '最新新闻
  555. end if
  556. Set RsCreateObj = Conn.Execute(RsCreateSql)
  557. If Not RsCreateObj.eof then
  558. JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&RowSpace&"""><tr>"
  559. for i=1 to NewsNum
  560.   If RsCreateObj.eof then Exit For
  561.   Set TempClassObj = Conn.Execute("Select ClassEName,ClassName,SavePath from FS_NS_NewsClass where ClassID='"&RsCreateObj("ClassID")&"'")
  562.   If DateTF = true then
  563. If ShowClassTF = true then
  564. If RightDate = true then
  565.   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>"
  566. Else
  567.   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>"
  568. End If
  569. Else
  570. If RightDate = true then
  571.   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>"
  572. Else
  573.   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>"
  574. End If
  575. End IF
  576.   Else
  577. If ShowClassTF = true then
  578.   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>"
  579. Else
  580.   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>"
  581. End If
  582.   End If
  583.   RsCreateObj.MoveNext
  584.   if i mod Cint(RowNum) = 0 or RsCreateObj.eof then
  585. if RightDate = true then
  586.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  587. else
  588.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background="""  & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
  589. end if
  590.   end if
  591. next 
  592. If RsSysJsObj("FileType")=1 then
  593. Set RsTempClassObjs = Conn.Execute("Select SavePath,ClassEName,FileExtName from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  594. If RsTempClassObjs.eof then
  595. CreateSysJS = "刷新栏目已经不存在."
  596. Exit Function
  597. End If
  598. End If
  599. If RightDate = true then
  600. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  601. 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>"
  602. else
  603. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
  604. end if
  605. Else
  606. if RsSysJsObj("FileType")=1 and MoreContentTF=True then
  607. 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>"
  608. else
  609. JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
  610. end if
  611. End If
  612. JSCodeStr = JSCodeStr & "</table>');"
  613. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  614. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  615. CreateSysJS = true
  616. RsCreateObj.Close 
  617. Set RsCreateObj = Nothing 
  618. Else
  619. JSCodeStr = "document.write('未查询到符合条件的新闻')"
  620. WriteFile SavePath,FileNameStr,JSCodeStr '写文件
  621. Conn.Execute("Update FS_NS_Sysjs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
  622. CreateSysJS = "文件添加或修改成功.<br />但未找到符合条件的新闻,建议您稍后再试."
  623. End If
  624. End Select
  625. Else
  626. CreateSysJS = "参数传递错误."
  627. End If
  628. set FS_JsObj=nothing
  629. RsSysJsObj.Close
  630. Set RsSysJsObj = Nothing
  631. End Function
  633. Function WriteFile(SaveFilePath,FileNameStr,JSCodeStr)
  634. 'On Error ReSume Next
  635. Dim MyFile,CrHNJS
  636. Set MyFile=Server.CreateObject(G_FS_FSO)
  637. If MyFile.FolderExists(Server.MapPath(SaveFilePath))=false then
  638. MyFile.CreateFolder(Server.MapPath(SaveFilePath))
  639. End If
  640. If MyFile.FileExists(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".js") then
  641. MyFile.DeleteFile(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".js")
  642. End if
  643. Set CrHNJS=MyFile.CreateTextFile(Server.MapPath( SaveFilePath) &"/"& FileNameStr &".js")
  644. CrHNJS.write JSCodeStr
  645. Set MyFile=nothing
  646. End Function
  648. %>