PageRenderTime 44ms CodeModel.GetById 0ms RepoModel.GetById 0ms app.codeStats 0ms

/Wap/User/User_Blog.asp

https://github.com/joechen2010/health
ASP | 872 lines | 785 code | 50 blank | 37 comment | 10 complexity | c3987e3bb91f3360f4eeedd4f64cbf73 MD5 | raw file
    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

    2. 

  2. <!--#include file="../Conn.asp"-->

    3. 

  3. <!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->

    4. 

  4. <!--#include file="../KS_Cls/Kesion.SpaceCls.asp"-->

    5. 

  5. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>

    6. 

  6. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

    7. 

  7. <wml>

    8. 

  8. <head>

    9. 

  9. <meta http-equiv="Cache-Control" content="no-Cache"/>

    10. 

  10. <meta http-equiv="Cache-Control" content="max-age=0"/>

    11. 

  11. </head>

    12. 

  12. <card id="main" title="我的日志">

    13. 

  13. <p>

    14. 

  14. <%Set KS=New PublicCls%>

    15. 

  15. <%

    16. 

  16. IF Cbool(KSUser.UserLoginChecked)=False Then

    17. 

  17.    Response.redirect KS.GetDomain&"User/Login/"

    18. 

  18.    Response.End

    19. 

  19. End If

    20. 

  20. %>

    21. 

  21. <%

    22. 

  22. id=KS.S("id")

    23. 

  23. Action=Trim(KS.S("Action"))

    24. 

  24. 

    25. 

  25. If KS.SSetting(0)=0 Then

    26. 

  26.    Response.write "对不起，本站关闭个人空间功能！<br/>"

    27. 

  27. ElseIf Conn.Execute("Select Count(BlogID) From KS_Blog Where UserName='"&KSUser.UserName&"'")(0)=0 Then

    28. 

  28.    'Response.write "您还没有开通个人空间！<br/>"

    29. 

  29.    Select Case Action

    30. 

  30.       Case "BlogEdit"

    31. 

  31. 	  Call ApplyBlog()'申请日志

    32. 

  32. 	  Case "ApplyBlogSave"

    33. 

  33. 	  Call ApplyBlogSave()

    34. 

  34. 	End Select

    35. 

  35. ElseIf Conn.Execute("Select status From KS_Blog Where UserName='"&KSUser.UserName&"'")(0)<>1 Then

    36. 

  36.    Response.write "对不起，你的空间还没有通过审核或被锁定！<br/>"

    37. 

  37. Else

    38. 

  38. 

    39. 

  39. 		Select Case Action

    40. 

  40. 			 Case "Comment"

    41. 

  41. 			  Call Comment()'评论管理

    42. 

  42. 			 Case "ReplayComment"

    43. 

  43. 			  Call ReplayComment()'回复评论

    44. 

  44. 			 Case "SaveCommentReplay"

    45. 

  45. 			  Call SaveCommentReplay()'保存评论回复

    46. 

  46. 			 Case "CommentDel"

    47. 

  47. 			  Call CommentDel()'删除评论

    48. 

  48. 			 Case "Message"

    49. 

  49. 			  Call Message()'留言管理

    50. 

  50. 			 Case "ReplayMessage"

    51. 

  51. 			  Call ReplayMessage()'回复留言

    52. 

  52. 			 Case "SaveMessageReplay"

    53. 

  53. 			  Call SaveMessageReplay()'保存留言回复

    54. 

  54. 			 Case "MessageDel"

    55. 

  55. 			  Call MessageDel()'删除留言

    56. 

  56. 			 Case "ArticleDel"

    57. 

  57. 			  Call ArticleDel()'删除日志

    58. 

  58. 			 Case "Add","Edit"

    59. 

  59. 			  Call ArticleAdd()'添加日志

    60. 

  60. 			 Case "AddSave"

    61. 

  61. 			  Call AddSave()'发布日志

    62. 

  62. 			 Case "EditSave"

    63. 

  63. 			  Call EditSave()'日志修改

    64. 

  64. 			 Case "BlogEdit"

    65. 

  65. 			  Call ApplyBlog()'申请日志

    66. 

  66. 			 Case "ApplyBlogSave"

    67. 

  67. 			  Call ApplyBlogSave()'保存申请日志

    68. 

  68. 			 Case "rizhixuxie"

    69. 

  69. 			  Call rizhixuxie()'日志续写

    70. 

  70. 			 Case "xuxiebaocun"

    71. 

  71. 			  Call xuxiebaocun()'续写保存

    72. 

  72. 			 Case "rizhichakan"

    73. 

  73. 			  Call rizhichakan()'日志查看

    74. 

  74. 			 Case Else

    75. 

  75. 			  Call BlogList()'日志列表

    76. 

  76. 			End Select

    77. 

  77. End If

    78. 

  78. 

    79. 

  79. 

    80. 

  80. '申请日志=================================================================================

    81. 

  81. Sub ApplyBlog()

    82. 

  82. 	Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

    83. 

  83. 	RS.Open "Select * From KS_Blog Where UserName='" & KSUser.UserName &"'",Conn,1,1

    84. 

  84. 	If Not RS.EOF Then

    85. 

  85. 	   BlogName=RS("BlogName")

    86. 

  86. 	   domain=RS("domain")

    87. 

  87. 	   ClassID=RS("ClassID")

    88. 

  88. 	   Descript=RS("Descript")

    89. 

  89. 	   Announce=RS("Announce")

    90. 

  90. 	   ContentLen=RS("ContentLen")

    91. 

  91. 	   ListBlogNum=RS("ListBlogNum")

    92. 

  92. 	   ListLogNum=RS("ListLogNum")

    93. 

  93. 	   ListReplayNum=RS("ListReplayNum")

    94. 

  94. 	   ListGuestNum=RS("ListGuestNum")

    95. 

  95. 	   OpStr="OK了,确定修改":TipStr="修改个人空间参数"

    96. 

  96. 	Else

    97. 

  97. 	  

    98. 

  98. 	   BlogName=KSUser.UserName & "的个人空间"

    99. 

  99. 	   domain=KSUser.UserName

    100. 

  100. 	   ClassID="0"

    101. 

  101. 	   ContentLen=100

    102. 

  102. 	   ListBlogNum=3

    103. 

  103. 	   ListLogNum=3

    104. 

  104. 	   ListReplayNum=3

    105. 

  105. 	   ListGuestNum=3

    106. 

  106. 	   Announce="没有公告!"

    107. 

  107. 	   OpStr="OK了,立即申请":TipStr="申请开通个人空间"

    108. 

  108.     End if

    109. 

  109. 	RS.Close:Set RS=Nothing

    110. 

  110. %>

    111. 

  111. 

    112. 

  112. <%=KS.GetReadMessage%>

    113. 

  113. <%=TipStr%><br/>

    114. 

  114. 空间名称:<input name="BlogName<%=minute(now)%><%=second(now)%>" type="text" value="<%=BlogName%>" maxlength="100" /><br/>

    115. 

  115. 空间分类:<select name='ClassID'>

    116. 

  116.         <option value="0">-请选择类别-</option>

    117. 

  117.                     <% Set RS=Server.CreateObject("ADODB.RECORDSET")

    118. 

  118. 							  RS.Open "Select * From KS_BlogClass order by orderid",conn,1,1

    119. 

  119. 							  If Not RS.EOF Then

    120. 

  120. 							   Do While Not RS.Eof 

    121. 

  121. 								  Response.Write "<option value=""" & RS("ClassID") & """>" & RS("ClassName") & "</option>"

    122. 

  122. 								  RS.MoveNext

    123. 

  123. 							   Loop

    124. 

  124. 							  End If

    125. 

  125. 							  RS.Close:Set RS=Nothing

    126. 

  126. 							  %>

    127. 

  127.                   </select><br/>

    128. 

  128. 站点描述:<input name="Descript<%=minute(now)%><%=second(now)%>" type="text" value="<%=BlogName%>" maxlength="500" /><br/>

    129. 

  129. 空间公告:<input name="Announce<%=minute(now)%><%=second(now)%>" type="text" value="<%=BlogName%>" maxlength="500" /><br/>

    130. 

  130. 日志默认部分显示字数:<input name="ContentLen<%=minute(now)%><%=second(now)%>" type="text" value="<%=ContentLen%>" /><br/>

    131. 

  131. 每页显示日志篇数:<input name="ListBlogNum<%=minute(now)%><%=second(now)%>" type="text" value="<%=ListBlogNum%>" /><br/>

    132. 

  132. 显示最新回复条数:<input name="ListReplayNum<%=minute(now)%><%=second(now)%>" type="text" value="<%=ListReplayNum%>" /><br/>

    133. 

  133. 显示最新日志篇数:<input name="ListLogNum<%=minute(now)%><%=second(now)%>" type="text" value="<%=ListLogNum%>" /><br/>

    134. 

  134. 显示最新留言条数:<input name="ListGuestNum<%=minute(now)%><%=second(now)%>" type="text" value="<%=ListGuestNum%>" /><br/>

    135. 

  135. 

    136. 

  136. <anchor><%=OpStr%><go href="User_Blog.asp?Action=ApplyBlogSave&amp;<%=KS.WapValue%>" method="post" accept-charset="utf-8">

    137. 

  137. <postfield name='BlogName' value='$(BlogName<%=minute(now)%><%=second(now)%>)'/>

    138. 

  138. <postfield name='ClassID' value='$(ClassID)'/>

    139. 

  139. <postfield name='Descript' value='$(Descript<%=minute(now)%><%=second(now)%>)'/>

    140. 

  140. <postfield name='Announce' value='$(Announce<%=minute(now)%><%=second(now)%>)'/>

    141. 

  141. <postfield name='ContentLen' value='$(ContentLen<%=minute(now)%><%=second(now)%>)'/>

    142. 

  142. <postfield name='ListBlogNum' value='$(ListBlogNum<%=minute(now)%><%=second(now)%>)'/>

    143. 

  143. <postfield name='ListReplayNum' value='$(ListReplayNum<%=minute(now)%><%=second(now)%>)'/>

    144. 

  144. <postfield name='ListLogNum' value='$(ListLogNum<%=minute(now)%><%=second(now)%>)'/>

    145. 

  145. <postfield name='ListGuestNum' value='$(ListGuestNum<%=minute(now)%><%=second(now)%>)'/>

    146. 

  146. </go></anchor>

    147. 

  147. <br/>

    148. 

  148. <%

    149. 

  149. End Sub

    150. 

  150. 

    151. 

  151. '保存个人空间申请=================================================================================

    152. 

  152. Sub ApplyBlogSave()

    153. 

  153.     BlogName=KS.GotTopic(KS.S("BlogName"),16)'博客名称

    154. 

  154. 	ClassID=KS.S("ClassID")''站点类型

    155. 

  155. 	Descript=KS.GotTopic(KS.S("Descript"),500)'站点描述

    156. 

  156. 	Announce=KS.GotTopic(KS.S("Announce"),500)'公告

    157. 

  157. 	ContentLen=500'日志默认部分显示字数

    158. 

  158. 	ListBlogNum=10'每页显示日志篇数

    159. 

  159. 	ListLogNum=10'显示最新日志篇数

    160. 

  160. 	ListReplayNum=10'显示最新回复条数

    161. 

  161. 	ListGuestNum=10'显示最新留言条数

    162. 

  162. 	

    163. 

  163. 	Dim BlogName:BlogName=KS.S("BlogName")

    164. 

  164. 	'Dim Domain:Domain=KS.S("Domain")

    165. 

  165. 	Dim ClassID:ClassID=KS.ChkClng(KS.S("ClassID"))

    166. 

  166. 	Dim Descript:Descript=KS.S("Descript")

    167. 

  167. 	Dim Announce:Announce=KS.S("Announce")

    168. 

  168. 	Dim ContentLen:ContentLen=KS.ChkClng(KS.S("ContentLen"))

    169. 

  169. 	Dim ListBlogNum:ListBlogNum=KS.ChkClng(KS.S("ListBlogNum"))

    170. 

  170. 	Dim ListLogNum:ListLogNum=KS.ChkClng(KS.S("ListLogNum"))

    171. 

  171. 	Dim ListReplayNum:ListReplayNum=KS.ChkClng(KS.S("ListReplayNum"))

    172. 

  172. 	Dim ListGuestNum:ListGuestNum=KS.ChkClng(KS.S("ListGuestNum"))

    173. 

  173. 

    174. 

  174. 

    175. 

  175. 	TemplateID=KS.ChkClng(Conn.Execute("Select Top 1 ID From KS_BlogTemplate Where flag=2 and IsDefault='true'")(0))'博客模板

    176. 

  176. 	If BlogName="" Then

    177. 

  177. 	   Response.write "出错提示，请输入博客站点名称！<br/>"

    178. 

  178. 	   Response.Write "<a href='User_Blog.asp?action=ApplyBlog&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    179. 

  179. 	ElseIF ClassID=0 Then

    180. 

  180. 	   Response.write "出错提示，请选择站点类型！<br/>"

    181. 

  181. 	   Response.Write "<a href='User_Blog.asp?action=ApplyBlog&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    182. 

  182. 	'ElseIF domain<>"" And not Conn.Execute("select username from ks_Blog where username<>'" & KSUser.UserName & "' and [domain]='" & domain  &"'").eof Then

    183. 

  183. 	   'Response.Write "对不起，你注册的二级域名已被其它用户使用！<br/>"

    184. 

  184. 	   'Response.Write "<a href='User_Blog.asp?action=ApplyBlog&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    185. 

  185.     Else

    186. 

  186. 	  Set RS=Server.CreateObject("ADODB.RECORDSET")

    187. 

  187. 	      RS.Open "Select * From KS_Blog Where UserName='"&KSUser.UserName&"'",conn,1,3

    188. 

  188. 		  If RS.Eof And RS.Bof Then

    189. 

  189. 		   RS.AddNew

    190. 

  190. 		    RS("AddDate")=now'创建时间

    191. 

  191. 			RS("TemplateID")=TemplateID'博客模板

    192. 

  192. 			If KS.SSetting(2)=1 Then'站点状态：0未审1已审2锁定

    193. 

  193. 			   RS("Status")=0

    194. 

  194. 			Else

    195. 

  195. 			   RS("Status")=1

    196. 

  196. 			End If

    197. 

  197. 		  End If

    198. 

  198. 		    RS("UserName")=KSUser.UserName

    199. 

  199. 		    RS("BlogName")=BlogName

    200. 

  200. 			RS("ClassID")=ClassID

    201. 

  201. 			RS("Descript")=Descript

    202. 

  202. 			RS("Announce")=Announce

    203. 

  203. 			RS("ContentLen")=ContentLen

    204. 

  204. 			RS("ListLogNum")=ListLogNum

    205. 

  205. 			RS("ListBlogNum")=ListBlogNum

    206. 

  206. 			RS("ListReplayNum")=ListReplayNum

    207. 

  207. 			RS("ListGuestNum")=ListGuestNum

    208. 

  208. 			RS.Update

    209. 

  209. 			Response.write "操做成功！博客站点申请/修改成功。<br/>"

    210. 

  210. 			Response.Write "<a href='User_Blog.asp?action=&amp;" & KS.WapValue & "'>日志列表</a><br/>"

    211. 

  211. 			RS.Close:Set RS=Nothing

    212. 

  212.     End If

    213. 

  213. End Sub

    214. 

  214. 

    215. 

  215. '日志列表=================================================================================

    216. 

  216. Sub BlogList()

    217. 

  217. %>

    218. 

  218. <%=KS.GetReadMessage%>

    219. 

  219. <a href="User_Blog.asp?Action=Add&amp;<%=KS.WapValue%>">发布日志</a>

    220. 

  220. <a href="User_Blog.asp?Action=Comment&amp;<%=KS.WapValue%>">日志评论</a>

    221. 

  221. <br/>

    222. 

  222. <%

    223. 

  223. If KS.S("page") <> "" Then

    224. 

  224.    CurrentPage = KS.ChkClng(KS.S("page"))

    225. 

  225. Else

    226. 

  226.    CurrentPage = 1

    227. 

  227. End If

    228. 

  228. Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"

    229. 

  229. Status=KS.S("Status")

    230. 

  230. If Status<>"" and isnumeric(Status) Then 

    231. 

  231.    Param= Param & " and Status=" & Status

    232. 

  232. End If

    233. 

  233. 

    234. 

  234. IF KS.S("Flag")<>"" Then

    235. 

  235.    IF KS.S("Flag")=0 Then Param=Param & " And Title like '%" & KS.S("KeyWord") & "%'"

    236. 

  236.    IF KS.S("Flag")=1 Then Param=Param & " And Tags like '%" & KS.S("KeyWord") & "%'"

    237. 

  237. End if

    238. 

  238. If KS.S("TypeID")<>"" And KS.S("TypeID")<>"0" Then Param=Param & " And TypeID=" & KS.ChkClng(KS.S("TypeID")) & ""

    239. 

  239. Dim Sql:sql = "select * from KS_BlogInfo "& Param &" order by AddDate DESC"

    240. 

  240. Select Case ks.s("Status")

    241. 

  241.     Case "0" 

    242. 

  242. 	response.write "=已审日志=<br/>"

    243. 

  243. 	Case "1"

    244. 

  244. 	response.write "=草稿日志=<br/>"

    245. 

  245. 	Case "2"

    246. 

  246. 	response.write "=未审日志=<br/>"

    247. 

  247. 	Case Else

    248. 

  248. 	response.write "=所有日志=<br/>"

    249. 

  249. End Select

    250. 

  250. %>

    251. 

  251. <a href="User_Blog.asp?<%=KS.WapValue%>">所有</a>

    252. 

  252. <a href="User_Blog.asp?Status=0&amp;<%=KS.WapValue%>">已审[<%=conn.execute("select count(id) from KS_BlogInfo where Status=0 and UserName='"& KSUser.UserName &"'")(0)%>]</a>

    253. 

  253. <a href="User_Blog.asp?Status=2&amp;<%=KS.WapValue%>">未审[<%=conn.execute("select count(id) from KS_BlogInfo where Status=2 and UserName='"& KSUser.UserName &"'")(0)%>]</a>

    254. 

  254. <a href="User_Blog.asp?Status=1&amp;<%=KS.WapValue%>">草稿[<%=conn.execute("select count(id) from KS_BlogInfo where Status=1 and UserName='"& KSUser.UserName &"'")(0)%>]</a>

    255. 

  255. <br/>

    256. 

  256. 

    257. 

  257. <%

    258. 

  258. set rs=server.createobject("adodb.recordset")

    259. 

  259. sql = "select * from KS_BlogInfo "& Param &" order by AddDate DESC"

    260. 

  260. rs.open sql,conn,1,1

    261. 

  261. if rs.bof and rs.eof then

    262. 

  262.    response.write "没有你要的日志!<br/>"

    263. 

  263. else

    264. 

  264.    MaxPerPage =10

    265. 

  265.    totalPut = RS.RecordCount

    266. 

  266.    If CurrentPage < 1 Then	CurrentPage = 1

    267. 

  267.    If (CurrentPage - 1) * MaxPerPage > totalPut Then

    268. 

  268.       If (totalPut Mod MaxPerPage) = 0 Then

    269. 

  269. 	     CurrentPage = totalPut \ MaxPerPage

    270. 

  270. 	  Else

    271. 

  271. 	     CurrentPage = totalPut \ MaxPerPage + 1

    272. 

  272. 	  End If

    273. 

  273.    End If

    274. 

  274.    If CurrentPage >1 and (CurrentPage - 1) * MaxPerPage < totalPut Then

    275. 

  275.       Rs.Move (CurrentPage - 1) * MaxPerPage

    276. 

  276.    Else

    277. 

  277.       CurrentPage = 1

    278. 

  278.    End If

    279. 

  279.    %>

    280. 

  280.    搜索:<select name="Flag">

    281. 

  281.    <option value="0">标题</option>

    282. 

  282.    <option value="1">标签</option>

    283. 

  283.    </select>

    284. 

  284.    <select size='1' name='TypeID'>

    285. 

  285.    <option value="0">请选择分类</option>

    286. 

  286.    <%

    287. 

  287.    Dim RS1:Set RS1=Server.CreateObject("ADODB.RECORDSET")

    288. 

  288.    RS1.Open "Select * From KS_BlogType order by orderid",conn,1,1

    289. 

  289.    If Not RS1.EOF Then

    290. 

  290.       Do While Not RS1.Eof 

    291. 

  291. 	  Response.Write "<option value=""" & RS1("TypeID") & """>" & RS1("TypeName") & "</option>"

    292. 

  292. 	  RS1.MoveNext

    293. 

  293. 	  Loop

    294. 

  294.    End If

    295. 

  295.    RS1.Close:Set RS1=Nothing

    296. 

  296.    %>

    297. 

  297.    </select>

    298. 

  298.    关键字:<input type="text" name="KeyWord" class="textbox" value="关键字" size="20"/>

    299. 

  299.    <anchor>搜索<go href="User_Blog.asp?Status=<%=Status%>&amp;<%=KS.WapValue%>" method="post">

    300. 

  300.    <postfield name="Flag" value="$(Flag)"/>

    301. 

  301.    <postfield name="TypeID" value="$(TypeID)"/>

    302. 

  302.    <postfield name="KeyWord" value="$(KeyWord)"/>

    303. 

  303.    </go></anchor>

    304. 

  304.    <br/>

    305. 

  305.    <%

    306. 

  306.    Do While Not RS.Eof

    307. 

  307.       Response.write "---------<br/>"

    308. 

  308. 	  If Status="2" or Status="1" Then

    309. 

  309.       Response.write "<a href='User_Blog.asp?action=rizhichakan&amp;id="&rs("ID")&"&amp;" & KS.WapValue & "'>"&KS.GotTopic(trim(RS("title")),35)&"</a>"

    310. 

  310. 	  Else

    311. 

  311.       Response.write "<a href='../Space/List.asp?id="&rs("id")&"&amp;UserName="&KSUser.UserName&"&amp;" & KS.WapValue & "'>"&KS.GotTopic(trim(RS("title")),35)&"</a>"

    312. 

  312. 	  End If

    313. 

  313. 	  Select Case rs("Status")

    314. 

  314. 	      Case 0

    315. 

  315. 		  Response.Write "正常<br/>"

    316. 

  316. 		  Case 1

    317. 

  317. 		  Response.Write "草稿<br/>"

    318. 

  318. 		  Case 2

    319. 

  319. 		  Response.Write "未审<br/>"

    320. 

  320. 	  end select

    321. 

  321. 	  Response.write "分类:"&Conn.Execute("Select TypeName From KS_BlogType Where TypeID=" & RS("TypeID"))(0)&" "&formatdatetime(rs("AddDate"),2)&"<br/>"

    322. 

  322. 	  Response.Write "<a href='User_Blog.asp?action=rizhixuxie&amp;id="&rs("ID")&"&amp;" & KS.WapValue & "'>续写</a> "

    323. 

  323. 	  Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&rs("ID")&"&amp;" & KS.WapValue & "'>修改</a> "

    324. 

  324. 	  Response.Write "<a href='User_Blog.asp?action=ArticleDel&amp;id="&rs("ID")&"&amp;" & KS.WapValue & "'>删除</a><br/>"

    325. 

  325.       RS.MoveNext

    326. 

  326. 	  I = I + 1

    327. 

  327. 	  If I >= MaxPerPage Then Exit Do

    328. 

  328.    Loop

    329. 

  329.    Call  KS.ShowPageParamter(totalPut, MaxPerPage, "User_Blog.asp", True, "篇日志", CurrentPage, "Status=" & Status &"&amp;" & KS.WapValue & "")

    330. 

  330. 

    331. 

  331. 

    332. 

  332. 	

    333. 

  333. 

    334. 

  334. end if

    335. 

  335. rs.Close:Set rs=Nothing

    336. 

  336. response.Write "---------<br/>"

    337. 

  337. End Sub

    338. 

  338. 

    339. 

  339. '日志查看=================================================================================

    340. 

  340. Sub rizhichakan()

    341. 

  341. Set rs=conn.execute("Select top 1 * From KS_BlogInfo Where ID="&ID&"")

    342. 

  342. If Not rs.Eof Then

    343. 

  343. Dim KSB:Set KSB=New BlogCls

    344. 

  344. %>

    345. 

  345. 标题:<%=rs("Title")%><br/>

    346. 

  346. 心情:<img src="../User/images/face/<%=rs("Face")%>.gif" />

    347. 

  347. 天气:<%Call KSB.GetWeather(rs)%><br/>

    348. 

  348. 内容:<%=KS.ContentPage("User_Blog.asp?action=rizhichakan&amp;id="&rs("ID")&"&amp;" & KS.WapValue & "",KS.LoseHtml(rs("content")),80,False)%><br/>

    349. 

  349. 时间:<%=rs("AddDate")%><br/>

    350. 

  350. <a href='User_Blog.asp?action=rizhixuxie&amp;id=<%=rs("ID")%>&amp;<%=KS.WapValue%>'>续写</a> 

    351. 

  351. <a href='User_Blog.asp?action=Edit&amp;id=<%=rs("ID")%>&amp;<%=KS.WapValue%>'>修改</a>

    352. 

  352. <a href='User_Blog.asp?action=ArticleDel&amp;id=<%=rs("ID")%>&amp;<%=KS.WapValue%>'>删除</a><br/>

    353. 

  353. <a href='User_Blog.asp?action=&amp;<%=KS.WapValue%>'>日志列表</a><br/>

    354. 

  354. <%

    355. 

  355. Set KSB=Nothing

    356. 

  356. Else

    357. 

  357.    Response.write "非法参数!<br/>"

    358. 

  358. End If

    359. 

  359. rs.close:Set rs=Nothing

    360. 

  360. End Sub

    361. 

  361. 

    362. 

  362. '删除日志=================================================================================

    363. 

  363. Sub ArticleDel()

    364. 

  364.     Conn.Execute("Delete From KS_BlogInfo Where Status<>1 And ID="&ID&"")

    365. 

  365. 	Response.write "日志删除成功。<br/>"

    366. 

  366. 	Response.Write "<a href='User_Blog.asp?action=&amp;" & KS.WapValue & "'>日志列表</a><br/>"

    367. 

  367. End Sub

    368. 

  368. 

    369. 

  369. '日志续写=================================================================================

    370. 

  370. Sub rizhixuxie()

    371. 

  371. Set rs=conn.execute("Select Content From KS_BlogInfo Where ID="&ID&"")

    372. 

  372. If Not rs.Eof Then

    373. 

  373. %>

    374. 

  374. =日志续写=<br/>

    375. 

  375. 尾部内容:<%=Right(Rs("Content"),20)%><br/>

    376. 

  376. 追加内容:<input name="Content<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" size="20" value=""/><br/>

    377. 

  377. <anchor>确定<go href="User_Blog.asp?Action=xuxiebaocun&amp;id=<%=id%>&amp;<%=KS.WapValue%>" method="post">

    378. 

  378. <postfield name="Content" value="$(Content<%=minute(now)%><%=second(now)%>)"/>

    379. 

  379. </go></anchor>

    380. 

  380. <br/>

    381. 

  381. <% 

    382. 

  382. Else

    383. 

  383.    Response.write "非法参数!<br/>"

    384. 

  384. End If

    385. 

  385. rs.close:Set rs=Nothing

    386. 

  386. End Sub

    387. 

  387. '续写保存=================================================================================

    388. 

  388. Sub xuxiebaocun()

    389. 

  389. Set rs=conn.execute("Select Content From KS_BlogInfo Where ID="&ID&"")

    390. 

  390. If rs.Eof Then

    391. 

  391.    Response.write "非法参数!<br/>"

    392. 

  392. Else

    393. 

  393.    Content=KS.GotTopic(KS.S("Content"),500)

    394. 

  394.    If Content="" Then

    395. 

  395.       Response.write "出错提示，你没有输入续写内容！<br/>"

    396. 

  396.       Response.Write "<a href='User_Blog.asp?action=rizhixuxie&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    397. 

  397.    Else

    398. 

  398.       Set RSObj=Server.CreateObject("Adodb.Recordset")

    399. 

  399. 	  RSObj.Open "Select Content From KS_BlogInfo Where ID="&ID,Conn,1,3

    400. 

  400. 	  RSObj("Content")=rs("Content")&Content

    401. 

  401. 	  RSObj.Update:RSObj.Close:Set RSObj=Nothing

    402. 

  402. 	  Response.write "续写成功。<br/>"

    403. 

  403. 	  Response.Write "<a href='User_Blog.asp?action=rizhichakan&amp;ID="&ID&"&amp;" & KS.WapValue & "'>日志查看</a><br/>"

    404. 

  404. 	  Response.Write "<a href='User_Blog.asp?action=&amp;" & KS.WapValue & "'>日志列表</a><br/>"

    405. 

  405.    End IF

    406. 

  406. End If

    407. 

  407. rs.close:Set rs=Nothing

    408. 

  408. End Sub

    409. 

  409. '添加日志=================================================================================

    410. 

  410. Sub ArticleAdd()

    411. 

  411.   		if Action="Edit" Then

    412. 

  412. 		Set rs=Server.CreateObject("ADODB.RECORDSET")

    413. 

  413. 		   rs.Open "Select top 1 * From KS_BlogInfo Where ID="&ID,Conn,1,1

    414. 

  414. 		   If Not rs.Eof Then

    415. 

  415. 		     TypeID=rs("TypeID")

    416. 

  416. 			 ClassID=rs("ClassID")

    417. 

  417. 			 Title=rs("Title")

    418. 

  418. 			 Face=rs("Face")

    419. 

  419. 			 weather=rs("Weather")

    420. 

  420. 			 Content=rs("Content")

    421. 

  421. 			 PassWord=rs("PassWord")

    422. 

  422. 		   End If

    423. 

  423. 		   rs.Close:Set rs=Nothing

    424. 

  424. 		   Action="EditSave"

    425. 

  425. 		   OpStr="确定修改"

    426. 

  426. 		   titl="日志修改"

    427. 

  427. 		Else

    428. 

  428. 		  Action="AddSave"

    429. 

  429. 		  OpStr="确定发布"

    430. 

  430. 		  titl="日志发布"

    431. 

  431. 		End If

    432. 

  432. 		%>

    433. 

  433. =<%=titl%>=<br/>

    434. 

  434. <%=KS.GetReadMessage%>

    435. 

  435. 

    436. 

  436. 你的心情：<select name="face">

    437. 

  437. 	<option value="1">不错</option>

    438. 

  438.     <option value="2">茫然</option>

    439. 

  439.     <option value="3">开心</option>

    440. 

  440.     <option value="9">激动</option>

    441. 

  441. 	<option value="7">郁闷</option>

    442. 

  442. 	<option value="8">难受</option>

    443. 

  443. 	<option value="11">寂寞</option>

    444. 

  444. 	<option value="10">变态</option>

    445. 

  445. 	<option value="4">其他</option>

    446. 

  446. </select><br />

    447. 

  447. 当天天气：<select name="Weather">

    448. 

  448. <option value="sun.gif">晴天</option>

    449. 

  449. <option value="sun2.gif">和煦</option>

    450. 

  450. <option value="yin.gif">阴天</option>

    451. 

  451. <option value="qing.gif">清爽</option>

    452. 

  452. <option value="yun.gif">多云</option>

    453. 

  453. <option value="wu.gif">有雾</option>

    454. 

  454. <option value="xiaoyu.gif">小雨</option>

    455. 

  455. <option value="yinyu.gif">中雨</option>

    456. 

  456. <option value="leiyu.gif">雷雨</option>

    457. 

  457. <option value="caihong.gif">彩虹</option>

    458. 

  458. <option value="hexu.gif">酷热</option>

    459. 

  459. <option value="feng.gif">寒冷</option>

    460. 

  460. <option value="xue.gif">小雪</option>

    461. 

  461. <option value="daxue.gif">大雪</option>

    462. 

  462. <option value="moon.gif">月圆</option>

    463. 

  463. <option value="moon2.gif">月缺</option>

    464. 

  464. </select><br/>

    465. 

  465. 

    466. 

  466. 日志分类：<select name='TypeID'>

    467. 

  467. <option value="0">请选择日志类别</option>

    468. 

  468. <%Set RS=Server.CreateObject("ADODB.RECORDSET")

    469. 

  469. RS.Open "Select * From KS_BlogType order by orderid",conn,1,1

    470. 

  470. If Not RS.EOF Then

    471. 

  471. Do While Not RS.Eof 

    472. 

  472. Response.Write "<option value=""" & RS("TypeID") & """>" & RS("TypeName") & "</option>"

    473. 

  473. RS.MoveNext

    474. 

  474. Loop

    475. 

  475. End If

    476. 

  476. RS.Close

    477. 

  477. Set RS=Nothing

    478. 

  478. %></select><br/>	

    479. 

  479. 我的专栏：<select name='ClassID'>

    480. 

  480. <option value="0">选择我的专栏</option>

    481. 

  481. <%=KSUser.UserClassOption(2,ClassID)%>

    482. 

  482. </select>			

    483. 

  483. <br/>				

    484. 

  484. 日志标题：<input name="Title<%=minute(now)%><%=second(now)%>" type="text" maxlength="40" value="<%=KS.LoseHtml(Title)%>"/><br/>

    485. 

  485. 日志内容：<input name="Content<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" value="<%=KS.LoseHtml(Content)%>"/><br/>

    486. 

  486. 日志密码：<input name="Password<%=minute(now)%><%=second(now)%>" type="text" value="<%=PassWord%>" /><br/>

    487. 

  487. <anchor><%=OpStr%><go href='User_Blog.asp?Action=<%=Action%>&amp;id=<%=id%>&amp;<%=KS.WapValue%>' method='post'>

    488. 

  488. <postfield name='face' value='$(face)'/>

    489. 

  489. <postfield name='Weather' value='$(Weather)'/>

    490. 

  490. <postfield name='TypeID' value='$(TypeID)'/>

    491. 

  491. <postfield name='ClassID' value='$(ClassID)'/>

    492. 

  492. <postfield name='Title' value='$(Title<%=minute(now)%><%=second(now)%>)'/>

    493. 

  493. <postfield name='Content' value='$(Content<%=minute(now)%><%=second(now)%>)'/>

    494. 

  494. <postfield name='Password' value='$(Password<%=minute(now)%><%=second(now)%>)'/>

    495. 

  495. </go></anchor>

    496. 

  496. 

    497. 

  497. 

    498. 

  498. <anchor>放入草稿箱<go href='User_Blog.asp?Action=<%=Action%>&amp;id=<%=id%>&amp;<%=KS.WapValue%>' method='post'>

    499. 

  499. <postfield name='Status' value='1'/>

    500. 

  500. <postfield name='face' value='$(face)'/>

    501. 

  501. <postfield name='Weather' value='$(Weather)'/>

    502. 

  502. <postfield name='TypeID' value='$(TypeID)'/>

    503. 

  503. <postfield name='ClassID' value='$(ClassID)'/>

    504. 

  504. <postfield name='Title' value='$(Title<%=minute(now)%><%=second(now)%>)'/>

    505. 

  505. <postfield name='Content' value='$(Content<%=minute(now)%><%=second(now)%>)'/>

    506. 

  506. <postfield name='Password' value='$(Password<%=minute(now)%><%=second(now)%>)'/>

    507. 

  507. </go></anchor>

    508. 

  508. 

    509. 

  509. <br/>

    510. 

  510. <%

    511. 

  511. response.Write "---------<br/>"

    512. 

  512. End Sub

    513. 

  513. 

    514. 

  514. '日志修改=================================================================================

    515. 

  515. Sub EditSave()

    516. 

  516.     face=KS.S("face")

    517. 

  517. 	Weather=KS.S("Weather")

    518. 

  518. 	TypeID=KS.S("TypeID")

    519. 

  519. 	ClassID=KS.S("ClassID")

    520. 

  520. 	Title=KS.GotTopic(KS.S("Title"),60)

    521. 

  521. 	'AddDate=S("AddDate")

    522. 

  522. 	Content=KS.GotTopic(KS.S("Content"),500)

    523. 

  523. 	Password=KS.S("Password")

    524. 

  524. 	Status=KS.ChkClng(KS.S("Status"))

    525. 

  525. 	

    526. 

  526. 	If TypeID=0 Then

    527. 

  527. 	   Response.write "出错提示，你没有选择日志分类！<br/>"

    528. 

  528. 	   Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    529. 

  529. 	'ElseIF ClassID=0 Then

    530. 

  530. 	'   Response.write "出错提示，你没有选择我的专栏！<br/>"

    531. 

  531. 	'   Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    532. 

  532. 	ElseIF Title="" Then

    533. 

  533. 	   Response.write "出错提示，你没有输入日志标题！<br/>"

    534. 

  534. 	   Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    535. 

  535. 	'ElseIF not isdate(adddate) Then

    536. 

  536. 	   'Response.write "出错提示，你输入的日期不正确！<br/>"

    537. 

  537. 	   'Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    538. 

  538. 	ElseIF Content="" Then

    539. 

  539. 	   Response.write "出错提示，你没有输入日志内容！<br/>"

    540. 

  540. 	   Response.Write "<a href='User_Blog.asp?action=Edit&amp;id="&id&"&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    541. 

  541. 	Else

    542. 

  542. 	        Set RSObj=Server.CreateObject("Adodb.Recordset")

    543. 

  543. 			    RSObj.Open "Select top 1 * From KS_BlogInfo Where ID="&ID,Conn,1,3

    544. 

  544. 				RSObj("Title")=Title

    545. 

  545. 				RSObj("TypeID")=TypeID

    546. 

  546. 				RSObj("ClassID")=ClassID

    547. 

  547. 				RSObj("UserName")=KSUser.UserName

    548. 

  548. 				RSObj("Face")=Face

    549. 

  549. 				RSObj("Weather")=weather

    550. 

  550. 				RSObj("Adddate")=now()

    551. 

  551. 				RSObj("Content")=Content

    552. 

  552. 				RSObj("Password")=Password

    553. 

  553. 				  if status=1 then

    554. 

  554. 				  RSObj("Status")=1

    555. 

  555. 				  elseif KS.SSetting(3)=1 Then

    556. 

  556. 				  RSObj("Status")=2

    557. 

  557. 				  Else

    558. 

  558. 				  RSObj("Status")=0

    559. 

  559. 				  end if

    560. 

  560. 				RSObj.Update

    561. 

  561. 				RSObj.Close:Set RSObj=Nothing

    562. 

  562. 			Response.write "操作成功。<br/>"

    563. 

  563. 			Response.Write "<a href='User_Blog.asp?action=rizhichakan&amp;ID="&ID&"&amp;" & KS.WapValue & "'>日志查看</a><br/>"

    564. 

  564. 			Response.Write "<a href='User_Blog.asp?action=&amp;" & KS.WapValue & "'>日志列表</a><br/>"

    565. 

  565.     End IF

    566. 

  566. End Sub

    567. 

  567. 

    568. 

  568. '发布日志=================================================================================

    569. 

  569. Sub AddSave()

    570. 

  570.     face=KS.S("face")

    571. 

  571. 	Weather=KS.S("Weather")

    572. 

  572. 	TypeID=KS.S("TypeID")

    573. 

  573. 	ClassID=KS.S("ClassID")

    574. 

  574. 	Title=KS.S("Title")

    575. 

  575. 	Tags=Trim(KS.S("Tags"))

    576. 

  576. 	'AddDate=S("AddDate")

    577. 

  577. 	Content=KS.S("Content")

    578. 

  578. 	Password=KS.S("Password")

    579. 

  579. 	Status=KS.ChkClng(KS.S("Status"))

    580. 

  580. 	

    581. 

  581. 	If TypeID=0 Then

    582. 

  582. 	   Response.write "出错提示，你没有选择日志分类！<br/>"

    583. 

  583. 	   Response.Write "<a href='User_Blog.asp?action=Add&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    584. 

  584. 	'ElseIF ClassID=0 Then

    585. 

  585. 	'   Response.write "出错提示，你没有选择我的专栏！<br/>"

    586. 

  586. 	 '  Response.Write "<a href='User_Blog.asp?action=Add&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    587. 

  587. 	ElseIF Title="" Then

    588. 

  588. 	   Response.write "出错提示，你没有输入日志标题！<br/>"

    589. 

  589. 	   Response.Write "<a href='User_Blog.asp?action=Add&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    590. 

  590. 	'ElseIF not isdate(adddate) Then

    591. 

  591. 	   'Response.write "出错提示，你输入的日期不正确！<br/>"

    592. 

  592. 	   'Response.Write "<a href='User_Blog.asp?action=Add&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    593. 

  593. 	ElseIF Content="" Then

    594. 

  594. 	   Response.write "出错提示，你没有输入日志内容！<br/>"

    595. 

  595. 	   Response.Write "<a href='User_Blog.asp?action=Add&amp;" & KS.WapValue & "'>返回重写</a><br/>"

    596. 

  596. 	Else

    597. 

  597.             Set RSObj=Server.CreateObject("Adodb.Recordset")

    598. 

  598. 			    RSObj.Open "Select top 1 * From KS_BlogInfo",Conn,1,3

    599. 

  599. 				RSObj.AddNew

    600. 

  600. 				RSObj("Title")=Title

    601. 

  601. 				RSObj("TypeID")=TypeID

    602. 

  602. 				RSObj("ClassID")=ClassID

    603. 

  603. 				RSObj("Tags")=Tags

    604. 

  604. 				RSObj("UserName")=KSUser.UserName

    605. 

  605. 				RSObj("Face")=Face

    606. 

  606. 				RSObj("Weather")=weather

    607. 

  607. 				RSObj("Adddate")=now()

    608. 

  608. 				RSObj("Content")=Content

    609. 

  609. 				RSObj("Password")=Password

    610. 

  610. 				  if status=1 then

    611. 

  611. 				  RSObj("Status")=1

    612. 

  612. 				  elseif KS.SSetting(3)=1 Then

    613. 

  613. 				  RSObj("Status")=2

    614. 

  614. 				  Else

    615. 

  615. 				  RSObj("Status")=0

    616. 

  616. 				  end if

    617. 

  617. 				RSObj("Hits")=0

    618. 

  618. 				ID=RSObj("ID")

    619. 

  619. 				RSObj.Update

    620. 

  620. 				RSObj.Close:Set RSObj=Nothing

    621. 

  621. 			Response.write "操作成功。<br/>"

    622. 

  622. 			Response.Write "<a href='User_Blog.asp?action=rizhichakan&amp;ID="&ID&"&amp;" & KS.WapValue & "'>日志查看</a><br/>"

    623. 

  623. 			Response.Write "<a href='User_Blog.asp?action=&amp;" & KS.WapValue & "'>日志列表</a><br/>"	

    624. 

  624. 	End If

    625. 

  625. End Sub

    626. 

  626. 

    627. 

  627. '评论管理=================================================================================

    628. 

  628. Sub Comment()

    629. 

  629. %>

    630. 

  630. =评论管理=<br/>

    631. 

  631. <%

    632. 

  632. Response.write KS.GetReadMessage

    633. 

  633. 

    634. 

  634. If KS.S("page") <> "" Then

    635. 

  635.    CurrentPage = KS.ChkClng(KS.S("page"))

    636. 

  636. Else

    637. 

  637.    CurrentPage = 1

    638. 

  638. End If

    639. 

  639. 

    640. 

  640. set rs=server.createobject("adodb.recordset")

    641. 

  641. Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"

    642. 

  642. Dim Sql:sql = "select * from KS_BlogComment "& Param &" order by AddDate DESC" 

    643. 

  643. rs.open sql,conn,1,1

    644. 

  644. if rs.bof and rs.eof then

    645. 

  645.    response.write "没有用户给你评论!<br/>"

    646. 

  646. else

    647. 

  647.    MaxPerPage =3

    648. 

  648.    totalPut = RS.RecordCount

    649. 

  649.    If CurrentPage < 1 Then	CurrentPage = 1

    650. 

  650.    If (CurrentPage - 1) * MaxPerPage > totalPut Then

    651. 

  651.       If (totalPut Mod MaxPerPage) = 0 Then

    652. 

  652. 	     CurrentPage = totalPut \ MaxPerPage

    653. 

  653. 	  Else

    654. 

  654. 	     CurrentPage = totalPut \ MaxPerPage + 1

    655. 

  655. 	  End If

    656. 

  656.    End If

    657. 

  657.    If CurrentPage >1 and (CurrentPage - 1) * MaxPerPage < totalPut Then

    658. 

  658.       Rs.Move (CurrentPage - 1) * MaxPerPage

    659. 

  659.    Else

    660. 

  660.       CurrentPage = 1

    661. 

  661.    End If

    662. 

  662.    

    663. 

  663.    do while not rs.eof

    664. 

  664.    %>

    665. 

  665. 

    666. 

  666.       发表人:<%=RS("AnounName")%><br/>

    667. 

  667.       时间:<%=formatdatetime(rs("AddDate"),2)%><br/>

    668. 

  668.       评论标题:<%=KS.GotTopic(trim(RS("title")),35)%>

    669. 

  669. 	  <%

    670. 

  670. 	  if Not IsNull(RS("Replay")) or rs("replay")<>"" Then

    671. 

  671. 	  response.write "(已回复)"

    672. 

  672. 	  end if

    673. 

  673. 	  %><br/>

    674. 

  674. 	  <%if Not IsNull(RS("Replay")) or rs("replay")<>"" Then%>

    675. 

  675.       <a href="User_Blog.asp?id=<%=rs("id")%>&amp;Action=ReplayComment&amp;<%=KS.WapValue%>">修改回复</a>

    676. 

  676. 	  <%else%>

    677. 

  677.       <a href="User_Blog.asp?id=<%=rs("id")%>&amp;Action=ReplayComment&amp;<%=KS.WapValue%>">回复评论</a>

    678. 

  678. 	  <%End If%>

    679. 

  679.       <a href="User_Blog.asp?action=CommentDel&amp;id=<%=rs("id")%>&amp;<%=KS.WapValue%>">删除评论</a><br/>

    680. 

  680.       ----------<br/>

    681. 

  681.    <%

    682. 

  682. 	  I = I + 1

    683. 

  683. 	  If I >= MaxPerPage Then Exit Do

    684. 

  684.    loop

    685. 

  685.    Call  KS.ShowPageParamter(totalPut, MaxPerPage, "User_Blog.asp", True, "条评论", CurrentPage, "Action=Comment&amp;" & KS.WapValue & "")

    686. 

  686.    

    687. 

  687. end if

    688. 

  688. 

    689. 

  689. rs.close

    690. 

  690. 

    691. 

  691. End Sub

    692. 

  692. 

    693. 

  693. '回复评论=================================================================================

    694. 

  694. Sub ReplayComment()

    695. 

  695.    Set rs=Server.CreateObject("ADODB.RECORDSET")

    696. 

  696.    rs.Open "Select * From KS_BlogComment where id="&id,Conn,1,1

    697. 

  697.    If rs.Eof And rs.Bof Then

    698. 

  698.       Response.Write "参数出错!<br/>"

    699. 

  699. 	  Response.end

    700. 

  700.    End If

    701. 

  701.    Title=rs("Title")

    702. 

  702.    Content=rs("Content")

    703. 

  703.    Replay=rs("Replay")

    704. 

  704.    If IsNull(Replay) Then Replay=""

    705. 

  705.    rs.Close:Set rs=Nothing	

    706. 

  706. %>

    707. 

  707. =回复评论=<br/>

    708. 

  708. 评论标题：<%=Title%><br/>

    709. 

  709. 评论内容：<%=KS.LoseHtml(Content)%><br/>

    710. 

  710. <%if Not IsNull(Replay) or replay<>"" Then%>

    711. 

  711. 回复内容：<%=KS.LoseHtml(Replay)%><br/>

    712. 

  712. 回复修改：<input name="Replay<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" size="20" value="<%=KS.LoseHtml(Replay)%>"/><br/>

    713. 

  713. <%else%>

    714. 

  714. 回复内容：<input name="Replay<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" size="20" value=""/><br/>

    715. 

  715. <%End If%>

    716. 

  716. <anchor>立即回复<go href="User_Blog.asp?action=SaveCommentReplay&amp;id=<%=id%>&amp;<%=KS.WapValue%>" method="post" accept-charset="utf-8">

    717. 

  717. <postfield name="Replay" value="$(Replay)"/>

    718. 

  718. </go></anchor>

    719. 

  719. <br/>

    720. 

  720. <%

    721. 

  721. response.Write "---------<br/>"

    722. 

  722. End Sub

    723. 

  723. 

    724. 

  724. '保存评论回复=================================================================================

    725. 

  725. Sub SaveCommentReplay()

    726. 

  726.     Replay=KS.S("Replay")

    727. 

  727. 	Set RS=Server.CreateObject("ADODB.RECORDSET")

    728. 

  728. 	RS.Open "Select * From KS_BlogComment Where ID="&ID,conn,1,3

    729. 

  729.     If Not RS.Eof Then

    730. 

  730. 	   RS("Replay")=Replay

    731. 

  731. 	   RS("ReplayDate")=Now

    732. 

  732. 	   RS.Update

    733. 

  733. 	End If

    734. 

  734. 	Response.write "评论成功回复。<br/>"

    735. 

  735. 	Response.Write "<a href='User_Blog.asp?action=Comment&amp;" & KS.WapValue & "'>评论管理</a><br/>"

    736. 

  736. 	RS.Close:Set RS=Nothing

    737. 

  737. End Sub

    738. 

  738. 

    739. 

  739. '删除评论=================================================================================

    740. 

  740. Sub CommentDel()

    741. 

  741.         Conn.Execute("Delete From KS_BlogComment Where ID In("&ID&")")

    742. 

  742. 		Response.write "评论删除成功。<br/>"

    743. 

  743. 		Response.Write "<a href='User_Blog.asp?action=Comment&amp;" & KS.WapValue & "'>评论管理</a><br/>"

    744. 

  744. End Sub

    745. 

  745. 

    746. 

  746. '留言管理=================================================================================

    747. 

  747. Sub Message()

    748. 

  748. %>

    749. 

  749. =留言管理=<br/>

    750. 

  750. <%

    751. 

  751. Response.write KS.GetReadMessage

    752. 

  752. 

    753. 

  753. If KS.S("page") <> "" Then

    754. 

  754.    CurrentPage = KS.ChkClng(KS.S("page"))

    755. 

  755. Else

    756. 

  756.    CurrentPage = 1

    757. 

  757. End If

    758. 

  758. Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"

    759. 

  759. Dim Sql:sql = "select * from KS_BlogMessage "& Param &" order by AddDate DESC" 

    760. 

  760. set rs=server.createobject("adodb.recordset")

    761. 

  761. rs.open sql,conn,1,1

    762. 

  762. if rs.bof and rs.eof then

    763. 

  763.    response.write "没有用户给你留言!<br/>"

    764. 

  764. else

    765. 

  765.    MaxPerPage =3

    766. 

  766.    totalPut = RS.RecordCount

    767. 

  767.    If CurrentPage < 1 Then	CurrentPage = 1

    768. 

  768.    If (CurrentPage - 1) * MaxPerPage > totalPut Then

    769. 

  769.       If (totalPut Mod MaxPerPage) = 0 Then

    770. 

  770. 	     CurrentPage = totalPut \ MaxPerPage

    771. 

  771. 	  Else

    772. 

  772. 	     CurrentPage = totalPut \ MaxPerPage + 1

    773. 

  773. 	  End If

    774. 

  774.    End If

    775. 

  775.    If CurrentPage >1 and (CurrentPage - 1) * MaxPerPage < totalPut Then

    776. 

  776.       Rs.Move (CurrentPage - 1) * MaxPerPage

    777. 

  777.    Else

    778. 

  778.       CurrentPage = 1

    779. 

  779.    End If

    780. 

  780.    

    781. 

  781.    do while not rs.eof

    782. 

  782.    %>

    783. 

  783.    发表人:<%=RS("AnounName")%><br/>

    784. 

  784.    时间:<%=rs("AddDate")%><br/>

    785. 

  785.    标题:<%=trim(rs("title"))%>

    786. 

  786.    <%

    787. 

  787.    if Not IsNull(RS("Replay")) or rs("replay")<>"" Then

    788. 

  788.    response.write "(已回复)"

    789. 

  789.    end if

    790. 

  790.    %><br/>

    791. 

  791.    <%if Not IsNull(RS("Replay")) or rs("replay")<>"" Then%>

    792. 

  792.    <a href="User_Blog.asp?id=<%=rs("id")%>&amp;Action=ReplayMessage&amp;<%=KS.WapValue%>">修改回复</a>

    793. 

  793.    <%else%>

    794. 

  794.    <a href="User_Blog.asp?id=<%=rs("id")%>&amp;Action=ReplayMessage&amp;<%=KS.WapValue%>">回复留言</a>

    795. 

  795.    <%End If%>

    796. 

  796.    <a href="User_Blog.asp?action=MessageDel&amp;id=<%=rs("id")%>&amp;<%=KS.WapValue%>">删除留言</a><br/>

    797. 

  797.    ----------<br/>

    798. 

  798.    <%

    799. 

  799. 	  I = I + 1

    800. 

  800. 	  If I >= MaxPerPage Then Exit Do

    801. 

  801.    loop

    802. 

  802.    

    803. 

  803.    Call  KS.ShowPageParamter(totalPut, MaxPerPage, "User_Blog.asp", True, "条留言", CurrentPage, "Action=Message&amp;" & KS.WapValue & "")

    804. 

  804. end if

    805. 

  805. rs.close

    806. 

  806. 

    807. 

  807. End Sub

    808. 

  808. 

    809. 

  809. '回复留言=================================================================================

    810. 

  810. Sub ReplayMessage()

    811. 

  811.     Set rs=Server.CreateObject("ADODB.RECORDSET")

    812. 

  812. 	rs.Open "Select * From KS_BlogMessage where id="&id,Conn,1,1

    813. 

  813. 	If rs.Eof And rs.Bof Then

    814. 

  814. 	   Response.Write "参数出错!<br/>"

    815. 

  815. 	   Response.end

    816. 

  816. 	End If

    817. 

  817. 	Title=rs("Title")

    818. 

  818. 	Content=rs("Content")

    819. 

  819. 	Replay=rs("Replay")

    820. 

  820. 	If IsNull(Replay) Then Replay=""

    821. 

  821. 	rs.Close:Set rs=Nothing

    822. 

  822. %>

    823. 

  823. =回复留言=<br/>

    824. 

  824. 留言标题：<%=Title%><br/>

    825. 

  825. 留言内容：<%=KS.LoseHtml(Content)%><br/>

    826. 

  826. <%if Not IsNull(Replay) or replay<>"" Then%>

    827. 

  827. 回复内容：<%=KS.LoseHtml(Replay)%><br/>

    828. 

  828. 回复修改：<input name="Replay<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" size="20" value="<%=KS.LoseHtml(Replay)%>"/><br/>

    829. 

  829. <%else%>

    830. 

  830. 回复内容：<input name="Replay<%=minute(now)%><%=second(now)%>" type="text" maxlength="500" size="20" value=""/><br/>

    831. 

  831. <%End If%>

    832. 

  832. <anchor>立即回复<go href="User_Blog.asp?action=SaveMessageReplay&amp;id=<%=id%>&amp;<%=KS.WapValue%>" method="post" accept-charset="utf-8">

    833. 

  833. <postfield name="Replay" value="$(Replay<%=minute(now)%><%=second(now)%>)"/>

    834. 

  834. </go></anchor>

    835. 

  835. <br/>

    836. 

  836. <%

    837. 

  837. End Sub

    838. 

  838. 

    839. 

  839. '保存留言回复=================================================================================

    840. 

  840. Sub SaveMessageReplay()

    841. 

  841.     Replay=KS.S("Replay")

    842. 

  842. 	Set RS=Server.CreateObject("ADODB.RECORDSET")

    843. 

  843. 	RS.Open "Select * From KS_BlogMessage where id="&id,Conn,1,3

    844. 

  844. 	If Not RS.Eof Then

    845. 

  845. 	   RS("Replay")=Replay

    846. 

  846. 	   RS("ReplayDate")=Now

    847. 

  847. 	   RS.Update

    848. 

  848. 	End If

    849. 

  849. 	Response.write "留言成功回复。<br/>"

    850. 

  850. 	Response.Write "<a href=""User_Blog.asp?action=Message&amp;" & KS.WapValue & """>留言管理</a><br/>"

    851. 

  851. 	RS.Close:Set RS=Nothing

    852. 

  852. End Sub

    853. 

  853. 

    854. 

  854. '删除留言=================================================================================

    855. 

  855. Sub MessageDel()

    856. 

  856.     Conn.Execute("Delete From KS_BlogMessage where id In("&id&")")

    857. 

  857. 	Response.Write "留言删除成功。<br/>"

    858. 

  858. 	Response.Write "<a href='User_Blog.asp?action=Message&amp;" & KS.WapValue & "'>留言管理</a><br/>"

    859. 

  859. End Sub

    860. 

  860. 

    861. 

  861. %>

    862. 

  862. <br/>

    863. 

  863. <a href="Index.asp?<%=KS.WapValue%>">我的地盘</a>

    864. 

  864. <a href="<%=KS.GetGoBackIndex%>">返回首页</a><br/>

    865. 

  865. <%

    866. 

  866. Set KSUser=Nothing

    867. 

  867. Set KS=Nothing

    868. 

  868. Call CloseConn

    869. 

  869. %>

    870. 

  870. </p>

    871. 

  871. </card>

    872. 

  872. </wml>

    873. 

  873.