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

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

数据库编程

开发平台：

ASP/ASPX

Cls_Js.asp：源码内容
  1. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
  2. Class Cls_Js
  3. private ns_id,ns_ename,ns_cname,ns_js_type,ns_manner,ns_picWidth,ns_picHeight,ns_newsNum,ns_newsTitleNum,ns_titleCSS,ns_contentCSS
  4. private ns_backCSS,ns_rowNum,ns_picPath,ns_addTime,ns_showTimeTF,ns_contentNum,ns_naviPic,ns_dateType,ns_dateCss,ns_info
  5. private ns_moreContent,ns_LinkWord,ns_LinkCSS,ns_rowSpace,ns_rowBettween,ns_openMode
  7. Private TempSysRootDir
  8. Private ListSpace,ListSpaceStr,Temp_i,TableCellSpace,TitleSpace,TitleSpaceStr,MoreContentStr
  10. '获得自由js的参数
  11. public Function getFreeJsParam(jsid)
  12. Dim F_FreeJsParam_Rs,sql_statement
  13. Set F_FreeJsParam_Rs=Server.CreateObject(G_FS_RS)
  14. sql_statement="select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode from FS_NS_FreeJS where id="&jsid
  15. F_FreeJsParam_Rs.open sql_statement,Conn,1,1
  16. if not F_FreeJsParam_Rs.eof and not F_FreeJsParam_Rs.bof then
  17. ns_id=F_FreeJsParam_Rs("ID")
  18. ns_ename=F_FreeJsParam_Rs("EName")
  19. ns_cname=F_FreeJsParam_Rs("CName")
  20. ns_js_type=F_FreeJsParam_Rs("Type")
  21. ns_manner=F_FreeJsParam_Rs("Manner")
  22. ns_picWidth=F_FreeJsParam_Rs("PicWidth")
  23. ns_picHeight=F_FreeJsParam_Rs("PicHeight")
  24. ns_newsNum=F_FreeJsParam_Rs("NewsNum")
  25. ns_newsTitleNum=F_FreeJsParam_Rs("NewsTitleNum")
  26. ns_titleCSS=F_FreeJsParam_Rs("TitleCSS")
  27. ns_contentCSS=F_FreeJsParam_Rs("ContentCSS")
  28. ns_backCSS=F_FreeJsParam_Rs("BackCSS")
  29. ns_rowNum=F_FreeJsParam_Rs("RowNum")
  30. ns_picPath=F_FreeJsParam_Rs("PicPath")
  31. ns_addTime=F_FreeJsParam_Rs("AddTime")
  32. ns_showTimeTF=F_FreeJsParam_Rs("ShowTimeTF")
  33. ns_contentNum=F_FreeJsParam_Rs("ContentNum")
  34. ns_naviPic=F_FreeJsParam_Rs("NaviPic")
  35. ns_dateType=F_FreeJsParam_Rs("DateType")
  36. ns_dateCss=F_FreeJsParam_Rs("DateCSS")
  37. ns_info=F_FreeJsParam_Rs("Info")
  38. ns_moreContent=F_FreeJsParam_Rs("MoreContent")
  39. ns_LinkWord=F_FreeJsParam_Rs("LinkWord")
  40. ns_LinkCSS=F_FreeJsParam_Rs("LinkCSS")
  41. ns_rowSpace=F_FreeJsParam_Rs("RowSpace")
  42. ns_rowBettween=F_FreeJsParam_Rs("RowBettween")
  43. ns_openMode=F_FreeJsParam_Rs("OpenMode")
  44. End if
  45. End Function
  46. '赋值
  47. public Property get id()'Free JS id
  48. id=ns_id
  49. End Property 
  51. public Property get ename()' Free Js 英文名
  52. ename=ns_ename
  53. End Property
  55. public Property get cname()' Free Js 中文名
  56. cname=ns_cname
  57. End Property
  59. public Property get js_type()' 类型(0为文字,1为图片)
  60. js_type=ns_js_type
  61. End Property
  63. public Property get manner()' 样式(1-5 为文字样式,6-17为图片样式)(暂)
  64. manner=ns_manner
  65. End Property
  67. public Property get picWidth()' 图片宽度
  68. picWidth=ns_picWidth
  69. End Property
  71. public Property get picHeight()' 图片高度
  72. picHeight=ns_picHeight
  73. End Property
  75. public Property get newsNum()' 允许调用新闻条数
  76. newsNum=ns_newsNum
  77. End Property
  79. public Property get newsTitleNum()'新闻标题字数
  80. newsTitleNum=ns_newsTitleNum
  81. End Property
  83. public Property get titleCSS()' 新闻标题样式
  84. titleCSS=ns_titleCSS
  85. End Property
  87. public Property get contentCSS()' 新闻内容样式
  88. contentCSS=ns_contentCSS
  89. End Property
  91. public Property get backCSS() 'JS背景样式
  92. backCSS=ns_backCSS
  93. End Property
  95. public Property get rowNum()' 每行并排条数(不能为”0”)
  96. rowNum=ns_rowNum
  97. End Property
  99. public Property get picPath()' 为某种样式备用
  100. picPath=ns_picPath
  101. End Property
  103. public Property get addTime()' Free Js添加时间
  104. addTime=ns_addTime
  105. End Property
  107. public Property get showTimeTF()'是否在新闻标题后显示新闻时间(“0”为否,”1” 为是)
  108. showTimeTF=ns_showTimeTF
  109. End Property
  111. public Property get contentNum()' Free Js 新闻内容字数
  112. contentNum=ns_contentNum
  113. End Property
  115. public Property get naviPic()' Free Js 新闻标题导航图片
  116. naviPic=ns_naviPic
  117. End Property
  119. public Property get dateType()' Free Js 日期样式(1-15)
  120. dateType=ns_dateType
  121. End Property
  123. public Property get dateCSS()' Free Js 日期CSS样式
  124. dateCSS=ns_dateCSS
  125. End Property
  127. public Property get info()' Free Js 备注
  128. info=ns_info
  129. End Property
  131. public Property get moreContent()' Free Js 更多链接(新闻内容)
  132. moreContent=ns_moreContent
  133. End Property
  135. public Property get linkWord()' Free Js 链接文字或是图片
  136. linkWord=ns_linkWord
  137. End Property
  139. public Property get linkCSS()' Free Js 链接样式表
  140. linkCSS=ns_linkCSS
  141. End Property
  143. public Property get rowSpace()' Free Js 新闻行距
  144. rowSpace=ns_rowSpace
  145. End Property
  147. public Property get rowBettween()'行间图片
  148. rowBettween=ns_rowBettween
  149. End Property
  151. public Property get openMode()'窗口打开方式
  152. openMode=ns_openMode
  153. End Property
  154. '----------------------------------------------
  155. Public Property Let SysRootDir(ExteriorValue)
  156. TempSysRootDir = ExteriorValue
  157. End Property
  158. '----------------------------------------------
  159. Public Function GetOneNewsLinkURL(NewsID)
  160. Dim DoMain,TempParentID,RsParentObj,RsDoMainObj,ReturnValue
  161. Dim CheckRootClassIndex,CheckRootClassNumber,TempClassSaveFilePath
  162. Dim NewsSql,RsNewsObj
  163. '-----------------------/l
  164. dim DatePathStr
  165. CheckRootClassNumber = 30
  166. ReturnValue = ""
  167. NewsSql = "Select SavePath,FileName,ClassEName,FS_NS_News.IsURL as IsURL,FS_NS_News.SaveNewsPath,FS_NS_News.URLAddress as URLAddress,FS_NS_NewsClass.ParentID as ParentID,FS_NS_NewsClass.[Domain] as [Domain],FS_NS_NewsClass.FileExtName as ClassFileExtName,FS_NS_News.FileExtName as NewsFileExtName from FS_NS_News,FS_NS_NewsClass where FS_NS_News.ClassID=FS_NS_NewsClass.ClassID and FS_NS_News.isLock=0 and FS_NS_News.NewsID='" & NewsID & "'"
  168. Set RsNewsObj = Conn.Execute(NewsSql)
  169. if RsNewsObj.Eof then
  170. Set RsNewsObj = Nothing
  171. GetOneNewsLinkURL = ""
  172. Exit Function
  173. else
  174. if RsNewsObj("IsURL") = 1 then'是否是标题新闻
  175. ReturnValue = RsNewsObj("URLAddress")
  176. else
  177. if RsNewsObj("ParentID") <> "0" then
  178. Set RsParentObj = Conn.Execute("Select ParentID,[Domain] from FS_NS_NewsClass where ClassID='" & RsNewsObj("ParentID") & "'")
  179. if Not RsParentObj.Eof then
  180. CheckRootClassIndex = 1
  181. TempParentID = RsParentObj("ParentID")
  182. do while Not (TempParentID = "0")
  183. CheckRootClassIndex = CheckRootClassIndex + 1
  184. RsParentObj.Close
  185. Set RsParentObj = Nothing
  186. Set RsParentObj = Conn.Execute("Select ParentID,[Domain] from FS_NS_NewsClass where ClassID='" & TempParentID & "'")
  187. if RsParentObj.Eof then
  188. Set RsParentObj = Nothing
  189. Set RsNewsObj = Nothing
  190. GetOneNewsLinkURL = ""
  191. Exit Function
  192. end if
  193. TempParentID = RsParentObj("ParentID")
  194. if CheckRootClassIndex > CheckRootClassNumber then TempParentID = "0" '防止死循环
  195. Loop
  196. DoMain = RsParentObj("DoMain")
  197. Set RsParentObj = Nothing
  198. else
  199. Set RsParentObj = Nothing
  200. Set RsNewsObj = Nothing
  201. GetOneNewsLinkURL = ""
  202. Exit Function
  203. end if
  204. else
  205. DoMain = RsNewsObj("DoMain")
  206. end if
  207. '---------------/l
  208. Dim LinkType
  209. LinkType=Conn.execute("Select LinkType from FS_NS_SysParam")(0)
  210. If LinkType=1 Then
  211. If IsNull(DoMain) Or DoMain="" Then
  212. DatePathStr=Conn.execute("Select MF_Domain from FS_MF_Config")(0) &"/"& RsNewsObj("SavePath")&"/"&RsNewsObj("ClassEName")&"/"&RsNewsObj("FileName")&"."&RsNewsObj("NewsFileExtName")
  213. if instr(lcase(DatePathStr),"http://")=0 then
  214. DatePathStr="http://"&Replace(DatePathStr,"//","/")
  215. else
  216. DatePathStr="http://"&Replace(mid(DatePathStr,len("http://")+1),"//","/")
  217. end if
  218. Elseif Not IsNull(DoMain) And (DoMain <> "") then
  219. DatePathStr = DoMain &"/" & RsNewsObj("FileName") & "." & RsNewsObj("NewsFileExtName")
  220. if instr(lcase(DatePathStr),"http://")=0 then DatePathStr="http://"&Replace(DatePathStr,"//","/")
  221. End if
  222. ElseIf LinkType=0 then
  223. 'DatePathStr =RsNewsObj("SavePath")&"/"&RsNewsObj("ClassEName")&"/"& RsNewsObj("FileName") & "." & RsNewsObj("NewsFileExtName")
  224. DatePathStr =RsNewsObj("SavePath")&"/"&RsNewsObj("ClassEName")&RsNewsObj("SaveNewsPath")&"/" & RsNewsObj("FileName") & "." & RsNewsObj("NewsFileExtName")
  225. End if
  226. End If
  227. End if 
  228. Set RsNewsObj = Nothing
  229. GetOneNewsLinkURL = DatePathStr
  230. End Function
  231. '-----自由JS时间格式化
  232. Public Function  DateFormat(DateStr,Types)
  233. Dim DateString
  234. if IsDate(DateStr) = False then
  235. DateString = ""
  236. end if
  237. Select Case Types
  238.   Case "1" 
  239.   DateString = Year(DateStr)&"-"&Month(DateStr)&"-"&Day(DateStr)
  240.   Case "2"
  241.   DateString = Year(DateStr)&"."&Month(DateStr)&"."&Day(DateStr)
  242.   Case "3"
  243.   DateString = Year(DateStr)&"/"&Month(DateStr)&"/"&Day(DateStr)
  244.   Case "4"
  245.   DateString = Month(DateStr)&"/"&Day(DateStr)&"/"&Year(DateStr)
  246.   Case "5"
  247.   DateString = Day(DateStr)&"/"&Month(DateStr)&"/"&Year(DateStr)
  248.   Case "6"
  249.   DateString = Month(DateStr)&"-"&Day(DateStr)&"-"&Year(DateStr)
  250.   Case "7"
  251.   DateString = Month(DateStr)&"."&Day(DateStr)&"."&Year(DateStr)
  252.   Case "8"
  253.   DateString = Month(DateStr)&"-"&Day(DateStr)
  254.   Case "9"
  255.   DateString = Month(DateStr)&"/"&Day(DateStr)
  256.   Case "10"
  257.   DateString = Month(DateStr)&"."&Day(DateStr)
  258.   Case "11"
  259.   DateString = Month(DateStr)&"月"&Day(DateStr)&"日"
  260.   Case "12"
  261.   DateString = Day(DateStr)&"日"&Hour(DateStr)&"时"
  262.   case "13"
  263.   DateString = Day(DateStr)&"日"&Hour(DateStr)&"点"
  264.   Case "14"
  265.   DateString = Hour(DateStr)&"时"&Minute(DateStr)&"分"
  266.   Case "15"
  267.   DateString = Hour(DateStr)&":"&Minute(DateStr)
  268.   Case "16"
  269.   DateString = Year(DateStr)&"年"&Month(DateStr)&"月"&Day(DateStr)&"日"
  270.   Case Else
  271.   DateString = DateStr
  272.  End Select
  273.  DateFormat = DateString
  274.  End Function
  275.  '---------------------------------------------
  276. Public Function LoseHtml(ContentStr)
  277. Dim ClsTempLoseStr,regEx
  278. If ContentStr="" Or IsNull(ContentStr) Then Exit function
  279. ClsTempLoseStr = Cstr(ContentStr)
  280. Set regEx = New RegExp
  281. regEx.Pattern = "</*[^<>]*>"
  282. regEx.IgnoreCase = True
  283. regEx.Global = True
  284. ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
  285. LoseHtml = ClsTempLoseStr
  286. End Function
  287. '---------------------------------------------
  288. Function GotTopic(Str,StrLen)
  289. Dim l,t,c,i
  290. If StrLen=0 then
  291. GotTopic=""
  292. exit function
  293. End If
  294. if IsNull(Str) then 
  295. GotTopic = ""
  296. Exit Function
  297. end if
  298. if Str = "" then
  299. GotTopic=""
  300. Exit Function
  301. end if
  302. Str=Replace(Replace(Replace(Replace(Str,"&nbsp;"," "),"&quot;",Chr(34)),"&gt;",">"),"&lt;","<")
  303. l=len(str)
  304. t=0
  305. strlen=Clng(strLen)
  306. for i=1 to l
  307. c=Abs(Asc(Mid(str,i,1)))
  308. if c>255 then
  309. t=t+2
  310. else
  311. t=t+1
  312. end if
  313. if t>=strlen then
  314. GotTopic=left(str,i)
  315. exit for
  316. else
  317. GotTopic=str
  318. end if
  319. next
  320. GotTopic = Replace(Replace(Replace(Replace(GotTopic," ","&nbsp;"),Chr(34),"&quot;"),">","&gt;"),"<","&lt;")
  321. end Function
  322. '-----------------------------------------------------
  323. Private Function ListTitle(TitleStr,TitleNum)
  324.    Dim ClsTitleStr,ClsTitleNum,i,j,ClsTempNum,k,ClsTitleStrResult,LeftStr,RightStr
  325.    ClsTitleNum = Cint(TitleNum)
  326.    ClsTempNum = Len(Cstr(TitleStr))
  327.    if ClsTitleNum > ClsTempNum then
  328.    ClsTitleNum = ClsTempNum
  329.    end if
  330.    ClsTitleStr = Left(Cstr(TitleStr),ClsTitleNum)
  331.    Dim TempStr
  332.    For i = 1 to ClsTitleNum - 1
  333.    TempStr = TempStr & Mid(ClsTitleStr,i,1) & "<br>"
  334.    Next
  335.    TempStr = TempStr & Right(ClsTitleStr,1)
  336.    ListTitle = TempStr
  337. End Function
  338.  '生成函数
  339. Public Function WCssA(EName,CreateFileTF)
  340. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  341. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  342. If Not ClsJSObj.eof then
  343.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  344.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  345.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  346.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  347.   If ClsJSFileObj.eof then
  348. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
  349.   End If
  350.   If ClsJSObj("OpenMode")=1 then
  351.   OpenMode = "target=_blank"
  352.   Else
  353.   OpenMode = "target=_self"
  354.   End If
  355.   for i=1 to ClsJSObj("NewsNum")
  356.   If ClsJSFileObj.eof then Exit For
  357.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime  From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  358.   If ClsJSObj("ShowTimeTF")="1" then
  359.   JSCodeStr = JSCodeStr &"<td valign=middle ><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href=" & GetOneNewsLinkURL(ClsNewsObj("NewsID")) &" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td>"
  360.   Else
  361.   JSCodeStr = JSCodeStr &"<td valign=middle><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href=" & GetOneNewsLinkURL(ClsNewsObj("NewsID")) &" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td>"
  362.   End If
  363.   ClsNewsObj.Close
  364.   Set ClsNewsObj = Nothing
  365.   ClsJSFileObj.MoveNext
  366.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  367. if ClsJSObj("ShowTimeTF")=1 then
  368.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""& ClsJSObj("RowBettween")&"""></td></tr><tr>"
  369. else
  370.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""& ClsJSObj("RowBettween")&"""></td></tr><tr>"
  371. end if
  372.   end if
  373.   next 
  374.   ClsJSFileObj.Close 
  375.   Set ClsJSFileObj = Nothing 
  376.   JSCodeStr = JSCodeStr & "</tr></table>');"
  377.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  378.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  379.   Set MyFile=Server.CreateObject(G_FS_FSO)
  380.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  381.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  382.   End If
  383.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  384. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  385.   End if
  386.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  387. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  388.   End if
  389.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  390.   CrHNJS.write JSCodeStr
  391.   Set MyFile=nothing
  392.   '---------
  393.   ClsJSObj.Close
  394.   Set ClsJSObj = Nothing
  395. Else
  396. WCssA = "生成JS文件时未找到参数"
  397. End If
  398. End Function 
  400. Public Function WCssB(EName,CreateFileTF)
  401. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  402. Dim NewsLinkStr
  403. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  404. If Not ClsJSObj.eof then
  405.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  406.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  407.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  408.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  409.   If ClsJSFileObj.eof then 
  410. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
  411.   end if
  412.   If ClsJSObj("OpenMode")=1 then
  413.   OpenMode = "target=_blank"
  414.   Else
  415.   OpenMode = "target=_self"
  416.   End If
  417. ListSpaceStr = ""
  418. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  419. ListSpaceStr = ListSpaceStr & "&nbsp;"
  420. next 
  421.   for i=1 to ClsJSObj("NewsNum")
  422.   If ClsJSFileObj.eof then Exit For
  423.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  424.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  425.   If ClsJSObj("ShowTimeTF")=1 then
  426.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href=" & NewsLinkStr &" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
  427.   Else
  428.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href=" & NewsLinkStr &" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
  429.   End If
  430.   If ClsJSObj("ShowTimeTF")=1 then
  431. If  ClsJSObj("MoreContent")=1 then
  432.   JSCodeStr = JSCodeStr & "<tr><td colspan=2><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  433. Else
  434.   JSCodeStr = JSCodeStr & "<tr><td colspan=2><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  435. End If
  436.   Else
  437. If  ClsJSObj("MoreContent")=1 then
  438.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  439. Else
  440.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  441. End If
  442.   End If
  443.   ClsNewsObj.Close
  444.   Set ClsNewsObj = Nothing
  445.   ClsJSFileObj.MoveNext
  446.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  447.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  448.   end if
  449.   next 
  450.   ClsJSFileObj.Close 
  451.   Set ClsJSFileObj = Nothing 
  452.   JSCodeStr = JSCodeStr & "</tr></table>');"
  453.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  454.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  455.   if CreateFileTF = True then
  456.   Set MyFile=Server.CreateObject(G_FS_FSO)
  457. If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  458. MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  459. End If
  460.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  461. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  462.   End if
  463.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  464. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  465.   End if
  466. Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  467.   CrHNJS.write JSCodeStr
  468.   Set MyFile=nothing
  469.   ClsJSObj.Close
  470.   Set ClsJSObj = Nothing
  471.   else
  472.   WCssB = JSCodeStr
  473.   end if
  474. Else
  475. WCssB = "生成JS文件时未找到参数"
  476. End If
  477. End Function 
  479. Public Function WCssC(EName,CreateFileTF)
  480. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  481. Dim NewsLinkStr
  482. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  483. If Not ClsJSObj.eof then
  484.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  485.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  486.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  487.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  488.   If ClsJSFileObj.eof then 
  489. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  490.   end if
  491.   If ClsJSObj("OpenMode")=1 then
  492.   OpenMode = "target=_blank"
  493.   Else
  494.   OpenMode = "target=_self"
  495.   End If
  496. ListSpaceStr = ""
  497. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  498. ListSpaceStr = ListSpaceStr & "&nbsp;"
  499. next 
  500.   for i=1 to ClsJSObj("NewsNum")
  501.   If ClsJSFileObj.eof then Exit For
  502.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  503.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  504.   If ClsJSObj("ShowTimeTF")="1" then
  505.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td>"
  506.   Else
  507.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span></div></td>"
  508.   End If
  509.   If  ClsJSObj("MoreContent")=1 then
  510.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href=" & NewsLinkStr&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
  511.   Else
  512.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td><td>"&ListSpaceStr&"</td></tr></table></td>"
  513.   End If
  514.   ClsNewsObj.Close
  515.   Set ClsNewsObj = Nothing
  516.   ClsJSFileObj.MoveNext
  517.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  518.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  519.   end if
  520.   next 
  521.   ClsJSFileObj.Close 
  522.   Set ClsJSFileObj = Nothing 
  523.   JSCodeStr = JSCodeStr & "</tr></table>');"
  524.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  525.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  526.   if CreateFileTF = True then
  527.   Set MyFile=Server.CreateObject(G_FS_FSO)
  528.  If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  529. MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  530.   End If
  531.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  532. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  533.   End if
  534.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  535. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  536.   End if
  537.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  538.   CrHNJS.write JSCodeStr
  539.   Set MyFile=nothing
  540.   ClsJSObj.Close
  541.   Set ClsJSObj = Nothing
  542. else
  543. WCssC = JSCodeStr
  544. end if
  545. Else
  546. WCssC = "生成JS文件时未找到参数"
  547. End If
  548. End Function 
  550. Public Function WCssD(EName,CreateFileTF)
  551. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  552. Dim NewsLinkStr
  553. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  554. If Not ClsJSObj.eof then
  555.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  556.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  557.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  558.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  559.   If ClsJSFileObj.eof then 
  560. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  561.   end if
  562.   If ClsJSObj("OpenMode")=1 then
  563.   OpenMode = "target=_blank"
  564.   Else
  565.   OpenMode = "target=_self"
  566.   End If
  567. ListSpaceStr = ""
  568. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  569. ListSpaceStr = ListSpaceStr & "&nbsp;"
  570. next 
  571.   for i=1 to ClsJSObj("NewsNum")
  572.   If ClsJSFileObj.eof then Exit For
  573.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  574.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  575.   If  ClsJSObj("MoreContent")=1 then
  576.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td>"
  577.   Else
  578.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td>"
  579.   End If
  580.   If ClsJSObj("ShowTimeTF")="1" then
  581.   JSCodeStr = JSCodeStr &"<td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
  582.   Else
  583.   JSCodeStr = JSCodeStr &"<td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
  584.   End If
  585.   ClsNewsObj.Close
  586.   Set ClsNewsObj = Nothing
  587.   ClsJSFileObj.MoveNext
  588.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  589.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  590.   end if
  591.   next 
  592.   ClsJSFileObj.Close 
  593.   Set ClsJSFileObj = Nothing 
  594.   JSCodeStr = JSCodeStr & "</tr></table>');"
  595.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  596.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  597.   if CreateFileTF = True then
  598.   Set MyFile=Server.CreateObject(G_FS_FSO)
  599.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  600.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  601.   End If
  602.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  603. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  604.   End if
  605.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  606. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  607.   End if
  608.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  609.   CrHNJS.write JSCodeStr
  610.   Set MyFile=nothing
  611.   ClsJSObj.Close
  612.   Set ClsJSObj = Nothing
  613. else
  614. WCssD = JSCodeStr
  615. end if
  616. Else
  617. WCssD = "生成JS文件时未找到参数"
  618. End If
  619. End Function
  621. Public Function WCssE(EName,CreateFileTF)
  622. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  623. Dim NewsLinkStr
  624. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  625. If Not ClsJSObj.eof then
  626.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  627.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  628.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  629.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  630.   If ClsJSFileObj.eof then 
  631. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  632.   end if
  633.   If ClsJSObj("OpenMode")=1 then
  634.   OpenMode = "target=_blank"
  635.   Else
  636.   OpenMode = "target=_self"
  637.   End If
  638. ListSpaceStr = ""
  639. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  640. ListSpaceStr = ListSpaceStr & "&nbsp;"
  641. next 
  642.   for i=1 to ClsJSObj("NewsNum")
  643.   If ClsJSFileObj.eof then Exit For
  644.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  645.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  646.   If  ClsJSObj("MoreContent")=1 then
  647.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
  648.   Else
  649.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
  650.   End If
  651.   If ClsJSObj("ShowTimeTF")=1 then
  652.   JSCodeStr = JSCodeStr &"<tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td></tr></table></td>"
  653.   Else
  654.   JSCodeStr = JSCodeStr &"<tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td></tr></table></td>"
  655.   End If
  656.   ClsNewsObj.Close
  657.   Set ClsNewsObj = Nothing
  658.   ClsJSFileObj.MoveNext
  659.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  660.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  661.   end if
  662.   next 
  663.   ClsJSFileObj.Close 
  664.   Set ClsJSFileObj = Nothing 
  665.   JSCodeStr = JSCodeStr & "</tr></table>');"
  666.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  667.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  668.   if CreateFileTF = True then
  669.   Set MyFile=Server.CreateObject(G_FS_FSO)
  670.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  671.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  672.   End If
  673.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  674. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  675.   End if
  676.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  677. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  678.   End if
  679.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  680.   CrHNJS.write JSCodeStr
  681.   Set MyFile=nothing
  682.   ClsJSObj.Close
  683.   Set ClsJSObj = Nothing
  684.   else
  685.   WCssE = JSCodeStr
  686.   end if
  687. Else
  688. WCssE = "生成JS文件时未找到参数"
  689. End If
  690. End Function
  692. Public Function PCssA(EName,CreateFileTF)
  693. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  694. Dim NewsLinkStr
  695. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  696. If Not ClsJSObj.eof then
  697.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  698.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  699.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  700.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  701.   If ClsJSFileObj.eof then 
  702. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  703.   end if
  704.   If ClsJSObj("OpenMode")=1 then
  705.   OpenMode = "target=_blank"
  706.   Else
  707.   OpenMode = "target=_self"
  708.   End If
  709.   for i=1 to ClsJSObj("NewsNum")
  710.   If ClsJSFileObj.eof then Exit For
  711.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  712.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  713.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td align=""center""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td></tr>"
  714.   If ClsJSObj("ShowTimeTF")="1" then
  715.   JSCodeStr = JSCodeStr & "<tr><td align=""center"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td></tr></table></td>"
  716.   Else
  717.   JSCodeStr = JSCodeStr & "<tr><td align=""center"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td></tr></table></td>"
  718.   End If
  719.   ClsNewsObj.Close
  720.   Set ClsNewsObj = Nothing
  721.   ClsJSFileObj.MoveNext
  722.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  723.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  724.   end if
  725.   next 
  726.   ClsJSFileObj.Close 
  727.   Set ClsJSFileObj = Nothing 
  728.   JSCodeStr = JSCodeStr & "</tr></table>');"
  729.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  730.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  731.   if CreateFileTF = True then
  732.   Set MyFile=Server.CreateObject(G_FS_FSO)
  733.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  734.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  735.   End If
  736.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  737. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  738.   End if
  739.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  740. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  741.   End if
  742.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  743.   CrHNJS.write JSCodeStr
  744.   Set MyFile=nothing
  745.   ClsJSObj.Close
  746.   Set ClsJSObj = Nothing
  747.   else
  748.   PCssA = JSCodeStr
  749.   end if
  750. Else
  751. PCssA = "生成JS文件时未找到参数"
  752. End If
  753. End Function
  755. Public Function PCssB(EName,CreateFileTF)
  756. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  757. Dim NewsLinkStr
  758. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  759. If Not ClsJSObj.eof then
  760.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  761.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  762.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  763.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  764.   If ClsJSFileObj.eof then 
  765. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  766.   end if
  767.   If ClsJSObj("OpenMode")=1 then
  768.   OpenMode = "target=_blank"
  769.   Else
  770.   OpenMode = "target=_self"
  771.   End If
  772. ListSpaceStr = ""
  773. for Temp_i = 1 to Cint(ClsJSObj("RowSpace")2)
  774. ListSpaceStr = ListSpaceStr & "&nbsp;"
  775. next 
  776.   for i=1 to ClsJSObj("NewsNum")
  777.   If ClsJSFileObj.eof then Exit For
  778.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  779.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  780.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""center"" rowspan=""2""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td>"
  781.   If ClsJSObj("ShowTimeTF")="1" then
  782.   JSCodeStr = JSCodeStr & "<td align=""left"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  783.   Else
  784.   response.write ClsNewsObj("NewsTitle")&"---"&ClsJSObj("NewsTitleNum")
  785.   JSCodeStr = JSCodeStr & "<td align=""left"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  786.   End If
  787.   If  ClsJSObj("MoreContent")=1 Then
  788.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  789.   Else
  790.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  791.   End If
  792.   ClsNewsObj.Close
  793.   Set ClsNewsObj = Nothing
  794.   ClsJSFileObj.MoveNext
  795.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  796.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  797.   end if
  798.   next 
  799.   ClsJSFileObj.Close 
  800.   Set ClsJSFileObj = Nothing 
  801.   JSCodeStr = JSCodeStr & "</tr></table>');"
  802.   JSCodeStr = Replace(Replace(JSCodeStr,"<tr></tr>",""),"&nbsp;&nbsp;&nbsp;&nbsp;","")
  803.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  804.   if CreateFileTF = True then
  805.   Set MyFile=Server.CreateObject(G_FS_FSO)
  806.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  807.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  808.   End If
  809.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  810. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  811.   End if
  812.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  813. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  814.   End if
  815.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  816.   CrHNJS.write JSCodeStr
  817.   Set MyFile=nothing
  818.   ClsJSObj.Close
  819.   Set ClsJSObj = Nothing
  820.    else
  821.   PCssB = JSCodeStr
  822.    end if
  823. Else
  824. PCssB = "生成JS文件时未找到参数"
  825. End If
  826. End Function
  828. Public Function PCssC(EName,CreateFileTF)
  829. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  830. Dim NewsLinkStr
  831. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  832. If Not ClsJSObj.eof then
  833.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  834.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  835.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  836.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  837.   If ClsJSFileObj.eof then 
  838. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  839.   end if
  840.   If ClsJSObj("OpenMode")=1 then
  841.   OpenMode = "target=_blank"
  842.   Else
  843.   OpenMode = "target=_self"
  844.   End If
  845.   for i=1 to ClsJSObj("NewsNum")
  846.   If ClsJSFileObj.eof then Exit For
  847.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  848.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  849.   JSCodeStr = JSCodeStr & "<td align=""center""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
  850.   ClsNewsObj.Close
  851.   Set ClsNewsObj = Nothing
  852.   ClsJSFileObj.MoveNext
  853.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  854.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  855.   end if
  856.   next 
  857.   ClsJSFileObj.Close 
  858.   Set ClsJSFileObj = Nothing 
  859.   JSCodeStr = JSCodeStr & "</tr></table>');"
  860.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  861.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  862.   if CreateFileTF = True then
  863.   Set MyFile=Server.CreateObject(G_FS_FSO)
  864.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  865.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  866.   End If
  867.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  868. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  869.   End if
  870.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  871. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  872.   End if
  873.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  874.   CrHNJS.write JSCodeStr
  875.   Set MyFile=nothing
  876.   ClsJSObj.Close
  877.   Set ClsJSObj = Nothing
  878.    else
  879.   PCssC = JSCodeStr
  880.    end if
  881. Else
  882. PCssC = "生成JS文件时未找到参数"
  883. End If
  884. End Function
  886. Public Function PCssD(EName,CreateFileTF)
  887. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  888. Dim NewsLinkStr
  889. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  890. If Not ClsJSObj.eof then
  891.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  892.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  893.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  894.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  895.   If ClsJSFileObj.eof then 
  896. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  897.   end if
  898.   If ClsJSObj("OpenMode")=1 then
  899.   OpenMode = "target=_blank"
  900.   Else
  901.   OpenMode = "target=_self"
  902.   End If
  903. ListSpaceStr = ""
  904. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  905. ListSpaceStr = ListSpaceStr & "&nbsp;"
  906. next 
  907.   for i=1 to ClsJSObj("NewsNum")
  908.   If ClsJSFileObj.eof then Exit For
  909.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  910.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  911.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" colspan=""2"" align=""center""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  912.   If ClsJSObj("ShowTimeTF")="1" then
  913.   JSCodeStr = JSCodeStr &"<tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td>"
  914.   Else
  915.   JSCodeStr = JSCodeStr &"<tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&"""><a href="""&NewsLinkStr&""">"&ListTitle(GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</a></Span></div></td>"
  916.   End If
  917.   If  ClsJSObj("MoreContent")=1 then
  918.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  919.   Else
  920.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  921.   End If
  922.   ClsNewsObj.Close
  923.   Set ClsNewsObj = Nothing
  924.   ClsJSFileObj.MoveNext
  925.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  926.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  927.   end if
  928.   next 
  929.   ClsJSFileObj.Close 
  930.   Set ClsJSFileObj = Nothing 
  931.   JSCodeStr = JSCodeStr & "</tr></table>');"
  932.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  933.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  934.   JSCodeStr = Replace(Replace(JSCodeStr,"src='","src="),"' border"," border")
  935.   if CreateFileTF = True then
  936.   Set MyFile=Server.CreateObject(G_FS_FSO)
  937.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  938.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  939.   End If
  940.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  941. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  942.   End if
  943.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  944. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  945.   End if
  946.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  947.   CrHNJS.write JSCodeStr
  948.   Set MyFile=nothing
  949.   ClsJSObj.Close
  950.   Set ClsJSObj = Nothing
  951.    else
  952.   PCssD = JSCodeStr
  953.    end if
  954. Else
  955. PCssD = "生成JS文件时未找到参数"
  956. End If
  957. End Function
  959. Public Function PCssE(EName,CreateFileTF)
  960. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  961. Dim NewsLinkStr
  962. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  963. If Not ClsJSObj.eof then
  964.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  965.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  966.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  967.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  968.   If ClsJSFileObj.eof then 
  969. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  970.   end if
  971.   If ClsJSObj("OpenMode")=1 then
  972.   OpenMode = "target=_blank"
  973.   Else
  974.   OpenMode = "target=_self"
  975.   End If
  976. ListSpaceStr = ""
  977. for Temp_i = 1 to Cint(ClsJSObj("RowSpace")2)
  978. ListSpaceStr = ListSpaceStr & "&nbsp;"
  979. next 
  980.   for i=1 to ClsJSObj("NewsNum")
  981.   If ClsJSFileObj.eof then Exit For
  982.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  983.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  984.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td valign=""top"" align=""center""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  985.   If  ClsJSObj("MoreContent")=1 then
  986.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  987.   Else
  988.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  989.   End If
  990.   ClsNewsObj.Close
  991.   Set ClsNewsObj = Nothing
  992.   ClsJSFileObj.MoveNext
  993.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  994.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  995.   end if
  996.   next 
  997.   ClsJSFileObj.Close 
  998.   Set ClsJSFileObj = Nothing 
  999.   JSCodeStr = JSCodeStr & "</tr></table>');"
  1000.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  1001.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1002.   if CreateFileTF = True then
  1003.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1004.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1005.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1006.   End If
  1007.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1008. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1009.   End if
  1010.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1011. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1012.   End if
  1013.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1014.   CrHNJS.write JSCodeStr
  1015.   Set MyFile=nothing
  1016.   ClsJSObj.Close
  1017.   Set ClsJSObj = Nothing
  1018.    else
  1019.   PCssE = JSCodeStr
  1020.    end if
  1021. Else
  1022. PCssE = "生成JS文件时未找到参数"
  1023. End If
  1024. End Function
  1026. Public Function PCssF(EName,CreateFileTF)
  1027. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1028. Dim NewsLinkStr
  1029. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1030. If Not ClsJSObj.eof then
  1031.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1032.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1033.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1034.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1035.   If ClsJSFileObj.eof then 
  1036. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  1037.   end if
  1038.   If ClsJSObj("OpenMode")=1 then
  1039.   OpenMode = "target=_blank"
  1040.   Else
  1041.   OpenMode = "target=_self"
  1042.   End If
  1043. ListSpaceStr = ""
  1044. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  1045. ListSpaceStr = ListSpaceStr & "&nbsp;"
  1046. next 
  1047.   for i=1 to ClsJSObj("NewsNum")
  1048.   If ClsJSFileObj.eof then Exit For
  1049.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1050.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1051.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""center""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
  1052.   If  ClsJSObj("MoreContent")=1 then
  1053.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
  1054.   Else
  1055.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td><td>"&ListSpaceStr&"</td></tr></table></td>"
  1056.   End If
  1057.   ClsNewsObj.Close
  1058.   Set ClsNewsObj = Nothing
  1059.   ClsJSFileObj.MoveNext
  1060.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  1061.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr>"
  1062.   end if
  1063.   next 
  1064.   ClsJSFileObj.Close 
  1065.   Set ClsJSFileObj = Nothing 
  1066.   JSCodeStr = JSCodeStr & "</table>');"
  1067.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1068.   if CreateFileTF = True then
  1069.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1070.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1071.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1072.   End If
  1073.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1074. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1075.   End if
  1076.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1077. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1078.   End if
  1079.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1080.   CrHNJS.write JSCodeStr
  1081.   Set MyFile=nothing
  1082.   ClsJSObj.Close
  1083.   Set ClsJSObj = Nothing
  1084.    else
  1085.   PCssF = JSCodeStr
  1086.    end if
  1087. Else
  1088. PCssF = "生成JS文件时未找到参数"
  1089. End If
  1090. End Function
  1092. Public Function PCssG(EName,CreateFileTF)
  1093. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1094. Dim NewsLinkStr
  1095. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1096. If Not ClsJSObj.eof then
  1097.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1098.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1099.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1100.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1101.   If ClsJSFileObj.eof then 
  1102. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  1103.   end if
  1104.   If ClsJSObj("OpenMode")=1 then
  1105.   OpenMode = "target=_blank"
  1106.   Else
  1107.   OpenMode = "target=_self"
  1108.   End If
  1109.   JSCodeStr = JSCodeStr & "<td valign=""top"" align=""center"" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&"><img src="& ClsJSObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></td><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1110.   for i=1 to ClsJSObj("NewsNum")
  1111.   If ClsJSFileObj.eof then Exit For
  1112.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1113.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1114.   if i mod Cint(ClsJSObj("RowNum")) = 0 and not ClsJSFileObj.eof then
  1115.   If ClsJSObj("ShowTimeTF")="1" then
  1116.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1117.   Else
  1118.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1119.   End If
  1120.   end if
  1121.   if ClsJSFileObj.eof then
  1122.   If ClsJSObj("ShowTimeTF")="1" then
  1123.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1124.   Else
  1125.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src="""&ClsJSObj("NaviPic")&""" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1126.   End If
  1127.   end if
  1128.   ClsNewsObj.Close
  1129.   Set ClsNewsObj = Nothing
  1130.   ClsJSFileObj.MoveNext
  1131.   next 
  1132.   ClsJSFileObj.Close 
  1133.   Set ClsJSFileObj = Nothing 
  1134.   JSCodeStr = JSCodeStr & "</tr></table></td></tr></table>');"
  1135.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1136.   if CreateFileTF = True then
  1137.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1138.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1139.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1140.   End If
  1141.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1142. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1143.   End if
  1144.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1145. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1146.   End if
  1147.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1148.   CrHNJS.write JSCodeStr
  1149.   Set MyFile=nothing
  1150.   ClsJSObj.Close
  1151.   Set ClsJSObj = Nothing
  1152.    else
  1153.   PCssG = JSCodeStr
  1154.    end if
  1155. Else
  1156. PCssG = "生成JS文件时未找到参数"
  1157. End If
  1158. End Function
  1160. Public Function PCssH(EName,CreateFileTF)
  1161. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1162. Dim NewsLinkStr
  1163. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1164. If Not ClsJSObj.eof then
  1165.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1166.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1167.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1168.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1169.   If ClsJSFileObj.eof then 
  1170. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
  1171.   end if
  1172.   If ClsJSObj("OpenMode")=1 then
  1173.   OpenMode = "target=_blank"
  1174.   Else
  1175.   OpenMode = "target=_self"
  1176.   End If
  1177. ListSpaceStr = ""
  1178. for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
  1179. ListSpaceStr = ListSpaceStr & "&nbsp;"
  1180. next 
  1181.   for i=1 to ClsJSObj("NewsNum")
  1182.   If ClsJSFileObj.eof then Exit For
  1183.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1184.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1185.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""left""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
  1186.   If ClsJSObj("ShowTimeTF")="1" then
  1187.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1188.   Else
  1189.   JSCodeStr = JSCodeStr & "<td><div align=""left""><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1190.   End If
  1191.   If  ClsJSObj("MoreContent")=1 then
  1192.   JSCodeStr = JSCodeStr & "<tr><td colspan=""2""><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  1193.   Else
  1194.   JSCodeStr = JSCodeStr & "<tr><td colspan=""2""><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  1195.   End If
  1196.   ClsNewsObj.Close
  1197.   Set ClsNewsObj = Nothing
  1198.   ClsJSFileObj.MoveNext
  1199.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  1200.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  1201.   end if
  1202.   next 
  1203.   ClsJSFileObj.Close 
  1204.   Set ClsJSFileObj = Nothing 
  1205.   JSCodeStr = JSCodeStr & "</tr></table>');"
  1206.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  1207.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1208.   if CreateFileTF = True then
  1209.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1210.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1211.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1212.   End If
  1213.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1214. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1215.   End if
  1216.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1217. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1218.   End if
  1219.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1220.   CrHNJS.write JSCodeStr
  1221.   Set MyFile=nothing
  1222.   ClsJSObj.Close
  1223.   Set ClsJSObj = Nothing
  1224.    else
  1225.   PCssH = JSCodeStr
  1226.    end if
  1227. Else
  1228. PCssH = "生成JS文件时未找到参数"
  1229. End If
  1230. End Function
  1232. Public Function PCssI(EName,CreateFileTF)
  1233. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1234. Dim NewsLinkStr
  1235. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1236. If Not ClsJSObj.eof then
  1237.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1238.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1239.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1240.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1241.   If ClsJSFileObj.eof then 
  1242. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
  1243.   end if
  1244.   If ClsJSObj("OpenMode")=1 then
  1245.   OpenMode = "target=_blank"
  1246.   Else
  1247.   OpenMode = "target=_self"
  1248.   End If
  1249. ListSpaceStr = ""
  1250. for Temp_i = 1 to Cint(ClsJSObj("RowSpace")2)
  1251. ListSpaceStr = ListSpaceStr & "&nbsp;"
  1252. next 
  1253.   for i=1 to ClsJSObj("NewsNum")
  1254.   If ClsJSFileObj.eof then Exit For
  1255.   Response.Write("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1256.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1257.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1258.   If ClsJSObj("ShowTimeTF")="1" then
  1259.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td colspan=""3""><div align=""center""><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1260.   Else
  1261.   JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td colspan=""3""><div align=""center""><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
  1262.   End If
  1263.   JSCodeStr = JSCodeStr & "<tr><td valign=""top""><a href="&NewsLinkStr&" "&OpenMode&"><img src="& ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td>&nbsp;</td>"   
  1264.   If  ClsJSObj("MoreContent")=1 then
  1265.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  1266.   Else
  1267.   JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  1268.   End If
  1269.   ClsNewsObj.Close
  1270.   Set ClsNewsObj = Nothing
  1271.   ClsJSFileObj.MoveNext
  1272.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  1273.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  1274.   end if
  1275.   next 
  1276.   ClsJSFileObj.Close 
  1277.   Set ClsJSFileObj = Nothing 
  1278.   JSCodeStr = JSCodeStr & "</tr></table>');"
  1279.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  1280.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1281.   if CreateFileTF = True then
  1282.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1283.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1284.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1285.   End If
  1286.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1287. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1288.   End if
  1289.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1290. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1291.   End if
  1292.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1293.   CrHNJS.write JSCodeStr
  1294.   Set MyFile=nothing
  1295.   ClsJSObj.Close
  1296.   Set ClsJSObj = Nothing
  1297.    else
  1298.   PCssI = JSCodeStr
  1299.    end if
  1300. Else
  1301. PCssI = "生成JS文件时未找到参数"
  1302. End If
  1303. End Function
  1305. Public Function PCssJ(EName,CreateFileTF)
  1306. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1307. Dim NewsLinkStr
  1308. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1309. If Not ClsJSObj.eof then
  1310.   JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1311.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1312.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1313.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1314.   If ClsJSFileObj.eof then 
  1315. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
  1316.   end if
  1317.   If ClsJSObj("OpenMode")=1 then
  1318.   OpenMode = "target=_blank"
  1319.   Else
  1320.   OpenMode = "target=_self"
  1321.   End If
  1322.   for i=1 to ClsJSObj("NewsNum")
  1323.   If ClsJSFileObj.eof then Exit For
  1324.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1325.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1326.   If ClsJSObj("ShowTimeTF")="1" then
  1327.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table background="""& ClsJSFileObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td></tr>"
  1328.   Else
  1329.   JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table background="""& ClsJSFileObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td></tr>"
  1330.   End If
  1331.   If  ClsJSObj("MoreContent")=1 then
  1332.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
  1333.   Else
  1334.   JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""">"&TitleSpaceStr&left(ClsNewsObj("Content"),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
  1335.   End If
  1336.   ClsNewsObj.Close
  1337.   Set ClsNewsObj = Nothing
  1338.   ClsJSFileObj.MoveNext
  1339.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  1340.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  1341.   end if
  1342.   next 
  1343.   ClsJSFileObj.Close 
  1344.   Set ClsJSFileObj = Nothing 
  1345.   JSCodeStr = JSCodeStr & "</tr></table>');"
  1346.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  1347.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1348.   if CreateFileTF = True then
  1349.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1350.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1351.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1352.   End If
  1353.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1354. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1355.   End if
  1356.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1357. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1358.   End if
  1359.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1360.   CrHNJS.write JSCodeStr
  1361.   Set MyFile=nothing
  1362.   ClsJSObj.Close
  1363.   Set ClsJSObj = Nothing
  1364.    else
  1365.   PCssJ = JSCodeStr
  1366.    end if
  1367. Else
  1368. PCssJ = "生成JS文件时未找到参数"
  1369. End If
  1370. End Function
  1372. Public Function PCssK(EName,CreateFileTF)
  1373. Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,OpenMode
  1374. Dim NewsLinkStr
  1375. Set ClsJSObj = Conn.Execute("Select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode From FS_NS_FreeJS Where EName='"&EName&"'")
  1376. If Not ClsJSObj.eof then
  1377.   JSCodeStr = "document.write('<table background="""& ClsJSObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
  1378.   Set ClsJSFileObj=server.createobject(G_FS_RS)
  1379.   ClsFileSql="Select ID,Title,JSName,FileName,PicPath,ClassID,NewsTime,ToJsTime,DelFlag From FS_NS_FreeJSFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
  1380.   ClsJSFileObj.open ClsFileSql,Conn,1,1
  1381.   If ClsJSFileObj.eof then
  1382. JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
  1383.   End If
  1384.   If ClsJSObj("OpenMode")=1 then
  1385.   OpenMode = "target=_blank"
  1386.   Else
  1387.   OpenMode = "target=_self"
  1388.   End If
  1389.   for i=1 to ClsJSObj("NewsNum")
  1390.   If ClsJSFileObj.eof then Exit For
  1391.   Set ClsNewsObj = Conn.Execute("Select ID,NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,SaveNewsPath,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime From FS_NS_News where FileName='"&ClsJSFileObj("FileName")&"'")
  1392.   NewsLinkStr = GetOneNewsLinkURL(ClsNewsObj("NewsID"))
  1393.   If ClsJSObj("ShowTimeTF")="1" then
  1394.   JSCodeStr = JSCodeStr &"<td valign=middle><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddTime"),""&ClsJSObj("DateType")&"")&"</Span></td>"
  1395.   Else
  1396.   JSCodeStr = JSCodeStr &"<td valign=middle><img src=""<img src="""&ClsJSObj("NaviPic")&""" />"" /><a class="""&ClsJSObj("TitleCSS")&""" href="&NewsLinkStr&" "&OpenMode&">"&GotTopic(ClsNewsObj("NewsTitle"),ClsJSObj("NewsTitleNum"))&"</a></td>"
  1397.   End If
  1398.   ClsNewsObj.Close
  1399.   Set ClsNewsObj = Nothing
  1400.   ClsJSFileObj.MoveNext
  1401.   if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
  1402. if ClsJSObj("ShowTimeTF")=1 then
  1403.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  1404. else
  1405.   JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
  1406. end if
  1407.   end if
  1408.   next 
  1409.   ClsJSFileObj.Close 
  1410.   Set ClsJSFileObj = Nothing 
  1411.   JSCodeStr = JSCodeStr & "</tr></table>');"
  1412.   JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
  1413.   JSCodeStr = Replace(Replace(JSCodeStr,Chr(13),""),Chr(10),"")
  1414.   if CreateFileTF = True then
  1415.   Set MyFile=Server.CreateObject(G_FS_FSO)
  1416.   If MyFile.FileExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js") then
  1417.  MyFile.DeleteFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1418.   End If
  1419.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS")) Then
  1420. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS"))
  1421.   End if
  1422.   If Not MyFile.FolderExists(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")) Then
  1423. MyFile.CreateFolder(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs"))
  1424.   End if
  1425.   Set CrHNJS=MyFile.CreateTextFile(Server.MapPath("../../../"&TempSysRootDir&"/JS/FreeJs")&""& EName &".js")
  1426.   CrHNJS.write JSCodeStr
  1427.   Set MyFile=nothing
  1428.   ClsJSObj.Close
  1429.   Set ClsJSObj = Nothing
  1430.    else
  1431.   PCssK = JSCodeStr
  1432.    end if
  1433. Else
  1434. PCssK = "生成JS文件时未找到参数"
  1435. End If
  1436. End Function
  1437. End Class
  1438. %>
  1439. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->