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

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

数据库编程

开发平台：

ASP/ASPX

Other_Public.asp：源码内容
  1. <%
  2. Class cls_Other
  3. '定义参数
  4. Private m_Rs,m_FSO,m_Dict
  5. Private m_PathDir,m_Path_UserDir,m_Path_User,m_Path_adminDir,m_Path_UserPageDir,m_Path_Templet
  6. Private m_Err_Info,m_Err_NO
  9. Private Sub Class_initialize()
  10. Set m_Rs = Server.CreateObject(G_FS_RS)
  11. Set m_FSO = Server.CreateObject(G_FS_FSO)
  12. Set m_Dict = Server.CreateObject(G_FS_DICT)
  13. m_PathDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")
  14. m_Path_UserDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USER_DIR&"/","//","/")
  15. m_Path_UserPageDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USERFILES_DIR&"/","//","/")
  16. m_Path_Templet  = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_TEMPLETS_DIR&"/","//","/")
  17. End Sub 
  19. Private Sub Class_Terminate() 
  20. Set m_Rs = Nothing
  21. Set m_FSO = Nothing
  22. Set m_Dict = Nothing
  23. End Sub
  24. '获得参数
  25. Public Function get_LableChar(f_Lablechar,f_Id)
  26. Dim f_array
  27. f_array= split(f_Lablechar,"┆")
  28. if ubound(f_array)=0 and not isarray(f_array) then
  29. get_LableChar=""
  30. exit Function
  31. else
  32. select case LCase(f_array(0))
  33. case "sstype"
  34. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=SSTYPE(f_Lablechar,"sstype"):end if
  35. case "picfl"
  36. if ubound(f_array)<>11   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=PicFL(f_Lablechar,"picfl"):end if
  37. case "wordfl"
  38. if ubound(f_array)<>11   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=WordFL(f_Lablechar,"wordfl"):end if
  39. case "bookcode"
  40. if ubound(f_array)<>15   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=BookCode(f_Lablechar,"bookcode"):end if
  41. case "vslist"
  42. if ubound(f_array)<>3   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=VSLIST(f_Lablechar,"vslist"):end if
  43. case "adlist"
  44. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=AdLIST(f_Lablechar,"adlist"):end if
  46. end select
  47. end if
  48. End Function
  49. '统计调用
  50. Public Function SSTYPE(f_Lablechar,f_type)
  51. 'SSTYPE┆方式$0┆路径$0
  52. dim CodeStyle,PathStyle,Url_Path,code_end
  53. CodeStyle = split(split(f_Lablechar,"┆")(1),"$")(1)
  54. PathStyle = split(split(f_Lablechar,"┆")(2),"$")(1)
  55. If PathStyle = "0" then
  56. Url_Path = Replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")
  57. else
  58. Url_Path = "http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain") &"/"
  59. end if
  60. if CodeStyle="0" then
  61. code_end = "1"
  62. elseif CodeStyle="1" then
  63. code_end = "0"
  64. else
  65. code_end = "2"
  66. end if
  67. SSTYPE = "<script language=""JavaScript"" src="""& Url_Path&"stat?code="&CodeStyle&""" type=""text/JavaScript""></script>"
  68. End Function
  69. '调用图片友情连接
  70. Public Function PicFL(f_Lablechar,f_type)
  71. 'PicFL┆调用数量$12┆站点名称$0┆每列数量$6┆图片尺寸$88,31┆输出方式$out_Table┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$
  72. dim table_array,div_tf,div_chars,div_class,i_link
  73. dim CodeNumber,siteName,colsNumber,pizsize,rs
  74. table_array=split(f_Lablechar,"┆")
  75. CodeNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
  76. siteName = split(split(f_Lablechar,"┆")(2),"$")(1)
  77. colsNumber = split(split(f_Lablechar,"┆")(3),"$")(1)
  78. pizsize = split(split(f_Lablechar,"┆")(4),"$")(1)
  79. if instr(f_Lablechar,"out_DIV")>0 then
  80. div_tf=1
  81. else
  82. div_tf=0
  83. end If
  84. If CodeNumber="" Then CodeNumber=0
  85. set rs = Conn.execute("select top "&CodeNumber&" F_Name,F_PicUrl,F_Url From FS_FL_FrendList where F_Lock=0 and F_Type=0 order by F_OrderID desc")
  86. PicFL = ""
  87. if rs.eof then
  88. PicFL = ""
  89. rs.close:set rs=nothing
  90. else
  91. i_link = 0 
  92. do while not rs.eof
  93. if div_tf=1 then
  94. PicFL = PicFL &"<a href="""& rs("F_Url")&"""><img src="""&rs("F_PicUrl")&""" alt="""& rs("F_Name")&""" border=""0"" width="""&split(pizsize,",")(0)&""" height="""&split(pizsize,",")(1)&""" /></a>"
  95. else
  96. PicFL = PicFL & "  <td width="""&cint(100/colsNumber)&"%"" align=""center""><a href="""& rs("F_Url")&"""><img  border=""0"" src="""&rs("F_PicUrl")&""" alt="""& rs("F_Name")&"""  width="""&split(pizsize,",")(0)&""" height="""&split(pizsize,",")(1)&""" /></a></td>"&chr(10)
  97. end if
  98. rs.movenext
  99. i_link = i_link + 1
  100. if i_link mod colsNumber = 0 then 
  101. PicFL = PicFL & "</tr><tr>"
  102. end if
  103. loop
  104. rs.close:set rs=nothing
  105. end if
  106. if div_tf = 1 then
  107. if split(split(f_Lablechar,"┆")(6),"$")(1)<>"" then
  108. div_chars = " id="&split(split(f_Lablechar,"┆")(6),"$")(1)&""
  109. else
  110. div_chars = ""
  111. end if
  112. if split(split(f_Lablechar,"┆")(7),"$")(1)<>"" then
  113. div_class = " class="&split(split(f_Lablechar,"┆")(7),"$")(1)&""
  114. else
  115. div_class = ""
  116. end if
  117. PicFL = "<div"&div_chars&div_class&">"&PicFL&"</div>"
  118. else
  119. PicFL = "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"">"&chr(10)&" <tr>"&chr(10)&" "&PicFL&chr(10)&" </tr>"&chr(10)&"</table>"
  120. end if
  121. PicFL = PicFL
  122. End Function
  123. '文字友情连接
  124. Public Function WordFL(f_Lablechar,f_type)
  125. 'WordFL┆调用数量$12┆每列数量$1┆标题CSS$20┆站点显示字数$20┆输出方式$out_Table┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$
  126. dim table_array,div_tf,div_chars,div_class,i_link
  127. dim CodeNumber,TitleCSS,colsNumber,pizsize,rs,lefttitle
  128. table_array=split(f_Lablechar,"┆")
  129. CodeNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
  130. colsNumber = split(split(f_Lablechar,"┆")(2),"$")(1)
  131. lefttitle = split(split(f_Lablechar,"┆")(4),"$")(1)
  132. If IsNull(lefttitle) Then lefttitle=""
  133. if instr(f_Lablechar,"out_DIV")>0 then
  134. div_tf=1
  135. else
  136. div_tf=0
  137. TitleCSS = split(split(f_Lablechar,"┆")(3),"$")(1)
  138. If TitleCSS="" then
  139. TitleCSS = ""
  140. else
  141. TitleCSS = " class="""&TitleCSS&""""
  142. end if
  143. end If
  144. If CodeNumber="" Then CodeNumber=0
  145. set rs = Conn.execute("select top "&CodeNumber&" F_Name,F_Url From FS_FL_FrendList where F_Lock=0 and F_Type=1 order by F_OrderID desc")
  146. WordFL = ""
  147. if rs.eof then
  148. WordFL = ""
  149. rs.close:set rs=nothing
  150. else
  151. i_link = 0 
  152. do while not rs.eof
  153. if div_tf=1 Then
  154. If IsNumeric(lefttitle) then
  155. WordFL = WordFL &"<a href="""& rs("F_Url")&""">"&Left(rs("F_Name"),lefttitle)&"</a>"
  156. Else
  157. WordFL = WordFL &"<a href="""& rs("F_Url")&""">"&rs("F_Name")&"</a>"
  158. End if
  159. Else
  160. If IsNumeric(lefttitle) then
  161. WordFL = WordFL & "  <td width="""&cint(100/colsNumber)&"%"" align=""center""><a href="""& rs("F_Url")&""""&TitleCSS&">"& Left(rs("F_Name"),lefttitle) &"</a></td>"&chr(10)
  162. Else
  163. WordFL = WordFL & "  <td width="""&cint(100/colsNumber)&"%"" align=""center""><a href="""& rs("F_Url")&""""&TitleCSS&">"& rs("F_Name") &"</a></td>"&chr(10)
  164. End if
  165. end if
  166. rs.movenext
  167. i_link = i_link + 1
  168. if i_link mod colsNumber = 0 then 
  169. WordFL = WordFL & "</tr><tr>"
  170. end if
  171. loop
  172. rs.close:set rs=nothing
  173. end if
  174. if div_tf = 1 then
  175. if split(split(f_Lablechar,"┆")(6),"$")(1)<>"" then
  176. div_chars = " id="""&split(split(f_Lablechar,"┆")(6),"$")(1)&""""
  177. else
  178. div_chars = ""
  179. end if
  180. if split(split(f_Lablechar,"┆")(7),"$")(1)<>"" then
  181. div_class = " class="""&split(split(f_Lablechar,"┆")(7),"$")(1)&""""
  182. else
  183. div_class = ""
  184. end if
  185. WordFL = "<div"&div_chars&div_class&">"&WordFL&"</div>"
  186. else
  187. WordFL = "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"">"&chr(10)&" <tr>"&chr(10)&" "&WordFL&chr(10)&" </tr>"&chr(10)&"</table>"
  188. end if
  189. WordFL = WordFL
  190. End Function 
  191. '留言调用
  192. Public Function BookCode(f_Lablechar,f_type)
  193. 'BookCode┆类型$0┆栏目$┆数量$10┆列数$1┆字数$30┆标题CSS$┆日期CSS$┆日期格式$YY02-MM-DD┆DivID$┆Divclass$┆ulid$┆ulclass$┆liid$┆liclass$┆输入格式$out_Table
  194. dim table_array,BookPop,ClassID,TitleNumber,ColsNumber,leftTitle,div_tf,TitleCSS,DateCSS,datestyle
  195. dim classNews_head,classNews_middle1,classNews_bottom,classNews_middle2,user_str,tmp_hit
  196. dim rs,inSql_CMD,orderby,rec_tf
  197. table_array=split(f_Lablechar,"┆")
  198. BookPop = split(split(f_Lablechar,"┆")(1),"$")(1)
  199. ClassID = split(split(f_Lablechar,"┆")(2),"$")(1)
  200. TitleNumber = split(split(f_Lablechar,"┆")(3),"$")(1)
  201. ColsNumber = split(split(f_Lablechar,"┆")(4),"$")(1)
  202. leftTitle = split(split(f_Lablechar,"┆")(5),"$")(1)
  203. if leftTitle<>"" then
  204. leftTitle = cint(leftTitle)
  205. else
  206. leftTitle = 30
  207. end if
  208. DateStyle = split(split(f_Lablechar,"┆")(8),"$")(1)
  209. if instr(f_Lablechar,"out_DIV")>0 then
  210. div_tf=1
  211. else
  212. div_tf=0
  213. TitleCSS=split(split(f_Lablechar,"┆")(6),"$")(1)
  214. if TitleCSS="" then
  215. TitleCSS = ""
  216. else
  217. TitleCSS = " class="""&TitleCSS&""""
  218. end if
  219. DateCSS=split(split(f_Lablechar,"┆")(7),"$")(1)
  220. if DateCSS<>"" then
  221. DateCSS = " class="""&DateCSS&""""
  222. else
  223. DateCSS = ""
  224. end if
  225. end if
  226. if div_tf=1 then
  227. classNews_head = table_str_list_head(div_tf,split(table_array(9),"$")(1),split(table_array(10),"$")(1),split(table_array(11),"$")(1),split(table_array(12),"$")(1))
  228. classNews_middle1 = table_str_list_middle_1(div_tf,split(table_array(13),"$")(1),split(table_array(14),"$")(1))
  229. end if
  230. classNews_bottom = table_str_list_bottom(div_tf)
  231. classNews_middle2 = table_str_list_middle_2(div_tf)
  232. if ClassID<>"" then
  233. inSql_CMD = " and ClassID='"& ClassId &"'"
  234. else
  235. inSql_CMD = ""
  236. end if
  237. if BookPop="0" then
  238. orderby = " order by LastUpdateDate desc,id desc"
  239. rec_tf=""
  240. elseif BookPop="1" then
  241. orderby = " order by LastUpdateDate desc,id desc"
  242. rec_tf=" and IsTop='1'"
  243. else
  244. orderby = " order by hit desc,LastUpdateDate desc,id desc"
  245. rec_tf=""
  246. end if
  247. set rs = Conn.execute("select top "& TitleNumber &" ID,ClassId,Topic,Body,AddDate,Hit,State,user From FS_WS_BBS where State='0' and len(Topic)>3 "& inSql_CMD & rec_tf & orderby &"")
  248. BookCode = ""
  249. if rs.eof then
  250. BookCode = ""
  251. rs.close:set rs=nothing
  252. else
  253. do while not rs.eof
  254. if BookPop="2" then
  255. tmp_hit = "<font style=""font-size:10px;font-family:Arial;"" color=red>["&rs("Hit")&"]</font>"
  256. end if
  257. if div_tf = 1 then
  258. if rs("user")<>"游客" and rs("user")<>"过客" then
  259. user_str = "(<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserName="&rs("User")&""" target=""_blank"">"& rs("User")&"</a>)"
  260. else
  261. user_str = "("&rs("User")&")"
  262. end if
  263. BookCode = BookCode & classNews_middle1 & "<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/GuestBook/ShowNote.asp?NoteID="&rs("id")&"&ClassID="&rs("ClassId")&""" target=""_blank"">"&GotTopic(""& rs("Topic"),leftTitle) &"</a>"& tmp_hit & user_str & Get_Date(rs("AddDate"),DateStyle) & "" & classNews_middle2
  264. else
  265. if rs("user")<>"游客" and rs("user")<>"过客" then
  266. user_str = "(<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&G_USER_DIR&"/ShowUser.asp?UserName="&rs("User")&""" target=""_blank"">"& rs("User")&"</a>)"
  267. else
  268. user_str = "("&rs("User")&")"
  269. end if
  270. BookCode = BookCode & "<img src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/sys_images/book_tf.gif"" border=""0"" /><a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/GuestBook/ShowNote.asp?NoteID="&rs("id")&"&ClassID="&rs("ClassId")&""" target=""_blank"""&TitleCSS&">"&GotTopic(""&rs("Topic"),leftTitle)&"</a>"& tmp_hit & user_str &"<span"& DateCSS &">"& Get_Date(rs("AddDate"),DateStyle)&"</span>"&"<br>"
  271. end if
  272. rs.movenext
  273. loop
  274. rs.close:set rs=nothing
  275. end if
  276. if div_tf=1 then
  277. BookCode = classNews_head & BookCode & classNews_bottom
  278. end if
  279. BookCode = BookCode
  280. End Function
  281. '投票
  282. Public Function VSLIST(f_Lablechar,f_type)
  283. 'VSLIST┆投票项$4┆图片宽度$100┆SpanId$Vote_HTML_ID00000
  284. Dim Tid,SpanId,PicWidth
  285. Tid = split(split(f_Lablechar,"┆")(1),"$")(1)
  286. SpanId = split(split(f_Lablechar,"┆")(3),"$")(1)
  287. PicWidth = split(split(f_Lablechar,"┆")(2),"$")(1)
  288. VSLIST = VSLIST & "<span id="""&SpanId&""">加载投票中...</span>"
  289. VSLIST = VSLIST & "<script src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Vote/VoteJs.asp?TID="&Tid&"&InfoID="&SpanId&"&PicW="& PicWidth &""" language=""javascript""></script>"&chr(10)
  291. End Function
  292. '广告调用
  293. Public Function AdLIST(f_Lablechar,f_type)
  294. 'AdLIST┆广告ID$94┆SpanId$Ad_HTML_ID
  295. Dim AdId,SpanId
  296. AdId = split(split(f_Lablechar,"┆")(1),"$")(1)
  297. SpanId = split(split(f_Lablechar,"┆")(2),"$")(1)
  298. AdLIST = AdLIST & "<script src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/ads/"&AdId&".js"" language=""javascript""></script>"&chr(10)
  299. End Function
  300. '得到div,table_________________________________________________________________________________
  301. Public Function table_str_list_head(f_tf,f_divid,f_divclass,f_ulid,f_ulclass)   
  302. Dim table_,tr_
  303. Dim f_divid_1,f_divclass_1,f_ulid_1,f_ulclass_1
  304. if f_tf=1 then
  305. if f_divid<>"" then:f_divid_1 = " id="""& f_divid &"""":else:f_divid_1 = "":end if
  306. if f_divclass<>"" then:f_divclass_1 = " class="""& f_divclass &"""":else:f_divclass_1 = "":end if
  307. if f_ulid<>"" then:f_ulid_1 = " id="""& f_ulid &"""":else:f_ulid_1 = "":end if
  308. if f_ulclass<>"" then:f_ulclass_1 = " class="""& f_ulclass &"""":else:f_ulclass_1 = "":end if
  309. table_="<div"& f_divid_1 & f_divclass_1 &">"
  310. tr_="<ul"& f_ulid_1 & f_ulclass_1 &">"
  311. table_str_list_head =  table_&chr(10)
  312. table_str_list_head = table_str_list_head &" "& tr_&chr(10)
  313. else
  314. table_="<table border=""0"" cellspacing=""0"" cellpadding=""3"" width=""100%"">"
  315. table_str_list_head =  table_&chr(10)
  316. end if
  317. End Function
  319. '得到div,table_________________________________________________________________________________
  320. public Function table_str_list_middle_1(f_tf,f_liid,f_liclass)
  321. Dim f_liid_1,f_liclass_1,td_
  322. if f_tf=1 then
  323. if f_liid<>"" then:f_liid_1 = " id="""& f_liid &"""":else:f_liid_1 = "":end if
  324. if f_liclass<>"" then:f_liclass_1 = " class="""& f_liclass &"""":else:f_liclass_1 = "":end if
  325. td_="<li"&f_liid_1&f_liclass_1&">"
  326. table_str_list_middle_1 ="  "&td_
  327. end if
  328. End Function
  330. '得到div,table_________________________________________________________________________________
  331. public Function table_str_list_middle_2(f_tf)
  332. Dim td__,tr__
  333. if f_tf=1 then
  334. td__="</li>"
  335. else
  336. td__="</td>"
  337. end if
  338. table_str_list_middle_2 =  td__&chr(10)
  339. End Function
  341. '得到div,table_________________________________________________________________________________
  342. Public Function table_str_list_middle_3(f_tf)
  343. if f_tf=1 then
  344. table_str_list_middle_3 = ""
  345. else
  346. table_str_list_middle_3 = "</tr>"
  347. end if
  348. End Function
  351. '得到div,table_________________________________________________________________________________
  352. Public Function table_str_list_bottom(f_tf)
  353. Dim table__,tr__
  354. if f_tf=1 then
  355. table__="</div>"
  356. tr__="</ul>"
  357. table_str_list_bottom = " "&tr__&chr(10)
  358. else
  359. table__="</table>"
  360. table_str_list_bottom = ""
  361. end if
  362. table_str_list_bottom = table_str_list_bottom &table__&chr(10)
  363. End Function
  364. 'DIV格式输出结束_____________________________________________________________________
  366. End Class
  367. %>