📄 admin-gl2.asp
字号:
<!--#include file="conn.asp"--><!--#include file="fun.asp"--><!--#include file="md5.asp"-->
<%
Server.ScriptTimeout="99999"
set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbi=tli(9)
lmbbs=tli(10)
if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
atb=split(alltb,"|")
tnum=ubound(atb)
set bbs=nothing
lgname=check2(Request.Cookies(cn&"0")("lgname"))
lgpwd=check2(request.cookies(cn&"0")("lgpwd"))
lgpwd=md5(lgpwd)
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
set cjbz=nothing
response.redirect"admin-login.asp"
end if
t1="<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' align=center><tr><td background='pic/"&sp&"3.gif' height=30 bgcolor="&c2&"> <p style='margin:5px'><img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></p></td></tr></table><table align=center border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 8px;line-height: 150%'>"
d2="</td></tr></table>"
menu=request.querystring("menu")
%>
<link rel="stylesheet" type="text/css" href="css.css">
<body topmargin="0" leftmargin="0"><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=<%=c1%>>
<tr>
<td width="100%" height="28" background="pic/<%=sp%>3.gif" align="center">
<b><font color="#FFFFFF">论坛后台管理系统</font></b></td>
</tr>
</table><br>
<%select case menu%><%
case"uploadfile"%>
<script>function openwin(bbsid,table){var Win = window.open('showgg.asp?menu=upload&bbsid='+bbsid+'&totable='+table+'','open','width=600,height=500,resizable=1,scrollbars=yes,menubar=no,status=yes')}</script>
<%
on error resume next
epagenum=15
page=request.querystring("page")
if page="" then
page=1
end if
page=int(page)
dim filetype,bbsid,table
function fname(finame)
fn=split(finame,".")
filetype=fn(1)
name=fn(0)
namen=split(name,"-")
bbsid=namen(0)
table=namen(1)
if table="" then table=1
end function
%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=c1%>" width="94%" height="25" background="pic/<%=sp%>3.gif">
<tr>
<td align="center" width="30%"><b><font color="#FFFFFF">文件类型、名称：</font></b></td>
<td align="center" width="10%"><b><font color="#FFFFFF">大小：</font></b></td>
<td align="center" width="20%"><b><font color="#FFFFFF">最后访问：</font></b></td>
<td align="center" width="20%"><b><font color="#FFFFFF">上传时间：</font></b></td>
<td align="center" width="20%"><b><font color="#FFFFFF">操作：</font></b></td>
</tr>
</table>
</center>
</div>
<div align=center>
<center>
<table border=1 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor=<%=c1%> width=94% height=28>
<%
set fso1 = server.createobject("scripting.filesystemobject")
delfile=request.querystring("delfile")
if delfile<>"" then
if fso1.fileExists(Server.MapPath("upload/"&delfile&"")) then fso1.DeleteFile(Server.MapPath("upload/"&delfile&""))
end if
set folder=fso1.Getfolder(server.MapPath("upload/"))
set files=folder.files
filenum=files.count
if filenum/epagenum>(filenum\epagenum) then
allpage=(filenum\epagenum)+1
else
allpage=filenum\epagenum
end if
i1=0
for Each Upname In files
i1=i1+1
if i1>(page-1)*epagenum and i1<=page*epagenum then
filename=upname.name
fname(filename)
response.write "<tr><td width=30% height=24> <a href=upload/"&filename&" target=_blank><img align=absmiddle border=0 src='pic/"&filetype&".gif'> "&filename&"</a></td><td width=10% > "& upname.size &" B </td><td width=20% > "& upname.datelastaccessed &"</td><td width=20% > "& upname.datecreated &"</td><td width=20% > <a href='?menu=uploadfile&page="&page&"&delfile="&filename&"'>删除</a> | <a href=javascript:openwin("&bbsid&","&table&")>浏览帖子</a></td></tr>"
elseif i1>page*epagenum then
exit for
end if
next
set folder=nothing
set files=nothing
set fso1 = nothing
%>
<tr><td width="100%" colspan="5" background="pic/<%=sp%>3.gif" height="28"> <img border="0" src="pic/fl.gif">
<b><font color="#FFFFFf">共有<font color="#00FFFF"> <%=allpage%> </font>页，<font color="#00FFFF"><%=filenum%>
</font>个上传文件，每页<font color="#00FFFF"> <%=epagenum%> </font>个。</font><font color="#FFFFFF"> [
<%
ii=page-5
iii=page+5
if ii < 1 then
ii=1
end if
if iii > allpage then
iii=allpage
end if
if page > 6 then
Response.Write "<a href=?menu=uploadfile&page=1><font color=yellow>1</font></a> ... "
end if
for i=ii to iii
If i<>page then
Response.Write "<a href=?menu=uploadfile&page="& i &"><font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red><b>"&i&"</b></font> "
end if
next
if allpage > page+5 then
Response.Write " ... <a href=?menu=uploadfile&page="&allpage&"><font color=yellow>"&allpage&"</font></a>"
end if
%> ] </font></b>
</td></tr>
</table></center>
</div>
<%end select%><br><table onclick=javascript:window.open('http://www.6kbbs.net/') width=* border=0 style='border-collapse: collapse;CURSOR: hand;' cellspacing=0 align=center><tr><td align=center><p style='margin:5px;line-height:150%'><font color=<%=c2%>>欢迎您使用 6Kbbs 论坛系统 ...<br>官方支持站点：http;//www.6kbbs.net/ </font> </p></td></tr></table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -