<% 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 news where catalog_id = " & catalog_id & " and subject like '%" & replaceSQLString(my_subject) & "%' order by publish_date desc, id desc" Else sql = "select * from news where catalog_id = " & catalog_id & " order by publish_date desc, id desc" End If set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 beginAdminHtml() %> <%beginAdminTitle("内容管理 > 新闻管理")%>

标题： 新闻类别： <% For i = 1 To max_news If arr_news(i) <> "" Then If catalog_id = i Then %> <%=formatHtmlTextarea(arr_news(i))%> <% Else %> <%=formatHtmlTextarea(arr_news(i))%> <% End If End If Next %>

<% 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 %>

标题	发布时间	操作
<% If rs("catalog_id") >= 12 And rs("catalog_id") <= 15 Then %> " target="_blank">[评论] <% End If %> "><%=formatHtmlTextarea(rs("subject"))%>	<%=formatHtmlTextarea(rs("publish_date"))%>	">       " onClick="return do_delete('确定要删除该新闻吗？');">

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

<% Set rs = Nothing Set conn = Nothing Response.End End Function Function new_news() beginAdminHtml() %> <%beginAdminTitle("内容管理 > 新闻管理 > 添加新闻")%>

新闻信息  标题:  新闻类别: <% For i = 1 To max_news If arr_news(i) <> "" Then %> <%=formatHtmlTextarea(arr_news(i))%> <% End If Next %>  发布时间:  新闻内容: <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/editorfdgkjw234erijkef16huiehrkgw/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "400" oFCKeditor.Value = "" oFCKeditor.Create "content" %>  当前状态: 冻结

<% Set rs = Nothing Set conn = Nothing Response.End End Function Function add_news Dim subject, catalog_id, content, flag, publish_date, is_website Dim big5_subject, big5_content Dim en_subject, en_content subject = Trim(Request("subject")) catalog_id = Request("catalog_id") publish_date = Request("publish_date") content = RTrim(Request("content")) flag = Request("flag") If subject = "" Then goBack("标题不能为空，请重新输入！") End If If strLength(subject) > 200 Then goBack("标题不能超过100个汉字，请重新输入！") End If If strLength(publish_date) > 50 Then goBack("发布时间不能超过25个汉字，请重新输入！") End If If content = "" Then goBack("新闻内容不能为空，请重新输入！") End If If strLength(big5_subject) > 200 Then goBack("标题（繁体）不能超过100个汉字，请重新输入！") End If If strLength(en_subject) > 200 Then goBack("标题（英文）不能超过200个字符，请重新输入！") End If If (Not isNumeric(catalog_id)) Or catalog_id = "" Then goBack("请选择新闻类别！") End If catalog_id = CLng(catalog_id) If catalog_id < 1 Or catalog_id > max_news Then goBack("请选择新闻类别！") End If If flag <> "1" Then flag = 0 End If flag = CLng(flag) sql = "select id from news where subject = '" & replaceSQLString(subject) & "' and catalog_id = " & catalog_id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 If Not (rs.BOF And rs.EOF) Then goBack("该标题已存在，请使用其它标题！") End If sql = "insert into news (catalog_id, subject, publish_date, content, creation_time, updated_time, flag) values (" &_ catalog_id & ", '" & replaceSQLString(subject) & "', '" & replaceSQLString(publish_date) & "', '" & replaceSQLString(content) & "', '" &_ Now() & "', '" & Now() & "', " & flag & ")" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 2, 1 create_admin_operate_log "添加新闻", subject Set rs = Nothing list_news() End Function Function modify_news Dim id id = Request("id") If Not isNumeric(id) Then goBack("输入错误！") End If id = CLng(id) sql = "select * from news 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("内容管理 > 新闻管理 > 修改新闻")%>

">

新闻信息  标题: " size="60">  新闻类别: <% For i = 1 To max_news If arr_news(i) <> "" Then If rs("catalog_id") = i Then %> <%=formatHtmlTextarea(arr_news(i))%> <% Else %> <%=formatHtmlTextarea(arr_news(i))%> <% End If End If Next %>  发布时间: ">  新闻内容: <% 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 subject = Trim(Request("subject")) catalog_id = Request("catalog_id") publish_date = Trim(Request("publish_date")) content = RTrim(Request("content")) flag = Request("flag") If subject = "" Then goBack("标题不能为空，请重新输入！") End If If strLength(subject) > 200 Then goBack("标题不能超过100个汉字，请重新输入！") End If If strLength(publish_date) > 50 Then goBack("发布时间不能超过25个汉字，请重新输入！") End If If content = "" Then goBack("新闻内容不能为空，请重新输入！") End If If (Not isNumeric(catalog_id)) Or catalog_id = "" Then goBack("请选择新闻类别！") End If catalog_id = CLng(catalog_id) If catalog_id < 1 Or catalog_id > max_news Then goBack("请选择新闻类别！") End If If flag <> "1" Then flag = 0 End If flag = CLng(flag) sql = "select id, subject from news 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 news " &_ "set subject = '" & replaceSQLString(subject) & "', " &_ "catalog_id = " & catalog_id & ", " &_ "publish_date = '" & replaceSQLString(publish_date) & "', " &_ "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 Function delete_news Dim id, old_subject id = Request("id") If Not isNumeric(id) Then goBack("删除失败，输入错误！") End If id = CLng(id) sql = "select id, subject from news 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 = "delete from news 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 %>