?? cz-upfilelist.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CZ-UPFILEConfig.asp"-->
<%
if session("admin_name")="" then
response.redirect "../login.asp"
response.end
end if
%>
<html>
<head>
<title>up-filelist</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<script src="czUpfile.Js"></script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (up-filelist.psd) -->
<!-- End ImageReady Slices -->
<br>
<br>
<div align="center"><form name="del" action="cz-upfile_del.asp?id=<%=id%>" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="25" width="708"> <a href="cz-upfile_main.asp" target="BoardList"><strong><img src="../images/pics/next.gif" border="0"><img src="../images/pics/next.gif" border="0"><font color="#FF0000">上傳屬性設置</font></strong></a>
<%
set frst = Server.CreateObject("adodb.recordset")
sql = "select * from info order by uploadtime desc"
frst.open sql,myconn,1,1
fcount = frst.recordcount
if fcount > 0 then
''顯示參數
dim tbbgcolor
''分頁參數
dim maxperpage,pages,page
maxperpage = 3
frst.pagesize = maxperpage
pages = frst.pagecount
''頁面參數設置
page = Request.QueryString("page")
if not isnumeric(page) then page = 1 else page = cint(page)
if page < 1 then page = 1
if page > pages then page = pages
frst.absolutepage = page
''顯示內容
'Set Isize=Server.CreateObject("WinImg.ImgSize")
for i = 1 to maxperpage
if frst.eof then exit for
if i mod 2 = 0 then tbbgcolor = "" else tbbgcolor = "#0066cc"
fid = frst("id").Value
ftitle = frst("fileTitle").Value
fdesc = frst("fileDesc").Value
ftype = frst("fileType").Value
fpath = frst("filePath").Value
fsize = frst("filesize").Value
fhits = frst("hits").Value
fuploadtime = frst("uploadTime").Value
%>
<br>
<br>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="336699" style="border-collapse: collapse">
<tr class="text">
<td width="20%" height="25" background="../images/pics/tile_sub.gif" bgcolor="#FFFFFF">
<div align="center"><font color="#FFFFFF"><b> 文件名稱：</b></font></div></td>
<td width="60%" background="../images/pics/tile_sub.gif" bgcolor="#FFFFFF"><a href="<%=fpath%>" target="_NEWwIN"><font color="#FFFFFF"><%=ftitle%>( 文件大小：<%=fsize%> bytes)</font></a> </td>
<td width="20%" background="../images/pics/tile_sub.gif" bgcolor="#FFFFFF">
<div align="center">
<input type="checkbox" name="DelID" value="<%=fid&"|"&fpath%>">
</div></td>
</tr>
<tr class="text">
<td bgcolor="#FFFFFF" height="12"> <div align="center"><font color="#333333"><b>
文件類型：</b></font></div></td>
<td bgcolor="#FFFFFF" height="12"><%=ftype%></td>
<td bgcolor="#FFFFFF" height="12"> <div align="center"><a href="cz-upfileEdit.asp?ID=<%=Fid%>">編輯</a></div></td>
</tr>
<tr class="text">
<td bgcolor="#FFFFFF" height="12"> <div align="center"><font color="#333333"><b>
上傳日期：</b></font></div></td>
<td bgcolor="#FFFFFF" height="12"><%=fuploadtime%></td>
<td bgcolor="#FFFFFF" height="12"> <div align="center">
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If Fs.FileExists(server.mappath(fPath)) Then
Response.Write("<img src=../images/isexists.gif")
End If
%>
</div></td>
</tr>
<tr class="text">
<td bgcolor="#FFFFFF" height="12"> <div align="center"><font color="#333333"><b>
文件說明：</b></font></div></td>
<td colspan="2" bgcolor="#FFFFFF" height="12"><%=fdesc%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="3"><img src="../images/pics/seperator.gif" width="100%" height="1"></td>
</tr>
</table>
</center>
</div>
<%
frst.movenext
next
else
%>
<table width="708" border="0" align="center" cellpadding="3" cellspacing="0">
<tr class="text">
<td width="702"><div align="center"><b><font color="#666666">檢測得出：暫無相關上傳數據及相關文件存在服務器內</font></b>！</div></td>
</tr>
</table>
<%
end if
frst.close
set frst = nothing
myconn.close
set myconn = nothing
%>
<table width="707" border="0" align="center" cellpadding="3" cellspacing="0">
<tr class="text">
<td align="right" class="heading" width="701"><font color="#FF0000">有<img src="../images/isexists.gif" width="16" height="16">標記則代表文件存在
<%
If Page >=1 Then Response.Write ("<a href='?page=1'>首頁</a> <a href='?page="& Page - 1 &"'>上一頁</a>")
If page < pages Then Response.Write (" <a href='?page="& Page + 1 &"'>下一頁</a> <a href='?page="& Pages &"'>末頁</a>")
%>
選中所有</font>
<input name="chkall" type="checkbox" id="chkall" value="select" onclick=CheckAll(this.form)>
<input type="submit" name="Submit" value="刪除所選"> </td>
</tr>
</table></td>
</tr>
</table>
</form>
</div>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -