home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / showsoft.asp < prev    next >
Text File  |  2006-06-01  |  18KB  |  379 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║showsoft.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.3 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. <!--#include file="Ft_md5.asp"-->
  17. <%
  18. '╧┬╘╪╥│├µ╖└╖╟╖¿╥²╙├
  19. response.Cookies("soft_download")=feitec_sessiondown
  20. dim softid,page,cat_id,class_id
  21. if request.querystring("page")<>"" then
  22.     page=checksql("╚φ╝■╞└┬█╖╓╥│",request.querystring("page"),0,4)
  23. end if
  24. if request.querystring("id")="" then
  25.     response.redirect("showerr.asp?errmsg=<br><li>╬─╒┬ID▓╗─▄╬¬┐╒ú¼╟δ╓╕╢¿▓┘╫≈╢╘╧≤úí</li>")
  26.     response.end
  27. else
  28.     softid=checksql("╚φ╝■ID",request.querystring("id"),0,8)
  29.     sql="select soft_id,soft_title from Ft_soft where soft_id="&softid
  30.     set rs=server.createobject("adodb.recordset")
  31.     rs.open sql,conn,1,1
  32.     if rs.eof and rs.bof then
  33.         response.redirect("showerr.asp?errmsg=<br><li>├╗╙╨┤╦╚φ╝■╗≥╕├╚φ╝■╥╤╔╛│²úí</li>")
  34.         response.end
  35.     else
  36.     soft_title=replaceText(rs("soft_title"))
  37.     sub_title=soft_title&"-╚φ╝■╧┬╘╪"
  38.     end if
  39.     rs.close
  40.     set rs=nothing
  41. end if
  42. call head()
  43. call body()
  44. call foot()
  45. sub body()
  46. '==================================
  47. '=╣ª    ─▄ú║╚í│÷╡▒╟░─ú░σ
  48. '==================================
  49. StrTemp=split(mb_soft,"|||@@@|||")
  50. dim Ft_mbstr
  51. if request.form("addremark")="true" then
  52.     call localsubmit()
  53.     dim remarker,remarker_ip,remark,remark_date
  54.     remarker=checksql("╞└┬█╒▀",request.form("remarker"),1,10)
  55.     remarker_ip=checksql("╞└┬█╒▀IP",request.form("remarker_ip"),1,20)
  56.     sfotid=checksql("╬─╒┬ID",request.form("soft_id"),0,8)
  57.     remark=checksql("╞└┬█─┌╚▌",request.form("remark"),1,151)
  58.     if usecode=1 then
  59.         GetCode=checksql("╤Θ╓ñ┬δ",request.form("GetCode"),1,6)
  60.         valicode=Session("yangzeng")
  61.         if GetCode<>valicode then
  62.             response.redirect("showerr.asp?errmsg=<br><li>╤Θ╓ñ┬δ┤φ╬≤úí")
  63.             response.end
  64.         end if
  65.     end if
  66.     sql="select soft_id,remarker,remark,remarker_ip,remark_date,remark_id from Ft_soft_remark where soft_id="&softid
  67.     set rsremark=server.createobject("adodb.recordset")
  68.     rsremark.open sql,conn,1,3
  69.     rsremark.addnew
  70.     rsremark("remarker")=remarker
  71.     rsremark("remark")=remark
  72.     rsremark("soft_id")=softid
  73.     rsremark("remarker_ip")=remarker_ip
  74.     rsremark("remark_date")=now()
  75.     rsremark.update
  76.     rsremark.close
  77.     set rsremark=nothing
  78.     Response.Write " <script> alert('─·╥╤╛¡│╔╣ª╠ß╜╗╞└┬█╨┼╧óú¼╕╨╨╗─·╡─╞└┬█íúíúíú\n\n                                   "& webname &" "& date() &"'); location.href='showsoft.asp?id="& softid&"'</script>"
  79.     Response.End
  80. end if
  81. set rscount=conn.execute("select * from Ft_soft")
  82. sql="update Ft_soft set soft_rcount = soft_rcount + 1 where soft_id="&softid
  83. conn.execute (sql)
  84. rscount.close
  85. set rscount=nothing
  86.  
  87. sql1="select top " &hotnum& " soft_dcount,soft_rcount,soft_id,soft_title,soft_date from Ft_soft  order by soft_dcount desc,soft_date desc"
  88. set rs1=server.createobject("adodb.recordset")
  89. rs1.open sql1,conn,1,1
  90. do while not rs1.eof
  91.     topsoft=topsoft+"<img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""showsoft.asp?id="&rs1("soft_id")&""">"&rs1("soft_title")&"</a><br>"
  92. rs1.movenext
  93. loop
  94. if rs1.eof and rs1.bof then
  95.     topsoft="<div class=""disable_font"" align=""center"">─┐╟░╗╣├╗╙╨╚φ╝■│╠╨≥úí</div>"
  96. end if
  97. rs1.close
  98. set rs1=nothing
  99. Ft_mbstr=replace(StrTemp(1),"{left_pub}",left_pub)
  100. Ft_mbstr=replace(Ft_mbstr,"$hotnum$",hotnum)
  101. Ft_mbstr=replace(Ft_mbstr,"$topsoft$",topsoft)
  102. sql2="select top " &hotnum& " soft_id,soft_title,soft_date,soft_dcount,soft_rcount from Ft_soft order by soft_date desc"
  103. set rs2=server.createobject("adodb.recordset")
  104. rs2.open sql2,conn,1,1
  105. do while not rs2.eof
  106.     newtop=newtop+"<img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""showsoft.asp?id="&rs2("soft_id")&""">"&rs2("soft_title")&"</a><br>"
  107. rs2.movenext
  108. loop
  109. if rs2.eof and rs2.bof then
  110. newtop="<div class=""disable_font"" align=""center"">─┐╟░╗╣├╗╙╨╚φ╝■│╠╨≥úí</div>"
  111. end if
  112. rs2.close
  113. set rs2=nothing
  114. '╫≤└╕
  115. Ft_mbstr=replace(Ft_mbstr,"$newtop$",newtop)
  116. sql="select * from Ft_soft where soft_id="&softid
  117. set rs=server.createobject("adodb.recordset")
  118. rs.open sql,conn,1,1
  119. '╚φ╝■╝≥╜Θ╒²╬─▒φ╕±
  120. Ft_mbstr=replace(Ft_mbstr,"$softtitle$",rs("soft_title"))
  121. if rs("istop")=1 then
  122.     softstate=" <img src="""&signimgpath&"/ztop.gif"" border=""0"" alt=""╓├╢Ñ╚φ╝■"">"
  123. else
  124.     softstate=""
  125. end if
  126. if rs("user_view")=1 then
  127. softstate=softstate+" <img src="""&signimgpath&"/userview.gif"" border=""0"" alt=""╗ß╘▒╚φ╝■ú¼╧┬╘╪╨Φ╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥"">"
  128. elseif rs("user_view")=2 then
  129. softstate=softstate+" <img src="""&signimgpath&"/vipview.gif"" border=""0"" alt=""VIP╗ß╘▒╚φ╝■ú¼╧┬╘╪╨Φ╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥"">"
  130. end if
  131. if rs("soft_good")=1 then
  132. softstate=softstate+" <span class=""key_font"">[╝÷]</span>"
  133. elseif rs("soft_good")=2 then
  134. softstate=softstate+" <span class=""key_font"">[╛½]</span>"
  135. end if
  136. Ft_mbstr=replace(Ft_mbstr,"$softstate$",softstate)
  137. Ft_mbstr=replace(Ft_mbstr,"$softdate$",rs("soft_date"))
  138. Ft_mbstr=replace(Ft_mbstr,"$catname$",rs("cat_name"))
  139. Ft_mbstr=replace(Ft_mbstr,"$classname$",rs("class_name"))
  140. Ft_mbstr=replace(Ft_mbstr,"$softsize$",rs("soft_size"))
  141. Ft_mbstr=replace(Ft_mbstr,"$softmode$",rs("soft_mode"))
  142. Ft_mbstr=replace(Ft_mbstr,"$softroof$",rs("soft_roof"))
  143. Ft_mbstr=replace(Ft_mbstr,"$softcommend$",rs("soft_commend"))
  144. if rs("soft_home")<>"" then
  145.     softhome="<a href="""&rs("soft_home")&""" title="""&rs("soft_home")&""" target=""_blank"">"&rs("soft_home")&"</a>"
  146. else
  147.     softhome="<span class=""disable_font"">╘▌╬▐</span>"
  148. end if
  149. Ft_mbstr=replace(Ft_mbstr,"$softhome$",softhome)
  150. Ft_mbstr=replace(Ft_mbstr,"$softdcount$",rs("soft_dcount"))
  151. Ft_mbstr=replace(Ft_mbstr,"$softrcount$",rs("soft_rcount"))
  152. if rs("user_view")=1 then
  153.     Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">╗ß╘▒╚φ╝■</span> <span class=""disable_font"">[╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥]</span>")
  154. elseif rs("user_view")=2 then
  155.     Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">VIP╗ß╘▒╚φ╝■</span> <span class=""disable_font"">[╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥]</span>")
  156. else
  157.     Ft_mbstr=replace(Ft_mbstr,"$userview$","╞╒═¿╚φ╝■")
  158. end if
  159. dim userarray,username
  160. if request.cookies("userdata")<>"" then
  161.     curarray=split(request.Cookies("userdata"),"||")
  162.     username=curarray(0)
  163.     sql="select * from Ft_user where lock=0 and name='"&username&"'and passed=1"
  164.     set rs2=server.createobject("adodb.recordset")
  165.     rs2.open sql,conn,1,1
  166.     if not (rs2.eof and rs2.bof) then
  167.         openuser=Ft_md5(rs2("user_id")+3)
  168.     else
  169.         openuser=""
  170.     end if
  171.     rs2.close:set rs2=nothing
  172. else
  173.     openuser=""
  174.     username=""
  175. end if
  176. if session("feitec_adminlogin")=feitec_sessionvar then
  177.     softurl="<a href=""opensoft.asp?id="&rs("soft_id")&"&url=1""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  178.     if rs("soft_url2")<>"" then
  179.         softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=2""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  180.     end if
  181.     if rs("soft_url3")<>"" then
  182.         softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=3""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  183.     end if
  184.     if rs("soft_url4")<>"" then
  185.         softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=4""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  186.     end if
  187. else
  188.     if user_system<>0 and rs("user_view")<>0 then
  189.         if request.Cookies("userlogin")=user_session then
  190.             softurl="<a href=""opensoft.asp?id="&rs("soft_id")&"&url=1&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  191.             if rs("soft_url2")<>"" then
  192.                 softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=2&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  193.             end if
  194.             if rs("soft_url3")<>"" then
  195.                 softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=3&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  196.             end if
  197.             if rs("soft_url4")<>"" then
  198.                 softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=4&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  199.             end if
  200.         else
  201.             softurl=softurl+" <span align=""center"" class=""disable_font"">╗ß╘▒╚φ╝■ú¼╟δ<a href=""user.asp"">╫ó▓ß</a>╬¬╗ß╘▒í¡í¡</span>"
  202.         end if
  203.     else
  204.         softurl="<a href=""opensoft.asp?id="&rs("soft_id")&"&url=1&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  205.         if rs("soft_url2")<>"" then
  206.             softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=2&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  207.         end if
  208.         if rs("soft_url3")<>"" then
  209.             softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=3&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  210.         end if
  211.         if rs("soft_url4")<>"" then
  212.             softurl=softurl+" <a href=""opensoft.asp?id="&rs("soft_id")&"&url=4&open="&openuser&"&down="&username&"""><img src="""&signimgpath&"/down.gif"" border=""0""></a>"
  213.         end if
  214.     end if
  215. end if
  216. if downtools=0 then
  217.     softurl=softurl+" <span class=""disable_font"">[╜√╓╣╣ñ╛▀╧┬╘╪]</span>"
  218. elseif downtools=1 then
  219.     softurl=softurl+" <span class=""disable_font"">[╘╩╨φ╣ñ╛▀╧┬╘╪]</span>"
  220. elseif downtools=2 then
  221.     softurl=softurl+" <span class=""disable_font"">[╘╩╨φ╗ß╘▒╩╣╙├╣ñ╛▀╧┬╘╪]</span>"
  222. else
  223.     softurl=softurl+" <span class=""disable_font"">[╘╩╨φ╣ñ╛▀╧┬╘╪]</span>"
  224. end if
  225. Ft_mbstr=replace(Ft_mbstr,"$softurl$",softurl)
  226. if rs("soft_showpic")<>"" then
  227.     Ft_mbstr=replace(Ft_mbstr,"$softshowpic$","<a href="""&rs("soft_showpic")&""" target=""_blank"">▓Θ┐┤═╝╞¼</a>")
  228. else
  229.     Ft_mbstr=replace(Ft_mbstr,"$softshowpic$","<span class=""disable_font"">╘▌╬▐═╝╞¼</span>")
  230. end if
  231. if rs("soft_demo")<>"" then
  232.     Ft_mbstr=replace(Ft_mbstr,"$softdemo$","<a href="""&rs("soft_demo")&""" title="""&rs("soft_demo")&""" target=""_blank"">▓Θ┐┤╤▌╩╛</a>")
  233. else
  234.     Ft_mbstr=replace(Ft_mbstr,"$softdemo$","<span class=""disable_font"">╘▌╬▐╤▌╩╛</span>")
  235. end if
  236. Ft_mbstr=replace(Ft_mbstr,"$softcontent$",replace(ChangeEmot(rs("soft_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" "))
  237. '╞└┬█
  238. dim totalremark,currentpage,totalpages,i
  239. sql5="select * from Ft_soft_remark where soft_id="&rs("soft_id")&" order by remark_date desc"
  240. set rs5=server.createobject("adodb.recordset")
  241. rs5.open sql5,conn,1,1
  242. Ft_mbstr=replace(Ft_mbstr,"$totalremark$",rs5.recordcount)
  243. if not rs5.eof then
  244. rs5.movefirst
  245. rs5.pagesize=cint(pageremark)
  246. if trim(request("page"))<>"" then
  247. currentpage=clng(request("page"))
  248. if currentpage>rs5.pagecount then
  249. currentpage=rs5.pagecount
  250. end if
  251. else
  252. currentpage=1
  253. end if
  254. totalremark=rs5.recordcount
  255. if currentpage<>1 then
  256. if (currentpage-1)*pageremark<totalremark then
  257. rs5.move(currentpage-1)*pageremark
  258. end if
  259. end if
  260. if (totalremark mod pageremark)=0 then
  261. totalpages=totalremark\pageremark
  262. else
  263. totalpages=totalremark\pageremark+1
  264. end if
  265. i=0
  266. do while not rs5.eof and i<pageremark
  267.     remarklist="<img src="""&signimgpath&"/biao.gif"" border=""0""> "&rs5("remarker")&"<span class=""disable_font"">["&rs5("remark_date")&"]</span><br>   "&ubb2html(formatstr(rs5("remark")), true, true)&"<br>"
  268. i=i+1
  269. remarkout=remarkout+remarklist
  270. rs5.movenext
  271. loop
  272. else
  273. if rs5.eof and rs5.bof then
  274.     remarkout="<div class=""disable_font"" align=""center"">╘▌╩▒╗╣├╗╙╨═°╙╤╖ó▒φ╞└┬█íú</div>"
  275. end if
  276. end if
  277. Ft_mbstr=replace(Ft_mbstr,"$remarklist$",remarkout)    
  278. if currentpage<>"" then
  279.     remarkpage="╡┌"¤tpage&"╥│ú¼╣▓"
  280. else
  281.     remarkpage="╡┌0╥│ú¼╣▓"
  282. end if
  283. if totalpages<>"" then
  284.     remarkpage=remarkpage+""&totalpages&"╥│,╣▓<span class=""key_font"">"&rs5.recordcount&"</span>╠⌡╞└┬█ "
  285. else
  286.     remarkpage=remarkpage+"0╥│,╣▓<span class=""key_font"">"&rs5.recordcount&"</span>╠⌡╞└┬█ "
  287. end if
  288. i=1
  289. for i=1 to totalpages
  290. if i=currentpage then
  291.     remarkpage=remarkpage+" <span class=""key_font"">"&i&"</span>"
  292. else
  293.     remarkpage=remarkpage+" <a href=""?id="&softid&"&page="&i&""">"&i&"</a>"
  294. end if
  295. next
  296. rs5.close
  297. set rs5=nothing
  298. remarkpage=remarkpage+" "
  299. Ft_mbstr=replace(Ft_mbstr,"$remarkpage$",remarkpage)
  300. '╚φ╝■╞└┬█
  301. if usecode=1 then
  302.     Ft_mbstr=replace(Ft_mbstr,"$usecode$"," ╤Θ ╓ñ ┬δ  <input name=""GetCode"" type=""text"" size=""4"" maxlength=""4""> <img src=""Ft_Getcode.asp"">")
  303. else
  304.     Ft_mbstr=replace(Ft_mbstr,"$usecode$","")
  305. end if
  306. if request.Cookies("userlogin")=user_session then
  307.     Ft_mbstr=replace(Ft_mbstr,"$user_remarker$","value=""╗ß╘▒_"&split(request.Cookies("userdata"),"||")(0)&""" readonly")
  308. else
  309.     Ft_mbstr=replace(Ft_mbstr,"$user_remarker$","")
  310. end if
  311. remarker_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  312. If remarker_ip = "" Then remarker_ip = Request.ServerVariables("REMOTE_ADDR")
  313. Ft_mbstr=replace(Ft_mbstr,"$remarker_ip$",remarker_ip)
  314. if artremark_ok=1  or session("feitec_adminlogin")=feitec_sessionvar then
  315.     remarksubmit="<input type=""submit"" name=""submit"" value=""╖ó▒φ"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put' onclick=""{if(confirm('─·╚╖╢¿╥¬╠ß╜╗┤╦╠⌡╞└┬█┬≡?\n\n╫ó╥Γú║╟╨╝╔▓╗╥¬║·┬╥╠ß╜╗╞└┬█ú¼╖±╘≥║≤╣√╫╘╕║úí')){return true;}return false;}""> <input type=""reset"" name=""reset"" value=""╓╪╨┤"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put'><input type=""hidden"" name=""soft_id"" value="""&softid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  316. elseif artremark_ok=2 then
  317.     if user_system<>0 then
  318.         if request.Cookies("userlogin")=user_session then
  319.             remarksubmit="<input type=""submit"" name=""submit"" value=""╖ó▒φ"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put' onclick=""{if(confirm('─·╚╖╢¿╥¬╠ß╜╗┤╦╠⌡╞└┬█┬≡?\n\n╫ó╥Γú║╟╨╝╔▓╗╥¬║·┬╥╠ß╜╗╞└┬█ú¼╖±╘≥║≤╣√╫╘╕║úí')){return true;}return false;}""><input type=""reset"" name=""reset"" value=""╓╪╨┤"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put'><input type=""hidden"" name=""soft_id"" value="""&softid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  320.         else
  321.             remarksubmit="<input type=""submit"" name=""submit"" value=""╗ß╘▒▓┼─▄╖ó▒φ╞└┬█"" disabled>"
  322.         end if
  323.     else
  324.         remarksubmit="<input type=""submit"" name=""submit"" value=""╖ó▒φ"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put' onclick=""{if(confirm('─·╚╖╢¿╥¬╠ß╜╗┤╦╠⌡╞└┬█┬≡?\n\n╫ó╥Γú║╟╨╝╔▓╗╥¬║·┬╥╠ß╜╗╞└┬█ú¼╖±╘≥║≤╣√╫╘╕║úí')){return true;}return false;}""><input type=""reset"" name=""reset"" value=""╓╪╨┤"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put'><input type=""hidden"" name=""soft_id"" value="""&softid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  325.     end if
  326. else
  327.     remarksubmit="<input type=""submit"" name=""submit"" value=""╞└┬█╣ª─▄╥╤╣╪▒╒"" disabled>"
  328. end if
  329. Ft_mbstr=replace(Ft_mbstr,"$remarksubmit$",remarksubmit)
  330. '╧α╣╪╚φ╝■
  331. pageremark=cint(pageremark)*2 '╧╘╩╛╧α╣╪╠⌡╩²
  332. sql="select top "&pageremark&" soft_id,soft_title,soft_date from Ft_soft where (soft_keyword like '%"&rs("soft_keyword")&"%' or soft_title like '%"&rs("soft_keyword")&"%') and not soft_id in("&softid&") order by soft_id desc"
  333. set rs2=server.createobject("adodb.recordset")
  334. rs2.open sql,conn,1,1
  335. do while not rs2.eof
  336.     linksoft=linksoft+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""?id="&rs2(0)&""">"&rs2(1)&"</a> <span class=""disable_font"">["&rs2(2)&"]</span><br>"
  337.     rs2.movenext
  338. loop
  339. if rs2.eof and rs2.bof then
  340.     linksoft=" <span class=""disable_font"">├╗╙╨╧α╣╪╨┬╬┼</span>"
  341. end if
  342. rs2.close
  343. set rs2=nothing
  344. '╧α╣╪╬─╒┬
  345. sql="select top "&pageremark&" art_id,art_title from Ft_art where art_keyword like '%"&rs("soft_keyword")&"%' or art_title like '%"&rs("soft_keyword")&"%' order by art_id desc"
  346. set rs2=server.createobject("adodb.recordset")
  347. rs2.open sql,conn,1,1
  348. do while not rs2.eof
  349.     linkart=linkart+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""showart.asp?id="&rs2(0)&""" target=""_blank"">"&rs2(1)&"</a><br>"
  350.     rs2.movenext
  351. loop
  352. if rs2.eof and rs2.bof then
  353.     linkart=" <span class=""disable_font"">├╗╙╨╧α╣╪╬─╒┬</span>"
  354. end if
  355. rs2.close
  356. set rs2=nothing
  357. '╧α╣╪╨┬╬┼
  358. sql="select top "&pageremark&" news_id,news_title from Ft_news where news_keyword like '%"&rs("soft_keyword")&"%' or news_title like '%"&rs("soft_keyword")&"%' order by news_id desc"
  359. set rs2=server.createobject("adodb.recordset")
  360. rs2.open sql,conn,1,1
  361. do while not rs2.eof
  362.     linknews=linknews+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""shownews.asp?id="&rs2(0)&""" target=""_blank"">"&rs2(1)&"</a><br>"
  363.     rs2.movenext
  364. loop
  365. if rs2.eof and rs2.bof then
  366.     linknews=" <span class=""disable_font"">├╗╙╨╧α╣╪╚φ╝■</span>"
  367. end if
  368. rs2.close
  369. set rs2=nothing
  370. rs.close
  371. set rs=nothing
  372. '╩Σ│÷
  373. Ft_mbstr=replace(Ft_mbstr,"$linknews$",linknews)
  374. Ft_mbstr=replace(Ft_mbstr,"$linkart$",linkart)
  375. Ft_mbstr=replace(Ft_mbstr,"$linksoft$",linksoft)
  376. response.write Ft_mbstr
  377. end sub
  378. %>
  379.