home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / pic.asp < prev    next >
Text File  |  2006-06-01  |  8KB  |  198 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║pic.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.21 Free
  5. '=╣ª    ─▄ú║│¼┐ß▒┌╓╜
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-2-19 18:09
  8. '=░µ    ╚¿ú║http://www.feitec.com/
  9. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  10. '==================================
  11. %>
  12. <!--#include file="Ft_config.asp"-->
  13. <!--#include file="Ft_conn.asp"-->
  14. <!--#include file="Ft_format.asp"-->
  15. <!--#include file="Ft_lib.asp"-->
  16. <%
  17. sub_title="│¼┐ß╦╪▓─"
  18. call head()
  19. call body()
  20. call foot()
  21. sub body()
  22. dim totalpic,Currentpage,totalpages,countI,catname,catid,page
  23. StrTemp=split(mb_pic,"|||@@@|||")
  24. dim StrTemp2,Ft_mbstr2
  25. 'StrTemp2=split(StrTemp(0),"///")
  26. '╫≤└╕╣½╣▓─┌╚▌╧╘╩╛
  27. sql="SELECT top "&hotnum&" * from Ft_pic ORDER by pic_count DESC,pic_date DESC"
  28. set rs2=server.createobject("adodb.recordset")
  29. rs2.open sql,conn,1,1
  30. do while not rs2.eof
  31. csname=rs2("pic_name")
  32. if instr(csname,"<font color")<>0 then
  33.     pictitle=split(csname,">")
  34.             pic_title=replace(pictitle(1),"</font","")
  35.     else
  36.         pic_title=csname
  37. end if
  38. toppic=toppic+"<img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""viewpic.asp?id="&rs2("pic_id")&""" title=""═╝╞¼├√│╞ú║"&pic_title&" ╡π╗≈┤╬╩²ú║"&rs2("pic_count")&" ═╝╞¼╝≥╜Θú║"&rs2("pic_content")&" ╝╙╚δ╩▒╝Σú║"&rs2("pic_date")&""" target=""_blank"">"&rs2("pic_name")&"</a><br>"
  39. rs2.movenext
  40. loop
  41. if rs2.eof and rs2.bof then
  42. toppic="<span class=""disable_font"">─┌╚▌╒²╘┌╕ⁿ╨┬╓«╓╨í¡í¡</span>"
  43. end if
  44. rs2.close
  45. set rs2=nothing
  46. '╫≤└╕╩Σ│÷
  47. Ft_mbstr2=replace(StrTemp(0),"{left_pub}",left_pub())
  48. Ft_mbstr2=replace(Ft_mbstr2,"$hotnum$",hotnum)
  49. Ft_mbstr2=replace(Ft_mbstr2,"$toppic$",toppic)
  50.  
  51. if request.querystring("page")<>"" then
  52.     page=checksql("▒┌╓╜╖╓╥│",request.querystring("page"),0,8)
  53. end if
  54. if request.querystring("cat_id")<>"" then
  55.     catid=checksql("▒┌╓╜╖╓└α",request.querystring("cat_id"),0,4)
  56.     sql="select * from Ft_pic where cat_id="&catid&" order by pic_id DESC"
  57. else
  58.     sql="select * from Ft_pic order by pic_id DESC"
  59. end if
  60. set rs=server.createobject("adodb.recordset")
  61. rs.open sql,conn,1,1
  62. totalpic=rs.recordcount
  63. sql="select * from Ft_pic_cat"
  64. set rs2=server.createobject("adodb.recordset")
  65. rs2.open sql,conn,1,1
  66. do while not rs2.eof
  67.     piccat=piccat+"<span class=""key_font"">|</span> <a href=""?cat_id="&rs2("cat_id")&""" >"&rs2("cat_name")&"</a>"
  68. rs2.movenext
  69. loop
  70. if rs2.bof and rs2.eof then
  71.     piccat="<span class=""disable_font"">|</span> ╘▌╬▐╖╓└α"
  72. end if
  73. rs2.close
  74. set rs2=nothing
  75. Ft_mbstr2=replace(Ft_mbstr2,"$piccat$",piccat)
  76. if request.querystring("cat_id")<>"" then
  77.     catname=""
  78.     sql="select cat_name from Ft_pic_cat where cat_id="&cint(request.querystring("cat_id"))
  79.     set rscat=conn.execute(sql)
  80.     catname=rscat("cat_name")
  81.     rscat.close
  82.     set rscat=nothing
  83.     cattotalnum="<span class=""key_font"">í╛"&catname&"í┐</span>╖╓└α╣▓╙╨<span class=""key_font"">"&rs.recordcount&"</span>╒┼═╝╞¼ "
  84. else
  85.     cattotalnum="─┐╟░▒╛╒╛╣▓╙╨<span class=""key_font"">"&rs.recordcount&"</span>╒┼═╝╞¼ "
  86. end if
  87. '╙╥└╕╖╓└α╩Σ│÷
  88. Ft_mbstr2=replace(Ft_mbstr2,"$cattotalnum$",cattotalnum)
  89. Ft_mbstr_piclist=split(Ft_mbstr2,"///")
  90. '╬─╒┬┴╨▒φ╟░╡──┌╚▌╩Σ│÷
  91. response.write Ft_mbstr_piclist(0)
  92. '═╝╞¼┴╨▒φ
  93. if not rs.eof then
  94.     rs.movefirst
  95. if pagenum mod 3 <>0 then
  96.     pagenum=pagenum-(pagenum mod 3)
  97. end if
  98. rs.pagesize=pagenum
  99. if trim(request.querystring("page"))<>"" then
  100.     currentpage=cint(page)
  101.     if currentpage>rs.pagecount then
  102.         currentpage=rs.pagecount
  103.     end if
  104. else
  105.     currentpage=1
  106. end if
  107. totalpic=rs.recordcount
  108. if currentpage<>1 then
  109.     if (currentpage-1)*pagenum<totalpic then
  110.         rs.move(currentpage-1)*pagenum
  111.     end if
  112. end if
  113. if (totalpic mod pagenum)=0 then
  114.     totalpages=totalpic\pagenum
  115. else
  116.     totalpages=totalpic\pagenum+1
  117. end if
  118.  
  119. countI = 0 '╝╞╩²╞≈
  120. Do while not rs.eof and countI<pagenum
  121. if (countI Mod 3 = 0 And countI <> 0) then '▓╗╓╗╥╗╨╨ú¼├┐╨╨╧╘╩╛3╕÷
  122.     '▓╗╓╗╥╗╨╨ú¼├┐╨╨╧╘╩╛3╕÷
  123.     response.write Ft_mbstr_piclist(1)
  124. end if
  125. csname=rs("pic_name")
  126. if instr(csname,"<font color")<>0 then
  127.     pictitle=split(csname,">")
  128.             pic_title=replace(pictitle(1),"</font","")
  129.     else
  130.         pic_title=csname
  131. end if
  132. if session("feitec_adminlogin")=feitec_sessionvar then
  133.     picimg="<a href=""viewpic.asp?id="&rs("pic_id")&""" target=""_blank""><img src="""&rs("pic_pic")&""" title=""├√│╞ú║"&pic_title&" ╝≥╜Θú║"&rs("pic_content")&" ╡π╗≈ú║"&rs("pic_count")&""" width=""140"" height=""105"" border=""0"" style=""CURSOR: hand;filter:alpha(opacity=70)"" onmouseover=""javascript:toup2(this)""  onMouseOut=""javascript:todown2(this);""></a>"
  134. else
  135.     if user_system<>0 then
  136.         if rs("user_view")<>0 then
  137.             if request.Cookies("userlogin")=user_session then
  138.                 sql="select * from Ft_user where lock=0 and name='"&split(request.Cookies("userdata"),"||")(0)&"' and passed=1"
  139.                 set rs2=server.createobject("adodb.recordset")
  140.                 rs2.open sql,conn,1,1
  141.                 if not rs2.eof then
  142.                 usertype=rs2("user_type")
  143.                 end if
  144.                 rs2.close:set rs2=nothing
  145.                 if rs("user_view")=2 and usertype<>2 then
  146.                     picimg="<img src="""&signimgpath&"/picuserpic.gif"" alt=""VIP╗ß╘▒═╝╞¼"">"
  147.                 else
  148.                 picimg="<a href=""viewpic.asp?id="&rs("pic_id")&""" target=""_blank""><img src="""&rs("pic_pic")&""" title=""├√│╞ú║"&pic_title&" ╝≥╜Θú║"&rs("pic_content")&" ╡π╗≈ú║"&rs("pic_count")&""" width=""140"" height=""105"" border=""0"" style=""CURSOR: hand;filter:alpha(opacity=70)"" onmouseover=""javascript:toup2(this)""  onMouseOut=""javascript:todown2(this);""></a>"
  149.                 end if
  150.             else
  151.                 picimg="<img src="""&signimgpath&"/picuserpic.gif"" alt=""╗ß╘▒═╝╞¼"">"
  152.             end if
  153.         else
  154.             picimg="<a href=""viewpic.asp?id="&rs("pic_id")&""" target=""_blank""><img src="""&rs("pic_pic")&""" title=""├√│╞ú║"&pic_title&" ╝≥╜Θú║"&rs("pic_content")&" ╡π╗≈ú║"&rs("pic_count")&""" width=""140"" height=""105"" border=""0"" style=""CURSOR: hand;filter:alpha(opacity=70)"" onmouseover=""javascript:toup2(this)""  onMouseOut=""javascript:todown2(this);""></a>"
  155.         end if
  156.     else
  157.         picimg="<a href=""viewpic.asp?id="&rs("pic_id")&""" target=""_blank""><img src="""&rs("pic_pic")&""" title=""├√│╞ú║"&pic_title&" ╝≥╜Θú║"&rs("pic_content")&" ╡π╗≈ú║"&rs("pic_count")&""" width=""140"" height=""105"" border=""0"" style=""CURSOR: hand;filter:alpha(opacity=70)"" onmouseover=""javascript:toup2(this)""  onMouseOut=""javascript:todown2(this);""></a>"
  158.     end if
  159. end if
  160. picname="["&rs("pic_name")&"]"
  161. if rs("user_view")=1 then
  162.     picname=picname+" <img src="""&signimgpath&"/userview.gif"" border=""0"" alt=""╗ß╘▒═╝╞¼"">"
  163. elseif rs("user_view")=2 then
  164.     picname=picname+" <img src="""&signimgpath&"/vipview.gif"" border=""0"" alt=""VIP╗ß╘▒═╝╞¼"">"
  165. end if
  166. '═╝╞¼╦⌡┬╘═╝╩Σ│÷
  167. Ft_mbstr2=replace(Ft_mbstr_piclist(2),"$picimg$",picimg)
  168. Ft_mbstr2=replace(Ft_mbstr2,"$picname$",picname)
  169. response.write Ft_mbstr2
  170. countI = countI + 1
  171. rs.movenext
  172. loop
  173. '╫ε║≤╥╗╨╨▓╗╫π3╕÷<td>╘≥╠φ╝╙╘ñ╢¿═╝╞¼
  174. modCountI = (countI Mod 3)
  175. if modCountI <> 0 then
  176.     for i = modCountI + 1 to 3
  177.         '╡▒╥╗╨╨╓╨═╝╞¼▓╗╫π╩▒ú¼╠µ╗╗═╝╞¼╩Σ│÷
  178.         response.write Ft_mbstr_piclist(3)
  179.     next
  180. end if
  181. elseif rs.eof and rs.bof then
  182.         response.write"<table class=""tableborder"" cellspacing=""1"" cellpadding=""4""    align=""center""><tr class=""tablebody""><td height=""70"" align=""center"" class=""disable_font"">┤╦╖╓└α╘▌╬▐═╝╞¼........</td>"
  183. end if
  184. rs.close
  185. Set rs = Nothing
  186. '═╝╞¼▒φ╕±╜ß╩°
  187. response.write Ft_mbstr_piclist(4)
  188. '╖╓╥│╩Σ│÷
  189.  
  190. if totalpic>pagenum then
  191.     Ft_mbstr2=replace(Ft_mbstr_piclist(5),"$picpage$",showpage(totalpic,pagenum,"pic.asp?"))
  192. else
  193.     Ft_mbstr2=replace(Ft_mbstr_piclist(5),"$picpage$","")
  194. end if
  195. response.write Ft_mbstr2
  196. end sub
  197. %>
  198.