📄 admin_upfileinfo.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
.view{ font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none}-->
</style>
</head>
<body>
<div id="topmomo">
<a href="admin_upfileinfo.asp?info=list&cndb=all">所有附件</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=gongg">公告附件</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=bookface">长篇封面</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=bookview">章节附件</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=articleview">文章附件</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=userface">会员头像</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=authorface">作家照片</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=articleface">访谈图片</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=nolink">未使用文件</a> |
<a href="admin_upfileinfo.asp?info=list&cndb=nofile">已丢失文件</a>
</div>
<br>
<%
Select Case request.querystring("info")
Case "down"
Call down()
Case "list"
Call list()
Case "edit"
Call edit()
end select
Sub list()
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
cndb=request.querystring("cndb")
set rs=server.createobject("adodb.recordset")
if cndb="all" then
sql="select * from [filetest] order by id desc"
elseif cndb="gongg" then
sql="select * from [filetest] where fileurl_class=0 order by id desc"
elseif cndb="bookface" then
sql="select * from [filetest] where fileurl_class=3 order by id desc"
elseif cndb="bookview" then
sql="select * from [filetest] where fileurl_class=1 order by id desc"
elseif cndb="articleview" then
sql="select * from [filetest] where fileurl_class=2 order by id desc"
elseif cndb="userface" then
sql="select * from [filetest] where fileurl_class=5 order by id desc"
elseif cndb="authorface" then
sql="select * from [filetest] where fileurl_class=6 order by id desc"
elseif cndb="articleface" then
sql="select * from [filetest] where fileurl_class=4 order by id desc"
elseif cndb="nofile" then
sql="select * from [filetest] where fileurl_nofile=1 order by id desc"
elseif cndb="nolink" then
sql="select * from [filetest] where fileurl_fileID=0 order by id desc"
end if
rs.open sql,conn,1,1
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="30" colspan="9"><b>
<%if cndb="all" then
Response.Write "查看所有附件"
elseif cndb="gongg" then
Response.Write "查看公告附件"
elseif cndb="bookface" then
Response.Write "查看长篇作品封面附件"
elseif cndb="bookview" then
Response.Write "查看长篇作品章节附件"
elseif cndb="articleview" then
Response.Write "查看短篇作品文章附件"
elseif cndb="userface" then
Response.Write "查看会员头像附件"
elseif cndb="authorface" then
Response.Write "查看作家照片附件"
elseif cndb="articleface" then
Response.Write "查看作家访谈图片"
elseif cndb="nofile" then
Response.Write "查看丢失实际文件的附件"
elseif cndb="nolink" then
Response.Write "查看未使用的上传附件"
end if%></b></td>
</tr>
<form name="form" onsubmit="javascript:return JsIceb();" target="JsIceb" action="admin_upfiles.asp?info=list&cndb=<%=cndb%>&page=<%=CurrentPage%>">
<tr align="center" height="30">
<td class="tcat" width="5%"></td>
<td class="tcat" width="16%">附件名</td>
<td class="tcat" width="21%">文件名</td>
<td class="tcat" width="20%">上传者</td>
<td class="tcat" width="25%">位置 | 使用</td>
<td class="tcat" width="8%">尺寸</td>
<td class="tcat" width="5%">类型</td>
</tr>
<%if rs.eof and rs.bof then
Response.Write "<tr align=center><td colspan=7 height=22 class=alt1><span class=style1>暂无任何附件</span></td></tr>"
else
Rs.PageSize=MaxPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
%>
<tr height="30" align="center">
<td class="alt2" width="5%">
<input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
<td class="alt2" align="left" width="16%" style=" WORD-WRAP: break-word">
<%arrfileurl_info=Split(rs("fileurl_info"),"/")
Response.Write arrfileurl_info(UBound(arrfileurl_info))
arrfileurl_info=""%></td>
<td class="alt2" align="left" width="21%"><%file1=server.mappath( rs("fileurl_path")&rs("fileurl_name") )
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(file1) = True Then
Response.Write "<a class=view target=_blank href=../attachment.asp?id="&rs("id")&"><span class=view>[下载该附件]</span></a><br>"
else
Response.Write "<b>附件文件缺失!</b><br>"
set fso=nothing
end if%>
<a href=<%=rs("fileurl_path")&rs("fileurl_name")%> target=_blank><%= rs("fileurl_name") %></a></td>
<td class="alt2" width="20%"><%= rs("fileurl_user")%></td>
<td class="alt2" width="25%"><%if rs("fileurl_class")=0 then
Response.Write "公告附件"
elseif rs("fileurl_class")=3 then
Response.Write "作品封面附件"
elseif rs("fileurl_class")=1 then
Response.Write "作品章节附件"
elseif rs("fileurl_class")=2 then
Response.Write "短篇文章附件"
elseif rs("fileurl_class")=5 then
Response.Write "会员头像附件"
elseif rs("fileurl_class")=6 then
Response.Write "作家照片附件"
elseif rs("fileurl_class")=4 then
Response.Write "作家访谈图片"
end if%> | <%if rs("fileurl_fileID")=0 then
Response.Write "未使用"
else
Response.Write "使用中"
end if
%> </td>
<td class="alt2" width="8%"><%= rs("fileurl_size") %>K</td>
<td class="alt2" width="5%"><%= rs("fileurl_Types")%></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr>
<td height="20" align="center" colspan="7" class="alt3">
<input name="info" type="hidden" value="list">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing
%> <tr align="center">
<form name="formpage" action>
<td height="25" colspan="7" class="alt2"><%Response.Write ShowPage("admin_upfileinfo.asp?info=list&cndb="&cndb&"",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</form>
</tr>
</table>
<%end sub
sub down()
end sub%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -