📄 attachment.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
if request("mode") = "del" then
StrSql = "select filename from sf_attachment where attachmentid = "& chksql(request("id"))
Set rs2 = Conn.Execute(StrSql)
if rs2.bof or rs2.eof then
err = true
else
filename = rs2("filename")
StrSql = "update sf_post set attachmentid = 0 where attachmentid = " & chksql(request("id"))
Conn.Execute(StrSql)
'需要FSO支持
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set uploadFolder=objFSO.GetFolder(Server.MapPath("../upload"))
Set uploadFiles=uploadFolder.Files
upfilename = "../upload/"& filename &""
if objFSO.fileExists(Server.MapPath(upfilename)) then objFSO.DeleteFile(Server.MapPath(upfilename))
'''''
Conn.Execute("delete from sf_attachment where attachmentid = "& chksql(request("id")) &"")
end if
rs2.close
%>
<% if err then %>
<table width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td bgcolor="#D1E3BF">错误:<br>该文件不存在</td>
</tr>
</table>
<% else %>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" align="center">已经删除该文件</TD>
</TR>
</TABLE>
<%
end if
else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR bgcolor="#D1E3BF" align="center">
<TD colspan="5"><B>上传文件管理</B></TD>
</TR>
<TR bgcolor="#DDDDDD" align="center">
<TD>附件 (<a href="attachment.asp?mode=showimg"><b>显示</b></a> <a href="attachment.asp"><b>关闭</b></a>)</TD><td>所在论坛</td><td>所在帖子</td><td>上传人</td><TD>操作</TD>
</TR>
<%
page = request("page")
if page = "" then
page = 1
else
if not IsNumeric(page) then
page = 1
else
page = clng(page)
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
StrSql = "select sf_attachment.*, sf_user.username from sf_attachment left join sf_user on ( sf_attachment.userid = sf_user.userid )"
rs.Open strsql, Conn, 1, 1
if not(rs.bof or rs.eof) then
i = 0
rs.PageSize = 30
if page > rs.PageCount then page = rs.PageCount
rs.AbsolutePage = page
pagecount = rs.PageCount
do until rs.eof or i > rs.PageSize
if (i mod 2) = 0 then
response.write "<TR bgcolor=""#FFFFFF"">"
else
response.write "<TR bgcolor=""#F5F5F5"">"
end if
''''''''''
Set rs3 = Conn.execute("select top 1 display, fileicon from sf_allowuploadfile where expfilename = '" & GetExpFilename(rs("filename")) & "'")
if rs3.bof or rs3.eof then
response.write "<TD width=""35%""><img src=""../image/fileicon/default.gif"" border=0> <a href=""../upload/" & rs("filename") & """ target=_blank>" & rs("filename") & "</a> (" & rs("filesize") & "bytes)</TD>"
else
if rs3("display") =1 and request("mode") = "showimg" then
response.write "<TD width=""35%""><img src=""../image/fileicon/" & rs3("fileicon") & """ border=0> <a href=""../upload/" & rs("filename") & """ target=_blank title=""" & rs("filename") & " (" & rs("filesize") & "bytes)""><img src=""../upload/" & rs("filename") & """ border=0 width=100 height=120></a></TD>"
else
response.write "<TD width=""35%""><img src=""../image/fileicon/" & rs3("fileicon") & """ border=0> <a href=""../upload/" & rs("filename") & """ target=_blank>" & rs("filename") & "</a> (" & rs("filesize") & "bytes)</TD>"
end if
end if
''''''''''
Set rs3 = Conn.Execute("select title from sf_forum where forumid = " & rs("forumid") &"")
if not rs3.bof and not rs3.eof then
response.write "<TD width=""15%""><A href=""../showforum.asp?forumid=" & rs("forumid") & """ target=_blank>"& rs3("title") &"</A></TD>"
end if
Set rs3 = Conn.Execute("select title from sf_thread where threadid = " & rs("threadid") &"")
if not rs3.bof and not rs3.eof then
response.write "<TD width=""30%""><A href=""../showthread.asp?threadid=" & rs("threadid") & """ target=_blank>"& rs3("title") &"</A></TD>"
else
response.write "<TD width=""30%""><font color=""#FF0000"">帖子已删除</font></TD>"
end if
response.write "<TD width=""10%""><A href=""../showuser.asp?userid=" & rs("userid") & """ target=_blank>"& rs("username") &"</A></TD>"
response.write "<TD width=""10%""><A href=""attachment.asp?mode=del&id=" & rs("attachmentid") & """>删除</A></TD></TR>"
i = i + 1
rs.MoveNext
loop
response.write "<TR bgcolor=""DDDDDD"" align=""right""><TD colspan=""5""><span class=""smalltxt"">"
Set Conn = nothing
Set rs = nothing
beginpage = 1
endpage = pagecount
if pagecount >= 9 then
if page >= 5 then
beginpage = page - 4
if page <= (pagecount - 4) then
endpage = page + 4
else
endpage = pagecount
beginpage = pagecount - 4
end if
else
beginpage=1
endpage=9
end if
end if
response.write " <a href=""attachment.asp?page=1""><<</a>"
for i=beginpage to endpage
if i = page then
response.write " <b>[" & i & "]</b> "
else
response.write "<a href=""attachment.asp?page=" & i & """> [" & i & "] </a>"
end if
next
response.write "... <a href=""attachment.asp?page=" & pagecount & """> ["&pagecount&"] >></a>"
response.write "</span></TD></tr>"
else
response.write "<TR bgcolor=""#FFFFFF""><TD colspan=""5"">当前无任何文件</TD></TR>"
end if
%>
</TABLE>
<%
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -