home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / showdiary.asp < prev    next >
Text File  |  2006-06-01  |  4KB  |  117 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║showdiary.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. 'ID▓╬╩²╙╨╨º╨╘┼╨╢╧╝░╨┬╬┼▒Ω╠Γ╢┴│÷
  18. dim did,page
  19. if request.querystring("id")="" then
  20.     response.redirect("showerr.asp?errmsg=<br><li>╣½╕µID▓╗─▄╬¬┐╒ú¼╟δ╓╕╢¿▓┘╫≈╢╘╧≤úí</li>")
  21.     response.end
  22. else
  23.     did=checksql("╣½╕µID",request.querystring("id"),0,8)
  24.     sql="select d_id,d_title from Ft_diary where d_id="&did
  25.     set rs=server.createobject("adodb.recordset")
  26.     rs.open sql,conn,1,1
  27.     if rs.eof and rs.bof then
  28.         response.redirect("showerr.asp?errmsg=<br><li>├╗╙╨┤╦╣½╕µ╗≥╕├╣½╕µ╥╤╔╛│²úí</li>")
  29.         response.end
  30.     else
  31.         d_title=replaceText(rs("d_title"))
  32.         sub_title=d_title&"-╒╛╬±╣½╕µ"
  33.     end if
  34.     rs.close
  35.     set rs=nothing
  36. end if
  37. call head()
  38. call body()
  39. call foot()
  40. sub body()
  41. '==================================
  42. '=╣ª    ─▄ú║Σ»└└╝╞╩²
  43. '==================================
  44. set rscount=conn.execute("select d_count,d_id from Ft_diary")
  45. sql="UPDATE Ft_diary SET d_count = d_count + 1 where d_id="&did
  46. conn.execute (sql)
  47. rscount.close
  48. set rscount=nothing
  49. '==================================
  50. '=╣ª    ─▄ú║╚í│÷╡▒╟░─ú░σ
  51. '==================================
  52. StrTemp=split(mb_other,"|||@@@|||")
  53. Ft_mbstr=StrTemp(2)
  54. '==================================
  55. '=╣ª    ─▄ú║╫≤└╕─┌╚▌╧╘╩╛
  56. '==================================
  57. Ft_mbstr=replace(Ft_mbstr,"{left_pub}",left_pub())
  58. Ft_mbstr=replace(Ft_mbstr,"$hotnum$",hotnum)
  59. set rs2 = server.createobject("adodb.recordset")
  60. sql="select top "&hotnum&" d_id,d_title,d_date from Ft_diary order by d_date DESC"
  61. rs2.open sql,conn,1,1
  62. if rs2.bof and rs2.eof then
  63.     newdiary="<span class=""disable_font"">─┌╚▌╒²╘┌╕ⁿ╨┬╓«╓╨úí</span>"
  64. else
  65. rs2.movefirst
  66. do while not rs2.eof
  67.     newdiary=newdiary+"<img src="""&signimgpath&"/biao.gif"" border=""0""> <a href=?id="&rs2("d_id")&">"&rs2("d_title")&"</a><br>"
  68. rs2.movenext
  69. loop
  70. end if
  71. rs2.close
  72. set rs2=nothing
  73. Ft_mbstr=replace(Ft_mbstr,"$newdiary$",newdiary)
  74. '==================================
  75. '=╣ª    ─▄ú║╙╥└╕─┌╚▌╧╘╩╛
  76. '==================================
  77. sql="select * from Ft_diary where d_id="&did
  78. set rs=server.createobject("adodb.recordset")
  79. rs.open sql,conn,1,1
  80. Ft_mbstr=replace(Ft_mbstr,"$d_poster$",rs("d_poster"))
  81. Ft_mbstr=replace(Ft_mbstr,"$d_date$",rs("d_date"))
  82. Ft_mbstr=replace(Ft_mbstr,"$d_count$",rs("d_count"))
  83. Ft_mbstr=replace(Ft_mbstr,"$d_title$",rs("d_title"))
  84. Ft_mbstr=replace(Ft_mbstr,"$d_content$",replace(ChangeEmot(rs("d_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" "))
  85. nextrsd=server.CreateObject("adodb.recordset")
  86. sql="select top 1 d_id,d_title from Ft_diary where d_id>"&did&" order by d_id"
  87. set nextrsd=conn.execute(sql)
  88. if nextrsd.eof then
  89.     nextdiary="╔╧╥╗╞¬ú║<span class='disable_font'>├╗╙╨╔╧╥╗╠⌡╝╟┬╝</span>"
  90. else
  91.     a2=nextrsd("d_id")
  92.     nextdiary="╔╧╥╗╞¬ú║<a href='showdiary.asp?id="&a2&"'>"&nextrsd("d_title")&"</a>"
  93. end if
  94. nextrsd.close
  95. set nextrsd=nothing
  96. backrsd=server.CreateObject("adodb.recordset")
  97. sql="select top 1 d_id,d_title from Ft_diary where d_id<"&did&" order by d_id desc"
  98. set backrsd=conn.execute(sql)
  99. if backrsd.eof then
  100.     backdiary="╧┬╥╗╞¬ú║<span class='disable_font'>├╗╙╨╧┬╥╗╠⌡╝╟┬╝</span>"
  101. else
  102.     a0=backrsd("d_id")
  103.     backdiary="╧┬╥╗╞¬ú║<a href='showdiary.asp?id="&a0&"'>"&backrsd("d_title")&"</a>"
  104. end if
  105. backrsd.close
  106. set backrsd=nothing
  107. Ft_mbstr=replace(Ft_mbstr,"$nextdiary$",nextdiary)
  108. Ft_mbstr=replace(Ft_mbstr,"$backdiary$",backdiary)
  109. '==================================
  110. '=╣ª    ─▄ú║╩Σ│÷
  111. '==================================
  112. response.write Ft_mbstr
  113. rs.close
  114. set rs=nothing
  115. end sub
  116. %>
  117.