<% Manage=True %> <% nrtable=request("table-data") fltable=request("table-class") bigname=request("bigname") smallname=request("smallname") action=request("action") eid=request("eid") If request("cat")<>"" And IsNumeric(request("cat")) And request("dhid")<>"" And IsNumeric(request("dhid")) Then dhid=Int(request("dhid")) cat=Int(request("cat")) Else response.write "
请选择左侧栏目
" response.end End If filterKeys=",pageno,action," backUrl=GetBackUrl(",pageno,action,id,keyword,") If action="Add" Then Call Add() ElseIf action="SaveAdd" Then Call SaveAdd() ElseIf action="Modify" Then Call Modify() ElseIf action="SaveModify" Then Call SaveModify() ElseIf action="delete" Then Call Delete() ElseIf action="Att" Then Call Att() Else Call main() End If Sub main() %> 文章管理
 [<%=bigname%>-<%=smallname%>]列表管理 
">
 本分类下筛选：ID " class="txt" size="10">  关键字 " class="txt"> 属性
<% Set oRs=Server.CreateObject("ADODB.RecordSet") sql_add = "" If request("id") <> "" Then sql_add = " And Id " & request("releate") & Int(request("Id")) End If If request("flag") <> "无" And request("flag") <> "" Then sql_add = sql_add & " And biaozhu ='" & request("flag") &"'" End If If request("keyword") <> "" Then sql_add = sql_add & " And (title_a like '%" & request("keyword") &"%' or content like '%" & request("keyword") &"%') " If InStr(request("keyword"),"title:")>0 Then sql_add =sql_add & " And (title_a like '%" & Replace(request("keyword"),"title:","") &"%' ) " End If End If top = 100 If sql_add<>"" Then top = 500 sql="select top "&top&" * from "&nrtable&" where cid="&cat&" "&sql_add&" order by px desc,id desc " oRs.Open sql,conn,1,1 'PageBar="No Data!" IntRows=20 If Not oRs.eof Then Call page_setup(oRs,IntRows) PageBar=PageToHtml(backUrl&"&id="&request("Id")&"&keyword="&request("keyword")) Do While Not oRs.eof And IntRows>0 If oRs("img")<>"" Then smallImg=oRs("img") If LCase(Left(oRs("img"),4))<>"http" And LCase(Left(oRs("img"),1))="u" Then smallImg="/"&smallImg End If ImgTag="" Else ImgTag="" End If %> <% IntRows=IntRows-1 oRs.moveNext Loop End If %>
ID  标题 图片 首页 固定 置顶 推荐 热门 推广 专题 轮换 上传时间 上传者 管理
" /> " dhid="<%=request("dhid")%>" itemId="<%=oRs("id")%>"><%=oRs("id")%> <%=ImgBrowse%><% If oRs("html_url")<>"" Then response.Write ""&left(oRs("title_a"),24)&"" Else response.Write(left(oRs("title_a"),24)) End If If oRs("biaozhu")<>"" And oRs("biaozhu")<>"无" Then response.Write " ["&oRs("biaozhu")&"]" End If If Int(oRs("px"))>0 Then response.write "("&oRs("px")&")" End If %> <%=ImgTag%> <%=GetBoolean(oRs("sy"),"sy",oRs("id"))%> <%=GetBoolean(oRs("gd"),"gd",oRs("id"))%> <%=GetBoolean(oRs("zd"),"zd",oRs("id"))%> <%=GetBoolean(oRs("tj"),"tj",oRs("id"))%> <%=GetBoolean(oRs("rm"),"rm",oRs("id"))%> <%=GetBoolean(oRs("tg"),"tg",oRs("id"))%> <%=GetBoolean(oRs("zt"),"zt",oRs("id"))%> <%=GetBoolean(oRs("lh"),"lh",oRs("id"))%> <%=FormatDateTime(oRs("times"),2)%> <%=oRs("adminuser")%> [&<%=backUrl%>">编辑]
目标分类: ">
<%If PageBar<>"" And PageBar<>"" then%> <%=PageBar%> <%End If %> <%End Sub Sub Add() %> 文章管理
[返回列表][<%=bigname%>-<%=smallname%>] 信息添加
选择栏目：  选择分类：
文章完整标题：
文章简短标题：
网页标题描术： (30个文字以内，并体现关键字为最佳效果-页面不体现)
关键字： (三个关键字为最佳效果，多设置无意-页面不体现)
网页内容描术： (配合网页标题，关键字写网页内容描术-页面不体现)
超链接： 排  序： 访问次数
来  源： 上传者： " size="10">
  首页:|固定:|置顶:|推荐:|热门:|推广:|专题:|轮换:|审核: |右侧推广:
新闻概要： <%echo Fck_Instance("../Class/FCKeditor/","Basic","100","","xwgy")%>
内容： <%echo Fck_Instance("../Class/FCKeditor/","Default","500","","content")%>
显示图片：
小图片：  
上传时间：
 
<% End Sub rem : 修改信息 Sub Modify() set rs=server.createobject("adodb.recordset") sql="select * from "&nrtable&" where id="&eid&"" rs.open sql,conn,1,1 %> 文章管理
">[返回列表] [<%=bigname%>-<%=smallname%>] 信息编辑
选择栏目:   选择分类:
文章完整标题： " size="50">
文章简短标题： " size="30">
网页标题描术： " size="30"> (30个文字以内，并体现关键字为最佳效果-页面不体现)
关键字： " size="30"> (三个关键字为最佳效果，多设置无意-页面不体现)
网页内容描术： " size="50"> (配合网页标题，关键字写网页内容描术-页面不体现)
超链接： " size="30"> 排  序： " size="10"> 访问次数 " size="10">
来  源： " size="30"> 上传者： " readonly size="10">
  首页:checked<%end if%>>|固定:checked<%end if%>>|置顶:checked<%end if%>>|推荐:checked<%end if%>>|热门:checked<%end if%>>|推广:checked<%end if%>>|专题:checked<%end if%>>|轮换:checked<%end if%>>
新闻概要: <%echo Fck_Instance("../Class/FCKeditor/","Basic","100",rs("xwgy"),"xwgy")%>
新闻内容: <%echo Fck_Instance("../Class/FCKeditor/","Default","500",rs("content"),"content")%>
显示图片: "无图片" then response.Write("|"&rs("c_img")&"")%>">">
小图片: " size="35" maxlength="50"> <%If rs("img")<>"" then%> <%End If %>
上传时间: " size="20">
 
<% End Sub %>