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

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

数据库编程

开发平台：

ASP/ASPX

DS_Public.asp：源码内容
  1. <%
  2. Class cls_DS
  3. Private m_Rs,m_FSO,m_Dict
  4. Private m_PathDir,m_Path_UserDir,m_Path_User,m_Path_adminDir,m_Path_UserPageDir,m_Path_Templet
  5. Private m_Err_Info,m_Err_NO
  7. Public Property Get Err_Info()
  8. Err_Info = m_Err_Info
  9. End Property
  11. Public Property Get Err_NO()
  12. Err_NO = m_Err_NO
  13. End Property
  15. Private Sub Class_initialize()
  16. Set m_Rs = Server.CreateObject(G_FS_RS)
  17. Set m_FSO = Server.CreateObject(G_FS_FSO)
  18. Set m_Dict = Server.CreateObject(G_FS_DICT)
  19. m_PathDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")
  20. m_Path_UserDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USER_DIR&"/","//","/")
  21. m_Path_UserPageDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USERFILES_DIR&"/","//","/")
  22. End Sub
  24. Private Sub Class_Terminate()
  25. Set m_Rs = Nothing
  26. Set m_FSO = Nothing
  27. Set m_Dict = Nothing
  28. End Sub
  30. Public Function get_LableChar(f_Lablechar,f_Id)
  31. Dim f_array
  32. f_array= split(f_Lablechar,"┆")
  33. if ubound(f_array)=0 and not isarray(f_array) then
  34. get_LableChar=""
  35. exit Function
  36. else
  37. select case LCase(f_array(0))
  38. case "classnews","lastnews","recnews","hotnews","downhotnews"
  39. ''get_LableChar = ubound(f_array) : exit function ''测试用
  40. if ubound(f_array)<>17  and  ubound(f_array)<>23 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=ClassNews(f_Lablechar,LCase(f_array(0)),f_Id):end if
  41. case "classlist"
  42. if ubound(f_array)<>17  and  ubound(f_array)<>23 then:get_LableChar="标签错误":else:get_LableChar=classlist(f_Lablechar,"classlist",f_Id):end if
  43. '常规标签类
  44. case "readnews"
  45. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=ReadNews(f_Lablechar,"readnews",f_Id):end if
  46. case "sitemap"
  47. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=SiteMap(f_Lablechar,"sitemap",f_Id):end if
  48. case "search"
  49. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Search(f_Lablechar,"search"):end if
  50. case "infostat"
  51. if ubound(f_array)<>1   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=infoStat(f_Lablechar,"infostat"):end if
  52. case "classnavi"
  53. if ubound(f_array)<>11   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=ClassNavi(f_Lablechar,"classnavi",f_Id):end if
  54. case "subclasslist"
  55. if ubound(f_array)<>20 and  ubound(f_array)<>26  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=subClassList(f_Lablechar,"subclasslist",f_Id):end if
  56. end select
  57. end if
  58. End Function
  60. '得到div,table_________________________________________________________________________________
  61. Public Function table_str_list_head(f_tf,f_divid,f_divclass,f_ulid,f_ulclass)
  62. Dim table_,tr_
  63. Dim f_divid_1,f_divclass_1,f_ulid_1,f_ulclass_1
  64. if f_tf=1 then
  65. if f_divid<>"" then:f_divid_1 = " id="""& f_divid &"""":else:f_divid_1 = "":end if
  66. if f_divclass<>"" then:f_divclass_1 = " class="""& f_divclass &"""":else:f_divclass_1 = "":end if
  67. if f_ulid<>"" then:f_ulid_1 = " id="""& f_ulid &"""":else:f_ulid_1 = "":end if
  68. if f_ulclass<>"" then:f_ulclass_1 = " class="""& f_ulclass &"""":else:f_ulclass_1 = "":end if
  69. table_="<div"& f_divid_1 & f_divclass_1 &">"
  70. tr_="<ul"& f_ulid_1 & f_ulclass_1 &">"
  71. table_str_list_head =  table_&chr(10)
  72. table_str_list_head = table_str_list_head &" "& tr_&chr(10)
  73. else
  74. table_="<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  75. table_str_list_head =  table_&chr(10)
  76. end if
  77. End Function
  79. '得到div,table_________________________________________________________________________________
  80. public Function table_str_list_middle_1(f_tf,f_liid,f_liclass)
  81. Dim f_liid_1,f_liclass_1,td_
  82. if f_tf=1 then
  83. if f_liid<>"" then:f_liid_1 = " id="""& f_liid &"""":else:f_liid_1 = "":end if
  84. if f_liclass<>"" then:f_liclass_1 = " class="""& f_liclass &"""":else:f_liclass_1 = "":end if
  85. td_="<li"&f_liid_1&f_liclass_1&">"
  86. table_str_list_middle_1 ="  "&td_
  87. end if
  88. End Function
  90. '得到div,table_________________________________________________________________________________
  91. public Function table_str_list_middle_2(f_tf)
  92. Dim td__,tr__
  93. if f_tf=1 then
  94. td__="</li>"
  95. else
  96. td__="</td>"
  97. end if
  98. table_str_list_middle_2 =  td__&chr(10)
  99. End Function
  101. '得到div,table_________________________________________________________________________________
  102. Public Function table_str_list_middle_3(f_tf)
  103. if f_tf=1 then
  104. table_str_list_middle_3 = ""
  105. else
  106. table_str_list_middle_3 = "</tr>"
  107. end if
  108. End Function
  111. '得到div,table_________________________________________________________________________________
  112. Public Function table_str_list_bottom(f_tf)
  113. Dim table__,tr__
  114. if f_tf=1 then
  115. table__="</div>"
  116. tr__="</ul>"
  117. table_str_list_bottom = " "&tr__&chr(10)
  118. else
  119. table__="</table>"
  120. table_str_list_bottom = ""
  121. end if
  122. table_str_list_bottom = table_str_list_bottom &table__&chr(10)
  123. End Function
  124. 'DIV格式输出结束_____________________________________________________________________
  126. '开始读取标签____综合类标签__________________________________________________
  127. Public Function ClassNews(f_Lablechar,f_LableType,f_Id)
  128. Dim table_array,classNews_head,classNews_bottom,classNews_middle1,classNews_middle2,div_tf,style_id,style_Content,Content_List,f_rs_s_obj,Content_more,c_i_k
  129. Dim newnumber,classid,orderby,orderdesc,colnumber,contentnumber,navinumber,datenumber,titlenumber,picshowtf,datenumber_tmp,morechar,datestyle,openstyle,open_target,containSubClass,childClass
  130. Dim f_sql,f_rs_obj,f_rs_configobj,f_configSql,CharIndexStr
  131. Dim MF_Domain,marqueedirec,marqueespeed,marqueestyle
  132. Dim search_str,order_in_str_awen
  133. Dim ClassName,ClassEName,c_Domain,ClassNaviContent,ClassNaviPic,c_SavePath,c_FileSaveType,search_inSQL
  134. table_array=split(f_Lablechar,"┆")
  135. if instr(f_Lablechar,"out_DIV")>0 then
  136. div_tf=1
  137. search_str = split(split(f_Lablechar,"┆")(2),"$")(1)
  138. newnumber =split(split(f_Lablechar,"┆")(3),"$")(1)
  139. datenumber= split(split(f_Lablechar,"┆")(11),"$")(1)
  140. titlenumber= split(split(f_Lablechar,"┆")(12),"$")(1)
  141. picshowtf=split(split(f_Lablechar,"┆")(13),"$")(1)
  142. openstyle=split(split(f_Lablechar,"┆")(14),"$")(1)
  143. containSubClass=split(split(f_Lablechar,"┆")(15),"$")(1)
  144. orderby = split(split(f_Lablechar,"┆")(16),"$")(1)
  145. orderdesc = split(split(f_Lablechar,"┆")(17),"$")(1)
  146. morechar = split(split(f_Lablechar,"┆")(18),"$")(1)
  147. datestyle = split(split(f_Lablechar,"┆")(20),"$")(1)
  148. style_id = split(split(f_Lablechar,"┆")(21),"$")(1)
  149. colnumber= split(split(f_Lablechar,"┆")(22),"$")(1)
  150. contentnumber= split(split(f_Lablechar,"┆")(23),"$")(1)
  151. else
  152. div_tf=0
  153. search_str = split(split(f_Lablechar,"┆")(2),"$")(1)
  154. newnumber = split(split(f_Lablechar,"┆")(3),"$")(1)
  155. datenumber= split(split(f_Lablechar,"┆")(5),"$")(1)
  156. titlenumber= split(split(f_Lablechar,"┆")(6),"$")(1)
  157. picshowtf=split(split(f_Lablechar,"┆")(7),"$")(1)
  158. openstyle=split(split(f_Lablechar,"┆")(8),"$")(1)
  159. containSubClass=split(split(f_Lablechar,"┆")(9),"$")(1)
  160. orderby = split(split(f_Lablechar,"┆")(10),"$")(1)
  161. orderdesc = split(split(f_Lablechar,"┆")(11),"$")(1)
  162. morechar = split(split(f_Lablechar,"┆")(12),"$")(1)
  163. datestyle = split(split(f_Lablechar,"┆")(14),"$")(1)
  164. style_id = split(split(f_Lablechar,"┆")(15),"$")(1)
  165. colnumber= split(split(f_Lablechar,"┆")(16),"$")(1)
  166. contentnumber= split(split(f_Lablechar,"┆")(17),"$")(1)
  167. end if
  168. 'if isnumeric(newnumber)=false then
  169. ' newnumber = 10
  170. 'else
  171. ' newnumber=newnumber
  172. 'end if
  173. if not isnumeric(titlenumber) then
  174. titlenumber = 30
  175. else
  176. titlenumber = titlenumber
  177. end if
  178. if isnumeric(colnumber)=false then
  179. colnumber = 30
  180. else
  181. colnumber = colnumber
  182. end if
  183. if isnumeric(contentnumber)=false then
  184. contentnumber = 100
  185. else
  186. contentnumber = contentnumber
  187. end if
  188. 'if div_tf=1 then
  189. classNews_head = table_str_list_head(div_tf,split(table_array(5),"$")(1),split(table_array(6),"$")(1),split(table_array(7),"$")(1),split(table_array(8),"$")(1))
  190. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(9),"$")(1),split(table_array(10),"$")(1))
  191. 'end if
  192. classNews_bottom = table_str_list_bottom(div_tf)
  193. classNews_middle2 = table_str_list_middle_2(div_tf)
  194. ''永不过期和尚未到期的
  195. datenumber_tmp=" and  (OverDue=0 or (OverDue>0 and datediff('d',AddTime,'"&date()&"')<= OverDue))"
  196. if datenumber ="0" then:datenumber_tmp = "":else:datenumber_tmp = " and datevalue(AddTime)+"&datenumber&">=datevalue(now)":end if
  197. ''已经在外部定义好了。
  198. order_in_str_awen = ""&orderby&" "&orderdesc&""
  199. if ucase(orderby)<>"ID" then order_in_str_awen = order_in_str_awen & ",ID Desc"
  200. If containSubClass=1 Then
  201. childClass=" or classid in ("&DelHeadAndEndDot(getNewsSubClass(search_str))&")"
  202. Else
  203. childClass=""
  204. End if
  205. select case f_LableType
  206. case "classnews"
  207. If childClass<>"" Then
  208. search_inSQL = " and (ClassId='"& search_str &"'"&childClass&")"
  209. Else
  210. search_inSQL = " and ClassId='"& search_str &"'"
  211. End if
  212. case "lastnews","hotnews","downhotnews"
  213. if trim(search_str)<>"" Then
  214. If childClass<>"" Then
  215. search_inSQL = " and (ClassId='"& search_str &"'"&childClass&")"
  216. Else
  217. search_inSQL = " and ClassId='"& search_str &"'"
  218. End if
  219. else
  220. if trim(f_id)<>"" Then
  221. If childClass<>"" then
  222. search_inSQL = " and (ClassId='"& f_id &"'"&childClass&")"
  223. Else
  224. search_inSQL = " and ClassId='"& f_id &"'"
  225. End if
  226. else
  227. search_inSQL = ""
  228. end if
  229. end if
  230. f_LableType = "classnews" ''处理后还原
  231. case "recnews"
  232. if trim(search_str)<>"" Then
  233. If childClass<>"" then
  234. search_inSQL = " and RecTF=1 and (ClassId='"& search_str &"'"&childClass&")"
  235. Else
  236. search_inSQL = " and RecTF=1 and ClassId='"& search_str &"'"
  237. End if
  238. else
  239. if trim(f_id)<>"" Then
  240. If childClass<>"" then
  241. search_inSQL = " and RecTF=1 and (ClassId='"& f_id &"'"&childClass&")"
  242. Else
  243. search_inSQL = " and RecTF=1 and ClassId='"& f_id &"'"
  244. End if
  245. else
  246. search_inSQL = " and RecTF=1"
  247. end if
  248. end if
  249. f_LableType = "classnews" ''处理后还原
  250. end select
  251. f_sql="select top "& cint(newnumber) &" ID,DownLoadID,ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop," _
  252. &"ClickNum,EditTime,EMail,SavePath,FileExtName,FileName,FileSize,Language,Name,NewsTemplet,PassWord,Pic," _
  253. &"Property,Provider,ProviderUrl,RecTF,ReviewTF,ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum,Hits"
  254. f_sql = f_sql &" From FS_DS_List where AuditTF=1 "&search_inSQL & datenumber_tmp &" order by "&order_in_str_awen
  255. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  256. Content_List=""
  257. set f_rs_obj = Conn.execute(f_sql)
  258. if f_rs_obj.eof then
  259. Content_List=""
  260. f_rs_obj.close:set f_rs_obj=nothing
  261. else
  262. if f_LableType="marnews" then
  263. Content_List = Content_List & "<marquee onmouseover=""this.stop();"" scrollamount="""& marqueespeed &""" direction="""& marqueedirec &""" onmouseout=""this.start();"">"
  264. do while not f_rs_obj.eof
  265. Content_List= Content_List &getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,f_LableType)&"&nbsp;&nbsp;&nbsp;"
  266. f_rs_obj.movenext
  267. loop
  268. Content_List = Content_List & "</marquee>"
  269. else
  270. if div_tf = 0 then
  271. c_i_k = 0
  272. if cint(colnumber)<>1 then
  273. Content_List = Content_List &  "  <tr>"
  274. end if
  275. end if
  276. do while not f_rs_obj.eof
  277. if div_tf=1 then
  278. Content_List= Content_List & classNews_middle1 & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,f_LableType) & classNews_middle2
  279. else
  280. if cint(colnumber) =1 then
  281. Content_List= Content_List & chr(10)&"   <tr><td>" & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,f_LableType) & "</td></tr>"
  282. else
  283. Content_List= Content_List & "<td width="""& cint(100/cint(colnumber))&"%"">" & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,f_LableType) & "</td>"
  284. end if
  285. end if
  286. f_rs_obj.movenext
  287. if div_tf = 0 then
  288. if cint(colnumber)<>1 then
  289. c_i_k = c_i_k+1
  290. if c_i_k mod cint(colnumber) = 0 then
  291. Content_List = Content_List & "</tr>"&chr(10)&"  <tr>"
  292. end if
  293. end if
  294. end if
  295.    loop
  296.    if div_tf=0 then
  297. if cint(colnumber)<>1 then
  298. Content_List = Content_List & "</tr>"&chr(10)
  299. end if
  300.    end if
  301. end if
  302. '得到栏目路径
  303. if f_LableType="classnews" then
  304. dim Query_rs,newsclass_SavePath,FileSaveType,UrlDomain,all_savepath
  305. set Query_rs=Conn.execute("select ClassEName,SavePath,FileExtName,[Domain],FileSaveType,IsURL,UrlAddress From FS_DS_Class where ClassId='"& search_str &"'")
  306. if Query_rs.eof then
  307. Query_rs.close:set Query_rs=nothing
  308. else
  309.   all_savepath = get_ClassLink(search_str)
  310.   Query_rs.close:set Query_rs=nothing
  311. end if
  312. if openstyle=0 then
  313. open_target=" "
  314. else
  315. open_target=" target=""_blank"""
  316. end if
  317. if div_tf=1 then
  318. Content_more = "  <li><a href="""&  all_savepath &""" "& open_target &" title=""更多..."">"&morechar&"</a></li>"&chr(10)
  319. else
  320. Content_more = "  <tr><td colspan="""& cint(colnumber) &"""><div align=""right""><a href="""&  all_savepath &""" "& open_target &" title=""更多..."">"&morechar&"</a></div></td></tr>"&chr(10)
  321. end if
  322.  end if
  323.  f_rs_obj.close:set f_rs_obj=nothing
  324. if f_LableType="marnews" then
  325. Content_List= Content_List
  326. else
  327. Content_List=classNews_head & Content_List & Content_more & classNews_bottom
  328. end if
  329. end if
  330. ClassNews =  Content_List
  331. End Function
  333. ''正则查找
  334. Public Function Test_KeyWord(f_Str,Patt)
  335. Dim f_regEx
  336. Set f_regEx = New RegExp
  337. f_regEx.Pattern = Patt
  338. f_regEx.IgnoreCase = True
  339. f_regEx.Global = True
  340. Test_KeyWord = f_regEx.test(Cstr(f_Str))
  341. End Function
  343. Public Function replace_KeyWord(f_obj,f_MF_Domain,f_Str,Patstr)
  344. Dim regEx,Match, Matches,f_oldStr
  345. f_oldStr = f_Str
  346. Set regEx = New RegExp
  347. regEx.Pattern = Patstr
  348. regEx.IgnoreCase = True
  349. regEx.Global = True
  350. Set Matches = regEx.Execute(Cstr(f_Str))      ' 执行搜索。
  351. 'Show_Html = Matches(Matches.Count-1).value   'Matches.Count-1 才是最后一个数值
  352. For Each Match in Matches         ' 遍历 Matches 集合。
  353. if Match.Value<>"" then replace_KeyWord = replace_KeyWord & doregExValue(f_obj,f_MF_Domain,f_oldStr,Match.Value)
  354. Next
  355. End Function
  357. Public Function doregExValue(f_obj,f_MF_Domain,f_oldStr,ExValue)
  358. dim s_m_Rs1,k_tmp_Chararray,k_tmp_Chararray1,k_tmp_uchar,tmp_list,k_tmp_uchar1,k_tmp_uchar2,k_tmp_i
  359. k_tmp_Chararray = split(ExValue,"$")
  360. k_tmp_uchar="":tmp_list="":k_tmp_uchar1="":k_tmp_uchar2=""
  361. if ubound(k_tmp_Chararray)=1 then
  362. k_tmp_uchar =  replace(k_tmp_Chararray(1),"}","")
  363. k_tmp_uchar=Replace(k_tmp_uchar,"&amp;","&")
  364. k_tmp_uchar=Replace(k_tmp_uchar,"&lt;","<")
  365. k_tmp_uchar=Replace(k_tmp_uchar,"&gt;",">")
  366. select case k_tmp_uchar
  367. case "1"
  368. k_tmp_uchar = "<br />"
  369. case "2"
  370. k_tmp_uchar = "&nbsp;"
  371. case "3"
  372. k_tmp_uchar = "</tr><tr>"
  373. case else
  374. '' $<br />:10 表示 <br />循环10次
  375. if instr(k_tmp_uchar,":") then
  376. k_tmp_Chararray1 = split(k_tmp_uchar,":")
  377. if ubound(k_tmp_Chararray1) = 1 then
  378. if k_tmp_Chararray1(1)<>"" then
  379. if isnumeric(k_tmp_Chararray1(1)) then
  380. k_tmp_uchar = ""
  381. for k_tmp_i=1 to cint(k_tmp_Chararray1(1))
  382. select case k_tmp_Chararray1(0)
  383. case "1"
  384. k_tmp_uchar2 = "<br />"
  385. case "2"
  386. k_tmp_uchar2 = "&nbsp;"
  387. case "3"
  388. k_tmp_uchar2 = "</tr><tr>"
  389. case else
  390. k_tmp_uchar2 = k_tmp_Chararray1(0)
  391. end select
  392. k_tmp_uchar = k_tmp_uchar & k_tmp_uchar2
  393. next
  394. end if
  395. end if
  396. end if
  397. end if
  398. end select
  399. end if
  400. set s_m_Rs1 = Conn.execute("select ID,AddressName from FS_DS_Address where DownLoadID='"&f_obj("DownLoadID")&"' order by Number desc")
  401. do while not s_m_Rs1.eof
  402. tmp_list = tmp_list & "<a href=""http://"&f_MF_Domain&"/Down.asp?DownLoadID="&f_obj("DownLoadID")&"&ID="&s_m_Rs1("ID")&""" target=""_blank"">"& s_m_Rs1("AddressName") &"</a>"
  403. tmp_list = tmp_list & k_tmp_uchar
  404. s_m_Rs1.movenext
  405. loop
  406. s_m_Rs1.close
  407. set s_m_Rs1=nothing
  408. doregExValue = replace(f_oldStr,ExValue,tmp_list)
  409. End Function
  411. '替换样式列表________________________________________________________________
  412. Public Function getlist_news(f_obj,style_id,f_titlenumber,f_contentnumber,f_navinumber,f_picshowtf,f_datestyle,f_openstyle,f_MF_Domain,f_subsys_ListType)
  413. Dim f_target,get_SpecialEName,ListSql,Rs_ListObj,s_Content,s_NewsPathUrl,Rs_Authorobj,k_i,k_tmp_Char,k_tmp_uchar,k_tmp_Chararray,FormReview
  414. Dim s_m_Rs,s_m_Rs1,s_array,s_t_i,tmp_list,s_f_classSql,m_Rs_class,class_path,str_newstitle
  415. if f_openstyle=0 then
  416. f_target=" "
  417. else
  418. f_target=" target=""_blank"""
  419. end if
  420. if style_id<>"" then
  421. ListSql = "Select Content from FS_MF_Labestyle where ID=" & style_id & ""
  422. Set Rs_ListObj = Conn.Execute(ListSql)
  423. if Not Rs_ListObj.Eof then
  424. s_Content = Rs_ListObj("Content")
  425. '_________________________________________________________________________________________________
  426. if instr(s_Content,"{DS:FS_ID}")>0 then
  427. s_Content = replace(s_Content,"{DS:FS_ID}",f_obj("Id"))
  428. end if
  429. '_________________________________________________________________________________________________
  430. if instr(s_Content,"{DS:FS_DownLoadID}")>0 then
  431. s_Content = replace(s_Content,"{DS:FS_DownLoadID}",f_obj("DownLoadID"))
  432. end if
  433. '_________________________________________________________________________________________________
  434. if instr(s_Content,"{DS:FS_Name}")>0 then
  435. if f_subsys_ListType="readnews" then
  436. str_newstitle = f_obj("Name")
  437. else
  438. str_newstitle =GotTopic(f_obj("Name"),f_titlenumber)
  439. if f_picshowtf=1 then
  440. if f_obj("Pic")<>"" then
  441. str_newstitle = ""&str_newstitle&"<img src="""&m_PathDir&"sys_images/img.gif"" alt=""有图片"" border=""0"">"
  442. end if
  443. end if
  444. end if
  445. s_Content = replace(s_Content,"{DS:FS_Name}",str_newstitle)
  446. end if
  447. dim news_SavePath,s_Query_rs,news_Domain,news_UrlDomain,news_ClassEname,s_all_savepath
  448. '_________________________________________________________________________________________________
  449. if instr(s_Content,"{DS:FS_Description}")>0 then
  450. if f_subsys_ListType="readnews" then
  451. if instr(f_obj("Description"),"[FS:PAGE]")>0 then
  452. s_Content = replace(s_Content,"{DS:FS_Description}","[FS:CONTENT_START]"&f_obj("Description")&"[FS:CONTENT_END]")
  453. else
  454. s_Content = replace(s_Content,"{DS:FS_Description}",""&f_obj("Description"))
  455. end if
  456. else
  457. s_all_savepath = get_DownLink(f_obj("DownLoadID"))
  458. s_NewsPathUrl = s_all_savepath
  459. s_Content = replace(s_Content,"{DS:FS_Description}",replace(replace(GetCStrLen(""&replace(""&f_obj("Description"),"[FS:PAGE]","")&"",f_contentnumber),"&nbsp;",""),vbCrLf,"")&"...&nbsp;&nbsp;<a class=""more"" href="""& s_NewsPathUrl &""">详细内容 >> </a>")
  460. end if
  461. end if
  462. '_________________________________________________________________________________________________
  463. if instr(s_Content,"{DS:FS_DownURL}")>0 or  instr(s_Content,"{DS:FS_Description}")>0 then
  464. s_all_savepath = get_DownLink(f_obj("DownLoadID"))
  465. s_NewsPathUrl = s_all_savepath
  466. s_Content = replace(s_Content,"{DS:FS_DownURL}",s_NewsPathUrl)
  467. end if
  468. '''下载地址列表
  469. '_________________________________________________________________________________________________
  470. if Test_KeyWord(s_Content,"{DS:FS_Address($[^{]+)?}") then
  471. s_Content = replace_KeyWord(f_obj,f_MF_Domain,s_Content,"{DS:FS_Address($[^{]+)?}")
  472. end if
  473. '_________________________________________________________________________________________________
  474. dim tmp_f_datestyle
  475. tmp_f_datestyle = f_datestyle
  476. if instr(s_Content,"{DS:FS_AddTime}")>0 then
  477. if instr(f_datestyle,"YY02")>0 then
  478. tmp_f_datestyle= replace(tmp_f_datestyle,"YY02",right(year(f_obj("AddTime")),2))
  479. end if
  480. if instr(f_datestyle,"YY04")>0 then
  481. tmp_f_datestyle= replace(tmp_f_datestyle,"YY04",year(f_obj("AddTime")))
  482. end if
  483. if instr(f_datestyle,"MM")>0 then
  484. if month(f_obj("AddTime"))<10 then
  485. tmp_f_datestyle= replace(tmp_f_datestyle,"MM","0"&month(f_obj("AddTime")))
  486. else
  487. tmp_f_datestyle= replace(tmp_f_datestyle,"MM",month(f_obj("AddTime")))
  488. end if
  489. end if
  490. if instr(f_datestyle,"DD")>0 then
  491. if day(f_obj("AddTime"))<10 then
  492. tmp_f_datestyle= replace(tmp_f_datestyle,"DD","0"&day(f_obj("AddTime")))
  493. else
  495. tmp_f_datestyle= replace(tmp_f_datestyle,"DD",day(f_obj("AddTime")))
  496. end if
  497. end if
  498. if instr(f_datestyle,"HH")>0 then
  499. if hour(f_obj("AddTime"))<10 then
  500. tmp_f_datestyle= replace(tmp_f_datestyle,"HH","0"&hour(f_obj("AddTime")))
  501. else
  502. tmp_f_datestyle= replace(tmp_f_datestyle,"HH",hour(f_obj("AddTime")))
  503. end if
  504. end if
  505. if instr(f_datestyle,"MI")>0 then
  506. if minute(f_obj("AddTime"))<10 then
  507. tmp_f_datestyle= replace(tmp_f_datestyle,"MI","0"&minute(f_obj("AddTime")))
  508. else
  509. tmp_f_datestyle= replace(tmp_f_datestyle,"MI",minute(f_obj("AddTime")))
  510. end if
  511. end if
  512. if instr(f_datestyle,"SS")>0 then
  513. if second(f_obj("AddTime"))<10 then
  514. tmp_f_datestyle= replace(tmp_f_datestyle,"SS","0"&second(f_obj("AddTime")))
  515. else
  516. tmp_f_datestyle= replace(tmp_f_datestyle,"SS",second(f_obj("AddTime")))
  517. end if
  518. end if
  519. s_Content = replace(s_Content,"{DS:FS_AddTime}",""&tmp_f_datestyle&"")
  520. end if
  521. '_________________________________________________________________________________________________
  522. if instr(s_Content,"{DS:FS_EditTime}")>0 then
  523. if instr(f_datestyle,"YY02")>0 then
  524. tmp_f_datestyle= replace(tmp_f_datestyle,"YY02",right(year(f_obj("EditTime")),2))
  525. end if
  526. if instr(f_datestyle,"YY04")>0 then
  527. tmp_f_datestyle= replace(tmp_f_datestyle,"YY04",year(f_obj("EditTime")))
  528. end if
  529. if instr(f_datestyle,"MM")>0 then
  530. if month(f_obj("EditTime"))<10 then
  531. tmp_f_datestyle= replace(tmp_f_datestyle,"MM","0"&month(f_obj("EditTime")))
  532. else
  533. tmp_f_datestyle= replace(tmp_f_datestyle,"MM",month(f_obj("EditTime")))
  534. end if
  535. end if
  536. if instr(f_datestyle,"DD")>0 then
  537. if day(f_obj("EditTime"))<10 then
  538. tmp_f_datestyle= replace(tmp_f_datestyle,"DD","0"&day(f_obj("EditTime")))
  539. else
  541. tmp_f_datestyle= replace(tmp_f_datestyle,"DD",day(f_obj("EditTime")))
  542. end if
  543. end if
  544. if instr(f_datestyle,"HH")>0 then
  545. if hour(f_obj("EditTime"))<10 then
  546. tmp_f_datestyle= replace(tmp_f_datestyle,"HH","0"&hour(f_obj("EditTime")))
  547. else
  548. tmp_f_datestyle= replace(tmp_f_datestyle,"HH",hour(f_obj("EditTime")))
  549. end if
  550. end if
  551. if instr(f_datestyle,"MI")>0 then
  552. if minute(f_obj("EditTime"))<10 then
  553. tmp_f_datestyle= replace(tmp_f_datestyle,"MI","0"&minute(f_obj("EditTime")))
  554. else
  555. tmp_f_datestyle= replace(tmp_f_datestyle,"MI",minute(f_obj("EditTime")))
  556. end if
  557. end if
  558. if instr(f_datestyle,"SS")>0 then
  559. if second(f_obj("EditTime"))<10 then
  560. tmp_f_datestyle= replace(tmp_f_datestyle,"SS","0"&second(f_obj("EditTime")))
  561. else
  562. tmp_f_datestyle= replace(tmp_f_datestyle,"SS",second(f_obj("EditTime")))
  563. end if
  564. end if
  565. s_Content = replace(s_Content,"{DS:FS_EditTime}",""&tmp_f_datestyle&"")
  566. end if
  567. dim ajax_str,hits_str
  568. '_________________________________________________________________________________________________
  569. if instr(s_Content,"{DS:FS_Hits}")>0 then
  570. hits_str = "<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Click.asp?type=ajax&SubSys=DS&spanid=DS_id_click_"&f_obj("ID")&"""></script>"&chr(10)
  571. s_Content = replace(s_Content,"{DS:FS_Hits}",""&  hits_str & "<span id=""DS_id_click_"&f_obj("ID")&"""></span>")
  572. end if
  573. '_________________________________________________________________________________________________
  574. if instr(s_Content,"{DS:FS_ClickNum}")>0 then
  575. hits_str = "<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Click.asp?type=ajax&SubSys=DS&Get=ClickNum&spanid=DS_id_click_"&f_obj("ID")&"""></script>"&chr(10)
  576. s_Content = replace(s_Content,"{DS:FS_ClickNum}",""&  hits_str & "<span id=""DS_id_click_"&f_obj("ID")&"""></span>")
  577. end if
  578. '_________________________________________________________________________________________________
  579. if instr(s_Content,"{DS:FS_SystemType}")>0 then
  580. s_Content = replace(s_Content,"{DS:FS_SystemType}",""&f_obj("SystemType")&"")
  581. end if
  582. '_________________________________________________________________________________________________
  583. if instr(s_Content,"{DS:FS_Accredit}")>0 then
  584. s_Content = replace(s_Content,"{DS:FS_Accredit}",""&Replacestr(f_obj("Accredit"),"1:免费,2:共享,3:试用,4:演示,5:注册,6:破解,7:零售,8:其它")&"")
  585. end if
  586. '_________________________________________________________________________________________________
  587. if instr(s_Content,"{DS:FS_Version}")>0 then
  588. s_Content = replace(s_Content,"{DS:FS_Version}",""&f_obj("Version")&"")
  589. end if
  590. '_________________________________________________________________________________________________
  591. if instr(s_Content,"{DS:FS_Appraise}")>0 then
  592. dim db_ii,Str_Tmp,ii_
  593. db_ii = f_obj("Appraise")
  594. if db_ii = "" or isnull(db_ii) then  db_ii = 0
  595. if db_ii>6 then db_ii=6
  596. Str_Tmp = ""
  597. for ii_ = 1 to db_ii
  598. Str_Tmp = Str_Tmp & "<img border=0 src=""/sys_images/icon_star_2.gif"" title="""&f_obj("Appraise")&"星"">"
  599. next 
  600. for ii_ = 1 to 6 - db_ii
  601. Str_Tmp = Str_Tmp & "<img border=0 src=""/sys_images/icon_star_1.gif"" title="""&f_obj("Appraise")&"星"">"
  602. next 
  603. s_Content = replace(s_Content,"{DS:FS_Appraise}",""&Str_Tmp&"")
  604. end if
  605. '_________________________________________________________________________________________________
  606. if instr(s_Content,"{DS:FS_FileSize}")>0 then
  607. s_Content = replace(s_Content,"{DS:FS_FileSize}",""&f_obj("FileSize")&"")
  608. end if
  609. '_________________________________________________________________________________________________
  610. if instr(s_Content,"{DS:FS_Language}")>0 then
  611. s_Content = replace(s_Content,"{DS:FS_Language}",""&f_obj("Language")&"")
  612. end if
  613. '_________________________________________________________________________________________________
  614. if instr(s_Content,"{DS:FS_PassWord}")>0 then
  615. s_Content = replace(s_Content,"{DS:FS_PassWord}",""&f_obj("PassWord")&"")
  616. end if
  617. '_________________________________________________________________________________________________
  618. if instr(s_Content,"{DS:FS_Provider}")>0 then
  619. s_Content = replace(s_Content,"{DS:FS_Provider}",""&f_obj("Provider")&"")
  620. end if
  621. '_________________________________________________________________________________________________
  622. if instr(s_Content,"{DS:FS_ProviderUrl}")>0 then
  623. s_Content = replace(s_Content,"{DS:FS_ProviderUrl}",""&f_obj("ProviderUrl")&"")
  624. end if
  625. '_________________________________________________________________________________________________
  626. if instr(s_Content,"{DS:FS_EMail}")>0 then
  627. s_Content = replace(s_Content,"{DS:FS_EMail}","<a href=""mailto:"&f_obj("EMail")&""">"&f_obj("EMail")&"</a>")
  628. end if
  629. '_________________________________________________________________________________________________
  630. if instr(s_Content,"{DS:FS_Types}")>0 then
  631. s_Content = replace(s_Content,"{DS:FS_Types}",""&f_obj("Types")&"")
  632. end if
  633. '_________________________________________________________________________________________________
  634. if instr(s_Content,"{DS:FS_OverDue}")>0 then
  635. if f_obj("OverDue")=0 then
  636. s_Content = replace(s_Content,"{DS:FS_OverDue}","永不过期")
  637. else
  638. s_Content = replace(s_Content,"{DS:FS_OverDue}",""&f_obj("OverDue")&"天")
  639. end if
  640. end if
  641. '_________________________________________________________________________________________________
  642. if instr(s_Content,"{DS:FS_ConsumeNum}")>0 then
  643. s_Content = replace(s_Content,"{DS:FS_ConsumeNum}",""&f_obj("ConsumeNum")&"")
  644. end if
  645. '_________________________________________________________________________________________________
  646. if instr(s_Content,"{DS:FS_Pic}")>0 then
  647. if trim(f_obj("Pic"))<>"" then
  648. s_Content = replace(s_Content,"{DS:FS_Pic}",f_obj("Pic"))
  649. else
  650. s_Content = replace(s_Content,"{DS:FS_Pic}","/sys_images/NoPic.jpg")
  651. end if
  652. end if
  653. '_________________________________________________________________________________________________
  654. if instr(s_Content,"{DS:FS_FormReview}")>0 then
  655. s_Content = replace(s_Content,"{DS:FS_FormReview}","<span id=""Review_TF_"& f_obj("ID") &""">loading...</span><script language=""JavaScript"" type=""text/javascript"" src=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ReviewTF.asp?Id="& f_obj("ID") &"&Type=DS""></script>")
  656. end if
  657. '_________________________________________________________________________________________________
  658. If instr(s_Content,"{DS:FS_ShowComment}")>0 Then
  659. s_Content = replace(s_Content,"{DS:FS_ShowComment}","<span id=""DS_show_review_"& f_obj("ID") &""">评论加载中...</span><script language=""JavaScript"" type=""text/javascript"" src=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ShowReview.asp?Id="&f_obj("ID")&"&Type=DS&SpanId=DS_show_review_"& f_obj("ID") &"""></script>")
  660. End If
  661. '_________________________________________________________________________________________________
  662. if instr(s_Content,"{DS:FS_AddFavorite}")>0 then
  663. s_Content = replace(s_Content,"{DS:FS_AddFavorite}","<a href=""http://"& Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/User/AddFavor.asp?Id="&f_obj("id")&"&Type=ds""><img src="""& m_PathDir &"sys_images/Favorite.gif"" border=""0"" alt=""加入收藏夹""></a>")
  664. end if
  665. '_________________________________________________________________________________________________
  666. if instr(s_Content,"{DS:FS_SendFriend}")>0 then
  667. s_Content = replace(s_Content,"{DS:FS_SendFriend}","<a href=""http://"& Request.Cookies("FoosunMFCookies")("FoosunMFDomain") &"/Sendmail.asp?Id="&f_obj("id")&"&Type=ds""><img src="""& m_PathDir &"sys_images/sendmail.gif"" border=""0"" alt=""发送给好友""></a>")
  668. end if
  670. '获得栏目地址_______________________________________________________________________________________________
  671. s_f_classSql = "select ClassID,ClassName,ClassEName,[Domain],ClassNaviContent,ClassNaviPic,SavePath,FileSaveType,ClassKeywords,Classdescription,FileExtName from FS_DS_Class where ClassId='"&f_obj("ClassId")&"' and ReycleTF=0 order by OrderID desc,id desc"
  672. if instr(s_Content,"{DS:FS_ClassURL}")>0 then
  673. class_path=get_ClassLink(f_obj("ClassId"))
  674. s_Content = replace(s_Content,"{DS:FS_ClassURL}",class_path)
  675. end if
  676. if instr(s_Content,"{DS:FS_ClassName}")>0 then
  677. set m_Rs_class = Conn.execute(s_f_classSql)
  678. s_Content = replace(s_Content,"{DS:FS_ClassName}",""&m_Rs_class("ClassName")&"")
  679. m_Rs_class.close:set m_Rs_class=nothing
  680. end if
  681. if instr(s_Content,"{DS:FS_ClassNaviPicURL}")>0 then
  682. set m_Rs_class = Conn.execute(s_f_classSql)
  683. if trim(m_Rs_class("ClassNaviPic"))<>"" then
  684. s_Content = replace(s_Content,"{DS:FS_ClassNaviPicURL}",""& m_Rs_class("ClassNaviPic") &"")
  685. else
  686. s_Content = replace(s_Content,"{DS:FS_ClassNaviPicURL}","")
  687. end if
  688. m_Rs_class.close:set m_Rs_class=nothing
  689. end if
  690. if instr(s_Content,"{DS:FS_ClassNaviDescript}")>0 then
  691. set m_Rs_class = Conn.execute(s_f_classSql)
  692. if trim(m_Rs_class("ClassNaviContent"))<>"" then
  693. s_Content = replace(s_Content,"{DS:FS_ClassNaviDescript}",""& m_Rs_class("ClassNaviContent") &"")
  694. else
  695. s_Content = replace(s_Content,"{DS:FS_ClassNaviDescript}","")
  696. end if
  697. m_Rs_class.close:set m_Rs_class=nothing
  698. end if
  699. if instr(s_Content,"{DS:FS_ClassNaviContent}")>0 then
  700. set m_Rs_class = Conn.execute(s_f_classSql)
  701. s_Content = replace(s_Content,"{DS:FS_ClassNaviContent}",""&m_Rs_class("ClassNaviContent"))
  702. m_Rs_class.close:set m_Rs_class=nothing
  703. end if
  704. if instr(s_Content,"{DS:FS_ClassKeywords}")>0 then
  705. set m_Rs_class = Conn.execute(s_f_classSql)
  706. s_Content = replace(s_Content,"{DS:FS_ClassKeywords}",""&m_Rs_class("ClassKeywords"))
  707. m_Rs_class.close:set m_Rs_class=nothing
  708. end if
  709. if instr(s_Content,"{DS:FS_Classdescription}")>0 then
  710. set m_Rs_class = Conn.execute(s_f_classSql)
  711. s_Content = replace(s_Content,"{DS:FS_Classdescription}",""&m_Rs_class("Classdescription"))
  712. m_Rs_class.close:set m_Rs_class=nothing
  713. end if
  714. '这里暂时用*代替
  715. '释放对象
  716. Rs_ListObj.close:set Rs_ListObj=nothing
  717. else
  718. m_Err_Info = "DS警告:此下载找不到样式,没生成"
  719. m_Err_No="DS:nostyle"
  720. s_Content=""
  721. Rs_ListObj.close:set Rs_ListObj=nothing
  722. end if
  723. else
  724. m_Err_Info = "DS警告:找不到此下载"
  725. m_Err_No="DS:nodata"
  726. s_Content=""
  727. end if
  728. getlist_news = s_Content
  729. End Function
  731. '开始读取标签____下载终极类标签_____________________________________________________________________
  732. Public Function ClassList(f_Lablechar,f_type,f_Id)
  733. if f_Id<>"" then
  734. dim table_array,div_tf,newnumber,datenumber,titlenumber,picshowtf,openstyle,orderby,orderdesc,pageTF,pagestyle,pagenumber,pagecss,datestyle,style_id,colnumber,contentnumber,navinumber
  735. dim classNews_head,classNews_bottom,classNews_middle1,classNews_middle2,search_inSQL,order_in_str_awen
  736. dim datenumber_tmp,f_sql,f_configsql,f_rs_obj,f_rs_configobj,MF_Domain
  737. dim TPageNum,perPageNum,PageNum,sPageCount,cl_i,c_i_k
  738. dim rs_c,RefreshNumber,Page_flag_TF
  739. table_array=split(f_Lablechar,"┆")
  740. m_Err_Info = ""
  741. if instr(f_Lablechar,"out_DIV")>0 then
  742. div_tf=1
  743. datenumber= split(split(f_Lablechar,"┆")(9),"$")(1)
  744. titlenumber= split(split(f_Lablechar,"┆")(10),"$")(1)
  745. picshowtf=split(split(f_Lablechar,"┆")(11),"$")(1)
  746. openstyle=split(split(f_Lablechar,"┆")(12),"$")(1)
  747. orderby = split(split(f_Lablechar,"┆")(14),"$")(1)
  748. orderdesc = split(split(f_Lablechar,"┆")(15),"$")(1)
  749. pageTF = split(split(f_Lablechar,"┆")(16),"$")(1)
  750. pagestyle = split(split(f_Lablechar,"┆")(17),"$")(1)
  751. pagenumber = split(split(f_Lablechar,"┆")(18),"$")(1)
  752. pagecss = split(split(f_Lablechar,"┆")(19),"$")(1)
  753. datestyle = split(split(f_Lablechar,"┆")(20),"$")(1)
  754. style_id = split(split(f_Lablechar,"┆")(21),"$")(1)
  755. colnumber= split(split(f_Lablechar,"┆")(22),"$")(1)
  756. contentnumber= split(split(f_Lablechar,"┆")(23),"$")(1)
  757. else
  758. div_tf=0
  759. datenumber= split(split(f_Lablechar,"┆")(3),"$")(1)
  760. titlenumber= split(split(f_Lablechar,"┆")(4),"$")(1)
  761. picshowtf=split(split(f_Lablechar,"┆")(5),"$")(1)
  762. openstyle=split(split(f_Lablechar,"┆")(6),"$")(1)
  763. orderby = split(split(f_Lablechar,"┆")(8),"$")(1)
  764. orderdesc = split(split(f_Lablechar,"┆")(9),"$")(1)
  765. pageTF = split(split(f_Lablechar,"┆")(10),"$")(1)
  766. pagestyle = split(split(f_Lablechar,"┆")(11),"$")(1)
  767. pagenumber = split(split(f_Lablechar,"┆")(12),"$")(1)
  768. pagecss = split(split(f_Lablechar,"┆")(13),"$")(1)
  769. datestyle = split(split(f_Lablechar,"┆")(14),"$")(1)
  770. style_id = split(split(f_Lablechar,"┆")(15),"$")(1)
  771. colnumber= split(split(f_Lablechar,"┆")(16),"$")(1)
  772. contentnumber= split(split(f_Lablechar,"┆")(17),"$")(1)
  773. end if
  774. 'if div_tf=1 then
  775. classNews_head = table_str_list_head(div_tf,split(table_array(3),"$")(1),split(table_array(4),"$")(1),split(table_array(5),"$")(1),split(table_array(6),"$")(1))
  776. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(7),"$")(1),split(table_array(8),"$")(1))
  777. 'end if
  778. classNews_bottom = table_str_list_bottom(div_tf)
  779. classNews_middle2 = table_str_list_middle_2(div_tf)
  780. Page_flag_TF = "{Foosun_Page_news}"& pagestyle &"|"& pagecss&"{/Foosun_Page_news}"
  781. ''永不过期和尚未到期的
  782. datenumber_tmp=" and  (OverDue=0 or (OverDue>0 and datediff('d',AddTime,'"&date()&"')<= OverDue))"
  783. if datenumber ="0" then:datenumber_tmp = "":else:datenumber_tmp = " and datevalue(AddTime)+"&datenumber&">=datevalue(now)":end if
  784. ''已经在外部定义好了。
  785. order_in_str_awen = ""&orderby&" "&orderdesc&""
  786. if ucase(orderby)<>"ID" then order_in_str_awen = order_in_str_awen & ",ID Desc"
  787. ''top多少条
  788. set rs_c=conn.execute("select RefreshNumber from FS_DS_Class where  ClassId='"& f_Id &"'")
  789. if rs_c.eof then
  790. RefreshNumber = ""
  791.    rs_c.close:set rs_c = nothing
  792. else
  793. if rs_c(0)=0 then
  794. RefreshNumber = ""
  795. else
  796. RefreshNumber = "top "&rs_c(0)&""
  797. end if
  798. rs_c.close:Set rs_c=nothing
  799. end if
  800. search_inSQL=" and ClassId='"& f_Id &"'"
  801. f_sql="select "& RefreshNumber &" ID,DownLoadID,ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop," _
  802. &"ClickNum,EditTime,EMail,SavePath,FileExtName,FileName,FileSize,Language,Name,NewsTemplet,PassWord,Pic," _
  803. &"Property,Provider,ProviderUrl,RecTF,ReviewTF,ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum,Hits"
  804. f_sql = f_sql &" From FS_DS_List where AuditTF=1 "&search_inSQL & datenumber_tmp &" order by "&order_in_str_awen
  805. Set  f_rs_obj = Server.CreateObject(G_FS_RS)
  806. f_rs_obj.open f_sql,Conn,1,3
  807. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  808. ClassList = ""
  809. if f_rs_obj.eof then
  810. ClassList = ""
  811. f_rs_obj.close:set f_rs_obj=nothing
  812. else
  813. perPageNum =pagenumber
  814. TPageNum = f_rs_obj.recordcount
  815. f_rs_obj.PageSize = perPageNum
  816. sPageCount = f_rs_obj.PageCount
  817. if div_tf = 0 then
  818. c_i_k = 0
  819. if cint(colnumber)<>1 then
  820. ClassList = ClassList &  "  <tr>"
  821. end if
  822. end if
  823. for cl_i=1 to f_rs_obj.recordcount
  824. if f_rs_obj.eof Then exit For
  825. if div_tf=1 then
  826. ClassList= ClassList & classNews_middle1 & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,"ClassList") & classNews_middle2
  827. else
  828. if cint(colnumber) =1 then
  829. ClassList= ClassList &"   <tr><td>" & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,"ClassList") & "</td></tr>"
  830. else
  831. ClassList= ClassList & "<td width="""& cint(100/cint(colnumber))&"%"">" & getlist_news(f_rs_obj,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,"ClassList") & "</td>"
  832. end if
  833. end if
  834. f_rs_obj.movenext
  835. if div_tf = 0 then
  836. if cint(colnumber)<>1 then
  837. c_i_k = c_i_k+1
  838. if c_i_k mod cint(colnumber) = 0 then
  839. ClassList = ClassList & "</tr>"&chr(10)&"  <tr>"
  840. end if
  841. end if
  842. dim tmp_1
  843. if pageTF="1" then
  844. 'if cint(colnumber) =1 then
  845. ' tmp_1 = ""
  846. 'else
  847. ' tmp_1 = "</tr>"&chr(10)
  848. 'end if
  849. if split(formatnumber(cl_i/f_rs_obj.pagesize,2,-1),".")(1)="00" and cl_i <> f_rs_obj.recordcount then
  850. ClassList = ClassList &"</table>"& Page_flag_TF & chr(10) & classNews_head
  851. end if
  852. if cl_i = f_rs_obj.recordcount then
  853. ClassList = ClassList &"</table>"& Page_flag_TF
  854. end if
  855. end if
  856. else
  857. if pageTF="1" then
  858. if split(formatnumber(cl_i/f_rs_obj.pagesize,2,-1),".")(1)="00" and cl_i <> f_rs_obj.recordcount then
  859. ClassList = ClassList & classNews_bottom & Page_flag_TF & chr(10) & classNews_head
  860. end if
  861. if cl_i = f_rs_obj.recordcount then
  862. ClassList = ClassList & classNews_bottom &  Page_flag_TF &chr(10)
  863. end if
  864. end if
  865. end if
  866. next
  867. if div_tf=0 then
  868. if cint(colnumber)<>1 then
  869. ClassList = ClassList & "</tr>"&chr(10)
  870. end if
  871. end if
  872. f_rs_obj.close:set f_rs_obj=nothing
  873. ClassList=classNews_head & ClassList
  874. end if
  875. else
  876. ClassList = ""
  877. end if
  878. ' if ClassList<>"" then
  879. ' if Not f_type="marnews" then
  880. ' ClassList=classNews_head & ClassList & classNews_middle1 & classNews_middle2 & classNews_bottom
  881. ' end if
  882. ' end if
  883. End Function
  884. '得到子类新闻列表
  885. 'subClassList┆图片新闻$0┆Loop$10┆输出格式$out_Table┆多少天$0┆标题数$30┆图文标志$1┆打开窗口$0┆包含子类$0┆排列字段$PopId┆排列方式$DESC┆分页$1┆分页样式$3,CC0066┆每页数量$30┆PageCSS$┆日期格式$YY02年MM月DD日┆引用样式$40┆背景底纹$┆栏目排列数$1┆新闻排列数$1┆内容字数$200┆导航字数$200
  886. 'subClassList┆图片新闻$0┆Loop$10┆输出格式$out_DIV┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆多少天$0┆标题数$30┆图文标志$1┆打开窗口$0┆包含子类$0┆排列字段$PopId┆排列方式$DESC┆分页$1┆分页样式$3,CC0066┆每页数量$30┆PageCSS$┆日期格式$YY02年MM月DD日┆引用样式$40┆背景底纹$┆栏目排列数$1┆新闻排列数$1┆内容字数$200┆导航字数$200
  887. 'picnewstf = split(split(f_Lablechar,"┆")(1),"$")(1)
  888. Public Function subClassList(f_Lablechar,f_type,f_Id)
  889. dim rs,f_sql,rs_n,rs_f_sql
  890. dim div_tf,c_s_i,bg_ground,c_cols,c_cols_1,datenumber,datenumber_tmp,orderby,orderdesc,style_id,Inc_SubClass,SQL_Inc_SubClass
  891. dim titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,loopnumber
  892. dim classNews_head,classNews_middle1,classNews_bottom,classNews_middle2,c_s_i_1,table_array
  893. if instr(f_Lablechar,"out_DIV")>0 then
  894. div_tf=1
  895. c_cols = split(split(f_Lablechar,"┆")(24),"$")(1)
  896. c_cols_1 = split(split(f_Lablechar,"┆")(25),"$")(1)
  897. bg_ground = split(split(f_Lablechar,"┆")(23),"$")(1)
  898. datenumber = split(split(f_Lablechar,"┆")(10),"$")(1)
  899. orderby = split(split(f_Lablechar,"┆")(15),"$")(1)
  900. orderdesc = split(split(f_Lablechar,"┆")(16),"$")(1)
  901. style_id = split(split(f_Lablechar,"┆")(22),"$")(1)
  902. loopnumber = split(split(f_Lablechar,"┆")(2),"$")(1)
  903. titlenumber = split(split(f_Lablechar,"┆")(11),"$")(1)
  904. contentnumber = split(split(f_Lablechar,"┆")(26),"$")(1)
  905. picshowtf = split(split(f_Lablechar,"┆")(12),"$")(1)
  906. datestyle =  split(split(f_Lablechar,"┆")(21),"$")(1)
  907. openstyle =  split(split(f_Lablechar,"┆")(13),"$")(1)
  908. Inc_SubClass = split(split(f_Lablechar,"┆")(8),"$")(1)
  909. else
  910. div_tf=0
  911. c_cols = split(split(f_Lablechar,"┆")(18),"$")(1)   ''栏目排列数
  912. c_cols_1 = split(split(f_Lablechar,"┆")(19),"$")(1) ''新闻排列数
  913. bg_ground = split(split(f_Lablechar,"┆")(17),"$")(1) ''背景底纹
  914. datenumber = split(split(f_Lablechar,"┆")(4),"$")(1) ''多少天
  915. orderby = split(split(f_Lablechar,"┆")(9),"$")(1) ''排列字段
  916. orderdesc =  split(split(f_Lablechar,"┆")(10),"$")(1) ''排列方式
  917. style_id = split(split(f_Lablechar,"┆")(16),"$")(1) ''日期引用样式
  918. loopnumber = split(split(f_Lablechar,"┆")(2),"$")(1) ''Loop
  919. titlenumber = split(split(f_Lablechar,"┆")(5),"$")(1) ''标题数
  920. contentnumber = split(split(f_Lablechar,"┆")(20),"$")(1) ''内容字数
  921. picshowtf = split(split(f_Lablechar,"┆")(6),"$")(1) ''图文标志
  922. datestyle =  split(split(f_Lablechar,"┆")(15),"$")(1) ''日期格式
  923. openstyle =  split(split(f_Lablechar,"┆")(7),"$")(1) ''打开窗口方式
  924. Inc_SubClass = split(split(f_Lablechar,"┆")(8),"$")(1) ''是否包含子类
  925. end if
  926. if not isnumeric(titlenumber) then:titlenumber = 30:else:titlenumber = cint(titlenumber):end if
  927. if not isnumeric(loopnumber) then:loopnumber = 10:else:loopnumber = cint(loopnumber):end if
  928. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  929. table_array=split(f_Lablechar,"┆")
  930. classNews_head = table_str_list_head(div_tf,split(table_array(4),"$")(1),split(table_array(5),"$")(1),split(table_array(6),"$")(1),split(table_array(7),"$")(1))
  931. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(8),"$")(1),split(table_array(9),"$")(1))
  932. classNews_bottom = table_str_list_bottom(div_tf)
  933. classNews_middle2 = table_str_list_middle_2(div_tf)
  934. if len(bg_ground)>5 then
  935.  bg_ground = " background="""& bg_ground &""""
  936. else
  937.  bg_ground = ""
  938. end If
  939. if datenumber <>"0" then:datenumber_tmp = " and datevalue(addtime)+"&datenumber&">=datevalue(now)":else:datenumber_tmp = "":end if
  940. if f_Id="" then f_id="0"
  941. f_sql = "select ClassId,ClassName,ClassEName,ParentID From FS_DS_Class Where ParentID='"& f_Id &"' and IsURL=0 and ReycleTF=0 order by OrderID desc,id desc"
  942. set rs = Conn.execute(f_sql)
  943. if not rs.eof then
  944. subClassList = "<table border=""0"" cellspacing=""3"" cellpadding=""0"" width=""100%"">"&vbNewLine&"  <tr>"
  945. c_s_i = 0
  946. do while not rs.eof
  947. If (c_s_i mod c_cols =0) And c_s_i>0 Then
  948. subClassList = subClassList & "</tr>"&vbNewLine&"<tr>"&vbNewLine
  949. End If
  950. subClassList = subClassList & "<td width="""&cint(100/c_cols)&"%"" valign=""top"" style=""BORDER-RIGHT: #D18989 1px solid; BORDER-TOP: #D18989 1px solid; BORDER-LEFT: #D18989 1px solid; BORDER-BOTTOM: #D18989 1px solid""><table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"""& bg_ground &"><tr><td height=""26"" width=""80%"" class=""dldh"">&nbsp;&gt;&gt; <a class=""dldh"" href="""& get_ClassLink(rs("ClassId"))&""">"&rs("ClassName")&"</a></td><td align=""center"" width=""20%""><a href="""& get_ClassLink(rs("ClassId"))&"""><img src=""http://"& Request.Cookies("FoosunMFCookies")("FoosunMFDomain") &"/sys_images/news_more.gif"" border=""0"" alt="""& rs("ClassName") &"..更多""></a></td></tr></table>"
  951. If Inc_SubClass="1" Then
  952. If getNewsSubClass(rs("ClassId"))<>"" Then
  953. SQL_Inc_SubClass=" and (ClassID='"&rs("ClassId")&"' OR ClassID IN ("&getNewsSubClass(rs("ClassId"))&"))"
  954. Else
  955. SQL_Inc_SubClass=" AND ClassID='"&rs("ClassId")&"'"
  956. End If
  957. Else
  958. SQL_Inc_SubClass=" AND ClassID='"&rs("ClassId")&"'"
  959. End If
  960. rs_f_sql = "select top "& loopnumber &" * From FS_DS_List where AuditTF=1 "& datenumber_tmp & SQL_Inc_SubClass &" order by "&orderby&" "&orderdesc
  961. if ucase(orderby)<>"ID" then  rs_f_sql = rs_f_sql&",id "&orderdesc&""
  962. set rs_n = Conn.execute(rs_f_sql)
  963. If Not rs_n.eof then
  964. if div_tf=1 then
  965. subClassList = subClassList & vbNewLine & classNews_head
  966. end if
  967. do while not rs_n.eof
  968. If div_tf = 1 Then
  969. subClassList = subClassList & classNews_middle1 &getlist_news(rs_n,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,"subClassList")&classNews_middle2
  970. Else
  971. subClassList = subClassList & "<div>" & getlist_news(rs_n,style_id,titlenumber,contentnumber,navinumber,picshowtf,datestyle,openstyle,MF_Domain,"subClassList")&"<div>"&vbNewLine
  972. End If
  973. rs_n.movenext
  974. loop
  975. if div_tf=1 then
  976. subClassList = subClassList & classNews_bottom
  977. end if
  978. end If
  979. subClassList = subClassList & "</td>"&vbNewLine
  980. rs.movenext
  981. c_s_i = c_s_i + 1
  982. Loop
  983. If c_s_i Mod 2 <>0 Then
  984. subClassList = subClassList & "<td width="""&cint(100/c_cols)&"%"" valign=""top""></td>"&vbNewLine
  985. End If
  986. rs.close:set rs = Nothing
  987. rs_n.close:set rs_n = nothing
  988. subClassList = subClassList & "</tr>"&vbNewLine&"</table>"&vbNewLine
  989. else
  990. subClassList = ""
  991. end If
  992. End Function
  994. '得到下载浏览________________________________________________________________
  995. Public Function ReadNews(f_Lablechar,f_type,f_Id)
  996. Dim styleId,ReadSql,RsReadObj
  997. Dim MF_Domain,datestyle
  998. styleId = split(split(f_Lablechar,"┆")(1),"$")(1)
  999. datestyle = split(split(f_Lablechar,"┆")(2),"$")(1)
  1000. ReadNews = ""
  1001. if trim(f_Id)="" then
  1002. ReadNews = ""
  1003. else
  1004. ReadSql="select ID,DownLoadID,ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop," _
  1005. &"ClickNum,EditTime,EMail,SavePath,FileExtName,FileName,FileSize,Language,Name,NewsTemplet,PassWord,Pic," _
  1006. &"Property,Provider,ProviderUrl,RecTF,ReviewTF,ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum,Hits"
  1007. ReadSql = ReadSql &" From FS_DS_List where AuditTF=1 and DownLoadID='"& f_Id &"'  and  (OverDue=0 or (OverDue>0 and datediff('d',AddTime,'"&date()&"')<= OverDue)) "
  1008. Set  RsReadObj = Server.CreateObject(G_FS_RS)
  1009. RsReadObj.open ReadSql,Conn,1,1
  1010. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  1011. if not RsReadObj.eof then
  1012. ReadNews = ReadNews&getlist_news(RsReadObj,styleId,0,0,0,0,datestyle,0,MF_Domain,"readnews")
  1013. else
  1014. ReadNews =""
  1015. end if
  1016. end if
  1017. ReadNews=ReadNews
  1018. End Function
  1020. '站点地图____________________________________________________________________
  1021. Public Function SiteMap(f_Lablechar,f_type,f_Id)
  1022. dim classId,cssstyle,SiteMapstr,RsClassObj,i,br_str
  1023. classId = split(split(f_Lablechar,"┆")(1),"$")(1)
  1024. cssstyle = split(split(f_Lablechar,"┆")(2),"$")(1)
  1025. SiteMapstr = ""
  1026. set RsClassObj = Conn.execute("select ClassId,ClassName,ClassEName,IsURL,ParentID From FS_DS_Class where ReycleTF=0 and ParentID='0' order by OrderID desc,id desc")
  1027. if Not RsClassObj.eof then
  1028. i=0
  1029. do while Not RsClassObj.eof
  1030. if RsClassObj("ParentID")<>"0" then
  1031. if i=0 then
  1032. br_str=""
  1033. else
  1034. br_str="<br />"
  1035. end if
  1036. else
  1037. if i=0 then
  1038. br_str=""
  1039. else
  1040. br_str="<br />"
  1041. end if
  1042. end if
  1043. if cssstyle<>"" then
  1044. SiteMapstr = SiteMapstr & br_str & "<img src="""&m_PathDir&"sys_images/+.gif"" border=""0"" /><a href="""&get_ClassLink(RsClassObj("ClassId"))&""" class="""& cssstyle &""">"&RsClassObj("ClassName")&"</a>"&chr(10)
  1045. else
  1046. SiteMapstr = SiteMapstr & br_str & "<img src="""&m_PathDir&"sys_images/+.gif"" border=""0"" /><a href="""&get_ClassLink(RsClassObj("ClassId"))&""">"&RsClassObj("ClassName")&"</a>"&chr(10)
  1047. end if
  1048. SiteMapstr = SiteMapstr & get_ClassList(RsClassObj("ClassId"),"&nbsp;",cssstyle)
  1049. RsClassObj.movenext
  1050. i=i+1
  1051. loop
  1052. RsClassObj.close:set RsClassObj=nothing
  1053. else
  1054. SiteMapstr = ""
  1055. RsClassObj.close:set RsClassObj=nothing
  1056. end if
  1057. SiteMap = SiteMapstr
  1058. End Function
  1060. '得到搜索表单________________________________________________________________
  1061. Public Function Search(f_Lablechar,f_type)
  1062. dim Searchstr,showdate,showClass,rs,select_str,datestr,classstr,MF_Domain
  1063. showdate = split(split(f_Lablechar,"┆")(1),"$")(1)
  1064. showClass = split(split(f_Lablechar,"┆")(2),"$")(1)
  1065. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  1066. Searchstr = ""
  1067. if showdate = "1" then
  1068. datestr = "开始日期:<input name=""s_date"" type=""text"" value="""" size=""10"" /> 结束日期：<input name=""e_date"" type=""text"" value="""" size=""10"" />"
  1069. else
  1070. datestr = ""
  1071. end if
  1072. if showClass = "1" then
  1073. classstr = " <select name=""ClassId"" id=""ClassId"">"
  1074. classstr = classstr&"<option value="""">--所有--</option>"&chr(10)
  1075. set rs = Conn.execute("select ClassId,id,classname,classEname,ParentId From FS_DS_Class where ReycleTF=0 and isURL=0 and ParentId='0' order by OrderId desc,id desc")
  1076. do while not rs.eof
  1077. classstr = classstr & "<option value="""&rs("ClassId")&""">┝"&rs("classname")&"</option>"&chr(10)
  1078. classstr = classstr & get_optionNewsList(rs("ClassId"),"┝")&chr(10)
  1079. rs.movenext
  1080. loop
  1081. rs.close:set rs=nothing
  1082. classstr = classstr&"</select>"
  1083. else
  1084. classstr = ""
  1085. end if
  1086. select_str =" <select name=""s_type"" id=""s_type"">"&chr(10)
  1087. select_str=select_str&"<option value=""title"" selected=""selected"">标题</option>"&chr(10)
  1088. select_str=select_str&"<option value=""content"">全文</option>"&chr(10)
  1089. select_str=select_str&"</select>"&chr(10)
  1090. Searchstr = Searchstr & "<table width=""100%""><form action=""http://"& MF_Domain & "/Search.html"" id=""SearchForm"" name=""SearchForm"" method=""get"">" _
  1091. &"<tr><td><input name=""SubSys"" type=""hidden"" id=""SubSys"" value=""DS"" /><input name=""Keyword"" type=""text"" id=""Keyword"" size=""15"" /> " _
  1092. &select_str&datestr&classstr&" <input type=""submit"" value=""搜索"" /></td></tr></form></table>"
  1093. Search = Searchstr
  1094.  End Function
  1096.  '得到统计信息_______________________________________________________________
  1097. Public Function infoStat(f_Lablechar,f_type)
  1098. dim cols,br_str,infoStatstr
  1099. cols = split(split(f_Lablechar,"┆")(1),"$")(1)
  1100. if cols="0" then
  1101. br_str = "&nbsp;"
  1102. else
  1103. br_str = "<br />"
  1104. end if
  1105. dim rs,c_rs1,c_rs2,c_rs3,c_rs4,c_rs5
  1106. set rs = Conn.execute("select count(id) From FS_DS_List where AuditTF=1  and (OverDue=0 or (OverDue>0 and datediff('d',AddTime,'"&date()&"')<= OverDue))")
  1107. c_rs1=rs(0)
  1108. rs.close:set rs=nothing
  1109. set rs = Conn.execute("select count(id) From FS_DS_Class where ReycleTF=0")
  1110. c_rs2=rs(0)
  1111. rs.close:set rs=nothing
  1112. set rs = User_Conn.execute("select count(Userid) From FS_ME_Users")
  1113. c_rs4=rs(0)
  1114. rs.close:set rs=nothing
  1115. if G_IS_SQL_User_DB=0 then
  1116. set rs = User_Conn.execute("select count(Userid) From FS_ME_Users where datevalue(RegTime)=#"&datevalue(date)&"#")
  1117. else
  1118. set rs = User_Conn.execute("select count(Userid) From FS_ME_Users where datevalue(RegTime)='"&datevalue(date)&"'")
  1119. end if
  1120. c_rs5=rs(0)
  1121. rs.close:set rs=nothing
  1122. infoStatstr = "总下载:"&"<strong>"&c_rs1&"</strong>"&br_str
  1123. infoStatstr = infoStatstr &"总栏目:"&"<strong>"&c_rs2&"</strong>"&br_str
  1124. infoStatstr = infoStatstr &"会员数:"&"<strong>"&c_rs4&"</strong>"&br_str
  1125. infoStatstr = infoStatstr &"今日注册:"&"<strong>"&c_rs5&"</strong>"&br_str
  1126. infoStat = infoStatstr
  1127. End Function
  1129. '栏目导航____________________________________________________________________
  1130. Public Function ClassNavi(f_Lablechar,f_type,f_Id)
  1131. 'ClassNavi┆输出方式$out_Table┆栏目$┆方向$0┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$┆标题CSS$┆标题导航$·
  1132. dim ClassId,cols,titlecss,rs,ClassNavistr,ParentIDstr,cols_str,div_tf,table_array
  1133. dim classNews_head,classNews_bottom,classNews_middle1,classNews_middle2,cssstyle,titleNavi
  1134. table_array=split(f_Lablechar,"┆")
  1135. ClassId = split(split(f_Lablechar,"┆")(2),"$")(1)
  1136. cols = split(split(f_Lablechar,"┆")(3),"$")(1)
  1137. titlecss = split(split(f_Lablechar,"┆")(10),"$")(1)
  1138. if instr(f_Lablechar,"out_DIV")>0 then
  1139. div_tf = 1
  1140. cssstyle = ""
  1141. else
  1142. div_tf=0
  1143. if titlecss<>"" then
  1144. cssstyle = " Class="""& titlecss &""""
  1145. else
  1146. cssstyle = ""
  1147. end if
  1148. titleNavi = split(split(f_Lablechar,"┆")(11),"$")(1)
  1149. end if
  1150. if div_tf=1 then
  1151. classNews_head = table_str_list_head(div_tf,split(table_array(4),"$")(1),split(table_array(5),"$")(1),split(table_array(6),"$")(1),split(table_array(7),"$")(1))
  1152. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(8),"$")(1),split(table_array(9),"$")(1))
  1153. end if
  1154. classNews_bottom = table_str_list_bottom(div_tf)
  1155. classNews_middle2 = table_str_list_middle_2(div_tf)
  1156. if trim(ClassId)<>"" then
  1157. ParentIDstr = " and ParentId = '"& ClassId&"'"
  1158. else
  1159. if f_id<>"" then
  1160. ParentIDstr = " and ParentId = '"& f_Id&"'"
  1161. else
  1162. ParentIDstr = " and ParentId = '0'"
  1163. end if
  1164. end if
  1165. set rs = Conn.execute("select ClassID,OrderID,ClassName,isShow,ParentID,ReycleTF From FS_DS_Class where isShow=1 and ReycleTF=0 "& ParentIDstr &" Order by OrderId desc,id desc")
  1166. ClassNavistr = ""
  1167. if rs.eof then
  1168. ClassNavistr = ""
  1169. rs.close:set rs=nothing
  1170. else
  1171. do while not rs.eof
  1172. if div_tf=1 then
  1173. ClassNavistr = ClassNavistr &classNews_middle1 & "<a href="""&get_ClassLink(rs("ClassId"))&""">"&rs("ClassName")&"</a>" & classNews_middle2
  1174. else
  1175. if cols="0" then
  1176. cols_str = "&nbsp;"
  1177. else
  1178. cols_str = "<br />"
  1179. end if
  1180. ClassNavistr = ClassNavistr & titleNavi & "<a href="""&get_ClassLink(rs("ClassId"))&""""& cssstyle&">"&rs("ClassName")&"</a>"& cols_str &""
  1181. end if
  1182. rs.movenext
  1183. loop
  1184. rs.close:set rs=nothing
  1185. if div_tf=1 then
  1186. ClassNavistr=classNews_head & ClassNavistr & classNews_bottom
  1187. end if
  1188. end if
  1189. ClassNavi = ClassNavistr
  1190. End Function
  1192. '得到下载单个地址____________________________________________________________
  1193. Public Function get_DownLink(f_id)
  1194. get_DownLink = ""
  1195. dim rs,config_rs,config_mf_rs,class_rs
  1196. dim SaveNewsPath,FileName,FileExtName,ClassId,LinkType,MF_Domain,Url_Domain,ClassEName,c_Domain,c_SavePath,IsDomain
  1197. set rs = Conn.execute("select ID,ClassId,DownLoadID,SavePath,FileName,FileExtName From FS_DS_List where DownLoadID='"&f_id&"'")
  1198. SaveNewsPath = rs("SavePath")
  1199. if right(SaveNewsPath,1)="/" then SaveNewsPath = left(SaveNewsPath,len(SaveNewsPath)-1)
  1200. FileName = rs("FileName")
  1201. FileExtName = rs("FileExtName")
  1202. ClassId = rs("ClassId")
  1203. LinkType = Request.Cookies("FoosunDSCookies")("FoosunDSLinkType")
  1204. IsDomain = Request.Cookies("FoosunDSCookies")("FoosunDSDomain")
  1205. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  1206. set class_rs = Conn.execute("select ClassEName,IsURL,URLAddress,[Domain],SavePath From FS_DS_Class where ClassId='"&ClassId&"'")
  1207. if not class_rs.eof then
  1208. ClassEName = class_rs("ClassEName")
  1209. c_Domain = class_rs("Domain")
  1210. c_SavePath = class_rs("SavePath")
  1211. class_rs.close:set class_rs=nothing
  1212. else
  1213. ClassEName = ""
  1214. class_rs.close:set class_rs=nothing
  1215. end if
  1216. if not rs.eof then
  1217. if LinkType = 1 then
  1218. if trim(c_Domain)<>"" then
  1219. Url_Domain = "http://"&c_Domain
  1220. else
  1221. if trim(IsDomain)<>"" then
  1222. Url_Domain = "http://"&IsDomain
  1223. else
  1224. Url_Domain = "http://"&MF_Domain
  1225. end if
  1226. end if
  1227. else
  1228. if trim(c_Domain)<>"" then
  1229. Url_Domain = "http://"&c_Domain
  1230. else
  1231. if trim(IsDomain)<>"" then
  1232. Url_Domain = "http://"&IsDomain
  1233. else
  1234. Url_Domain = ""
  1235. end if
  1236. end if
  1237. end if
  1238. if trim(c_Domain)<>"" then
  1239. get_DownLink = Url_Domain & SaveNewsPath &"/"&FileName&"."&FileExtName
  1240. else
  1241. get_DownLink = Url_Domain & c_SavePath& "/" & ClassEName &SaveNewsPath &"/"& FileName&"."&FileExtName
  1242. end if
  1243. rs.close:set rs=nothing
  1244.   else
  1245. get_DownLink = ""
  1246. rs.close:set rs=nothing
  1247.   end if
  1248.   get_DownLink = get_DownLink
  1249. End Function
  1251. '得到栏目地址________________________________________________________________
  1252. Public function get_ClassLink(f_id)
  1253. dim IsDomain,LinkType,MF_Domain,c_rs,ClassEName,c_Domain,Url_Domain,ClassSaveType,class_savepath,FileExtName,c_SavePath
  1254. LinkType = Request.Cookies("FoosunDSCookies")("FoosunDSLinkType")
  1255. IsDomain = Request.Cookies("FoosunDSCookies")("FoosunDSDomain")
  1256. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  1257. set c_rs=conn.execute("select id,IsURL,UrlAddress,ClassId,ClassEName,[Domain],FileSaveType,FileExtName,SavePath From FS_DS_Class where ClassId='"&f_id&"'")
  1258. if not c_rs.eof then
  1259. if c_rs("IsURL")=0 then
  1260. ClassEName = c_rs("ClassEName")
  1261. c_Domain = c_rs("Domain")
  1262. FileExtName = c_rs("FileExtName")
  1263. ClassSaveType = c_rs("FileSaveType")
  1264. c_SavePath= c_rs("SavePath")
  1265. if ClassSaveType=0 then
  1266. class_savepath = ClassEName&"/Index."&FileExtName
  1267. elseif ClassSaveType=1 then
  1268. class_savepath = ClassEName&"/"& ClassEName &"."&FileExtName
  1269. else
  1270. class_savepath = ClassEName &"."&FileExtName
  1271. end if
  1272. if LinkType = 1 then
  1273. if trim(c_Domain)<>"" then
  1274. Url_Domain = "http://"&c_Domain
  1275. else
  1276. if trim(IsDomain)<>"" then
  1277. Url_Domain = "http://"&IsDomain
  1278. else
  1279. Url_Domain = "http://"&MF_Domain
  1280. end if
  1281. end if
  1282. else
  1283. if trim(c_Domain)<>"" then
  1284. Url_Domain = "http://"&c_Domain
  1285. else
  1286. if trim(IsDomain)<>"" then
  1287. Url_Domain = "http://"&IsDomain
  1288. else
  1289. Url_Domain = ""
  1290. end if
  1291. end if
  1292. end if
  1293. get_ClassLink = Url_Domain&c_SavePath&"/"&class_savepath
  1294. else
  1295. get_ClassLink = c_rs("UrlAddress")
  1296. end if
  1297. c_rs.close:set c_rs=nothing
  1298. else
  1299. c_rs.close:set c_rs=nothing
  1300. get_ClassLink = ""
  1301. end if
  1302. get_ClassLink = get_ClassLink
  1303. End function
  1304. '得到子类____________________________________________________________________
  1305. Public Function get_ClassList(TypeID,CompatStr,f_css)
  1306. Dim ChildTypeListRs,ChildTypeListStr,TempStr,i,Sql
  1307. Set ChildTypeListRs = Server.CreateObject(G_FS_RS)
  1308. Sql = "Select ParentID,ClassID,ClassName from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc"
  1309. ChildTypeListRs.open sql,conn,1,1
  1310. TempStr = CompatStr
  1311. do while Not ChildTypeListRs.Eof
  1312. get_ClassList = get_ClassList & TempStr
  1313. get_ClassList = get_ClassList & "<img src="""&m_PathDir&"sys_images/-.gif"" border=""0""><a href="""&get_ClassLink(ChildTypeListRs("ClassId"))&""" class="""& f_css &""">"&ChildTypeListRs("ClassName")&"</a>"&chr(10)
  1314. get_ClassList = get_ClassList & get_ClassList(ChildTypeListRs("ClassID"),TempStr,f_css)
  1315. ChildTypeListRs.MoveNext
  1316. loop
  1317. ChildTypeListRs.Close:Set ChildTypeListRs = Nothing
  1318. End Function
  1320. '得到option子类______________________________________________________________
  1321. Public Function get_optionNewsList(TypeID,CompatStr)
  1322. Dim ChildTypeListRs,ChildTypeListStr,TempStr
  1323. Set ChildTypeListRs = Conn.execute("Select ParentID,ClassID,ClassName from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc")
  1324. TempStr = CompatStr & "┉"
  1325. do while Not ChildTypeListRs.Eof
  1326. get_optionNewsList = get_optionNewsList &"<option value="""&ChildTypeListRs("ClassId")&""">"& TempStr
  1327. get_optionNewsList = get_optionNewsList & "┉"&ChildTypeListRs("ClassName")&"</option>"&chr(10)
  1328. get_optionNewsList = get_optionNewsList & get_optionNewsList(ChildTypeListRs("ClassID"),TempStr)
  1329. ChildTypeListRs.MoveNext
  1330. loop
  1331. ChildTypeListRs.Close:Set ChildTypeListRs = Nothing
  1332. End Function
  1333. Public Function getNewsSubClass(typeID)
  1334. Dim childClassRs,result,Str_SubClassID
  1335. result=""
  1336. Set childClassRs=Conn.execute("Select ParentID,ClassID from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc")
  1337. While Not childClassRs.eof
  1338. If result="" Then
  1339. result="'"&childClassRs("classID")&"'"
  1340. Else
  1341. result=result&",'"&childClassRs("classID")&"'"
  1342. End If
  1343. Str_SubClassID=getNewsSubClass(childClassRs("classID"))
  1344. If Str_SubClassID<>"" Then
  1345. result=result&","&Str_SubClassID
  1346. End If
  1347. childClassRs.movenext
  1348. Wend
  1349. childClassRs.close:Set childClassRs=nothing
  1350. getNewsSubClass=result
  1351. End Function
  1352. End Class
  1353. %>