<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If request.Form("submit") = "确认添加" Then If request.Form("mj_article_name") = "" Then Call infoback("文章名称不能为空！") End If If request.Form("mj_article_content") = "" Then Call infoback("详细介绍不能为空！") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article" rs.Open sql, conn, 1, 3 rs.addnew rs("mj_article_name") = request.Form("mj_article_name") rs("mj_article_order") = rs("ID")*10 rs("mj_article_sources") = request.Form("mj_article_sources") rs("mj_article_keywords") = request.Form("mj_article_keywords") rs("mj_article_author") = request.Form("mj_article_author") rs("mj_article_category") = request.Form("mj_article_category") rs("mj_article_content") = request.Form("mj_article_content") rs("mj_article_password") = request.Form("mj_article_password") rs("mj_article_modify_date") = now() rs.update Call close_rs Call close_conn Call infohref("文章添加成功！点击确认继续添加！", "mj_article_add.asp") End If %>

添加文章

当前位置：添加文章

在这里，您可以添加新的文章！

添加文章

文章名称：	必填
文章来源：
文章作者：	<% if rsadmin("id")=1 then%>男主人<%else%>女主人<%end if%>
访问密码：	留空则不需要密码直接可访问
所属分类：
关键字：
详细介绍：	<% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "fckeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "300" oFCKeditor.Value = "" oFCKeditor.Create "mj_article_content" %>