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

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

数据库编程

开发平台：

ASP/ASPX

ME_Public.asp：源码内容
  1. <%
  2. Class cls_ME
  3. '风讯新闻刷新代码获得类，用于获得代码
  4. '方法：Fs_ns.Get_LableChar("标签代码","")
  5. 'Copyright (c)2002-2006 Foosun.cn code by simpwind.xie LastTime:06年9月7日
  6. '非经风讯公司正版许可，请勿用于商业用途
  7. '官方站：Foosun.cn
  8. '技术支持论坛：bbs.foosun.net
  9. 'QQ:655071(欢迎和您交流。^_^)
  11. '定义参数_____________________________________________________________________
  13. '获得参数_____________________________________________________________________
  14. Public Function get_LableChar(f_Lablechar,f_UserId)
  15. 'LogPage:Log_title
  16. if Request.Cookies("FoosunMECookies")("FoosunMELogDir") = "" then
  17. dim get_sysparam,blogs_dir
  18. set get_sysparam = User_Conn.execute("select top 1 Dir From FS_ME_iLogSysParam")
  19. if get_sysparam.eof then
  20. Response.Cookies("FoosunMECookies")("FoosunMELogDir") = "blog"
  21. get_sysparam.close:set get_sysparam = nothing
  22. else
  23. Response.Cookies("FoosunMECookies")("FoosunMELogDir") = get_sysparam(0)
  24. get_sysparam.close:set get_sysparam = nothing
  25. end if
  26. Response.Cookies("FoosunMECookies").Expires=Date()+1
  27. end if
  28. if split(f_Lablechar,":")(0)="LogPage" then
  29. get_LableChar = Log_Page(split(f_Lablechar,":")(1),f_UserId)
  30. else
  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 "lastlog"
  39. if ubound(f_array)<>5  and  ubound(f_array)<>11 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=LogList(f_Lablechar,"lastlog",f_UserId):end if
  40. case "toplog"
  41. if ubound(f_array)<>5  and  ubound(f_array)<>11 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=LogList(f_Lablechar,"toplog",f_UserId):end if
  42. case "hotlog"
  43. if ubound(f_array)<>5  and  ubound(f_array)<>11 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=LogList(f_Lablechar,"hotlog",f_UserId):end if
  44. case "classlist"
  45. if ubound(f_array)<>7  and  ubound(f_array)<>13 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=ClassList(f_Lablechar):end if
  46. case "topsubject"
  47. if ubound(f_array)<>5  and  ubound(f_array)<>11 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=TopSubject(f_Lablechar,f_UserId):end if
  48. case "infoclass"
  49. if ubound(f_array)<>3  and  ubound(f_array)<>9 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=InfoClass(f_Lablechar):end if
  50. case "photo_list"
  51. if ubound(f_array)<>14   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Photo_List(f_Lablechar,"photo_list"):end if
  52. case "showphoto"
  53. if ubound(f_array)<>4   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Photo_show(f_Lablechar,f_UserId):end if
  54. case "infolist"
  55. if ubound(f_array)<>5  and  ubound(f_array)<>11  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=InfoList(f_Lablechar,"infolist",f_UserId):end if
  56. 'InfoList┆调用数量,标题字数$10,40┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_Table
  57. case "log_lastreview"
  58. if ubound(f_array)<>5  and  ubound(f_array)<>11  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_LastReview(f_Lablechar,"log_lastreview",f_UserId):end if
  59. case "log_lastform"
  60. if ubound(f_array)<>3  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_LastForm(f_Lablechar,"log_lastform",f_UserId):end if
  61. case "log_publiclog"
  62. if ubound(f_array)<>3  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_PublicLog(f_Lablechar):end if
  63. case "log_search"
  64. if ubound(f_array)<>3  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_Search(f_Lablechar,f_id):end if
  65. case "log_navi"
  66. if ubound(f_array)<>3  and  ubound(f_array)<>9 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_Navi(f_Lablechar):end if
  67. case "log_pagetitle"
  68. if ubound(f_array)<>3  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_PageTitle(f_Lablechar,f_id):end if
  69. case "log_title"
  70. if ubound(f_array)<>3  then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Log_title(f_Lablechar,f_id):end if
  71. end select
  72. end if
  73. end if
  74. End Function
  76. 'DIV输出_____________________________________________________________________
  77. '得到div,table_______________________________________________________________
  78. Public Function table_str_list_head(f_tf,f_divid,f_divclass,f_ulid,f_ulclass)   
  79. Dim table_,tr_
  80. Dim f_divid_1,f_divclass_1,f_ulid_1,f_ulclass_1
  81. if f_tf=1 then
  82. if f_divid<>"" then:f_divid_1 = " id="""& f_divid &"""":else:f_divid_1 = "":end if
  83. if f_divclass<>"" then:f_divclass_1 = " class="""& f_divclass &"""":else:f_divclass_1 = "":end if
  84. if f_ulid<>"" then:f_ulid_1 = " id="""& f_ulid &"""":else:f_ulid_1 = "":end if
  85. if f_ulclass<>"" then:f_ulclass_1 = " class="""& f_ulclass &"""":else:f_ulclass_1 = "":end if
  86. table_="<div"& f_divid_1 & f_divclass_1 &">"
  87. tr_="<ul"& f_ulid_1 & f_ulclass_1 &">"
  88. table_str_list_head =  table_&chr(10)
  89. table_str_list_head = table_str_list_head &" "& tr_&chr(10)
  90. else
  91. table_="<table border=""0"" cellspacing=""0"" cellpadding=""3"" width=""100%"">"
  92. table_str_list_head =  table_&chr(10)
  93. end if
  94. End Function
  96. '得到div,table_________________________________________________________________________________
  97. public Function table_str_list_middle_1(f_tf,f_liid,f_liclass)
  98. Dim f_liid_1,f_liclass_1,td_
  99. if f_tf=1 then
  100. if f_liid<>"" then:f_liid_1 = " id="""& f_liid &"""":else:f_liid_1 = "":end if
  101. if f_liclass<>"" then:f_liclass_1 = " class="""& f_liclass &"""":else:f_liclass_1 = "":end if
  102. td_="<li"&f_liid_1&f_liclass_1&">"
  103. table_str_list_middle_1 ="  "&td_
  104. end if
  105. End Function
  107. '得到div,table_________________________________________________________________________________
  108. public Function table_str_list_middle_2(f_tf)
  109. Dim td__,tr__
  110. if f_tf=1 then
  111. td__="</li>"
  112. else
  113. td__="</td>"
  114. end if
  115. table_str_list_middle_2 =  td__&chr(10)
  116. End Function
  118. '得到div,table_________________________________________________________________________________
  119. Public Function table_str_list_middle_3(f_tf)
  120. if f_tf=1 then
  121. table_str_list_middle_3 = ""
  122. else
  123. table_str_list_middle_3 = "</tr>"
  124. end if
  125. End Function
  128. '得到div,table_________________________________________________________________________________
  129. Public Function table_str_list_bottom(f_tf)
  130. Dim table__,tr__
  131. if f_tf=1 then
  132. table__="</div>"
  133. tr__="</ul>"
  134. table_str_list_bottom = " "&tr__&chr(10)
  135. else
  136. table__="</table>"
  137. table_str_list_bottom = ""
  138. end if
  139. table_str_list_bottom = table_str_list_bottom &table__&chr(10)
  140. End Function
  141. 'DIV输出结束_________________________________________________________________
  142. '最新日志____________________________________________________________________
  143. Public Function LogList(f_Lablechar,f_type,f_UserId)
  144. 'LastLog┆调用数量,标题字数$10,40┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_Table
  145. 'LastLog┆调用数量,标题字数$10,40┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_DIV"
  146. dim TitleNumber,TitleNumberChar,leftTitleNumber,datetf,dateType,TitleCss,div_tf,TitleCssstr,table_array,classNews_head,classNews_bottom,classNews_middle1,classNews_middle2
  147. dim sql_char,f_sql,rs,inSQL_Search,LastLogstr,DateChar
  148. TitleNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
  149. TitleNumberChar = split(TitleNumber,",")(0)
  150. leftTitleNumber = split(TitleNumber,",")(1)
  151. table_array=split(f_Lablechar,"┆")
  152. if trim(leftTitleNumber)<>"" and isnumeric(leftTitleNumber) then
  153. leftTitleNumber = leftTitleNumber
  154. else
  155. leftTitleNumber = 40
  156. end if
  157. if trim(TitleNumberChar)<>"" and isnumeric(TitleNumberChar) then
  158. TitleNumberChar = TitleNumberChar
  159. else
  160. TitleNumberChar = 10
  161. end if
  162. if instr(f_Lablechar,"out_DIV")>0 then
  163. div_tf = 1
  164. TitleCssstr = ""
  165. datetf= split(split(f_Lablechar,"┆")(9),"$")(1)
  166. dateType = split(split(f_Lablechar,"┆")(10),"$")(1)
  167. classNews_head = table_str_list_head(div_tf,split(table_array(2),"$")(1),split(table_array(3),"$")(1),split(table_array(4),"$")(1),split(table_array(5),"$")(1))
  168. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(6),"$")(1),split(table_array(7),"$")(1))
  169. else
  170. div_tf=0
  171. TitleCss = split(split(f_Lablechar,"┆")(2),"$")(1)
  172. if trim(TitleCss)<>"" then
  173. TitleCssstr = " class="""& TitleCss &""""
  174. else
  175. TitleCssstr = ""
  176. end if
  177. datetf= split(split(f_Lablechar,"┆")(3),"$")(1)
  178. dateType = split(split(f_Lablechar,"┆")(4),"$")(1)
  179. end if
  180. if trim(f_UserId)<>"" then
  181. inSQL_Search = " and UserNumber='"& f_UserId &"'"
  182. else
  183. inSQL_Search = ""
  184. end if
  185. classNews_bottom = table_str_list_bottom(div_tf)
  186. classNews_middle2 = table_str_list_middle_2(div_tf)
  187. if f_type="lastlog" then
  188. sql_char = " order by iLogID desc"
  189. elseif f_type="toplog" then
  190. sql_char = " order by hits desc,iLogID Desc"
  191. elseif f_type="hotlog" then
  192. sql_char = " order by istop desc,hits desc,iLogID Desc"
  193. end if
  194. f_sql="select top "& TitleNumberChar &" iLogID,iLogStyle,Title,UserNumber,addtime from FS_ME_Infoilog where islock=0 and isDraft=0 and adminLock=0 "& inSQL_Search &" "&sql_char&""
  195. set rs = User_Conn.execute(f_sql)
  196. if rs.eof then
  197. LastLogstr = ""
  198. rs.close:Set rs =nothing
  199. else
  200. do while not rs.eof
  201. if datetf="1" then
  202. DateChar = get_DateChar(dateType,rs("AddTime"))
  203. else
  204. DateChar = ""
  205. end if
  206. if div_tf=0 then
  207. dim s_paths
  208. s_paths = replace("/"&G_VIRTUAL_ROOT_DIR&"sys_images/log/dot1.jpg","//","/")
  209. LastLogstr = LastLogstr & " <img src="""& s_paths &""" border=""0""><a href="""& Get_LogLink(rs("iLogID"))&""""&TitleCssstr&">"&GotTopic(rs("Title"),leftTitleNumber)&"</a>"&DateChar&"<br />"&chr(10)
  210. else
  211. LastLogstr = LastLogstr & classNews_middle1& "<a href="""& Get_LogLink(rs("iLogID"))&""">"&GotTopic(rs("Title"),leftTitleNumber)&"</a>"&DateChar&""&classNews_middle2
  212. end if
  213. rs.movenext
  214. loop
  215. rs.close:Set rs =nothing
  216. end if
  217. if div_tf=1 then
  218. LastLogstr = classNews_head & LastLogstr & classNews_bottom
  219. end if
  220. LogList = LastLogstr
  221. End Function
  222. '得到分类日志列表
  223. Public Function ClassList(f_Lablechar)
  224. 'ClassList┆调用数量$10┆ClassId$1┆标题字数$40┆标题CSS$css┆显示日期$0┆日期格式$MM月DD日┆输出格式$out_Table","")
  225. 'ClassList┆调用数量$10┆ClassId$1┆标题字数$40┆标题CSS$┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆显示日期$0┆日期格式$MM月DD日┆输出格式$out_DIV","")
  226. dim ClassId,TitleNumber,lefttile,CSS,div_tf,TitleCssstr,datetf,dateType,table_array,classNews_head,classNews_middle1,classNews_bottom,classNews_middle2
  227. dim f_sql,rs,DateChar
  228. ClassID = split(split(f_Lablechar,"┆")(2),"$")(1)
  229. if trim(ClassID)<>"" then
  230. TitleNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
  231. if trim(TitleNumber)<>"" and isnumeric(TitleNumber) then
  232. TitleNumber = TitleNumber
  233. else
  234.    TitleNumber = 10
  235. end if
  236. lefttile = split(split(f_Lablechar,"┆")(3),"$")(1)
  237. if trim(lefttile)<>"" and isnumeric(lefttile) then
  238. lefttile = lefttile
  239. else
  240. lefttile = 40
  241. end if
  242. CSS = split(split(f_Lablechar,"┆")(4),"$")(1)
  243. table_array=split(f_Lablechar,"┆")
  244. if instr(f_Lablechar,"out_DIV")>0 then
  245. div_tf = 1
  246. TitleCssstr = ""
  247. datetf= split(split(f_Lablechar,"┆")(11),"$")(1)
  248. dateType = split(split(f_Lablechar,"┆")(12),"$")(1)
  249. 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))
  250. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(9),"$")(1),split(table_array(10),"$")(1))
  251. else
  252. div_tf=0
  253. if trim(CSS)<>"" then
  254. TitleCssstr = " class="""& CSS &""""
  255. else
  256. TitleCssstr = ""
  257. end if
  258. datetf= split(split(f_Lablechar,"┆")(5),"$")(1)
  259. dateType = split(split(f_Lablechar,"┆")(6),"$")(1)
  260. end if
  261. classNews_bottom = table_str_list_bottom(div_tf)
  262. classNews_middle2 = table_str_list_middle_2(div_tf)
  263. f_sql="select top "& TitleNumber &" iLogID,MainID,iLogStyle,Title,UserNumber,addtime from FS_ME_Infoilog where islock=0 and isDraft=0 and adminLock=0 and MainID="&ClassId&" order by iLogID desc"
  264. set rs = User_Conn.execute(f_Sql)
  265. ClassList = ""
  266. if rs.eof then
  267. ClassList = ""
  268. rs.close:set rs = nothing
  269. else
  270. do while Not rs.eof
  271. if datetf="1" then
  272. DateChar = get_DateChar(dateType,rs("AddTime"))
  273. else
  274. DateChar = ""
  275. end if
  276. if div_tf=0 then
  277. dim s_paths
  278. s_paths = replace("/"&G_VIRTUAL_ROOT_DIR&"sys_images/log/dot1.jpg","//","/")
  279. ClassList = ClassList & " <img src="""& s_paths &""" border=""0""><a href="""& Get_LogLink(rs("iLogID"))&""""&TitleCssstr&">"&GotTopic(rs("Title"),lefttile)&"</a><a href="""&get_AuthorLink(rs("UserNumber"))&""" target=""_blank"">("&get_UserNameLink(rs("UserNumber"))&")</a>"&DateChar&"<br />"&chr(10)
  280. else
  281. ClassList = ClassList & classNews_middle1& "<a href=""http://"& Request.Cookies("FoosunMFCookies")("FoosunMFDomain") &Get_LogLink(rs("iLogID"))&""">"&GotTopic(rs("Title"),lefttile)&"</a><a href="""&get_AuthorLink(rs("UserNumber"))&""" target=""_blank"">("&get_UserNameLink(rs("UserNumber"))&")</a>"&DateChar&""&classNews_middle2
  282. end if
  283. rs.movenext
  284. loop
  285. rs.close:set rs = nothing
  286. end if
  287. if div_tf=1 then
  288. ClassList = classNews_head & ClassList & classNews_bottom
  289. end if
  290. ClassList = ClassList
  291. else
  292. ClassList = "错误的标签"
  293. end if
  294. end Function
  295. '专题
  296. Public Function TopSubject(f_Lablechar,f_UserId)
  297. 'TopSubject┆调用数量,标题字数$10,40┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_Table
  298. 'TopSubject┆调用数量,标题字数$10,40┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_DIV
  299. if f_UserId="" then
  300. TopSubject = ""
  301. else
  302. dim TitleNumber,leftTitle,table_array,TitleCssstr,CSS,datetf,dateType,classNews_head,classNews_middle1,classNews_bottom,classNews_middle2
  303. dim f_sql,rs,div_tf
  304. TitleNumber = split(split(split(f_Lablechar,"┆")(1),"$")(1),",")(0)
  305. leftTitle = split(split(split(f_Lablechar,"┆")(1),"$")(1),",")(1)
  306. if leftTitle <> "" then
  307. leftTitle = leftTitle
  308. else
  309. leftTitle = 30 
  310. end if
  311. table_array=split(f_Lablechar,"┆")
  312. if instr(f_Lablechar,"out_DIV")>0 then
  313. div_tf = 1
  314. TitleCssstr = ""
  315. datetf= split(split(f_Lablechar,"┆")(9),"$")(1)
  316. dateType = split(split(f_Lablechar,"┆")(10),"$")(1)
  317. classNews_head = table_str_list_head(div_tf,split(table_array(2),"$")(1),split(table_array(3),"$")(1),split(table_array(4),"$")(1),split(table_array(5),"$")(1))
  318. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(6),"$")(1),split(table_array(7),"$")(1))
  319. else
  320. div_tf=0
  321. CSS=split(split(f_Lablechar,"┆")(2),"$")(1)
  322. if trim(CSS)<>"" then
  323. TitleCssstr = " class="""& CSS &""""
  324. else
  325. TitleCssstr = ""
  326. end if
  327. datetf= split(split(f_Lablechar,"┆")(3),"$")(1)
  328. dateType = split(split(f_Lablechar,"┆")(4),"$")(1)
  329. end if
  330. classNews_bottom = table_str_list_bottom(div_tf)
  331. classNews_middle2 = table_str_list_middle_2(div_tf)
  332. f_sql = "select top "& TitleNumber &" ClassCName,ClassEName,ClassID,UserNumber from FS_ME_InfoClass where ClassTypes=7 and UserNumber='"& f_UserId &"'"
  333. set rs = User_Conn.execute(f_sql)
  334. TopSubject = ""
  335. if rs.eof then
  336. TopSubject = ""
  337. rs.close:set rs=nothing
  338. else
  339. do while not rs.eof
  340. if div_tf = 0 then
  341. TopSubject = TopSubject & "·<a href="""& get_subjectLink(rs("UserNumber"),rs("ClassEName"))&""""&TitleCssstr&">"& GotTopic(rs("ClassCName"),leftTitle)&"</a><br />"
  342. else
  343. TopSubject = TopSubject & classNews_middle1 & "<a href="""& get_subjectLink(rs("UserNumber"),rs("ClassEName"))&""">"& GotTopic(rs("ClassCName"),leftTitle)&"</a>"&classNews_middle2
  344. end if
  345. rs.movenext
  346. loop
  347. rs.close:set rs=nothing
  348. end if
  349. end if
  350. if div_tf=1 then
  351. TopSubject = classNews_head & TopSubject & classNews_bottom
  352. end if
  353. TopSubject = TopSubject
  354. End Function
  355. '总分类
  356. Public Function InfoClass(f_Lablechar)
  357. '"InfoClass┆CSS$┆显示日期$1┆输出格式$out_Table","")
  358. ''InfoClass┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆输出格式$out_DIV","")
  359. Dim table_array,div_tf,css,classNews_head,classNews_middle1,classNews_bottom,classNews_middle2
  360. dim f_sql,rs,sys_rs_obj,f_dir1
  361. table_array=split(f_Lablechar,"┆")
  362. if instr(f_Lablechar,"out_DIV")>0 then
  363. div_tf = 1
  364. css= split(split(f_Lablechar,"┆")(1),"$")(1)
  365. classNews_head = table_str_list_head(div_tf,split(table_array(1),"$")(1),split(table_array(2),"$")(1),split(table_array(3),"$")(1),split(table_array(4),"$")(1))
  366. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(5),"$")(1),split(table_array(6),"$")(1))
  367. else
  368. div_tf = 0
  369. css= split(split(f_Lablechar,"┆")(1),"$")(1)
  370. if css<>"" then
  371. css = " class="""&css&""""
  372. else
  373. css = ""
  374. end if
  375. end if
  376. classNews_bottom = table_str_list_bottom(div_tf)
  377. classNews_middle2 = table_str_list_middle_2(div_tf)
  378. f_sql = "select id,ClassName from FS_ME_iLogClass order by id asc"
  379. set rs = User_Conn.execute(f_sql)
  380. InfoClass = ""
  381. if rs.eof then
  382. InfoClass = ""
  383. rs.close:set rs = nothing
  384. else
  385. do while not rs.eof
  386. if div_tf = 0 then
  387. InfoClass = InfoClass & "<a href="""&Replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")& Request.Cookies("FoosunMECookies") &"/ListClass.asp?id="& rs("id") &""""&css&">"&rs("ClassName")&"</a>&nbsp;"
  388. else
  389. InfoClass = InfoClass & "<a href="""&Replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")& Request.Cookies("FoosunMECookies") &"/ListClass.asp?id="& rs("id") &""">"&rs("ClassName")&"</a>&nbsp;"
  390. end if
  391. rs.movenext
  392. loop
  393. if div_tf = 1 then
  394. InfoClass =  classNews_head & classNews_middle1 & InfoClass & classNews_middle2 & classNews_bottom
  395. end if
  396. rs.close:set rs = nothing
  397. end if
  398. InfoClass = InfoClass
  399. End Function
  400. '日志终极分类
  401. Public Function InfoList(f_Lablechar,f_type,f_UserId)
  402. 'InfoList┆调用数量,标题字数$10,40┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_Table
  403. 'InfoList┆调用数量,标题字数$10,40┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_DIV
  404. Dim CodeTitle,CodeTitlestr,TitleNumber,div_tf,titleCSS,DateTF,DateStyle,DivId,DivClass,Ulid,ulclass,liid,liclass
  405. Dim f_sql,rs,i,ReviewCountstr
  406. CodeTitle = split(split(f_Lablechar,"┆")(1),"$")(1)
  407. if split(CodeTitle,",")(0) = "" and isnumeric(split(CodeTitle,",")(0))=false then
  408. CodeTitlestr = 10
  409. else
  410. CodeTitlestr = split(CodeTitle,",")(0)
  411. end if
  412. if split(CodeTitle,",")(1) = "" and isnumeric(split(CodeTitle,",")(1))=false then
  413. TitleNumber = 40
  414. else
  415. TitleNumber = split(CodeTitle,",")(1)
  416. end if
  417. if instr(f_Lablechar,"out_Table")>0 then
  418. div_tf = 0
  419. titleCSS = split(split(f_Lablechar,"┆")(2),"$")(1)
  420. DateTF = split(split(f_Lablechar,"┆")(3),"$")(1)
  421. DateStyle = split(split(f_Lablechar,"┆")(4),"$")(1)
  422. else
  423. div_tf = 1
  424. DivId = split(split(f_Lablechar,"┆")(2),"$")(1)
  425. DivClass = split(split(f_Lablechar,"┆")(3),"$")(1)
  426. Ulid = split(split(f_Lablechar,"┆")(4),"$")(1)
  427. ulclass = split(split(f_Lablechar,"┆")(5),"$")(1)
  428. liid = split(split(f_Lablechar,"┆")(6),"$")(1)
  429. liclass = split(split(f_Lablechar,"┆")(7),"$")(1)
  430. titleCSS = split(split(f_Lablechar,"┆")(8),"$")(1)
  431. DateTF = split(split(f_Lablechar,"┆")(9),"$")(1)
  432. DateStyle = split(split(f_Lablechar,"┆")(10),"$")(1)
  433. if DivId<>"" then
  434. DivId = " id="""&DivId&""""
  435. else
  436. DivId = ""
  437. end if
  438. if DivClass<>"" then
  439. DivClass = " class="""&DivClass&""""
  440. else
  441. DivClass = ""
  442. end if
  443. end if
  444. if titleCSS<>"" then
  445. titleCSS = " class="""&titleCSS&""""
  446. else
  447. titleCSS = ""
  448. end if
  449. f_sql = "select iLogID,iLogStyle,Title,KeyWords,Content,UserNumber,ClassID,Hits,savePath,FileName,FileExtName,AddTime From FS_ME_Infoilog where isDraft=0 and adminLock=0 and UserNumber = '"& f_UserId &"' order by isTop desc,isTF desc,iLogID"
  450. set rs = User_Conn.execute(f_sql)
  451. InfoList = ""
  452. if rs.eof then
  453. InfoList = ""
  454. rs.close:set rs = nothing
  455. else
  456. i = 0 
  457. do while not rs.eof
  458. if div_tf = 1 then
  459. InfoList = InfoList & "<a name=""top"" id=""top""></a>"&chr(10)&"<div"&DivId&DivClass&">"
  460. end if
  461. dim rs_review
  462. set rs_review = User_Conn.execute("select Count("&rs("iLogId")&") from FS_ME_Review where InfoID = "& rs("iLogId")&" and ReviewTypes=5 and AdminLock=0 and isLock=0")
  463. if rs_review.eof then
  464. ReviewCountstr = 0
  465. rs_review.close:set rs_review= nothing
  466. else
  467. ReviewCountstr = rs_review(0)
  468. rs_review.close:set rs_review= nothing
  469. end if
  470. dim date_tmp
  471. if DateTF="1" then
  472. date_tmp = get_DateChar(DateStyle,rs("AddTime")) &"┆"
  473. else
  474. date_tmp = ""
  475. end if
  476. InfoList = InfoList & "<h4><a href="""& Get_LogLink(rs("iLogID")) &""""&titleCSS&"><font style=""font-size:14px"">"&GotTopic(""&rs("Title"),TitleNumber)&"</a></font></h4>"&chr(10)
  477. InfoList = InfoList & ""&GetCStrLen(""&rs("Content"),800)&"...<br /><br />"&chr(10)
  478. if trim(replace(rs("KeyWords"),",",""))<>"" then
  479. dim o_i
  480. InfoList = InfoList & "<font style=""font-size:14px"">Tags: "
  481. for o_i = LBound(split(rs("KeyWords"),",")) to UBound(split(rs("KeyWords"),","))
  482. InfoList = InfoList & "<a href="""&replace("/"& G_VIRTUAL_ROOT_DIR&"/","//","/")&"Tags.asp?Tags="&split(rs("KeyWords"),",")(o_i)&""">"&split(rs("KeyWords"),",")(o_i)&"</a>&nbsp;"
  483. next
  484. InfoList = InfoList & "</font><br /><br />"
  485. end if
  486. InfoList = InfoList & "日期：<img src="""& replace("/"& G_VIRTUAL_ROOT_DIR&"/","//","/")&"sys_images/post_yellow.gif"" border=""0"" />&nbsp;"& date_tmp &"<a href="""& Get_LogLink(rs("iLogID")) &""">阅读全文</a>┆发布：<a href="""& replace("/"& G_VIRTUAL_ROOT_DIR&"/","//","/")& G_USER_DIR &"/ShowUser.asp?UserNumber="&rs("UserNumber")&""" target=""_blank"">"&get_UserNameLink(rs("UserNumber"))&"</a>┆分类:<a href=""../LogClass.asp?Type=Log&ClassId="& rs("ClassID") &""">"&get_UserClassName(rs("ClassID"))&"</a>┆浏览:"&rs("hits")&"┆评论:"&ReviewCountstr&"┆<a href=""#"">↑TOP</a><br />"&chr(10)
  487. if div_tf = 1 then
  488. InfoList = InfoList & "</div>"
  489. end if
  490. rs.movenext
  491. i = i + 1
  492. if i mod CodeTitlestr =0 then
  493. if rs.recordcount <> i then
  494. InfoList = InfoList &"{Foosun_Page_news}{/Foosun_Page_news}"
  495. end if
  496. end if
  497. loop
  498. rs.close:set rs = nothing
  499. end if 
  500. InfoList = InfoList & "{Foosun_Page_news}{/Foosun_Page_news}"
  501. End Function
  502. '最新评论
  503. Public Function Log_LastReview(f_Lablechar,f_type,f_UserId)
  504. 'Log_LastReview┆调用数量,标题字数$10,40┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_Table
  505. 'Log_LastReview┆调用数量,标题字数$10,40┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆日期样式$MM-DD┆输出格式$out_DIV
  506. dim CodeNumber,TitleNumber,lefttitle,div_tf,CSS,DateTF,DateType
  507. dim rs
  508. CodeNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
  509. TitleNumber = split(CodeNumber,",")(0)
  510. if TitleNumber="" or isnumeric(TitleNumber)=false then
  511. TitleNumber = 10
  512. else
  513. TitleNumber = TitleNumber
  514. end if
  515. lefttitle = split(CodeNumber,",")(1)
  516. if lefttitle="" or isnumeric(lefttitle)=false then
  517. lefttitle = 40
  518. else
  519. lefttitle = lefttitle
  520. end if
  521. if instr(f_Lablechar,"out_Table")>0 then
  522. div_tf = 0
  523. CSS = split(split(f_Lablechar,"┆")(2),"$")(1)
  524. DateTF = split(split(f_Lablechar,"┆")(3),"$")(1)
  525. DateType = split(split(f_Lablechar,"┆")(4),"$")(1)
  526. else
  527. div_tf = 1
  528. CSS = split(split(f_Lablechar,"┆")(8),"$")(1)
  529. DateTF = split(split(f_Lablechar,"┆")(9),"$")(1)
  530. DateType = split(split(f_Lablechar,"┆")(10),"$")(1)
  531. DivId = split(split(f_Lablechar,"┆")(2),"$")(1)
  532. if DivId = "" then
  533. DivId = ""
  534. else
  535. DivId = " id="""&DivId&""""
  536. end if
  537. DivClass = split(split(f_Lablechar,"┆")(3),"$")(1)
  538. if DivClass = "" then
  539. DivClass = ""
  540. else
  541. DivClass = " class="""&DivClass&""""
  542. end if
  543. Ulid = split(split(f_Lablechar,"┆")(4),"$")(1)
  544. if Ulid = "" then
  545. Ulid = ""
  546. else
  547. Ulid = " id="""&Ulid&""""
  548. end if
  549. ulclass = split(split(f_Lablechar,"┆")(5),"$")(1)
  550. if ulclass = "" then
  551. ulclass = ""
  552. else
  553. ulclass = " class="""&ulclass&""""
  554. end if
  555. liid = split(split(f_Lablechar,"┆")(6),"$")(1)
  556. if liid = "" then
  557. liid = ""
  558. else
  559. liid = " id="""&liid&""""
  560. end if
  561. liclass = split(split(f_Lablechar,"┆")(7),"$")(1)
  562. if liclass = "" then
  563. liclass = ""
  564. else
  565. liclass = " class="""&liclass&""""
  566. end if
  567. end if
  568. if CSS="" then
  569. CSS = ""
  570. else
  571. CSS = " class="""& CSS &""""
  572. end if
  573. set rs  = User_Conn.execute("select top "& TitleNumber &" ReviewID,InfoID,UserNumber,ReviewTypes,Title,Content,AddTime From FS_ME_Review where infoId="&f_UserId&" and AdminLock=0 and isLock=0 order by ReviewID desc")
  574. Log_LastReview = ""
  575. if rs.eof then
  576. Log_LastReview = "没有评论"
  577. rs.close:set rs = nothing
  578. else
  579. if div_tf = 1 then
  580. Log_LastReview = Log_LastReview & "<div"&DivId&DivClass&"><ul"&Ulid&ulclass&">"&chr(10)
  581. end if
  582. do while not rs.eof 
  583. dim date_tmp
  584. if DateTF="1" then
  585. date_tmp = get_DateChar(DateType,rs("AddTime"))
  586. else
  587. date_tmp = ""
  588. end if
  589. if div_tf = 1 then
  590. Log_LastReview = Log_LastReview & " <li"&liid&liclass&">"&GotTopic(""&rs("Title"),lefttitle)&" <a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserNumber="& rs("UserNumber")&""" target=""_blank"">"&get_UserNameLink(rs("UserNumber"))&"</a><font style=""font-size:11px""> "&date_tmp&"</font></li>"&chr(10)
  591. else
  592. Log_LastReview = Log_LastReview & "<span"&CSS&">·"&GotTopic(""&rs("Title"),lefttitle)&" <a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserNumber="& rs("UserNumber")&""" target=""_blank"">"&get_UserNameLink(rs("UserNumber"))&"</a><font style=""font-size:11px""> "&date_tmp&"</font></span><br />"
  593. end if 
  594. rs.movenext
  595. loop
  596. rs.close:set rs = nothing
  597. end if
  598. if div_tf = 1 then
  599. Log_LastReview = Log_LastReview & chr(10) &"</ul></div><br /><div align=""right""><a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ReviewUrl.asp?Id="&f_UserId&"&Type=Log"" target=""_blank"">更多...</a></div>"
  600. else
  601. Log_LastReview = Log_LastReview &"<div align=""right""><a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ReviewUrl.asp?Id="&f_UserId&"&Type=Log"" target=""_blank"">更多...</a></div>"
  602. end if 
  603. End Function
  604. '评论表单
  605. Public Function Log_LastForm(f_Lablechar,f_type,f_UserId)
  606. 'Log_LastForm┆CSS$┆显示日期$1┆}-->
  607. dim FormReview
  608. FormReview=" <form action=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ReviewUrl.asp"" name=""reviewform"" method=""post"" onsubmit=""//return checkreview();""/>"&chr(10)
  609. FormReview=FormReview&"   用户名<input name=""UserNumber"" type=""text"" id=""UserNumber"" size=""15""/>"&chr(10)
  610. FormReview=FormReview&"   匿名<input name=""noname"" type=""checkbox"" id=""noname"" value=""1""/>"&chr(10)
  611. FormReview=FormReview&"   密码<input name=""password"" type=""password"" id=""password"" size=""12""/><input type=""hidden"" name=""newsid"" value="""&f_UserId&"""/><input type=""hidden"" name=""Action"" value=""add_save""/><br />"&chr(10)
  612. FormReview=FormReview&"   标　题<input name=""title"" type=""text"" id=""title"" size=""30""/><input type=""hidden"" name=""type"" value=""Log""/><br />"&chr(10)
  613. FormReview=FormReview&"   <textarea name=""content"" cols=""50"" rows=""5"" id=""content""/></textarea><br />"&chr(10)
  614. FormReview=FormReview&"   <input type=""submit"" name=""Submit"" value=""发表评论""/>&nbsp;&nbsp;<input type=""reset"" name=""Submit2"" value=""重新填写""/>"&chr(10)
  615. FormReview=FormReview&" </form>"&chr(10)
  616. Log_LastForm = FormReview
  617. End Function
  618. '发表日志接口
  619. Public Function Log_PublicLog(f_Lablechar)
  620. Log_PublicLog = "<a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/i_Blog/PublicLog.asp"" target=""_blank""><img src=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/sys_images/Pub_log.gif"" border=""0"" alt=""发布日志""></a>"
  621. End Function
  622. '搜索
  623. Public Function Log_Search(f_Lablechar,f_id)
  624. 'Log_Search┆CSS$┆显示日期$1┆
  625. Log_Search = "<form action=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Log_Search.asp"" name=""Log_Form"" method=""post"" id=""Log_Form""><input name=""keywords"" value="""" type=""text"" size=""12""><input name=""id"" value="""&f_id&""" type=""hidden"" size=""12"">&nbsp;<input name=""sumbit"" type=""submit"" value=""搜索""></form>"
  626. End Function
  627. '总站日志导航
  628. Public Function Log_Navi(f_Lablechar)
  629. 'Log_Navi┆CSS$┆显示日期$1┆输出格式$out_Table}-->
  630. 'Log_Navi┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$┆CSS$┆显示日期$1┆输出格式$out_DIV}-->
  631. dim div_tf,CSS,DivId,DivClass,Ulid,ulclass,liid,liclass
  632. dim rs
  633. if instr(f_Lablechar,"out_Table")>0 then
  634. div_tf = 0 
  635. CSS = split(split(f_Lablechar,"┆")(1),"$")(1)
  636. else
  637. div_tf = 1
  638. CSS = split(split(f_Lablechar,"┆")(7),"$")(1)
  639. DivId = split(split(f_Lablechar,"┆")(2),"$")(1)
  640. if DivId = "" then:DivId = "":else:DivId = " id="""&DivId&"""":end if
  641. DivClass = split(split(f_Lablechar,"┆")(3),"$")(1)
  642. if DivClass = "" then:DivClass = "":else:DivClass = " class="""&DivClass&"""":end if
  643. Ulid = split(split(f_Lablechar,"┆")(4),"$")(1)
  644. if Ulid = "" then:Ulid = "":else:Ulid = " id="""&Ulid&"""":end if
  645. ulclass = split(split(f_Lablechar,"┆")(5),"$")(1)
  646. if ulclass = "" then:ulclass = "":else:ulclass = " class="""&ulclass&"""":end if
  647. liid = split(split(f_Lablechar,"┆")(6),"$")(1)
  648. if liid = "" then:liid = "":else:liid = " id="""&liid&"""":end if
  649. liclass = split(split(f_Lablechar,"┆")(7),"$")(1)
  650. if liclass = "" then:liclass = "":else:liclass = " class="""&liclass&"""":end if
  651. end if
  652. if CSS="" then:CSS = "":else:CSS = " class="""& CSS &"""":end if
  653. set rs = User_Conn.execute("select id,ClassName From FS_ME_iLogClass order by id desc")
  654. Log_Navi = ""
  655. if rs.eof then
  656. Log_Navi = "没系统分类"
  657. rs.close:set rs =nothing
  658. else
  659. if div_tf = 1 then
  660. Log_Navi = Log_Navi & "<div"&DivId&DivClass&">"&chr(10)&" <ul"&Ulid&ulclass&">"&chr(10)
  661. end if 
  662. do while not rs.eof
  663. if div_tf = 1 then
  664. Log_Navi = Log_Navi & "   <li"&liid&liclass&"><a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&Request.Cookies("FoosunMECookies")("FoosunMELogDir")&"/syslist.asp?id="&rs("id")&""">"&rs("ClassName")&"</a></li>"&chr(10)
  665. else
  666. Log_Navi = Log_Navi & "   <span"&CSS&"><a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&Request.Cookies("FoosunMECookies")("FoosunMELogDir")&"/syslist.asp?id="&rs("id")&""">"&rs("ClassName")&"</a></span>&nbsp;"
  667. end if
  668. rs.movenext
  669. loop
  670. rs.close:set rs =nothing
  671. end if
  672. if div_tf = 1 then
  673. Log_Navi = Log_Navi &chr(10)&" <ul>"&chr(10)&"</div>"
  674. end if
  675. Log_Navi = Log_Navi
  676. End Function
  677. '页面标题
  678. Public Function Log_PageTitle(f_Lablechar,f_id)
  679. 'Log_PageTitle┆CSS$┆显示日期$1┆
  680. dim rs
  681. set rs = User_Conn.execute("select top 1 siteName From FS_ME_InfoiLogParam")
  682. if rs.eof then
  683. Log_PageTitle = rs(0)
  684. rs.close:set rs = nothing
  685. else
  686. Log_PageTitle = ""
  687. rs.close:set rs = nothing
  688. end if
  689. End Function
  690. '日志标题
  691. Public Function Log_Page(f_Lablechar,f_id)
  692. dim rs
  693. set rs =User_Conn.execute("select * From FS_ME_Infoilog where iLogID="&f_id)
  694. if rs.eof then
  695. Log_Page = ""
  696. rs.close:set rs = nothing
  697. else
  698. if instr(f_Lablechar,"Log_title")>0 then
  699. Log_Page =  replace(f_Lablechar,"Log_title",""&rs("title"))
  700. end if
  701. if instr(f_Lablechar,"Log_Content")>0 then
  702. Log_Page =  replace(f_Lablechar,"Log_Content",""&rs("Content"))
  703. end if
  704. if instr(f_Lablechar,"Log_Author")>0 then
  705. Log_Page =  replace(f_Lablechar,"Log_Author","<a href=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ShowUser.asp?UserNumber="&rs("UserNumber")&""" target=""_blank"">"&get_UserNameLink(rs("UserNumber"))&"</a>")
  706. end if
  707. if instr(f_Lablechar,"Log_hits")>0 then
  708. Dim hits_str
  709. hits_str = "<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Click.asp?type=ajax&Subsys=Log&spanid=Log_id_click_"&rs("iLogID")&"""></script>"&chr(10)
  710. Log_Page =  replace(f_Lablechar,"Log_hits",hits_str&"<span id=""Log_id_click_"&rs("iLogID")&""">loading...</span>")
  711. end if
  712. if instr(f_Lablechar,"Log_keywords")>0 then
  713. dim i 
  714. if instr(rs("keywords"),",")>0 then
  715. for i = 0 to Ubound(split(rs("keywords"),","))
  716. if trim(split(rs("keywords"),",")(i))<>"" then
  717. Log_Page =  Log_Page & replace(f_Lablechar,"Log_keywords","<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/tags.asp?tags="& split(rs("keywords"),",")(i)&""" target=""_blank"">"&split(rs("keywords"),",")(i)&"</a>&nbsp;")
  718. else
  719. Log_Page = ""
  720. end if
  721. next
  722. end if
  723. end if
  724. if instr(f_Lablechar,"Log_AddTime")>0 then
  725. Log_Page =  replace(f_Lablechar,"Log_AddTime",""&rs("AddTime"))
  726. end if
  727. if instr(f_Lablechar,"Log_AddTime")>0 then
  728. Log_Page =  replace(f_Lablechar,"Log_AddTime",""&rs("AddTime"))
  729. end if
  730. if instr(f_Lablechar,"Log_LogType")>0 then
  731. Log_Page =  replace(f_Lablechar,"Log_LogType","主分类:<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& Request.Cookies("FoosunMECookies")("FoosunMELogDir") &"/sysClass.asp?Type=Log&ClassId="& rs("MainID") &""">"&get_UsersysClassName(rs("MainID"))&"</a>,个人分类：<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& Request.Cookies("FoosunMECookies")("FoosunMELogDir") &"/LogClass.asp?Type=Log&ClassId="& rs("ClassID") &""">"&get_UserClassName(rs("ClassID"))&"</a>")
  732. end if
  733. if instr(f_Lablechar,"Log_LogType")>0 then
  734. Log_Page =  replace(f_Lablechar,"Log_LogType","主分类:<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& Request.Cookies("FoosunMECookies")("FoosunMELogDir") &"/sysClass.asp?Type=Log&ClassId="& rs("MainID") &""">"&get_UsersysClassName(rs("MainID"))&"</a>,个人分类：<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& Request.Cookies("FoosunMECookies")("FoosunMELogDir") &"/LogClass.asp?Type=Log&ClassId="& rs("ClassID") &""">"&get_UserClassName(rs("ClassID"))&"</a>")
  735. end if
  736. if instr(f_Lablechar,"Log_ReviewList")>0 then
  737. Log_Page = replace(f_Lablechar,"Log_ReviewList","<script language=""JavaScript"" type=""text/javascript"" src=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ShowReview.asp?Id="&RS("iLogID")&"&Type=Log&SpanId=Log_show_review_"& rs("iLogID") &"""></script><label id=""Log_show_review_"& rs("iLogID") &""">评论加载中...</label>")
  738. end if
  739. if instr(f_Lablechar,"Log_ReviewForm")>0 then
  740. dim FormReview
  741. FormReview=" <form action=""http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ReviewUrl.asp"" name=""reviewform"" method=""post"" onsubmit=""//return checkreview();""/>"&chr(10)
  742. FormReview=FormReview&"   用户名<input name=""UserNumber"" type=""text"" id=""UserNumber"" size=""15""/>"&chr(10)
  743. FormReview=FormReview&"   匿名<input name=""noname"" type=""checkbox"" id=""noname"" value=""1""/>"&chr(10)
  744. FormReview=FormReview&"   密码<input name=""password"" type=""password"" id=""password"" size=""12""/><input type=""hidden"" name=""newsid"" value="""&rs("iLogID")&"""/><input type=""hidden"" name=""Action"" value=""add_save""/><br />"&chr(10)
  745. FormReview=FormReview&"   标　题<input name=""title"" type=""text"" id=""title"" size=""30""/><input type=""hidden"" name=""type"" value=""Log""/><br />"&chr(10)
  746. FormReview=FormReview&"   <textarea name=""content"" cols=""50"" rows=""5"" id=""content""/></textarea><br />"&chr(10)
  747. FormReview=FormReview&"   <input type=""submit"" name=""Submit"" value=""发表评论""/>&nbsp;&nbsp;<input type=""reset"" name=""Submit2"" value=""重新填写""/>"&chr(10)
  748. FormReview=FormReview&" </form>"&chr(10)
  749. Log_Page = replace(f_Lablechar,"Log_ReviewForm",FormReview)
  750. end if
  752. rs.close:set rs = nothing
  753. end if
  754. End Function
  755. '得到日志连接
  756. Public Function Get_LogLink(f_id)
  757. dim rs,rs_sys
  758. set rs = User_Conn.execute("select iLogID,FileName,FileExtName,UserNumber,savePath From FS_ME_Infoilog where iLogID="&f_id)
  759. Get_LogLink = "http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& replace(Request.Cookies("FoosunMECookies")("FoosunMELogDir")&"/Blog.asp?id="&rs("iLogID"),"//","/")
  760. rs.close:set rs=nothing
  761. Get_LogLink = Get_LogLink
  762. End Function
  763. '相册调用
  764. Public Function Photo_List(f_Lablechar,f_type)
  765. 'Photo_List┆类型$1┆数量$10┆列数$1┆字数$30┆图片大小$100,80┆图片CSS$┆标题CSS$┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$┆输入格式$out_DIV
  766. Dim table_array,CodeType,TitleNumber,ColsNumber,leftTitle,PizSize,div_tf,PicCSS,TitleCSS
  767. Dim classNews_head,classNews_middle1,classNews_bottom,classNews_middle2,pizh,pizw
  768. dim f_sql,rs,DivId,DivClass,Url_Domain_path,a_href_link,orderby,rec_tf,tmp_I
  769. table_array=split(f_Lablechar,"┆")
  770. CodeType = split(split(f_Lablechar,"┆")(1),"$")(1)
  771. TitleNumber = split(split(f_Lablechar,"┆")(2),"$")(1)
  772. if TitleNumber="" or isnumeric(TitleNumber)=false then
  773. TitleNumber = 10
  774. else
  775. TitleNumber = TitleNumber
  776. end if
  777. ColsNumber = split(split(f_Lablechar,"┆")(3),"$")(1)
  778. if ColsNumber="" or isnumeric(ColsNumber)=false then
  779. ColsNumber = 5
  780. else
  781. ColsNumber = ColsNumber
  782. end if
  783. leftTitle = split(split(f_Lablechar,"┆")(4),"$")(1)
  784. PizSize = split(split(f_Lablechar,"┆")(5),"$")(1)
  785. if PizSize<>"" and instr(PizSize,",")>0 then
  786. if split(PizSize,",")(0)= "0" then
  787. pizh = ""
  788. pizw = " width="""&split(PizSize,",")(1)&""""
  789. else
  790. if split(PizSize,",")(1)= "0" then
  791. pizw = ""
  792. pizh = " width="""&split(PizSize,",")(0)&""""
  793. else
  794. pizh = " height="""& split(PizSize,",")(0) &""""
  795. pizw = " width="""&split(PizSize,",")(1)&""""
  796. end if
  797. end if
  798. else
  799. pizh = " height=""100"""
  800. pizw = " width=""80"""
  801. end if
  802. PicCSS = split(split(f_Lablechar,"┆")(6),"$")(1)
  803. TitleCSS = split(split(f_Lablechar,"┆")(7),"$")(1)
  804. DivId = split(split(f_Lablechar,"┆")(8),"$")(1)
  805. DivClass = split(split(f_Lablechar,"┆")(9),"$")(1)
  806. if PicCSS<>"" then
  807. PicCSS = " class="""&PicCSS&""""
  808. else
  809. PicCSS = ""
  810. end if
  811. if TitleCSS<>"" then
  812. TitleCSS = " class="""&TitleCSS&""""
  813. else
  814. TitleCSS = ""
  815. end if
  816. if instr(f_Lablechar,"out_DIV")>0 then
  817. div_tf=1
  818. classNews_head = table_str_list_head(div_tf,split(table_array(8),"$")(1),split(table_array(9),"$")(1),split(table_array(10),"$")(1),split(table_array(11),"$")(1))
  819. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(12),"$")(1),split(table_array(13),"$")(1))
  820. else
  821. div_tf=0
  822. end if
  823. classNews_bottom = table_str_list_bottom(div_tf)
  824. classNews_middle2 = table_str_list_middle_2(div_tf)
  825. if CodeType = "0" then
  826. orderby = " order by id desc"
  827. rec_tf = ""
  828. elseif CodeType="1" then
  829. orderby = " order by id desc"
  830. rec_tf = " and isRec=1"
  831. else
  832. orderby = " order by Hits desc,id desc"
  833. rec_tf = ""
  834. end if
  835. f_sql = "select top "& TitleNumber &" Id,title,PicSavePath,Content,Addtime,UserNumber,PicSize,Hits,isRec From FS_ME_Photo where 1=1 "&rec_tf&" "&orderby&""
  836. set rs = User_Conn.execute(f_sql)
  837. Photo_List = ""
  838. Url_Domain_path = "http://" & request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  839. if rs.eof then
  840. Photo_List = ""
  841. rs.close:set rs = nothing
  842. else
  843. tmp_I = 0 
  844. do while not rs.eof
  845. a_href_link=Url_Domain_path & "/"&Request.Cookies("FoosunMECookies")("FoosunMELogDir")&"/ShowPhoto.asp?Id="&rs("Id")&""
  846. if div_tf=1 then
  847. if DivId<>"" Then:DivId = " id="""&DivId&"""":else:DivId = "":end if
  848. if DivClass<>"" Then:DivClass = " class="""&DivClass&"""":else:DivClass = "":end if
  849. Photo_List = Photo_List & "  <div"& DivId & DivClass &" align=""center""><a href="""&a_href_link&"""><img src="""& Url_Domain_path & rs("PicSavePath") &""""&PicCSS&""& pizh & pizw &" border=""0"" /></a><br /><a href="""&a_href_link&""""&TitleCSS&">"&GotTopic(""&rs("title"),TitleNumber)&"</a></div>"&chr(10)
  850. else
  851. Photo_List = Photo_List & "  <td width="""&cint(100/ColsNumber)&"%"" align=""center""><a href="""&a_href_link&"""><img src="""& Url_Domain_path & rs("PicSavePath") &""""&PicCSS&""& pizh & pizw &" border=""0"" /></a><br /><a href="""&a_href_link&""""&TitleCSS&">"&GotTopic(""&rs("title"),TitleNumber)&"</a></td>"&chr(10)
  852. end if
  853. rs.movenext
  854. if div_tf = 0 then
  855. tmp_I = tmp_I + 1
  856. if tmp_I mod ColsNumber =0 then
  857. Photo_List = Photo_List & "</tr><tr>"
  858. end if
  859. end if
  860. loop
  861. rs.close:set rs = nothing
  862. end if
  863. if div_tf=1 then
  864. 'Photo_List = classNews_head & Photo_List & classNews_bottom
  865. Photo_List =  Photo_List 
  866. else
  867. Photo_List = "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""5""><tr>" & Photo_List & "</tr></table>"
  868. end if
  869. Photo_List = Photo_List
  870. End Function
  872. '相册浏览
  874. Public Function Photo_show(f_Lablechar,f_id)
  875. 'ShowPhoto┆字数$30┆图片大小$300,200┆图片CSS$┆标题CSS$
  876. Dim lefttitle,Picsize,piccss,titlecss,picheight,picwidth,rs,f_sql
  877. lefttitle = split(split(f_Lablechar,"┆")(1),"$")(1)
  878. Picsize = split(split(f_Lablechar,"┆")(2),"$")(1)
  879. piccss = split(split(f_Lablechar,"┆")(3),"$")(1)
  880. titlecss = split(split(f_Lablechar,"┆")(4),"$")(1)
  881. if not isnumeric(lefttitle) then:lefttitle =50:else:lefttitle = cint(lefttitle):end if
  882. if trim(piccss)<>"" then
  883. piccss =" class="""& piccss &""""
  884. else
  885. piccss = ""
  886. end if
  887. if trim(titlecss)<>"" then:titlecss =" class="""& titlecss &"""":else:titlecss = "":end if
  888. picheight = split(Picsize,",")(0)
  889. if picheight <> "0" then
  890. picheight = " height ="""&picheight&""""
  891. else
  892. picheight = ""
  893. end if
  894. picwidth = split(Picsize,",")(1)
  895. if picwidth <> "0" then
  896. picwidth = " width ="""&picwidth&""""
  897. else
  898. picwidth = ""
  899. end if
  900. Photo_show = ""
  901. if not isnumeric(f_id) then
  902. Photo_show = "错误参数"
  903. else
  904. f_sql = "select top 1 id,title,Content,PicSavePath,Addtime,UserNumber,Hits From FS_ME_Photo where id="& clng(f_id)
  905. 'response.Write(f_sql)
  906. 'response.end
  907. set rs = User_Conn.execute(f_sql)
  908. if rs.eof then
  909. Photo_show = "错误参数"
  910. rs.close:set rs = nothing
  911. else
  912. Photo_show = Photo_show & "<a href="""& rs("PicSavePath") &""" target=""_blank""><img src = """& rs("PicSavePath") &""""& piccss & picheight & picwidth &" /></a><br /><br />"& rs("title")& "<br /><div align=""left"">说明:"& rs("Content")& "</div><br /><br />"
  913. Photo_show = Photo_show & "作者：<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserNumber="&rs("UserNumber")&""" target=""_blank"">"&get_UserNameLink(rs("UserNumber"))&"</a>&nbsp;&nbsp;日期："&rs("Addtime")&"&nbsp;&nbsp;阅读次数:<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Click.asp?type=ajax&SubSys=PHOTO&spanid=PH_id_click_"&rs("id")&"""></script><div id=PH_id_click_"&rs("id")&"></div>"
  914. rs.close:set rs = nothing
  915. end if
  916. end if
  917. End function
  918. '专题地址
  919. Public Function get_subjectLink(f_Usernumber,f_dir)
  920. get_subjectLink = "http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&Request.Cookies("FoosunMECookies")("FoosunMELogDir")&"/"&f_Usernumber&"/"&f_dir&".html"
  921. End Function
  922. '得到作者地址
  923. Public Function get_AuthorLink(f_user)
  924. get_AuthorLink = "http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserNumber="&f_user&""
  925. End Function
  926. '得到作者用户名
  927. Public Function get_UserNameLink(f_usernumber)
  928. dim rs
  929. set rs = User_Conn.execute("select UserName From FS_ME_Users where UserNumber='"&f_usernumber&"'")
  930. if rs.eof then
  931. get_UserNameLink = ""
  932. rs.close:set rs=nothing
  933. else
  934. get_UserNameLink = rs("UserName")
  935. rs.close:set rs=nothing
  936. end if
  937. end Function
  938. '得到分类名称
  939. Public Function get_UserClassName(f_id)
  940. dim rs
  941. set rs = User_Conn.execute("select ClassCName From FS_ME_InfoClass where ClassID="&f_id&"")
  942. if rs.eof then
  943. get_UserClassName = "未分类"
  944. rs.close:set rs=nothing
  945. else
  946. get_UserClassName = rs("ClassCName")
  947. rs.close:set rs=nothing
  948. end if
  949. end Function
  950. '得到系统分类名称
  951. Public Function get_UsersysClassName(f_id)
  952. dim rs
  953. set rs = User_Conn.execute("select ClassName From FS_ME_iLogClass where id="&f_id&"")
  954. if rs.eof then
  955. get_UsersysClassName = "未分类"
  956. rs.close:set rs=nothing
  957. else
  958. get_UsersysClassName = rs("ClassName")
  959. rs.close:set rs=nothing
  960. end if
  961. end Function
  962. '得到日期格式
  963. Public Function get_DateChar(f_datestyle,f_addtime)
  964. dim tmp_f_datestyle
  965. tmp_f_datestyle = f_datestyle
  966. if instr(f_datestyle,"YY02")>0 then
  967. tmp_f_datestyle= replace(tmp_f_datestyle,"YY02",right(year(f_addtime),2))
  968. end if
  969. if instr(f_datestyle,"YY04")>0 then
  970. tmp_f_datestyle= replace(tmp_f_datestyle,"YY04",year(f_addtime))
  971. end if
  972. if instr(f_datestyle,"MM")>0 then
  973. if month(f_addtime)<10 then
  974. tmp_f_datestyle= replace(tmp_f_datestyle,"MM","0"&month(f_addtime))
  975. else
  976. tmp_f_datestyle= replace(tmp_f_datestyle,"MM",month(f_addtime))
  977. end if
  978. end if
  979. if instr(f_datestyle,"DD")>0 then
  980. if day(f_addtime)<10 then
  981. tmp_f_datestyle= replace(tmp_f_datestyle,"DD","0"&day(f_addtime))
  982. else
  984. tmp_f_datestyle= replace(tmp_f_datestyle,"DD",day(f_addtime))
  985. end if
  986. end if
  987. if instr(f_datestyle,"HH")>0 then
  988. if hour(f_addtime)<10 then
  989. tmp_f_datestyle= replace(tmp_f_datestyle,"HH","0"&hour(f_addtime))
  990. else
  991. tmp_f_datestyle= replace(tmp_f_datestyle,"HH",hour(f_addtime))
  992. end if
  993. end if
  994. if instr(f_datestyle,"MI")>0 then
  995. if minute(f_addtime)<10 then
  996. tmp_f_datestyle= replace(tmp_f_datestyle,"MI","0"&minute(f_addtime))
  997. else
  998. tmp_f_datestyle= replace(tmp_f_datestyle,"MI",minute(f_addtime))
  999. end if
  1000. end if
  1001. if instr(f_datestyle,"SS")>0 then
  1002. if second(f_addtime)<10 then
  1003. tmp_f_datestyle= replace(tmp_f_datestyle,"SS","0"&second(f_addtime))
  1004. else
  1005. tmp_f_datestyle= replace(tmp_f_datestyle,"SS",second(f_addtime))
  1006. end if
  1007. end if
  1008. get_DateChar = tmp_f_datestyle
  1009. end Function
  1010. End Class
  1011. %>