PageRenderTime 41ms CodeModel.GetById 1ms RepoModel.GetById 0ms app.codeStats 0ms

/Wap/User/User_MyArticle.asp

https://github.com/joechen2010/health
ASP | 487 lines | 451 code | 28 blank | 8 comment | 0 complexity | ea391315e8769094cfb157a217144190 MD5 | raw file
    

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

    2. 

  2. <%

    3. 

  3. Option Explicit

    4. 

  4. Response.ContentType="text/vnd.wap.wml"

    5. 

  5. Response.Charset="utf-8"

    6. 

  6. Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>" &vbcrlf

    7. 

  7. Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">" &vbcrlf

    8. 

  8. %>

    9. 

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

    10. 

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

    11. 

  11. <!--#include file="UpFileSave.asp"-->

    12. 

  12. <wml>

    13. 

  13. <head>

    14. 

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

    15. 

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

    16. 

  16. </head>

    17. 

  17. <card id="main" title="内容管理">

    18. 

  18. <p>

    19. 

  19. <%

    20. 

  20. Dim KSCls

    21. 

  21. Set KSCls = New MyArticleCls

    22. 

  22. KSCls.Kesion()

    23. 

  23. Set KSCls = Nothing

    24. 

  24. %>

    25. 

  25. </p>

    26. 

  26. </card>

    27. 

  27. </wml>

    28. 

  28. <%

    29. 

  29. Class MyArticleCls

    30. 

  30.         Private KS,ChannelID

    31. 

  31. 		Private CurrentPage,totalPut,RS,MaxPerPage

    32. 

  32. 		Private Selbutton,LoginTF,Prev

    33. 

  33. 		Private F_B_Arr,F_V_Arr,ClassID,Title,FullTitle,KeyWords,Author,Origin,Intro,Content,Verific,PhotoUrl,Action,I,UserDefineFieldArr,UserDefineFieldValueStr

    34. 

  34. 		Private Sub Class_Initialize()

    35. 

  35. 			MaxPerPage =9

    36. 

  36. 			Set KS=New PublicCls

    37. 

  37. 		End Sub

    38. 

  38.         Private Sub Class_Terminate()

    39. 

  39. 		    Set KS=Nothing

    40. 

  40. 		    Set KSUser=Nothing

    41. 

  41. 		End Sub

    42. 

  42. 		Public Sub Kesion()

    43. 

  43. 		    ChannelID=KS.ChkClng(KS.S("ChannelID"))

    44. 

  44. 			If ChannelID=0 Then ChannelID=1

    45. 

  45. 			LoginTF=Cbool(KSUser.UserLoginChecked)

    46. 

  46. 			IF LoginTF=false  Then

    47. 

  47. 			   Response.redirect KS.GetDomain&"User/Login/?User_MyArticle.asp"

    48. 

  48. 			   Exit Sub

    49. 

  49. 			End If

    50. 

  50. 			If KS.C_S(ChannelID,6)<>1 Then Response.End()

    51. 

  51. 			If KS.C_S(ChannelID,36)=0 Then

    52. 

  52. 			   Response.Write "本频道不允许投稿!<br/>"

    53. 

  53. 			   Exit Sub

    54. 

  54. 			End If

    55. 

  55. 			

    56. 

  56. 			F_B_Arr=Split(Split(KS.C_S(ChannelID,5),"@@@")(0),"|")

    57. 

  57. 			F_V_Arr=Split(Split(KS.C_S(ChannelID,5),"@@@")(1),"|")

    58. 

  58. 			%>

    59. 

  59.             <a href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Action=Add&amp;<%=KS.WapValue%>">发布<%=KS.C_S(ChannelID,3)%></a><br/>

    60. 

  60.             <a href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Status=2&amp;<%=KS.WapValue%>">草 稿[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) &" where Verific=2 and Inputer='"& KSUser.UserName &"'")(0)%>]</a>

    61. 

  61.             <a href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Status=0&amp;<%=KS.WapValue%>">待审核[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) &" where Verific=0 and Inputer='"& KSUser.UserName &"'")(0)%>]</a>

    62. 

  62.             <a href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Status=1&amp;<%=KS.WapValue%>">已审核[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) &" where Verific=1 and Inputer='"& KSUser.UserName &"'")(0)%>]</a>

    63. 

  63.             <a href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Status=3&amp;<%=KS.WapValue%>">被退稿[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) &" where Verific=3 and Inputer='"& KSUser.UserName &"'")(0)%>]</a>

    64. 

  64.             <br/>

    65. 

  65. 			<%

    66. 

  66. 			Action=KS.S("Action")

    67. 

  67. 			Select Case Action

    68. 

  68. 			    Case "Del"

    69. 

  69. 				Call ArticleDel()

    70. 

  70. 				Case "Add","Edit"

    71. 

  71. 				Call DoAdd()

    72. 

  72. 				Case "DoSave"

    73. 

  73. 				Call DoSave()

    74. 

  74. 				Case Else

    75. 

  75. 				Call ArticleList()

    76. 

  76. 			End Select

    77. 

  77. 			If Prev=True Then

    78. 

  78. 			   Response.Write "<anchor>返回上级<prev/></anchor><br/>"

    79. 

  79. 			End If

    80. 

  80. 			Response.Write "<br/>"

    81. 

  81. 			Response.Write "<a href=""Index.asp?" & KS.WapValue & """>我的地盘</a><br/>" &vbcrlf

    82. 

  82. 			Response.Write "<a href=""" & KS.GetGoBackIndex & """>返回首页</a>" &vbcrlf

    83. 

  83. 	    End Sub

    84. 

  84. 		

    85. 

  85. 	    Sub ArticleList()

    86. 

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

    87. 

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

    88. 

  88. 			Else

    89. 

  89. 			   CurrentPage = 1

    90. 

  90. 			End If

    91. 

  91. 			Dim Param:Param=" Where Inputer='"& KSUser.UserName &"'"

    92. 

  92. 			Verific=KS.S("Status")

    93. 

  93. 			If Verific="" or not isnumeric(Verific) Then Verific=4

    94. 

  94. 			IF Verific<>4 Then 

    95. 

  95. 			   Param= Param & " and Verific=" & Verific

    96. 

  96. 			End If

    97. 

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

    98. 

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

    99. 

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

    100. 

  100. 			End if

    101. 

  101. 			If KS.S("ClassID")<>"" And KS.S("ClassID")<>"0" Then Param=Param & " And TID='" & KS.S("ClassID") & "'"

    102. 

  102. 			Dim Sql:sql = "select a.*,FolderName from " & KS.C_S(ChannelID,2) &" a inner join KS_Class b On a.tid=b.id "& Param &" order by AddDate DESC"

    103. 

  103. 			Select Case Verific

    104. 

  104. 			    Case 0

    105. 

  105. 				Response.Write "【待审" & KS.C_S(ChannelID,3) & "】<br/>"

    106. 

  106. 				Case 1

    107. 

  107. 				Response.Write "【已审" & KS.C_S(ChannelID,3) & "】<br/>"

    108. 

  108. 				Case 2

    109. 

  109. 				Response.Write "【草稿" & KS.C_S(ChannelID,3) & "】<br/>"

    110. 

  110. 				Case 3

    111. 

  111. 				Response.Write "【退稿" & KS.C_S(ChannelID,3) & "】<br/>"

    112. 

  112. 				Case Else

    113. 

  113. 				Response.Write "【所有" & KS.C_S(ChannelID,3) & "】<br/>"

    114. 

  114. 			End Select

    115. 

  115. 			

    116. 

  116. 			Set RS=Server.CreateObject("AdodB.Recordset")

    117. 

  117. 			RS.open sql,conn,1,1

    118. 

  118. 			If RS.EOF And RS.BOF Then

    119. 

  119. 			   Response.Write "没有你要的" & KS.C_S(ChannelID,3) & "!<br/>"

    120. 

  120. 			Else

    121. 

  121. 			   totalPut = RS.RecordCount

    122. 

  122. 			   If CurrentPage < 1 Then	CurrentPage = 1

    123. 

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

    124. 

  124. 			      If (totalPut Mod MaxPerPage) = 0 Then

    125. 

  125. 				     CurrentPage = totalPut \ MaxPerPage

    126. 

  126. 				  Else

    127. 

  127. 				     CurrentPage = totalPut \ MaxPerPage + 1

    128. 

  128. 				  End If

    129. 

  129. 			   End If

    130. 

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

    131. 

  131. 			      RS.Move (CurrentPage - 1) * MaxPerPage

    132. 

  132. 			   Else

    133. 

  133. 			      CurrentPage = 1

    134. 

  134. 			   End If

    135. 

  135. 			   Call showContent

    136. 

  136. 		    End If

    137. 

  137. 			%>

    138. 

  138.             【<%=KS.C_S(ChannelID,3)%>搜索】<br/>

    139. 

  139.             <select name="Flag"><option value="0">标题</option><option value="1">关键字</option></select>

    140. 

  140.             关键字<input type="text" name="KeyWord" value="关键字"/>

    141. 

  141.             <anchor>搜索<go href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;<%=KS.WapValue%>" method="post">

    142. 

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

    143. 

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

    144. 

  144.             </go></anchor><br/>	

    145. 

  145. 			<%

    146. 

  146. 		End Sub

    147. 

  147. 		

    148. 

  148. 		Sub ShowContent()

    149. 

  149. 		    Dim I

    150. 

  150. 			Do While Not RS.Eof

    151. 

  151. 			%>

    152. 

  152.             <%=((I+1)+CurrentPage*MaxPerPage)-MaxPerPage%>.

    153. 

  153.             <a href="../Show.asp?ID=<%=RS("ID")%>&amp;ChannelID=<%=ChannelID%>&amp;<%=KS.WapValue%>"><%=KS.GotTopic(trim(RS("title")),35)%></a>

    154. 

  154.             <%

    155. 

  155. 			Select Case RS("Verific")

    156. 

  156. 			    Case 0:Response.Write "待审 "

    157. 

  157. 				Case 1:Response.Write "已审 "

    158. 

  158. 				Case 2:Response.Write "草稿 "

    159. 

  159. 				Case 3:Response.Write "退稿 "

    160. 

  160. 			End Select

    161. 

  161. 			If RS("Verific")<>1 Then

    162. 

  162. 			   Response.Write "<a href=""User_MyArticle.asp?ChannelID="&ChannelID&"&amp;ID="&RS("ID")&"&amp;Action=Edit&amp;page="&CurrentPage&"&amp;"&KS.WapValue&""">修改</a>"

    163. 

  163. 			   Response.Write "<a href=""User_MyArticle.asp?ChannelID="&ChannelID&"&amp;Action=Del&amp;ID="&RS("ID")&"&amp;"&KS.WapValue&""">删除</a>"

    164. 

  164. 			Else

    165. 

  165. 			   If KS.C_S(ChannelID,42)=0 Then

    166. 

  166. 			      Response.write "---"

    167. 

  167. 			   Else

    168. 

  168. 			      Response.Write "<a href=""User_MyArticle.asp?ChannelID=" & ChannelID & "&amp;ID=" & RS("ID") &"&amp;Action=Edit&amp;page=" & CurrentPage &"&amp;"&KS.WapValue&""">修改</a>"

    169. 

  169. 			   End If

    170. 

  170. 			End If

    171. 

  171. 			%>

    172. 

  172.             <br/>

    173. 

  173.             分类:<%=RS("FolderName")%>

    174. 

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

    175. 

  175.   <%

    176. 

  176. 			RS.MoveNext

    177. 

  177. 			I = I + 1

    178. 

  178. 			If I >= MaxPerPage Then Exit Do

    179. 

  179. 			Loop

    180. 

  180. 			Call  KS.ShowPageParamter(totalPut, MaxPerPage, "User_MyArticle.asp", True, KS.C_S(ChannelID,4), CurrentPage, "ChannelID=" & ChannelID & "&amp;Status=" & Verific & "&amp;" & KS.WapValue & "")

    181. 

  181. 		End Sub

    182. 

  182. 		

    183. 

  183. 		'删除文章

    184. 

  184. 		Sub ArticleDel()

    185. 

  185. 		    Dim ID:ID=KS.S("ID")

    186. 

  186. 			ID=KS.FilterIDs(ID)

    187. 

  187. 			If ID="" Then Call KS.Alert("你没有选中要删除的" & KS.C_S(ChannelID,3) & "!",ComeUrl):Response.End

    188. 

  188. 			Conn.Execute("Delete From " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName & "' and Verific<>1 And ID In(" & ID & ")")

    189. 

  189. 			Response.Redirect "User_MyArticle.asp?ChannelID="&ChannelID&"&"&KS.WapValue&""

    190. 

  190. 		End Sub

    191. 

  191. 		

    192. 

  192. 		'添加文章

    193. 

  193. 		Sub DoAdd()

    194. 

  194. 			'自定义字段

    195. 

  195. 			UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)

    196. 

  196. 			Dim ID:ID=KS.ChkClng(KS.S("ID"))

    197. 

  197. 			If KS.S("Action")="Edit" Then

    198. 

  198. 			   Dim KS_A_RS_Obj:Set KS_A_RS_Obj=Server.CreateObject("ADODB.RECORDSET")

    199. 

  199. 			   KS_A_RS_Obj.Open "Select  top 1 * From " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName &"' And ID=" & ID,Conn,1,1

    200. 

  200. 			   If Not KS_A_RS_Obj.Eof Then

    201. 

  201. 			      If KS.C_S(ChannelID,42) =0 And KS_A_RS_Obj("Verific")=1 Then

    202. 

  202. 				     KS_A_RS_Obj.Close():Set KS_A_RS_Obj=Nothing

    203. 

  203. 					 Response.Write "本频道设置已审核" & KS.C_S(ChannelID,3) & "不允许修改!<br/>"

    204. 

  204. 					 Prev=True

    205. 

  205. 					 Exit Sub

    206. 

  206. 				  End If

    207. 

  207. 				  ClassID  = KS_A_RS_Obj("Tid")

    208. 

  208. 				  Title    = KS_A_RS_Obj("Title")

    209. 

  209. 				  KeyWords = KS_A_RS_Obj("KeyWords")

    210. 

  210. 				  Author   = KS_A_RS_Obj("Author")

    211. 

  211. 				  Origin   = KS_A_RS_Obj("Origin")

    212. 

  212. 				  Content  = KS_A_RS_Obj("ArticleContent")

    213. 

  213. 				  Verific  = KS_A_RS_Obj("Verific")

    214. 

  214. 				  If Verific=3 Then Verific=0

    215. 

  215. 				  PhotoUrl   = KS_A_RS_Obj("PhotoUrl")

    216. 

  216. 				  Intro    = KS_A_RS_Obj("Intro")

    217. 

  217. 				  FullTitle= KS_A_RS_Obj("FullTitle")

    218. 

  218. 				  UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)

    219. 

  219. 				  If IsArray(UserDefineFieldArr) Then

    220. 

  220. 			         For I=0 To Ubound(UserDefineFieldArr,2)

    221. 

  221. 				         If i=0 Then

    222. 

  222. 					        UserDefineFieldValueStr=KS_A_RS_Obj(UserDefineFieldArr(0,I)) & "||||"

    223. 

  223. 						 Else

    224. 

  224. 					        UserDefineFieldValueStr=UserDefineFieldValueStr & KS_A_RS_Obj(UserDefineFieldArr(0,I)) & "||||"

    225. 

  225. 						 End If

    226. 

  226. 				     Next

    227. 

  227. 			      End If

    228. 

  228. 		       End If

    229. 

  229. 			   KS_A_RS_Obj.Close:Set KS_A_RS_Obj=Nothing

    230. 

  230. 			   SelButton=KS.C_C(ClassID,1)

    231. 

  231. 		    Else

    232. 

  232. 			   Author=KSUser.RealName

    233. 

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

    234. 

  234. 			   If ClassID="" Then ClassID="0"

    235. 

  235. 			   If ClassID="0" Then

    236. 

  236. 			      SelButton="选择栏目..."

    237. 

  237. 			   Else

    238. 

  238. 			      SelButton=KS.C_C(ClassID,1)

    239. 

  239. 			   End If

    240. 

  240. 		    End If

    241. 

  241. 

    242. 

  242. 			If KS.ChkClng(KS.S("UpFileChecked"))=1 Then

    243. 

  243. 		       Dim KSUpFile,PhotoUrl

    244. 

  244. 			   Set KSUpFile = New UpFileSave

    245. 

  245. 			   PhotoUrl=KSUpFile.UpFileUrl

    246. 

  246. 			   Set KSUpFile = Nothing

    247. 

  247. 			   '替換定义字段内容

    248. 

  248. 			   If IsArray(UserDefineFieldArr) Then

    249. 

  249. 			      Dim UserDefineFieldValueStrArr

    250. 

  250. 			      UserDefineFieldValueStrArr=Split(UserDefineFieldValueStr,"||||")

    251. 

  251. 				  UserDefineFieldValueStr=""

    252. 

  252. 			      For I=0 To Ubound(UserDefineFieldArr,2)

    253. 

  253. 				      If UserDefineFieldArr(0,I)=Split(PhotoUrl,"|")(0) Then

    254. 

  254. 					     If UserDefineFieldValueStr="" Then

    255. 

  255. 					        UserDefineFieldValueStr=Split(PhotoUrl,"|")(1) & "||||"

    256. 

  256. 						 Else

    257. 

  257. 						   UserDefineFieldValueStr=UserDefineFieldValueStr & Split(PhotoUrl,"|")(1) & "||||"

    258. 

  258. 						 End If

    259. 

  259. 						 PhotoUrl=""

    260. 

  260. 					  Else

    261. 

  261. 					     If UserDefineFieldValueStr="" Then

    262. 

  262. 					        UserDefineFieldValueStr=UserDefineFieldValueStrArr(I) & "||||"

    263. 

  263. 						 Else

    264. 

  264. 						    UserDefineFieldValueStr=UserDefineFieldValueStr & UserDefineFieldValueStrArr(I) & "||||"

    265. 

  265. 						 End If

    266. 

  266. 					  End If

    267. 

  267. 			      Next

    268. 

  268. 			   End If

    269. 

  269. 			End If

    270. 

  270. 

    271. 

  271. 

    272. 

  272. 			IF Action="Edit" Then

    273. 

  273. 			   Response.Write "【修改" & KS.C_S(ChannelID,3) & "】<br/>"

    274. 

  274. 			Else

    275. 

  275. 			   Response.Write "【发布" & KS.C_S(ChannelID,3) & "】<br/>"

    276. 

  276. 			End iF

    277. 

  277. 			Response.Write "" & F_V_Arr(1) & "："

    278. 

  278. 			Call KSUser.GetClassByGroupID(ChannelID,ClassID,Selbutton)

    279. 

  279. 			Response.Write "<br/>"

    280. 

  280. 			Response.Write "" & F_V_Arr(0) & "：<input name=""Title"&Minute(Now)&Second(Now)&""" type=""text"" value=""" & Title & """ maxlength=""100"" /><br/>"

    281. 

  281. 			

    282. 

  282. 			If F_B_Arr(2)=1 Then

    283. 

  283. 			   Response.Write "" & F_V_Arr(2) & "：<input name=""FullTitle"&Minute(Now)&Second(Now)&""" type=""text"" value="""&FullTitle&""" maxlength=""100"" /><br/>"

    284. 

  284.             End If

    285. 

  285. 			

    286. 

  286. 			If F_B_Arr(6)=1 Then

    287. 

  287. 			   Response.Write "" & F_V_Arr(6) & "：<input name=""Author"&Minute(Now)&Second(Now)&""" type=""text"" value="""&Author&""" maxlength=""30"" /><br/>"

    288. 

  288. 			End If

    289. 

  289. 			

    290. 

  290. 			If F_B_Arr(7)=1 Then

    291. 

  291. 			Response.Write "" & F_V_Arr(7) & "：<input name=""Origin"&Minute(Now)&Second(Now)&""" type=""text"" value="""&Origin&""" maxlength=""100"" /><br/>"

    292. 

  292. 			End If

    293. 

  293. 			

    294. 

  294. 			Response.Write KSUser.KS_D_F(ChannelID,UserDefineFieldValueStr)

    295. 

  295. 			

    296. 

  296. 			If F_B_Arr(9)=1 Then

    297. 

  297. 			   Response.Write "" & F_V_Arr(9) & "：<input name=""Content"&Minute(Now)&Second(Now)&""" type=""text"" value="""&KS.HTMLCode(Content)&"""/>"

    298. 

  298. 			   'If F_B_Arr(21)=1 And Cbool(LoginTF)=True Then

    299. 

  299. 			      'Response.Write "<a href=""User_UpFile.asp?Type=File&amp;ChannelID="&ChannelID&"&amp;"&KS.WapValue&""">" & F_V_Arr(21) & "</a>"

    300. 

  300. 			   'End If

    301. 

  301.                Response.Write "<br/>"

    302. 

  302. 			End If

    303. 

  303. 			

    304. 

  304. 			If F_B_Arr(10)=1 Then

    305. 

  305. 			   Response.Write "" & F_V_Arr(10) & "：<input name=""PhotoUrl"" type=""text"" value="""&PhotoUrl&"""/>"

    306. 

  306. 			   If F_B_Arr(11)=1 And Cbool(LoginTF)=True Then

    307. 

  307. 			      Response.Write "<a href=""User_UpFile.asp?Action="&Action&"&amp;ID="&ID&"&amp;ChannelID="&ChannelID&"&amp;"&KS.WapValue&""">"&F_V_Arr(11)&"</a>"

    308. 

  308. 			   End If

    309. 

  309. 			   Response.Write "<br/>"

    310. 

  310. 			End If

    311. 

  311. 			

    312. 

  312. 			If Action="Edit" And Verific=1 Then

    313. 

  313. 			   Response.Write ""&KS.C_S(ChannelID,3)&"状态：<select name=""Status""><option value=""0"">投搞</option><option value=""2"">草稿</option></select><br/>"

    314. 

  314. 			End If

    315. 

  315. 			%>

    316. 

  316.             <anchor>确定保存<go href="User_MyArticle.asp?ChannelID=<%=ChannelID%>&amp;Action=DoSave&amp;ID=<%=ID%>&amp;<%=KS.WapValue%>" method="post">

    317. 

  317.             <postfield name="ClassID" value="$(ClassID)"/>

    318. 

  318.             <postfield name="Title" value="$(Title<%=Minute(Now)%><%=Second(Now)%>)"/>

    319. 

  319.             <postfield name="FullTitle" value="$(FullTitle<%=Minute(Now)%><%=Second(Now)%>)"/>

    320. 

  320.             <postfield name="Author" value="$(Author<%=Minute(Now)%><%=Second(Now)%>)"/>

    321. 

  321.             <postfield name="Origin" value="$(Origin<%=Minute(Now)%><%=Second(Now)%>)"/>

    322. 

  322.             <%

    323. 

  323. 			'自定义字段

    324. 

  324. 			If IsArray(UserDefineFieldArr) Then

    325. 

  325. 			   For I=0 To Ubound(UserDefineFieldArr,2)

    326. 

  326. 			       Response.Write "<postfield name=""" & UserDefineFieldArr(0,I) & """ value=""$(" & UserDefineFieldArr(0,I) & ""&Minute(Now)&Second(Now)&")""/>"

    327. 

  327. 			   Next

    328. 

  328. 			End If

    329. 

  329. 			If F_B_Arr(8)=1 Then

    330. 

  330. 			   Response.Write "<postfield name=""AutoIntro"" value=""1""/>"

    331. 

  331. 			End If

    332. 

  332. 			%>

    333. 

  333.             <postfield name="Content" value="$(Content<%=Minute(Now)%><%=Second(Now)%>)"/>

    334. 

  334.             <postfield name="PhotoUrl" value="$(PhotoUrl<%=Minute(Now)%><%=Second(Now)%>)"/>

    335. 

  335.             <postfield name="Status" value="$(Status<%=Minute(Now)%><%=Second(Now)%>)"/>

    336. 

  336.             </go></anchor>

    337. 

  337.             <br/>

    338. 

  338. 		    <%

    339. 

  339. 	    End Sub

    340. 

  340. 

    341. 

  341. 		Sub DoSave()

    342. 

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

    343. 

  343. 			Title=KS.LoseHtml(KS.S("Title"))

    344. 

  344. 			

    345. 

  345. 			KeyWords=KS.CreateKeyWord(Title,2)'关键字

    346. 

  346. 			

    347. 

  347. 			Author=KS.LoseHtml(KS.S("Author"))

    348. 

  348. 			Origin=KS.LoseHtml(KS.S("Origin"))

    349. 

  349. 			Content = Request.Form("Content")

    350. 

  350. 			Content=KS.HtmlCode(Content)

    351. 

  351. 			Content=KS.HtmlEncode(Content)

    352. 

  352. 			If Content="" Then Content="&nbsp;"

    353. 

  353. 			Verific=KS.ChkClng(KS.S("Status"))

    354. 

  354. 

    355. 

  355. 			FullTitle = KS.LoseHtml(KS.S("FullTitle"))

    356. 

  356. 			

    357. 

  357. 			If KS.ChkClng(KS.S("AutoIntro"))=1 Then Intro=KS.GotTopic(KS.LoseHtml(Request.Form("Content")),200)

    358. 

  358. 

    359. 

  359. 			If ClassID="" or ClassID=0 Then

    360. 

  360. 			   Response.Write "请选择归属栏目！<br/>"

    361. 

  361. 			   Prev=True

    362. 

  362. 			   Exit Sub

    363. 

  363. 			End If

    364. 

  364. 

    365. 

  365. 			Dim Fname,FnameType,TemplateID,WapTemplateID

    366. 

  366. 			Dim RSC:Set RSC=Server.CreateObject("ADODB.RECORDSET")

    367. 

  367. 			RSC.Open "select top 1 * from KS_Class Where ID='" & ClassID & "'",Conn,1,1

    368. 

  368. 			If RSC.Eof Then 

    369. 

  369. 			   Response.end

    370. 

  370. 			Else

    371. 

  371. 			   FnameType=RSC("FnameType")

    372. 

  372. 			   Fname=KS.GetFileName(RSC("FsoType"), Now, FnameType)

    373. 

  373. 			   TemplateID=RSC("TemplateID")

    374. 

  374. 			   WapTemplateID=RSC("WapTemplateID")

    375. 

  375. 			End If

    376. 

  376. 			RSC.Close:Set RSC=Nothing

    377. 

  377. 			

    378. 

  378. 			If KS.C_S(ChannelID,17)<>0 And Verific=0 Then Verific=1

    379. 

  379. 			If KS.ChkClng(KS.S("ID"))<>0 Then

    380. 

  380. 			   If KS.C_S(ChannelID,42)=2 Then Verific=1 Else Verific=0

    381. 

  381. 			End If

    382. 

  382. 			

    383. 

  383. 			PhotoUrl=KS.S("PhotoUrl")

    384. 

  384. 			UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)

    385. 

  385. 			If IsArray(UserDefineFieldArr) Then

    386. 

  386. 			   For I=0 To Ubound(UserDefineFieldArr,2)

    387. 

  387. 			       If UserDefineFieldArr(6,I)=1 And KS.S(UserDefineFieldArr(0,I))="" Then

    388. 

  388. 				      Response.Write "" & UserDefineFieldArr(1,I) & "必须填写!<br/>"

    389. 

  389. 					  Prev=True

    390. 

  390. 					  Exit Sub

    391. 

  391. 				   End If

    392. 

  392. 				   If UserDefineFieldArr(3,I)=4 And Not Isnumeric(KS.S(UserDefineFieldArr(0,I))) Then

    393. 

  393. 				      Response.Write "" & UserDefineFieldArr(1,I) & "必须填写数字!<br/>"

    394. 

  394. 					  Prev=True

    395. 

  395. 					  Exit Sub

    396. 

  396. 				   End If

    397. 

  397. 				   If UserDefineFieldArr(3,I)=5 And Not IsDate(KS.S(UserDefineFieldArr(0,I))) And UserDefineFieldArr(6,I)=1 Then

    398. 

  398. 				      Response.Write "" & UserDefineFieldArr(1,I) & "必须填写正确的日期!<br/>"

    399. 

  399. 					  Prev=True

    400. 

  400. 					  Exit Sub

    401. 

  401. 				   End If

    402. 

  402. 				   If UserDefineFieldArr(3,I)=8 And Not KS.IsValidEmail(KS.S(UserDefineFieldArr(0,I))) And UserDefineFieldArr(6,I)=1 Then

    403. 

  403. 				      Response.Write "" & UserDefineFieldArr(1,I) & "必须填写正确的Email!<br/>"

    404. 

  404. 					  Prev=True

    405. 

  405. 					  Exit Sub

    406. 

  406. 				   End If

    407. 

  407. 			   Next

    408. 

  408. 			End If

    409. 

  409. 			

    410. 

  410. 			If ClassID="" Then

    411. 

  411. 			   Response.Write "你没有选择" & KS.C_S(ChannelID,3) & "栏目!<br/>"

    412. 

  412. 			   Prev=True

    413. 

  413. 			   Exit Sub

    414. 

  414. 			End IF

    415. 

  415. 			If Title="" Then

    416. 

  416. 			   Response.Write "你没有输入" & KS.C_S(ChannelID,3) & "标题!<br/>"

    417. 

  417. 			   Prev=True

    418. 

  418. 			   Exit Sub

    419. 

  419. 			End IF

    420. 

  420. 			If Content="" And F_B_Arr(9)=1 Then

    421. 

  421. 			   Response.Write "你没有输入" & KS.C_S(ChannelID,3) & "内容!<br/>"

    422. 

  422. 			   Prev=True

    423. 

  423. 			   Exit Sub

    424. 

  424. 			End IF

    425. 

  425. 			Dim RSObj:Set RSObj=Server.CreateObject("Adodb.Recordset")

    426. 

  426. 			RSObj.Open "Select top 1 * From " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName & "' and ID=" & KS.ChkClng(KS.S("ID")),Conn,1,3

    427. 

  427. 			If RSObj.EOF Then

    428. 

  428. 			   RSObj.AddNew

    429. 

  429. 			   RSObj("Hits")=0

    430. 

  430. 			   RSObj("TemplateID")=TemplateID

    431. 

  431. 			   RSObj("WapTemplateID")=WapTemplateID

    432. 

  432. 			   RSObj("Fname")=FName

    433. 

  433. 			   RSObj("Adddate")=Now

    434. 

  434. 			   RSObj("Rank")="★★★"

    435. 

  435. 			   RSObj("Inputer")=KSUser.UserName

    436. 

  436. 			End If

    437. 

  437. 			RSObj("Title")=Title

    438. 

  438. 			RSObj("FullTitle")=FullTitle

    439. 

  439. 			RSObj("Tid")=ClassID

    440. 

  440. 			RSObj("KeyWords")=KeyWords

    441. 

  441. 			RSObj("Author")=Author

    442. 

  442. 			RSObj("Origin")=Origin

    443. 

  443. 			RSObj("ArticleContent")=Content

    444. 

  444. 			RSObj("Verific")=Verific

    445. 

  445. 			RSObj("PhotoUrl")=PhotoUrl

    446. 

  446. 			RSObj("Intro")=Intro

    447. 

  447. 			RSObj("DelTF")=0

    448. 

  448. 			RSObj("Comment")=1

    449. 

  449. 			If PicUrl<>"" Then 

    450. 

  450. 			   RSObj("PicNews")=1

    451. 

  451. 			Else

    452. 

  452. 			   RSObj("PicNews")=0

    453. 

  453. 			End if

    454. 

  454. 			If IsArray(UserDefineFieldArr) Then

    455. 

  455. 			   For I=0 To Ubound(UserDefineFieldArr,2)

    456. 

  456. 			       If UserDefineFieldArr(3,I)=10  Then   '支持HTML时

    457. 

  457. 				   RSObj("" & UserDefineFieldArr(0,I) & "")=Request.Form(UserDefineFieldArr(0,I))

    458. 

  458. 				   Else

    459. 

  459. 				   RSObj("" & UserDefineFieldArr(0,I) & "")=KS.S(UserDefineFieldArr(0,I))

    460. 

  460. 				   End If

    461. 

  461. 			   Next

    462. 

  462. 			End If

    463. 

  463. 			RSObj.Update

    464. 

  464. 			If Left(Ucase(Fname),2)="ID" Then

    465. 

  465. 			   RSObj.MoveLast

    466. 

  466. 			   RSObj("Fname") = RSObj("ID") & FnameType

    467. 

  467. 			   RSObj.Update

    468. 

  468. 			End If

    469. 

  469. 			If KS.C_S(ChannelID,17)=2  And KS.C_S(Channelid,7)=1 Then

    470. 

  470. 			   Dim KSRObj:Set KSRObj=New Refresh

    471. 

  471. 			   Call KSRObj.RefreshArticleContent(RSObj,ChannelID)

    472. 

  472. 			   Set KSRobj=Nothing

    473. 

  473. 			End If

    474. 

  474. 			RSObj.Close:Set RSObj=Nothing

    475. 

  475. 			

    476. 

  476. 			If KS.ChkClng(KS.S("ID"))=0 Then

    477. 

  477. 			   Response.Write "" & KS.C_S(ChannelID,3) & "添加成功，继续添加吗? "

    478. 

  478. 			   Response.Write "<a href=""User_myArticle.asp?ChannelID=" & ChannelID & "&amp;Action=Add&amp;ClassID=" & ClassID &"&amp;"&KS.WapValue&""">确定</a> "

    479. 

  479. 			   Response.Write "<a href=""User_MyArticle.asp?ChannelID=" & ChannelID & "&amp;"&KS.WapValue&""">取消</a>"

    480. 

  480. 			   Response.Write "<br/>"

    481. 

  481. 			Else

    482. 

  482. 			   Response.Write "" & KS.C_S(ChannelID,3) & "修改成功!"

    483. 

  483. 			End If

    484. 

  484. 		End Sub

    485. 

  485.   

    486. 

  486. End Class

    487. 

  487. %> 

    488. 

  488.