<% Dim arr_news(1) Dim max_news max_news = 1 arr_news(1) = "网页内容" connect_db() check_admin_login() check_admin_task("网页内容管理") module = Request("module") Select Case module Case "list_news" list_news() Case "new_news" new_news() Case "add_news" add_news() Case "delete_news" delete_news() Case "modify_news" modify_news() Case "update_news" update_news() Case Else list_news() End Select Function list_news() Dim intCurrentPage, str_color Dim my_subject, catalog_id my_subject = Request("my_subject") catalog_id = Request("catalog_id") If (Not isNumeric(catalog_id)) Or catalog_id = "" Then catalog_id = 1 End If catalog_id = CLng(catalog_id) If catalog_id < 1 Or catalog_id > max_news Then catalog_id = 1 End If If my_subject <> "" Then sql = "select * from contents where subject like '%" & replaceSQLString(my_subject) & "%' order by id desc" Else sql = "select * from contents order by id desc" End If set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 beginAdminHtml() %> <%beginAdminTitle("内容管理 > 网页内容管理")%>

标题：

<% intCurrentPage = Request("current_page") intCurrentPage = initPage(rs, pagesize_admin, intCurrentPage) i = 0 If Not (rs.BOF And rs.EOF) Then rs.Move(pagesize_admin * (intCurrentPage - 1)) While (Not rs.EOF) And (i < pagesize_admin) If rs("flag") = 0 Then str_color = "#000000" Else str_color = "#FF0000" End If %> <% rs.MoveNext i = i + 1 Wend End If %>

标题	发布时间	操作
"><%=formatHtmlTextarea(rs("subject"))%>	<%=formatHtmlTextarea(rs("publish_date"))%>	">

<% showPageButton rs, intCurrentPage, "current_page", script_name & "?my_subject=" & Server.URLEncode(my_subject) %>

<% Set rs = Nothing Set conn = Nothing Response.End End Function Function modify_news Dim id id = Request("id") If Not isNumeric(id) Then goBack("输入错误！") End If id = CLng(id) sql = "select * from contents where id = " & id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 If rs.BOF And rs.EOF Then goBack("该网页不存在！") End If beginAdminHtml() %> <%beginAdminTitle("内容管理 > 网页内容管理 > 修改网页")%>

">

网页信息  标题: <%=formatHtmlTextarea(rs("subject"))%>  网页内容: <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/editorfdgkjw234erijkef16huiehrkgw/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "400" oFCKeditor.Value = rs("content") oFCKeditor.Create "content" %>  当前状态: <% If rs("flag") = 0 Then %> 冻结 <% Else %> 冻结 <% End If %>

<% Set rs = Nothing Set rs1 = Nothing Set conn = Nothing Response.End End Function Function update_news Dim id, subject, catalog_id, content, flag, old_subject, publish_date, is_website Dim big5_subject, big5_content Dim en_subject, en_content id = Request("id") If (Not isNumeric(id)) Or id = "" Then goBack("参数错误！") End If content = RTrim(Request("content")) flag = Request("flag") If content = "" Then goBack("网页内容不能为空，请重新输入！") End If If flag <> "1" Then flag = 0 End If flag = CLng(flag) sql = "select id, subject from contents where id = " & id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 If rs.BOF And rs.EOF Then goBack("该网页不存在！") End If old_subject = rs("subject") sql = "update contents " &_ "set content = '" & replaceSQLString(content) & "', " &_ "updated_time = '" & Now() & "', " &_ "flag = " & flag & " " &_ "where id = " & id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 2, 1 create_admin_operate_log "修改网页", old_subject Set rs = Nothing list_news() End Function %>