<%wjm = request("wjm")
cz = request("cz")
id = request("id")
cx = request("cx")
jj = request("jj")
zd = request("zd")
page = Request("page")
if page = "" then page = "1"
page = int(page)
zid = request("zid")
idz = request("idz")
lx = request("lx")
Dim fso
if wjm<>"" 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 = "update yrwl_tb_lt set fj='',dx='' where id = " & id
conn.execute exec
conn.close
response.redirect "bbs_fj.asp"
end if%>
| 编号 |
附件 |
处理 |
<%set rs = server.createobject("adodb.recordset")
page_size = 30
exec = "select count(*) from yrwl_tb_lt where fj is not null"
rs.open exec,conn,3,1
zys = rs(0)\page_size+1
rs.close
exec="select * from yrwl_tb_lt where fj like '%FJ/%' 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
i = i + 1
wjm = rs("fj")
dx = rs("dx")
id = rs("id")
wjm = LCase(wjm)%>
| <%=rs.pagesize*(page-1)+cstr(i)%> |
<%if instr(" jpggifpngbmp",right(wjm,3))>0 then
xwjm = split(wjm,";")
for j = 0 to ubound(xwjm)
response.write "![]("+xwjm(j)+") "
next
end if%>
<%=wjm%> |
删附件
|
<%rs.movenext
next%>
<%call num_page(page,zys,"?")%>
<%rs.close
call close_conn()%>