<%cz=request("cz")
id=request("id")
zid=request("zid")
ztid=request("ztid")
if id<>"" and cz="sc" then
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
exec="delete from yrwl_tb_lt where id="+id
conn.execute exec
response.redirect("bbs_admin_hf.asp?zid="+zid+"&ztid="+ztid+"&page="+cstr(page))
end if
if id<>"" and cz="psc" then
fid = " where id in (" + left(id,len(id)-1) + ")"
exec="delete from yrwl_tb_lt " + fid
conn.execute exec
conn.close
response.redirect "bbs_admin_hf.asp?ztid="+ztid+"&zid="+zid+"&page="+cstr(page)
end if%>
序号
回复内容
时间
IP
<%page = Request("page")
if page="" then page = "1"
page =int(page)
page_size = 12
set rs=server.createobject("adodb.recordset")
if ztid <> "" then sqltj = " and zid='"+ztid+"'"
if jb <> "admin" then sqltj = " and yhm='"+ session(sessionvalue&"yhm")+"'"
exec = "select * from yrwl_tb_lt where zid<>'s' "+sqltj+" order by id desc"
rs.open exec,conn,3,1
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
fy = rs.PageCount
For i = 1 To rs.PageSize
If rs.EOF Then Exit For
zzxs=rs("yhm")
ly = rs("ly")
ip = rs("ip")
if isnull(ly) then ly = ""
ly = replace(ly,"
","")
ly = replace(ly,"
","")
ly = replace(ly,"<","<")
ly = replace(ly,">",">")
id = rs("id")
sj = rs("sj")
dx = rs("fj")
if isnull(dx) then dx = ""
''if len(ly) > 45 then ly = left(ly,45)%>