⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_upfileinfo.asp

📁 小说站源代码文件
💻 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()

If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
cndb=request.querystring("cndb")

set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	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
else
	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
end if
'MySQL需要如下语句
conn.CursorLocation=3
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 cnendb();" target="cnendb" 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=MaxFujianPerPage
   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>=MaxFujianPerPage 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,MaxFujianPerPage,True,True," 个项目")%></td>
		</form>
	</tr>
</table>
<%end sub
sub down()
end sub%>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -