home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / Ft_inc_indexsoft_pro.asp < prev    next >
Text File  |  2006-06-01  |  7KB  |  159 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║Ft_inc_indexsoft.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_soft_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. if totalcat mod 2<>0 then
  63.     k=int(totalcat/2)+1
  64. else
  65.     k=int(totalcat/2)
  66. end if
  67. for j=1 to k '╧╘╩╛╢α╔┘╨╨
  68. %>
  69. document.write('<table class="right_table" cellspacing="0" cellpadding="0" align="center" style="border:0px;">');
  70. document.write('<tr>');
  71.     <%for i=1+(j-1)*2 to j*2%>
  72. document.write('<td valign="top" width="50%">');
  73.         <%if x(i)<>"" then%>
  74. 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%>>');
  75. document.write('<tr>');
  76. 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="download.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>');
  77. document.write('</tr>');
  78.             <%
  79.             if x(i)=0 then  '╚╚├┼╚φ╝■
  80.             sql="select top "&indexsoft&" soft_date,soft_title,soft_id,soft_dcount,soft_good,istop,user_view from Ft_soft order by istop=1,soft_dcount desc,soft_id desc"
  81.             else
  82.             sql="select top "&indexsoft&" soft_date,soft_title,soft_id,soft_dcount,soft_good,istop,user_view from Ft_soft where cat_id="&x(i)&" order by istop=1,soft_id desc"
  83.             end if
  84.             set rs = server.createobject("adodb.recordset")
  85.             rs.open sql,conn,1,1
  86.             if not rs.eof then
  87.             do while not rs.eof
  88.             'replaceText(str)╙├╙┌ALTú¼╚Ñ╡⌠HTML┤·┬δ
  89.             'soft_title╙├╙┌╧╘╩╛▒Ω╠Γú¼soft_alt╙├╙┌╧╘╩╛ALT
  90.             softtitle=rs(1)
  91.             istop=rs(5)
  92.             softgood=rs(4)
  93.             softid=rs(2)
  94.             softcount=rs(3)
  95.             softdate=rs(0)
  96.             userview=rs(6)
  97.             if instr(softtitle,"<font color")<>0 then
  98.                 Arr_title=split(softtitle,">")
  99.                 soft_alt=replaceText(softtitle)
  100.                 if len(soft_alt)>cint(titlelen) then '╙├╙┌╧╘╩╛╚φ╝■▒Ω╠Γ
  101.                     newtitle=Arr_title(0)+">"+left(soft_alt,cint(titlelen))+"í¡</font>"
  102.                 else
  103.                     newtitle=softtitle
  104.                 end if
  105.             else
  106.                 if len(softtitle)>cint(titlelen) then
  107.                     soft_alt=softtitle
  108.                     newtitle=left(softtitle,cint(titlelen))+"í¡"
  109.                 else
  110.                     soft_alt=softtitle
  111.                     newtitle=softtitle
  112.                 end if
  113.             end if
  114.             %>
  115.             document.write('    <tr>');
  116.             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 istop=1 then%><img src="<%=signimgpath%>/topbiao.gif" border="0" alt="╩╫╥│╓├╢Ñ╚φ╝■"><%elseif softgood=0 then%><img src="<%=signimgpath%>/normalbiao.gif" alt="╞╒═¿╚φ╝■"><%elseif softgood=1 then%><img src="<%=signimgpath%>/tuijianbiao.gif" alt="═╞╝÷╚φ╝■"><%elseif softgood=2 then%><img src="<%=signimgpath%>/jinhuabiao.gif" alt="╛½╗¬╚φ╝■"><%else%><img src="<%=signimgpath%>/normalbiao.gif" alt="╞╒═¿╚φ╝■"><%end if%></td>');
  117.             document.write('        <td height="25"><a href="showsoft.asp?id=<%=softid%>"  target="_blank" title="╚φ╝■├√│╞ú║<%=soft_alt%> ╖ó▓╝╩▒╝Σú║<%=softdate%> ╗╢╙¡│╠╢╚ú║╥╤╛¡▒╗╧┬╘╪<%=softcount%>┤╬"><%=newtitle%></a><%if DateDiff("d",softdate,now())<1 then%> <img src="<%=signimgpath%>/new.gif" alt="╥╗╠∞╓«─┌╡─╨┬╠φ╚φ╝■" border="0"><%end if %></td>');
  118.             document.write('    </tr>');
  119.             document.write('    <tr>');
  120.             document.write('        <td height="1" colspan="2" background="<%=signimgpath%>/dotlineh.gif"></td>');
  121.             document.write('    </tr>');
  122.             <%
  123.             rs.movenext
  124.             loop
  125.             else%>
  126. document.write('<tr><td class="disable_font" height="25">íñ ┤╦╖╓└α╓╨╘▌╬▐─┌╚▌</td></tr>');
  127.             <%end if
  128.             rs.close%>
  129. document.write('</table>');
  130. document.write('<table cellspacing="0" cellpadding="0"    align="center" style="width:100%;border:0">');
  131. document.write('<tr>');
  132. document.write('<td height="8"></td>');
  133. document.write('</tr>');
  134. document.write('</table>');
  135.         <%else%>
  136. 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%>>');
  137. document.write('<tr>');
  138. document.write('<td class="left_title" colspan="2"><%=titlepic%><span class="fontshadow" >╘▌╬▐╖╓└α</span></td>');
  139. document.write('</tr>');
  140. document.write('<tr><td class="disable_font">íñ ╟δ╧╚╠φ╝╙╖╓└α</td></tr>');
  141. document.write('</table>');
  142.         <%end if%>
  143. document.write('</td>');
  144.     <%next%>
  145. document.write('</tr>');
  146. document.write('</table>');
  147. <%
  148. next
  149. set rs=nothing
  150. CloseDatabase
  151. function replaceText(str)
  152.     dim regEx
  153.     set regEx=New RegExp
  154.     regEx.Pattern="<[^>]*>"
  155.     regEx.Ignorecase=True
  156.     regEx.Global=True
  157.     replaceText=regEx.Replace(str,"")
  158. end function
  159. %>