home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / showart.asp < prev    next >
Text File  |  2006-06-01  |  27KB  |  786 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║showart.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. dim artid,page
  18. if request.querystring("page")<>"" then
  19.     page=checksql("╬─╒┬╞└┬█╖╓╥│",request.querystring("page"),0,4)
  20. end if
  21. if request.querystring("id")="" then
  22.     response.redirect("showerr.asp?errmsg=<br><li>╬─╒┬ID▓╗─▄╬¬┐╒ú¼╟δ╓╕╢¿▓┘╫≈╢╘╧≤úí</li>")
  23.     response.end
  24. else
  25.     artid=checksql("╬─╒┬ID",request.querystring("id"),0,8)
  26.     sql="select art_id,art_title from Ft_art where art_id="&artid
  27.     set rs=server.createobject("adodb.recordset")
  28.     rs.open sql,conn,1,1
  29.     if rs.eof and rs.bof then
  30.         response.redirect("showerr.asp?errmsg=<br><li>├╗╙╨┤╦╬─╒┬╗≥╕├╬─╒┬╥╤╔╛│²úí</li>")
  31.         response.end
  32.     else
  33.     art_title=replaceText(rs("art_title"))
  34.     sub_title=art_title&"-╛¡╡Σ╜╠│╠"
  35.     end if
  36.     rs.close
  37.     set rs=nothing
  38. end if
  39. call head()
  40. call body()
  41. call foot()
  42. sub body()
  43. '==================================
  44. '=╣ª    ─▄ú║╚í│÷╡▒╟░─ú░σ
  45. '==================================
  46. StrTemp=split(mb_art,"|||@@@|||")
  47. dim Ft_mbstr
  48. '╠ß╜╗╞└┬█
  49. if request.form("addremark")="true" then
  50.     call localsubmit()
  51.     dim remarker,remarker_ip,remark,remark_date
  52.     remarker=checksql("╞└┬█╒▀",request.form("remarker"),1,10)
  53.     remarker_ip=checksql("╞└┬█╒▀IP",request.form("remarker_ip"),1,20)
  54.     artid=checksql("╬─╒┬ID",request.form("art_id"),0,8)
  55.     remark=checksql("╞└┬█─┌╚▌",request.form("remark"),1,151)
  56.     if usecode=1 then
  57.         GetCode=checksql("╤Θ╓ñ┬δ",request.form("GetCode"),1,6)
  58.         valicode=Session("yangzeng")
  59.         if GetCode<>valicode then
  60.             response.redirect("showerr.asp?errmsg=<br><li>╤Θ╓ñ┬δ┤φ╬≤úí")
  61.             response.end
  62.         end if
  63.     end if
  64.     sql="select art_id,remarker,remark,remarker_ip,remark_date,remark_id from Ft_art_remark where art_id="&artid
  65.     set rsremark=server.createobject("adodb.recordset")
  66.     rsremark.open sql,conn,1,3
  67.     rsremark.addnew
  68.     rsremark("remarker")=remarker
  69.     rsremark("remark")=remark
  70.     rsremark("art_id")=artid
  71.     rsremark("remarker_ip")=remarker_ip
  72.     rsremark("remark_date")=now()
  73.     rsremark.update
  74.     rsremark.close
  75.     set rsremark=nothing
  76.     Response.Write " <script> alert('─·╥╤╛¡│╔╣ª╠ß╜╗╞└┬█╨┼╧óú¼╕╨╨╗─·╡─╞└┬█íúíúíú\n\n                                   "& webname &" "& date() &"'); location.href='showart.asp?id="&artid&"'</script>"
  77.     Response.End
  78. end if
  79. if request.querystring("cat_id")<>"" then
  80. sql="select top "&hotnum&" art_id,art_title,art_count,cat_id from Ft_art where cat_id="&cat_id&" order by art_count DESC,art_date DESC"
  81. else
  82. sql="select top "&hotnum&" art_id,art_title,art_count,cat_id from Ft_art order by art_count DESC,art_date DESC"
  83. end if
  84. set rs3=server.createobject("adodb.recordset")
  85. rs3.open sql,conn,1,1
  86. do while not rs3.eof
  87.     topart=topart+"<img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""showart.asp?id="&rs3("art_id")&""" title=""╙╬└└┤╬╩²ú║"&rs3("art_count")&""">"&rs3("art_title")&"</a><br>"
  88.     rs3.movenext
  89.     loop
  90.     if rs3.eof and rs3.bof then
  91.         topart="<p align=""center"" class=""disable_font"">├╗╙╨╧α╣╪╬─╒┬</p>"
  92.     end if
  93.     rs3.close
  94. set rs3=nothing
  95. '╫≤└╕
  96. Ft_mbstr=replace(StrTemp(1),"{left_pub}",left_pub)
  97. Ft_mbstr=replace(Ft_mbstr,"$topart$",topart)
  98. Ft_mbstr=replace(Ft_mbstr,"$hotnum$",hotnum)
  99. sql="select * from Ft_art where art_id="&artid
  100. set rs=server.createobject("adodb.recordset")
  101. rs.open sql,conn,1,1
  102. '╬─╒┬╒²╬─
  103. Ft_mbstr=replace(Ft_mbstr,"$artfrom$",rs("art_from"))
  104. Ft_mbstr=replace(Ft_mbstr,"$artposter$",rs("art_poster"))
  105. Ft_mbstr=replace(Ft_mbstr,"$artdate$",rs("art_date"))
  106. Ft_mbstr=replace(Ft_mbstr,"$artcount$",rs("art_count"))
  107. Ft_mbstr=replace(Ft_mbstr,"$arttitle$",rs("art_title"))
  108. sql="select cat_id,cat_name from Ft_art_cat where cat_id="&rs("cat_id") 
  109. set rs1=conn.execute(sql)
  110. catandtitle="<a href=""article.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a>"
  111. rs1.close
  112. set rs1=nothing
  113. catandtitle=catandtitle+" í· "&rs("art_title")&""
  114.  
  115. if rs("art_good")=1 then
  116.     catandtitle=catandtitle+" <span class=""key_font"">[╝÷]</span>"
  117. elseif rs("art_good")=2 then
  118.     catandtitle=catandtitle+" <span class=""key_font"">[╛½]</span>"
  119. end if
  120. Ft_mbstr=replace(Ft_mbstr,"$catandtitle$",catandtitle)
  121. if rs("user_view")=1 then
  122.     Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">╗ß╘▒╬─╒┬</span> <span class=""disable_font"">[╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥]</span>")
  123. elseif rs("user_view")=2 then
  124.     Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">VIP╗ß╘▒╬─╒┬</span> <span class=""disable_font"">[╧√╖╤"&rs("moneypay")&"╕÷╜≡▒╥]</span>")
  125. else
  126.     Ft_mbstr=replace(Ft_mbstr,"$userview$","╞╒═¿╬─╒┬")
  127. end if
  128. if session("feitec_adminlogin")=feitec_sessionvar then
  129.     artcontent=replace(ChangeEmot(rs("art_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  130.     sql="update Ft_art set art_count = art_count + 1 where art_id="&artid
  131.     conn.execute(sql)
  132. elseif user_system<>0 and rs("user_view")<>0 then
  133.     if request.Cookies("userlogin")=user_session then
  134.         dim userarray,username
  135.         curarray=split(request.Cookies("userdata"),"||")
  136.         username=curarray(0)
  137.         sql="select * from Ft_user where lock=0 and name='"&username&"' and passed=1"
  138.         set rs2=server.createobject("adodb.recordset")
  139.         rs2.open sql,conn,1,3
  140.         if not rs2.eof then
  141.             if rs2("user_money")<0 then
  142.                 response.write"<script>alert('"&username&"ú¼─π╡─╜≡▒╥╩²╥╤▓╗╣╗ú¼╟δ╝░╩▒│Σ╓╡úí');history.go(-1);</script>"
  143.                 response.end
  144.             elseif rs("user_view")=2 then
  145.                 if rs2("user_type")<>2 then
  146.                     response.write"<script>alert('─·▓╗╩╟VIP╗ß╘▒ú¼╬▐╚¿▓Θ┐┤┤╦╥│');history.go(-1);</script>"
  147.                     response.end
  148.                 else
  149.                     rs2("user_money")=rs2("user_money")-rs("moneypay")
  150.                     rs2.update
  151.                 end if
  152.             elseif rs("user_view")=1 then
  153.                 rs2("user_money")=rs2("user_money")-rs("moneypay")
  154.                 rs2.update
  155.             end if
  156.         else
  157.             response.write"<script>alert('├╗╙╨┤╦╗ß╘▒╗≥┤╦╗ß╘▒╒²╘┌╔≤║╦╗≥┤╦╗ß╘▒╥╤▒╗╦°╢¿');location.href='index.asp';</script>"
  158.             response.end
  159.         end if
  160.         rs2.close
  161.         set rs2=nothing
  162.         artcontent=replace(ChangeEmot(rs("art_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  163.         sql="update Ft_art set art_count = art_count + 1 where art_id="&artid
  164.         conn.execute(sql)
  165.     else
  166.         if rs("user_view")="1" then
  167.             userview="╞╒═¿╗ß╘▒╥│├µ,"
  168.         elseif rs("user_view")="2" then
  169.             userview="VIP╗ß╘▒╥│├µ,"
  170.         end if
  171.         artcontent="<table border=""0"" width=""98%""><tr><td height=""200""><p align=""center"" class=""disable_font"">"&userview&"─π├╗╙╨╚¿╧▐▓Θ┐┤┤╦╥│ú¼╟δ<a href=""index.asp"">╡╟┬╝</a>╗≥<a href=""user.asp"">╫ó▓ß</a>í¡í¡</p></td></tr></table>"
  172.     end if
  173. else
  174.     artcontent=replace(ChangeEmot(rs("art_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  175.     sql="update Ft_art set art_count = art_count + 1 where art_id="&artid
  176.     conn.execute(sql)
  177. end if
  178. 'Ft_mbstr=replace(Ft_mbstr,"$artcontent$",artcontent)
  179. ShowContentPage=rs("ShowContentPage")
  180. if ShowContentPage=0 then
  181.     Ft_mbstr=replace(Ft_mbstr,"$artcontent$",artcontent)
  182. elseif ShowContentPage=1 then
  183.     Ft_mbstr=replace(Ft_mbstr,"$artcontent$",AutoShowContentPage(artid,artcontent))
  184. elseif ShowContentPage=2 then
  185.     Ft_mbstr=replace(Ft_mbstr,"$artcontent$",FingerShowContentPage(artid,artcontent))
  186. else
  187.     Ft_mbstr=replace(Ft_mbstr,"$artcontent$",artcontent)
  188. end if
  189. nextrsd=server.CreateObject("adodb.recordset")
  190. sql="select top 1 art_id,art_title,user_view from Ft_art where art_id>"&artid&" order by art_id"
  191. set nextrsd=conn.execute(sql)
  192. if nextrsd.eof then
  193.     nextart="╔╧╥╗╞¬ú║<span class='disable_font'>├╗╙╨╔╧╥╗╠⌡╝╟┬╝</span>"
  194. else
  195.     a2=nextrsd("art_id")
  196.     nextart="╔╧╥╗╞¬ú║<a href='showart.asp?id="&a2&"'>"&nextrsd("art_title")&"</a>"
  197. if nextrsd("user_view")=1 then
  198.     nextart=nextart+" <span class=""key_font"">[╗ß╘▒╬─╒┬]</span>"
  199. elseif nextrsd("user_view")=2 then
  200.     nextart=nextart+" <span class=""key_font"">[VIP╗ß╘▒╬─╒┬]</span>"
  201. end if
  202. end if
  203. nextrsd.close
  204. set nextrsd=nothing
  205. Ft_mbstr=replace(Ft_mbstr,"$nextart$",nextart)
  206. backrsd=server.CreateObject("adodb.recordset")
  207. sql="select top 1 art_id,art_title,user_view from Ft_art where art_id<"&artid&" order by art_id desc"
  208. set backrsd=conn.execute(sql)
  209. if backrsd.eof then
  210.     backart="╧┬╥╗╞¬ú║<span class='disable_font'>├╗╙╨╧┬╥╗╠⌡╝╟┬╝</span>"
  211. else
  212.     a0=backrsd("art_id")
  213.         backart="╧┬╥╗╞¬ú║<a href='showart.asp?id="&a0&"'>"&backrsd("art_title")&"</a>"
  214.     if backrsd("user_view")=1 then
  215.         backart=backart+" <span class=""key_font"">[╗ß╘▒╬─╒┬]</span>"
  216.     elseif backrsd("user_view")=2 then
  217.         backart=backart+" <span class=""key_font"">[VIP╗ß╘▒╬─╒┬]</span>"
  218.     end if
  219. end if
  220. backrsd.close
  221. set backrsd=nothing
  222. '╬─╒┬╒²╬─
  223. Ft_mbstr=replace(Ft_mbstr,"$backart$",backart)
  224. '╞└┬█─┌╚▌
  225. dim totalremark,currentpage,totalpages,i
  226. sql5="select * from Ft_art_remark where art_id="&rs("art_id")&" order by remark_date desc"
  227. set rs5=server.createobject("adodb.recordset")
  228. rs5.open sql5,conn,1,1
  229. vv=rs5.pagecount
  230. Ft_mbstr=replace(Ft_mbstr,"$total_remark$",rs5.recordcount)
  231. if not rs5.eof then
  232.     rs5.movefirst
  233.     rs5.pagesize=cint(pageremark)
  234.     if trim(request("page"))<>"" then
  235.         currentpage=clng(request("page"))
  236.         if currentpage>rs5.pagecount then
  237.             currentpage=rs5.pagecount
  238.         end if
  239.     else
  240.         currentpage=1
  241.     end if
  242.     totalremark=rs5.recordcount
  243.     if currentpage<>1 then
  244.         if (currentpage-1)*pageremark<totalremark then
  245.             rs5.move(currentpage-1)*pageremark
  246.         end if
  247.     end if
  248.     if (totalremark mod pageremark)=0 then
  249.         totalpages=totalremark\pageremark
  250.     else
  251.         totalpages=totalremark\pageremark+1
  252.     end if
  253.     i=0
  254.     do while not rs5.eof and i<pageremark
  255.     artremarklist=" <img src="""&signimgpath&"/biao.gif"" border=""0""> "&ubb2html(formatstr(rs5("remark")), true, true)&" <span class=""disable_font"">["&rs5("remarker")&" "&rs5("remark_date")&"]</span><br>"
  256.     artremarkout=artremarkout+artremarklist
  257.     i=i+1
  258.     rs5.movenext
  259.     loop
  260.     elseif rs5.eof and rs5.bof then
  261.     artremarkout="<span class=""disable_font"">╘▌╩▒╗╣├╗╙╨╞└┬█</span>"
  262.     end if
  263. Ft_mbstr=replace(Ft_mbstr,"$artremarklist$",artremarkout)
  264. if currentpage<>"" then
  265.     remarkpage="╡┌"¤tpage&"╥│ú¼╣▓"
  266. else
  267.     remarkpage="╡┌0╥│ú¼╣▓"
  268. end if
  269. if totalpages<>"" then
  270.     remarkpage=remarkpage+""&totalpages&"╥│,╣▓<span class=""key_font"">"&rs5.recordcount&"</span>╠⌡╞└┬█ "
  271. else
  272.     remarkpage=remarkpage+"0╥│,╣▓<span class=""key_font"">"&rs5.recordcount&"</span>╠⌡╞└┬█ "
  273. end if
  274. i=1
  275. for i=1 to totalpages
  276. if i=currentpage then
  277.     remarkpage=remarkpage+" <span class=""key_font"">"&i&"</span>"
  278. else
  279.     remarkpage=remarkpage+" <a href=""?id="&artid&"&page="&i&""">"&i&"</a>"
  280. end if
  281. next
  282. rs5.close
  283. set rs5=nothing
  284. remarkpage=remarkpage+" "
  285.     Ft_mbstr=replace(Ft_mbstr,"$remarkpage$",remarkpage)
  286. if usecode=1 then
  287.     Ft_mbstr=replace(Ft_mbstr,"$usecode$"," ╤Θ ╓ñ ┬δ  <input name=""GetCode"" type=""text"" size=""4"" maxlength=""4""> <img src=""Ft_Getcode.asp"">")
  288. else
  289.     Ft_mbstr=replace(Ft_mbstr,"$usecode$","")
  290. end if
  291. if request.Cookies("userlogin")=user_session then
  292.     Ft_mbstr=replace(Ft_mbstr,"$user_remarker$","value=""╗ß╘▒_"&split(request.Cookies("userdata"),"||")(0)&""" readonly")
  293. else
  294.     Ft_mbstr=replace(Ft_mbstr,"$user_remarker$","")
  295. end if
  296. remarker_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  297. If remarker_ip = "" Then remarker_ip = Request.ServerVariables("REMOTE_ADDR")
  298. Ft_mbstr=replace(Ft_mbstr,"$remarker_ip$",remarker_ip)
  299. if artremark_ok=1  or session("feitec_adminlogin")=feitec_sessionvar then
  300.     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=""art_id"" value="""&artid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  301. elseif artremark_ok=2 then
  302.     if user_system<>0 then
  303.         if request.Cookies("userlogin")=user_session then
  304.             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=""art_id"" value="""&artid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  305.         else
  306.             remarksubmit="<input type=""submit"" name=""submit"" value=""╗ß╘▒▓┼─▄╖ó▒φ╞└┬█"" disabled>"
  307.         end if
  308.     else
  309.         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=""art_id"" value="""&artid&"""><input type=""hidden"" name=""addremark"" value=""true"">"
  310.     end if
  311. else
  312.     remarksubmit="<input type=""submit"" name=""submit"" value=""╞└┬█╣ª─▄╥╤╣╪▒╒"" disabled>"
  313. end if
  314. Ft_mbstr=replace(Ft_mbstr,"$remarksubmit$",remarksubmit)    
  315. '╧α╣╪╬─╒┬
  316. pageremark=cint(pageremark) * 2 '╧╘╩╛╧α╣╪╬─╒┬╠⌡╩²
  317. sql="select top "&pageremark&" art_id,art_title,art_date from Ft_art where (art_keyword like '%"&rs("art_keyword")&"%' or art_title like '%"&rs("art_keyword")&"%') and not art_id in("&artid&") order by art_id desc"
  318. set rs2=server.createobject("adodb.recordset")
  319. rs2.open sql,conn,1,1
  320. do while not rs2.eof
  321. linkart=linkart+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""?id="&rs2(0)&""">"&rs2(1)&"</a> <span class=""disable_font"">["&rs2(2)&"]</span><br>"
  322. rs2.movenext
  323. loop
  324. if rs2.eof and rs2.bof then
  325.     linkart="<span class=""disable_font"">├╗╙╨╧α╣╪╬─╒┬</span>"
  326. end if
  327. rs2.close
  328. set rs2=nothing
  329. '╧α╣╪╨┬╬┼
  330. sql="select top "&pageremark&" news_id,news_title from Ft_news where news_keyword like '%"&rs("art_keyword")&"%' or news_title like '%"&rs("art_keyword")&"%' order by news_id desc"
  331. set rs2=server.createobject("adodb.recordset")
  332. rs2.open sql,conn,1,1
  333. do while not rs2.eof
  334.     linknews=linknews+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""shownews.asp?id="&rs2(0)&""" target=""_blank"">"&rs2(1)&"</a><br>"
  335.     rs2.movenext
  336. loop
  337. if rs2.eof and rs2.bof then
  338.     linknews=" <span class=""disable_font"">├╗╙╨╧α╣╪╨┬╬┼</span>"
  339. end if
  340. rs2.close
  341. set rs2=nothing
  342. '╧α╣╪╚φ╝■
  343. sql="select top "&pageremark&" soft_id,soft_title from Ft_soft where soft_keyword like '%"&rs("art_keyword")&"%' or soft_title like '%"&rs("art_keyword")&"%' order by soft_id desc"
  344. set rs2=server.createobject("adodb.recordset")
  345. rs2.open sql,conn,1,1
  346. do while not rs2.eof
  347.     linksoft=linksoft+" <img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=""showsoft.asp?id="&rs2(0)&""" target=""_blank"">"&rs2(1)&"</a><br>"
  348.     rs2.movenext
  349. loop
  350. if rs2.eof and rs2.bof then
  351.     linksoft=" <span class=""disable_font"">├╗╙╨╧α╣╪╚φ╝■</span>"
  352. end if
  353. rs2.close
  354. set rs2=nothing
  355. rs.close
  356. set rs=nothing
  357. Ft_mbstr=replace(Ft_mbstr,"$linkart$",linkart)
  358. Ft_mbstr=replace(Ft_mbstr,"$linknews$",linknews)
  359. Ft_mbstr=replace(Ft_mbstr,"$linksoft$",linksoft)
  360. '╩Σ│÷
  361. response.write Ft_mbstr
  362. end sub
  363. Function AutoShowContentPage(requestid,requestcontent)
  364. dim ArticleID,strContent,CurrentPage
  365. dim ContentLen,MaxPerPage,pages,i,lngBound
  366. dim BeginPoint,EndPoint,MaxPerPage_Content,ShowContentByPage
  367. ShowContentByPage="Yes"        '╬─╒┬─┌╚▌╩╟╖±╖╓╥│╧╘╩╛
  368. MaxPerPage_Content=2500        '├┐╥│╧╘╩╛┤≤╘╝╫╓╖√╩²
  369. ArticleID=requestid
  370. strContent=requestcontent
  371. ContentLen=len(strContent)
  372. CurrentPage=trim(request.querystring("showpage"))
  373. if ShowContentByPage="No" or ContentLen<=MaxPerPage_Content then
  374. str2=strContent
  375. if ShowContentByPage="Yes" then
  376. str2=str2+""
  377. end if
  378. else
  379. if CurrentPage="" then
  380. CurrentPage=1
  381. else
  382. CurrentPage=Cint(CurrentPage)
  383. end if
  384. pages=ContentLen\MaxPerPage_Content
  385. if MaxPerPage_Content*pages<ContentLen then
  386. pages=pages+1
  387. end if
  388. lngBound=MaxPerPage_Content          '╫ε┤≤╬≤▓ε╖╢╬º
  389. if CurrentPage<1 then CurrentPage=1
  390. if CurrentPage>pages then CurrentPage=pages
  391. dim lngTemp
  392. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  393. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  394. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  395. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  396. dim lngTemp5,lngTemp5_1,lngTemp5_2
  397. dim lngTemp6,lngTemp6_1,lngTemp6_2
  398.  
  399. if CurrentPage=1 then
  400. BeginPoint=1
  401. else
  402. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  403. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  404. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  405. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  406. if lngTemp1_1_1>0 then
  407. lngTemp1_1=lngTemp1_1_1
  408. elseif lngTemp1_1_2>0 then
  409. lngTemp1_1=lngTemp1_1_2
  410. elseif lngTemp1_1_3>0 then
  411. lngTemp1_1=lngTemp1_1_3
  412. else
  413. lngTemp1_1=0
  414. end if
  415. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  416. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  417. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  418. if lngTemp1_2_1>0 then
  419. lngTemp1_2=lngTemp1_2_1
  420. elseif lngTemp1_2_2>0 then
  421. lngTemp1_2=lngTemp1_2_2
  422. elseif lngTemp1_2_3>0 then
  423. lngTemp1_2=lngTemp1_2_3
  424. else
  425. lngTemp1_2=0
  426. end if
  427. if lngTemp1_1=0 and lngTemp1_2=0 then
  428. lngTemp1=BeginPoint
  429. else
  430. if lngTemp1_1>lngTemp1_2 then
  431. lngtemp1=lngTemp1_2
  432. else
  433. lngTemp1=lngTemp1_1+8
  434. end if
  435. end if
  436. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  437. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  438. if lngTemp2_1_1>0 then
  439. lngTemp2_1=lngTemp2_1_1
  440. elseif lngTemp2_1_2>0 then
  441. lngTemp2_1=lngTemp2_1_2
  442. else
  443. lngTemp2_1=0
  444. end if
  445. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  446. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  447. if lngTemp2_2_1>0 then
  448. lngTemp2_2=lngTemp2_2_1
  449. elseif lngTemp2_2_2>0 then
  450. lngTemp2_2=lngTemp2_2_2
  451. else
  452. lngTemp2_2=0
  453. end if
  454. if lngTemp2_1=0 and lngTemp2_2=0 then
  455. lngTemp2=BeginPoint
  456. else
  457. if lngTemp2_1>lngTemp2_2 then
  458. lngtemp2=lngTemp2_2
  459. else
  460. lngTemp2=lngTemp2_1+4
  461. end if
  462. end if
  463. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  464. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  465. if lngTemp3_1_1>0 then
  466. lngTemp3_1=lngTemp3_1_1
  467. elseif lngTemp3_1_2>0 then
  468. lngTemp3_1=lngTemp3_1_2
  469. else
  470. lngTemp3_1=0
  471. end if
  472. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  473. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  474. if lngTemp3_2_1>0 then
  475. lngTemp3_2=lngTemp3_2_1
  476. elseif lngTemp3_2_2>0 then
  477. lngTemp3_2=lngTemp3_2_2
  478. else
  479. lngTemp3_2=0
  480. end if
  481.  
  482. if lngTemp3_1=0 and lngTemp3_2=0 then
  483. lngTemp3=BeginPoint
  484. else
  485. if lngTemp3_1>lngTemp3_2 then
  486. lngtemp3=lngTemp3_2
  487. else
  488. lngTemp3=lngTemp3_1+5
  489. end if
  490. end if
  491. if lngTemp1<lngTemp2 then
  492. lngTemp=lngTemp2
  493. else
  494. lngTemp=lngTemp1
  495. end if
  496. if lngTemp<lngTemp3 then
  497. lngTemp=lngTemp3
  498. end if
  499. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  500. BeginPoint=lngTemp
  501. else
  502. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  503. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  504. if lngTemp4_1_1>0 then
  505. lngTemp4_1=lngTemp4_1_1
  506. elseif lngTemp4_1_2>0 then
  507. lngTemp4_1=lngTemp4_1_2
  508. else
  509. lngTemp4_1=0
  510. end if
  511. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  512. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  513. if lngTemp4_2_1>0 then
  514. lngTemp4_2=lngTemp4_2_1
  515. elseif lngTemp4_2_2>0 then
  516. lngTemp4_2=lngTemp4_2_2
  517. else
  518. lngTemp4_2=0
  519. end if
  520. if lngTemp4_1=0 and lngTemp4_2=0 then
  521. lngTemp4=BeginPoint
  522. else
  523. if lngTemp4_1>lngTemp4_2 then
  524. lngtemp4=lngTemp4_2
  525. else
  526. lngTemp4=lngTemp4_1+5
  527. end if
  528. end if
  529.  
  530. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  531. BeginPoint=lngTemp4
  532. else
  533. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  534. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  535. if lngTemp5_1>0 then
  536. lngTemp5=lngTemp5_1
  537. elseif lngTemp5_2>0 then
  538. lngTemp5=lngTemp5_2
  539. else
  540. lngTemp5=BeginPoint
  541. end if
  542.  
  543. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  544. BeginPoint=lngTemp5
  545. else
  546. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  547. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  548. if lngTemp6_1>0 then
  549. lngTemp6=lngTemp6_1
  550. elseif lngTemp6_2>0 then
  551. lngTemp6=lngTemp6_2
  552. else
  553. lngTemp6=0
  554. end if
  555. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  556. BeginPoint=lngTemp6+4
  557. end if
  558. end if
  559. end if
  560. end if
  561. end if
  562. if CurrentPage=pages then
  563. EndPoint=ContentLen
  564. else
  565. EndPoint=MaxPerPage_Content*CurrentPage
  566. if EndPoint>=ContentLen then
  567. EndPoint=ContentLen
  568. else
  569. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  570. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  571. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  572. if lngTemp1_1_1>0 then
  573. lngTemp1_1=lngTemp1_1_1
  574. elseif lngTemp1_1_2>0 then
  575. lngTemp1_1=lngTemp1_1_2
  576. elseif lngTemp1_1_3>0 then
  577. lngTemp1_1=lngTemp1_1_3
  578. else
  579. lngTemp1_1=0
  580. end if
  581. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  582. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  583. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  584. if lngTemp1_2_1>0 then
  585. lngTemp1_2=lngTemp1_2_1
  586. elseif lngTemp1_2_2>0 then
  587. lngTemp1_2=lngTemp1_2_2
  588. elseif lngTemp1_2_3>0 then
  589. lngTemp1_2=lngTemp1_2_3
  590. else
  591. lngTemp1_2=0
  592. end if
  593. if lngTemp1_1=0 and lngTemp1_2=0 then
  594. lngTemp1=EndPoint
  595. else
  596. if lngTemp1_1>lngTemp1_2 then
  597. lngtemp1=lngTemp1_2-1
  598. else
  599. lngTemp1=lngTemp1_1+7
  600. end if
  601. end if
  602. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  603. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  604. if lngTemp2_1_1>0 then
  605. lngTemp2_1=lngTemp2_1_1
  606. elseif lngTemp2_1_2>0 then
  607. lngTemp2_1=lngTemp2_1_2
  608. else
  609. lngTemp2_1=0
  610. end if
  611. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  612. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  613. if lngTemp2_2_1>0 then
  614. lngTemp2_2=lngTemp2_2_1
  615. elseif lngTemp2_2_2>0 then
  616. lngTemp2_2=lngTemp2_2_2
  617. else
  618. lngTemp2_2=0
  619. end if
  620. if lngTemp2_1=0 and lngTemp2_2=0 then
  621. lngTemp2=EndPoint
  622. else
  623. if lngTemp2_1>lngTemp2_2 then
  624. lngTemp2=lngTemp2_2-1
  625. else
  626. lngTemp2=lngTemp2_1+3
  627. end if
  628. end if
  629. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  630. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  631. if lngTemp3_1_1>0 then
  632. lngTemp3_1=lngTemp3_1_1
  633. elseif lngTemp3_1_2>0 then
  634. lngTemp3_1=lngTemp3_1_2
  635. else
  636. lngTemp3_1=0
  637. end if
  638. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  639. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  640. if lngTemp3_2_1>0 then
  641. lngTemp3_2=lngTemp3_2_1
  642. elseif lngTemp3_2_2>0 then
  643. lngTemp3_2=lngTemp3_2_2
  644. else
  645. lngTemp3_2=0
  646. end if
  647. if lngTemp3_1=0 and lngTemp3_2=0 then
  648. lngTemp3=EndPoint
  649. else
  650. if lngTemp3_1>lngTemp3_2 then
  651. lngtemp3=lngTemp3_2-1
  652. else
  653. lngTemp3=lngTemp3_1+4
  654. end if
  655. end if
  656. if lngTemp1<lngTemp2 then
  657. lngTemp=lngTemp2
  658. else
  659. lngTemp=lngTemp1
  660. end if
  661. if lngTemp<lngTemp3 then
  662. lngTemp=lngTemp3
  663. end if
  664. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  665. EndPoint=lngTemp
  666. else
  667. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  668. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  669. if lngTemp4_1_1>0 then
  670. lngTemp4_1=lngTemp4_1_1
  671. elseif lngTemp4_1_2>0 then
  672. lngTemp4_1=lngTemp4_1_2
  673. else
  674. lngTemp4_1=0
  675. end if
  676. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  677. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  678. if lngTemp4_2_1>0 then
  679. lngTemp4_2=lngTemp4_2_1
  680. elseif lngTemp4_2_2>0 then
  681. lngTemp4_2=lngTemp4_2_2
  682. else
  683. lngTemp4_2=0
  684. end if
  685. if lngTemp4_1=0 and lngTemp4_2=0 then
  686. lngTemp4=EndPoint
  687. else
  688. if lngTemp4_1>lngTemp4_2 then
  689. lngtemp4=lngTemp4_2-1
  690. else
  691. lngTemp4=lngTemp4_1+4
  692. end if
  693. end if
  694. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  695. EndPoint=lngTemp4
  696. else
  697. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  698. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  699. if lngTemp5_1>0 then
  700. lngTemp5=lngTemp5_1-1
  701. elseif lngTemp5_2>0 then
  702. lngTemp5=lngTemp5_2-1
  703. else
  704. lngTemp5=EndPoint
  705. end if
  706. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  707. EndPoint=lngTemp5
  708. else
  709. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  710. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  711. if lngTemp6_1>0 then
  712. lngTemp6=lngTemp6_1+3
  713. elseif lngTemp6_2>0 then
  714. lngTemp6=lngTemp6_2+3
  715. else
  716. lngTemp6=EndPoint
  717. end if
  718. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  719. EndPoint=lngTemp6
  720. end if
  721. end if
  722. end if
  723. end if
  724. end if
  725. end if
  726. str2= mid(strContent,BeginPoint,EndPoint-BeginPoint)
  727. str2=str2+ "</p><p align='center'>"
  728. if CurrentPage>1 then
  729. str2=str2+  "<a href='showart.asp?id="&ArticleID&"&showpage="&CurrentPage-1&"'>╔╧╥╗╥│</a>  "
  730. end if
  731. for i=1 to pages
  732. if i=CurrentPage then
  733. str2=str2+  "<span class='key_font'>["&cstr(i)&"]</span> "
  734. else
  735. str2=str2+  "<a href='showart.asp?id="&ArticleID&"&showpage="&i&"'>["&i&"]</a> "
  736. end if
  737. next
  738. if CurrentPage<pages then
  739. str2=str2+  " <a href='showart.asp?id="&ArticleID&"&showpage="&CurrentPage+1&"'>╧┬╥╗╥│</a>"
  740. end if
  741. str2=str2+  "</p>"
  742. end if
  743. AutoShowContentPage=str2
  744. end function
  745.  
  746. Function FingerShowContentPage(requestid,requestcontent)
  747. dim ArticleID,strContent,CurrentPage
  748. dim ContentLen,MaxPerPage,pages,i
  749. dim arrContent
  750. ArticleID=requestid
  751. strContent=requestcontent
  752. ContentLen=len(strContent)
  753. CurrentPage=trim(request.querystring("showpage"))
  754. if Instr(strContent,"[NextPage]")<=0 then
  755. str2=strContent
  756. else
  757. arrContent=split(strContent,"[NextPage]")
  758. pages=Ubound(arrContent)+1
  759. if CurrentPage="" then
  760. CurrentPage=1
  761. else
  762. CurrentPage=Cint(CurrentPage)
  763. end if
  764. if CurrentPage<1 then CurrentPage=1
  765. if CurrentPage>pages then CurrentPage=pages
  766. str2=arrContent(CurrentPage-1)
  767. str2=str2+"</p><p align='center'>"
  768. if CurrentPage>1 then
  769. str2=str2+"<a href='showart.asp?id="&ArticleID&"&showpage="&CurrentPage-1&"'>╔╧╥╗╥│</a>  "
  770. end if
  771. for i=1 to pages
  772. if i=CurrentPage then
  773. str2=str2+"<span class='key_font'>["&cstr(i)&"]</span> "
  774. else
  775. str2=str2+"<a href='showart.asp?id="&ArticleID&"&showpage="&i&"'>["&i&"]</a> "
  776. end if
  777. next
  778. if CurrentPage<pages then
  779. str2=str2+" <a href='showart.asp?id="&ArticleID&"&showpage="&CurrentPage+1&"'>╧┬╥╗╥│</a>"
  780. end if
  781. str2=str2+"</p>"
  782. end if
  783. FingerShowContentPage=str2
  784. End Function
  785. %>
  786.