📄 admin.asp
字号:
<%
Set conn=Server.CreateObject("ADODB.Connection")
db="upload.mdb"
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&db&"")
'conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath(""&db&"")
set rs=server.createobject("adodb.recordset")
sql="select * from upload"
rs.open sql,conn,1,3
'分页显示处理
rs.pagesize=20
if Request("page") ="" then
Page=1
else
if IsNumeric(Request("page")) then '如果传递过来的是数字
Page = clng(Request("page"))
else
Page=1
end if
end if
if Page=0 then Page=1
'如果大于总页数,则用最大页码代替
if page> rs.PageCount then
page= rs.PageCount
end if
if rs.eof then
response.write("暂无上传文件!")
else
rs.AbsolutePage=Cint(page)
j=1 'j表示本页的记录双量
i=0
r_Count=0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传文件管理系统</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.blackborder {
border: 1px solid #000000;
}
.style2 {color: #000000}
.style3 {
color: #FFFFFF;
font-family: "隶书";
font-size: 18px;
}
INPUT {
BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
body {
background-color: #D6DFF7;
}
.style5 {color: #000000; font-weight: bold; }
-->
</style>
</head>
<body>
<form method="POST" id=form1 action=admin.asp?action=del name=form1>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="blackborder">
<tr bgcolor="#003399"><th height="25" colspan=5 ><span class="style3">上传文件管理</span></th>
</tr>
<tr bgcolor="#FF9933">
<td width="207" height="22" ><div align="center" class="style2"><strong>文件名称</strong></div></td>
<td width="117" height="22" ><div align="center" class="style2"><strong>文件类型</strong></div></td>
<td width="142" height="22"><div align="center" class="style2"><strong>文件大小</strong></div></td>
<td width="185" height="22" ><div align="center" class="style2"><strong>上传日期</strong></div></td>
<td width="91" height="22" align="center"><span class="style5">操作选框</span></td>
</tr>
<%
do until rs.eof or j> rs.PageSize
count=rs.recordcount
' 循环改变单元格的背景颜色
bColor = Not bColor
If bColor Then
strAltColor = "#F7F3F7"
Else
strAltColor = "#E7EFFF"
End If
%>
<tr bgcolor=<%=strAltColor%>>
<td height="25">
<div align="center">
<%
upfile=rs("upfile")
if Lcase(rs("filetype"))="gif" or Lcase(rs("filetype"))="jpg" or Lcase(rs("filetype"))="png" or Lcase(rs("filetype"))="bmp" then
Response.Write"<span onclick=open('img.htm?"&upfile&"','','top=5,left=5,width=10,height=10') hspace='48' vspace='48' style='cursor:hand' title='点击看大图'>"&rs("filename")&"</span>"
else response.write "<a href="&upfile&">"&replace(upfile,"uploadfile/","")&"</a>"
end if
%>
</div>
</td>
<td height="25">
<div align="center">
<%
response.write rs("filetype")&" "
%>
</div>
</td>
<td height="25">
<div align="center">
<%
size=rs("filesize")
if size>1024 then
size=(Size/1024)
showsize=formatnumber(size,2)& " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write showsize
%>
</div>
</td>
<td height="25"><div align="center"><%=rs("date")%></div></td>
<td width="91" height="25" align="center"><input type="checkbox" name="id" value="<%=rs("id")%>" id="Checkbox1"></a></td>
</tr>
<%
j=j+1
i=1-i
r_Count=r_Count+1
rs.movenext
loop
%>
<script language=javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName("id");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<tr bgcolor="#E7EFFF">
<td height="25" colspan=5>
<div align="right">
<input type="checkbox" name="chkall" value="on" onclick="checkall(this)" ID="Checkbox2">全选<input name="submit" type="submit" value="删除所选文件" >
</div>
</td>
</tr>
</table>
</form>
<form name=formn action="">
<TABLE WIDTH=98% BORDER=0 align="center" CELLPADDING=1 CELLSPACING=1 ID="Table1" STYLE="font-size:9pt">
<TR valign="middle" bgcolor="#f7f7f7">
<TD>第<%=Page%> / <%= rs.PageCount%> 页-共有 <%= rs.recordcount%>条 - 每页<%= rs.pagesize%>条 </div></TD>
<td>
<input type="BUTTON" ID="cmdfirstPage" onclick="javascript:goURL('upload_admin.asp',<%=1%>)" value="9" style="font-family:webdings;height:21" Title="第一页" NAME="cmdfirstPage" <% if page=1 then response.Write(" disabled") %>>
<input type="BUTTON" ID="cmdpreviousPage" onclick="javascript:goURL('upload_admin.asp',<%=page-1%>)" value="3" style="font-family:webdings;height:21" Title="前一页" NAME="cmdpreviousPage" <%if page<2 then response.Write(" disabled") %>>
<input type="BUTTON" ID="cmdnextPage" onclick="javascript:goURL('upload_admin.asp',<%=page+1%>)" value="4" style="font-family:webdings;height:21" Title="后一页" NAME="cmdnextPage" <%if page>= rs.pagecount then response.Write(" disabled") %>>
<input type="BUTTON" ID="cmdlastPage" onclick="javascript:goURL('upload_admin.asp',<%= rs.pagecount%>)" value=":" style="font-family:webdings;height:21" Title="最后一页" NAME="cmdlastPage" <% if page>= rs.pagecount then response.Write(" disabled") %>>
<input type="text" name="Page" maxlength="10" size="3" class=box value="<%=Page%>" onblur="javascript:checknum(this.value,this)" onFocus="this.select()">
页<input type="submit" name="Submit" value="GO" >
<a href="up.htm">上传图片</a> <a href="index.asp">播放图片</a></TD>
</TR>
</TABLE>
</form>
<script language="JavaScript" type="text/JavaScript">
function goURL(URL,page)
{
URL=URL + "?page="+page;
//alert(URL);
window.location=URL;
}
</script>
<%
rs.Close
set rs=Nothing
end if
%>
</body>
</html>
<%
If request("action")="del" then
call del()
end if
sub del()
if Request("id")="" then
response.write("对不起，你还没有选择!")
exit sub
end if
For I=1 To Request.Form("ID").Count
ID = Replace(Request.Form("ID")(I),"'","")
ID = CLng(ID)
sql="select * from upload where id=" & id
set rs=server.CreateObject("Adodb.recordset")
rs.open sql,conn,1,1
imgpath=trim(rs("upfile"))
set fso = Server.Createobject("Scripting.FileSystemObject")
path = server.MapPath(imgpath)
fso.DeleteFile(path)
set fso = nothing
conn.execute("delete * from upload where id=" & id)
response.redirect"admin.asp"
next
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -