<%wjm = request("wjm") cz = request("cz") dz = request("dz") id = request("id") cx = request("cx") jj = request("jj") zd = request("zd") zid = request("zid") idz = request("idz") lx = request("lx") Dim fso if id<>"" and cz="sc" then id = split(id,",") for i = 0 to ubound(id) if id(i) <> "" then fid = " where id=" & id(i) exec="delete from yrwl_tb_lt " & fid conn.execute exec exec="delete from yrwl_tb_lt where zid='"+id(i)+"'" conn.execute exec end if next conn.close response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if if id<>"" and cz="yt" then fid = " where id in (" + plid(id) + ")" exec="update yrwl_tb_lt set lb='"+lx+"' " + fid conn.execute exec conn.close response.redirect "bbs_admin.asp?zid="+zid+"&page="+cstr(page)&"&cz="&cz end if if cz = "fsc" and id <> "" then if wjm <> "" and instr(wjm,"FJ")>0 then Set fso = CreateObject("Scripting.FileSystemObject") path = Server.mappath(wjm) if fso.fileExists(path) then fso.DeleteFile path end if exec="delete from yrwl_tb_lt where id=" & id conn.execute exec exec="delete from yrwl_tb_lt where zid='"+id+"'" conn.execute exec response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if if cz = "fjsc" and id<>"" then exec = "update yrwl_tb_lt set fj='',dx='' where id = " & id conn.execute exec conn.close if instr(wjm,"FJ") > 0 then Set fso = CreateObject("Scripting.FileSystemObject") path = Server.mappath(wjm) if fso.fileExists(path) then fso.DeleteFile path end if response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if if id <> "" and cz="sp" then fid = " where id in (" + plid(id) + ")" exec = "update yrwl_tb_lt set sp='1' "&fid conn.execute exec conn.close response.redirect "bbs_admin.asp?zid="+zid+"&page="+cstr(page)&"&cz="&cz end if if cz = "zd" and id<>"" then fid = " where id in (" + plid(id) + ")" exec = "update yrwl_tb_lt set zd='" & zd & "' "&fid conn.execute exec conn.close response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if if cz = "tw" and id<>"" then fid = " where id in (" + plid(id) + ")" exec = "update yrwl_tb_lt set istuwen='" & zd & "' "&fid conn.execute exec conn.close response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if if cz = "jj" and id<>"" then fid = " where id in (" + plid(id) + ")" exec = "update yrwl_tb_lt set jj=" & zd & " "&fid response.write exec conn.execute exec conn.close response.redirect "bbs_admin.asp?zid="&zid&"&page="&cstr(page)&"&cz="&cz end if%> <%if instr(jb,"z") > 0 and zid = "" then jb = replace(jb,"z","") lbsql = " and lb = '" & jb & "'" end if if zid <> "" and zid <>"00" then if instr(zid,"-")>0 then lbsql = " and ( lb='" & zid & "')" else lbsql = " and ( lb like '" & zid & "-%' or lb='" & zid & "')" end if end if if dz = "dxtw" then lbsql = " and (fj like '%.jpg' or fj like '%.png' or fj like '%.gif') and istuwen <> '1'" if zid = "00" then lbsql = " and (lb='' or lb is null)" if cx <> "" then lbsql = lbsql & " and zt like '%"&cx&"%' or ly like '%"&cx&"%'" if dz = "xt" then lbsql = " and left(sj,8)='"&left(jdsj,8)&"'" if dz = "yhm" then lbsql = " and yhm='"&yhm&"'" if dz = "ts" then lbsql = " and (zd<'5' or jj=1)" if dz = "tj" then lbsql = " and jj>0" if dz = "zd0" then lbsql = " and zd='0'" if dz = "zd1" then lbsql = " and zd='1'" if dz = "tw" then lbsql = " and istuwen='1'" if jb <= "1" then lbsql = " and yhm='" & yhm & "'" if jb <> "admin" and jb>"1" then lbsql = " and lb='" & jb & "'" page_size = 12 page = Request("page") if page = "" then page = "1" page =int(page) zgs = page_size*(page-1)+1 set rs=server.createobject("adodb.recordset") exec = "select * from yrwl_tb_lt where zid='s' " & lbsql + " order by id desc" rs.open exec,conn,3,1 rs.PageSize =12 zgs = rs.recordcount If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount if not rs.eof then rs.AbsolutePage =page zys = rs.PageCount For i = 1 To rs.PageSize If rs.EOF Then Exit For zt=rs("zt") zt = trim(zt) wjm = rs("fj") dx = rs("dx") if not isnull(zt) then zt = replace(zt,"
"," ") yhm = rs("yhm") id = rs("id") sslx = rs("lb") zd = rs("zd") jj = rs("jj") istuwen = rs("istuwen") furl = rs("furl") furl = "bbsview.asp?id="&rs("id") hf = rs("hf") ip = rs("ip")%> <%rs.movenext next rs.close%>

标题	IP	状态	处理
" target="_blank" href="<%=furl%>"><%=zt%> 编辑	<%=ip%>	<%select case zd case "0" response.write "系统顶 " case "1" response.write "栏目顶 " case "5" response.write "普通 " end select select case jj case "1" response.write "推荐 " end select if istuwen="1" then response.write "图文 "%>	<%if hf > 0 then%>子贴 <%end if%> <%if hf <= 0 then%> 删贴 <%end if%> <%if dx <> "" then%> 删附件 <%end if%>

<%call num_page(page,zys,"?dz="&dz&"&sp="&sp&"&cz="&cz&"&zid="&zid&"&cx="&cx)%>

查询全选 <%if zid<>"" then%> 返回话题分类 <%end if%>
<%if jb = "admin" then%> 系统置顶置顶取消置顶推荐取消推荐首页图文取消图文审批删除批量移贴 <%end if%>
注：首页图文 - 首页幻灯贴，注意为贴内容不许有过多html格式代码，否则显示出错；

<%call close_conn()%>