<% Call ChkLogin(session("WebAdminsUserName")) Dim CateID,Title CateID=Request.QueryString("CateID") Title=Request.QueryString("Title") Call ChkIsNumber(CateID,"参数类型错误!") Call ConnectionDataBase(2) Sql = "SELECT TOP 1 * FROM T_Information Where CateID=" & CateID SetRs Rs,Sql,conn,1,1 IF Not Rs.EOF Then Content = Rs("Content") End IF %>

分类名称： | <%=Title%>
详细内容： | <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "../FCKeditor/" '设置编辑器的路径，我站点根目录下的一个目录 oFCKeditor.ToolbarSet = "Define" oFCKeditor.Width = "98%" oFCKeditor.Height = "300" oFCKeditor.Value = Content '这个是给编辑器初始值 oFCKeditor.Create "Content" '以后编辑器里的内容都是由这个logbody取得，命名由你定 %>