添加新闻

<% Call ChkLogin(session("WebAdminsUserName")) Call ConnectionDataBase(2) id=0 SortID=1 Act = Request.QueryString("Act") IF Act = "Edit" Then id = Request.QueryString("id") Call ChkIsNumber(id,"参数类型错误!") Sql = "SELECT TOP 1 * FROM T_ggnews WHERE ID=" & id SetRs Rs,Sql,conn,1,1 IF Not Rs.EOF Then NewsTitle = Rs("NewsTitle") SortID = Rs("SortID") Content = Rs("Content") End IF End IF %>

标题： |
排序： |
详细内容： | <% 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取得，命名由你定 %>