<% If Request("Add")="OK" Then NTitle = DelStr(Request("NTitle")) NAuthor = DelStr(Request("NAuthor")) NSource = DelStr(Request("NSource")) ClassID = DelStr(Request("ClassID")) NContent = Request("NContent") show = Request("show") '获取排序 set rsa=server.createobject("adodb.recordset") rsa.open"select top 1 * from Netsys_News_Cn order by NOrder desc",conn,1,1 if not rsa.eof then NOrder=rsa("NOrder")+1 else NOrder=1 end if rsa.close set rsa=nothing NViews = Request("NViews") NHome = Request("NHome") Set Rsa=server.createobject("ADODB.RecordSet") Sqla="Select * From Netsys_News_Cn" Rsa.open Sqla,conn,1,3 Rsa.addnew Rsa("NTitle") = NTitle Rsa("NAuthor") = NAuthor Rsa("NSource") = NSource Rsa("ClassID") = ClassID Rsa("NContent") = NContent Rsa("NOrder") = NOrder Rsa("NViews") = NViews if show=1 then Rsa("show") = true else Rsa("show") = false end if If NHome=1 Then Rsa("NHome") = 1 Else Rsa("NHome") = 0 End If Rsa.update Rsa.Close Set Rsa=nothing Response.Write "" End If %>

当前位置 >> 日记管理 | 发布日记

标题： * 作者： 来源： 类型： 请选择类型 <% Set Rst=server.createobject("adodb.recordset") Rst.open "Select * From Netsys_News_Class_Cn Order By ClassOrder Asc",Conn,1,1 If Not Rst.eof and Not Rst.bof Then Do While Not Rst.eof %> "><%=Rst("ClassName")%> <% Rst.movenext Loop End If Rst.Close Set Rst=nothing %> * 详细： <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "../HtmlEdit/FCKeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "380px" oFCKeditor.Value = "" oFCKeditor.Create "NContent" %> 点击率： * 特殊标记： 首页推荐 特殊标记： 对外显示