home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / Ft_inc_indexarticle_pro.asp < prev    next >
Text File  |  2006-06-01  |  7KB  |  155 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║Ft_inc_indexarticle.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.3 Free
  5. '=╣ª    ─▄ú║╛¡╡Σ╜╠│╠í¬í¬╩╫╥│╖╓└α╡≈╙├
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-3-2 21:14
  8. '=╣ª─▄╠φ╝╙ú║2006-2-25ú¼╖╓└α╬¬╡Ñ╩²╩▒╫╘╢»╡≈╙├╚╚├┼╬─╒┬[Design By └Σ╖τ]
  9. '=░µ    ╚¿ú║http://www.feitec.com/
  10. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  11. '==================================
  12. %>
  13. <!--#include file="Ft_config.asp"-->
  14. <!--#include file="Ft_conn.asp"-->
  15. <%
  16. webstyle=split(checksql("═°╒╛╜τ├µ╖τ╕±",web_style,1,20),"@@@")
  17. if request.Cookies(webname)("Skin") = empty then
  18.     Skin = checksql("╖τ╕±ID",webstyle(1),0,2)
  19. else
  20.     Skin = checksql("╖τ╕±ID",request.Cookies(webname)("Skin"),0,2)
  21. end if
  22. sql="select mb_main from Ft_mb_style where mb_id="& Skin
  23. set rs=Server.CreateObject("adodb.recordset")
  24. rs.open sql,conn,1,1
  25. mb_main=replace(replace(rs(0),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  26. rs.close
  27. signimgpath=split(mb_main,"|||@@@|||")(6) '╨í═╝▒Ω╡╪╓╖
  28. if request.querystring("tlen")="" then
  29.     titlelen=20
  30. else
  31.     titlelen=checksql("╬─╒┬▒Ω╠Γ│ñ╢╚",request.querystring("tlen"),0,2)
  32. end if
  33. titlepic=" <img src=""skins/pro/left_title_arrow.gif"" width=""10"" height=""12""> "
  34. '╚í│÷╖╓└α
  35. sql="select cat_id,cat_name from Ft_art_cat"
  36. set rs = server.createobject("adodb.recordset")
  37. rs.open sql,conn,1,1
  38. if not rs.eof then
  39. rs.movefirst
  40. totalcat=rs.recordcount
  41. if totalcat mod 2<>0 then
  42.     Redim x(cint(totalcat+1)),y(cint(totalcat+1))
  43.     x(totalcat+1)=0
  44.     y(totalcat+1)="╚╚├┼╬─╒┬"
  45.     k=int(totalcat/2)+1
  46. else
  47.     Redim x(cint(totalcat)),y(cint(totalcat))
  48.     k=int(totalcat/2)
  49. end if
  50.     dim i
  51.     for i=1 to totalcat
  52.         x(i)=rs(0)
  53.         y(i)=rs(1)
  54.         rs.movenext
  55.     next
  56. else
  57. %>
  58. document.write('<table class="right_table" cellspacing="0" cellpadding="0" align="center"><tr><td align="center" height="150" class="disable_font">╬─╒┬╧╡═│╘▌╬▐╖╓└α</td></tr></table>');
  59. <%
  60. end if
  61. rs.close
  62. for j=1 to k '╧╘╩╛╢α╔┘╨╨
  63. %>
  64. document.write('<table class="right_table" cellspacing="0" cellpadding="0" align="center" style="border:0px;">');
  65. document.write('<tr>');
  66.     <%for i=1+(j-1)*2 to j*2%>
  67. document.write('<td valign="top" width="50%">');
  68.         <%if x(i)<>"" then%>
  69. document.write('<table class="right_table" cellspacing="0" cellpadding="1" align="center" <%if i mod 2<>0 then %>style="width:100%;" <%else%>style="width:100%;border-left:1px solid #ffffff;"<%end if%>>');
  70. document.write('<tr>');
  71. document.write('<td colspan="2"><table border="0" width="100%"  cellspacing="0" cellpadding="0" id="foot"><tr><td class="left_title"><%=titlepic%><span class="fontshadow"><a href="article.asp<%if x(i)<>0 then%>?cat_id=<%=x(i)%><%end if%>"><span style="text-decoration: none;"><%=y(i)%></span></a></span></td></tr></table></td>');
  72. document.write('</tr>');
  73.             <%
  74.             if x(i)=0 then  '╚╚├┼╬─╒┬
  75.             sql="select top "&indexarticle&" art_id,istop,art_date,art_title,art_good,art_count,user_view from Ft_art order by istop=1,art_count desc,art_id desc"
  76.             else
  77.             sql="select top "&indexarticle&" art_id,istop,art_date,art_title,art_good,art_count,user_view from Ft_art where cat_id="&x(i)&" order by istop=1,art_id desc"
  78.             end if
  79.             set rs = server.createobject("adodb.recordset")
  80.             rs.open sql,conn,1,1
  81.             if not rs.eof then
  82.             rs.movefirst
  83.             do while not rs.eof
  84.             'replaceText(str)╙├╙┌ALTú¼╚Ñ╡⌠HTML┤·┬δ
  85.             'art_title╙├╙┌╧╘╩╛▒Ω╠Γú¼art_alt╙├╙┌╧╘╩╛ALT
  86.             arttitle=rs(3)
  87.             istop=rs(1)
  88.             artgood=rs(4)
  89.             artid=rs(0)
  90.             artcount=rs(5)
  91.             artdate=rs(2)
  92.             userview=rs(6)
  93.             if instr(arttitle,"<font color")<>0 then
  94.                 Arr_title=split(arttitle,">")
  95.                 art_alt=replaceText(arttitle)
  96.                 if len(art_alt)>cint(titlelen) then '╙├╙┌╧╘╩╛╬─╒┬▒Ω╠Γ
  97.                     newtitle=Arr_title(0)+">"+left(art_alt,cint(titlelen))+"í¡</font>"
  98.                 else
  99.                     newtitle=arttitle
  100.                 end if
  101.             else
  102.                 if len(arttitle)>cint(titlelen) then
  103.                     art_alt=arttitle
  104.                     newtitle=left(arttitle,cint(titlelen))+"í¡"
  105.                 else
  106.                     art_alt=arttitle
  107.                     newtitle=arttitle
  108.                 end if
  109.             end if
  110.             %>
  111.             document.write('    <tr>');
  112.             document.write('        <td width="6%" align="center"><%if userview=2 then%><img src="<%=signimgpath%>/vipview.gif" border="0" alt="VIP╗ß╘▒╬─╒┬"><%elseif userview=1 then%><img src="<%=signimgpath%>/userview.gif" border="0" alt="╞╒═¿╗ß╘▒╬─╒┬"><%elseif istop=1 then%><img src="<%=signimgpath%>/topbiao.gif" border="0" alt="╩╫╥│╓├╢Ñ╬─╒┬"><%elseif artgood=0 then%><img src="<%=signimgpath%>/normalbiao.gif" alt="╞╒═¿╬─╒┬"><%elseif artgood=1 then%><img src="<%=signimgpath%>/tuijianbiao.gif" alt="═╞╝÷╬─╒┬"><%elseif artgood=2 then%><img src="<%=signimgpath%>/jinhuabiao.gif" alt="╛½╗¬╬─╒┬"><%else%><img src="<%=signimgpath%>/normalbiao.gif" alt="╞╒═¿╬─╒┬"><%end if%></td>');
  113.             document.write('        <td height="25"><a href="showart.asp?id=<%=artid%>"  target="_blank" title="╬─╒┬├√│╞ú║<%=art_alt%> ╖ó▒φ╩▒╝Σú║<%=artdate%> ╗╢╙¡│╠╢╚ú║╥╤╛¡▒╗╘─╢┴<%=artcount%>┤╬"><%=newtitle%></a><%if DateDiff("d",artdate,now())<1 then%> <img src="<%=signimgpath%>/new.gif" alt="╥╗╠∞╓«─┌╡─╨┬╠φ╬─╒┬" border="0"><%end if %></td>');
  114.             document.write('    </tr>');
  115.             document.write('    <tr>');
  116.             document.write('        <td height="1" colspan="2" background="<%=signimgpath%>/dotlineh.gif"></td>');
  117.             document.write('    </tr>');
  118.             <%
  119.             rs.movenext
  120.             loop
  121.             else%>
  122. document.write('<tr><td class="disable_font" height="25">íñ ┤╦╖╓└α╓╨╘▌╬▐─┌╚▌</td></tr>');
  123.             <%end if
  124.             rs.close%>
  125. document.write('</table>');
  126. document.write('<table cellspacing="0" cellpadding="0"    align="center" style="width:100%;border:0">');
  127. document.write('<tr>');
  128. document.write('<td height="8"></td>');
  129. document.write('</tr>');
  130. document.write('</table>');
  131.         <%else%>
  132. document.write('<table class="right_table" cellspacing="0" cellpadding="1"    align="center" <%if i mod 2<>0 then %>style="width:100%;" <%else%>style="width:100%;border-left:1px solid #ffffff;"<%end if%>>');
  133. document.write('<tr>');
  134. document.write('<td class="left_title" colspan="2"><%=titlepic%><span class="fontshadow" >╘▌╬▐╖╓└α</span></td>');
  135. document.write('</tr>');
  136. document.write('<tr><td class="disable_font">íñ ╟δ╧╚╠φ╝╙╖╓└α</td></tr>');
  137. document.write('</table>');
  138.         <%end if%>
  139. document.write('</td>');
  140.     <%next%>
  141. document.write('</tr>');
  142. document.write('</table>');
  143. <%
  144. next
  145. set rs=nothing
  146. CloseDatabase
  147. function replaceText(str)
  148.     dim regEx
  149.     set regEx=New RegExp
  150.     regEx.Pattern="<[^>]*>"
  151.     regEx.Ignorecase=True
  152.     regEx.Global=True
  153.     replaceText=regEx.Replace(str,"")
  154. end function
  155. %>