📄 showpf.asp
字号:
<!--#include file="passinc.asp" -->
<%
if Application("em_EnableBBS") = false then
response.redirect "noadmin.asp?errstr=This public folder is closed&" & getGRSN()
end if
if pageline > 50 then
pagelines = 50
else
pagelines = pageline
end if
fileid = trim(request("fileid"))
page = trim(request("page"))
sortmode = request("sortmode")
sortstr = request("sortstr")
if sortmode = 0 then
sortmode = true
else
sortmode = false
end if
if sortstr = "" or IsNumeric(sortstr) = false then
sortstr = "0"
end if
if IsNumeric(page) = false then
page = "0"
end if
page = CInt(page)
dim pf
set pf = server.createobject("easymail.PubFolderManager")
pf.Order = sortmode
pf.SortMode = CInt(sortstr)
pf.load fileid
allpage = CInt((pf.TopItemCount - (pf.TopItemCount mod pagelines))/ pagelines)
if pf.TopItemCount mod pagelines <> 0 then
allpage = allpage + 1
end if
if page >= allpage then
page = allpage - 1
end if
if page < 0 then
page = 0
end if
if allpage = 0 then
allpage = 1
end if
dim pfadmin
dim filename
dim ownID
dim step
dim nextstep
dim postuser
dim subject
dim time
dim length
dim state
dim searchkey
dim readcount
pf.GetFolderInfo filename, admin, permission, name, createtime, count, maxid, maxitem, itemmaxsize
dim ei
set ei = Application("em")
pfadmin = ei.GetUserMail(admin)
set ei = nothing
gourl = "showpf.asp?fileid=" & fileid & "&page=" & page & "&" & getGRSN()
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function selectpage_onchange()
{
<%
if sortmode = true then
smode = 0
else
smode = 1
end if
%>
location.href = "showpf.asp?fileid=<%=fileid %>&sortstr=<%=sortstr %>&sortmode=<%=smode %>&<%=getGRSN() %>&page=" + page.value;
}
function setsort(addsortstr){
<% if sortmode = false then %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=0";
<% else %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=1";
<% end if %>
}
//-->
</script>
<body>
<br>
<table width="98%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style="border:1px #8CA5B5 solid;">
<tr>
<td width="7%" nowrap> </td>
<td width="15%" nowrap><b><a href="wframe.asp?<%=getGRSN() %>&mode=post&pid=0&iniid=<%=fileid %>&gourl=<%=Server.URLEncode("showpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&" & getGRSN() & "&page=" & page) %>">Post New</b></td>
<td width="12%" nowrap><b><a href="findpfmail.asp?fileid=<%=fileid %>&<%=getGRSN() %>">Search</b></td>
<td width="12%" nowrap><b><a href="showallpf.asp?<%=getGRSN() %>">Return</a></b></td>
<td width="18%" nowrap>
<%
if page > 0 then
response.write "<a href=""showpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&" & getGRSN() & "&page=" & page - 1 & """><font face='Webdings' style='font-size:13px'>7</font></a> "
else
response.write "<font face='Webdings' style='font-size:13px'>7</font> "
end if
%>
<select name="page" class="drpdwn" size="1" LANGUAGE=javascript onchange="selectpage_onchange()">
<%
i = 0
do while i < allpage
if i <> page then
response.write "<option value=""" & i & """>" & i + 1 & "</option>"
else
response.write "<option value=""" & i & """ selected>" & i + 1 & "</option>"
end if
i = i + 1
loop
%></select>
<%
if page < allpage - 1 then
response.write " <a href=""showpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&" & getGRSN() & "&page=" & page + 1 & """><font face='Webdings' style='font-size:13px'>8</font></a>"
else
response.write " <font face='Webdings' style='font-size:13px'>8</font>"
end if
%>
<td width="36%" nowrap><font class="s" color="#104A7B"><b>Public Folder: <%=server.htmlencode(name) & " (" & page+1 & "/" & allpage & ")" %></b></font></td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr bgcolor="#dbeaf5">
<td width="7%" nowrap height='28' style='border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><p align="center"><font class="s" color="#104A7B"><b>No.</b></font></td>
<td width="93%" align="center" nowrap style='border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><font class="s" color="#104A7B"><b>Sort: <%
response.write "<a href=""javascript:setsort('" & sortstr & "')"">" & getSortStr(sortstr) & "</a></b></font> "
if sortmode = true then
response.write "<a href=""javascript:setsort('" & sortstr & "')""><img src='images\arrow_down.gif' border='0' align='absmiddle'></a>"
else
response.write "<a href=""javascript:setsort('" & sortstr & "')""><img src='images\arrow_up.gif' border='0' align='absmiddle'></a>"
end if
response.write " ("
i = 0
do while i < 5
if i <> CInt(sortstr) then
response.write "<a href=""javascript:setsort('" & i & "')"">" & getSortStr(i) & "</a>"
if i <> 4 and (i = 3 and CInt(sortstr) = 4) = false then
response.write " "
end if
end if
i = i + 1
loop
response.write ")"
%>
</td>
</tr>
<%
filename = NULL
admin = NULL
permission = NULL
name = NULL
createtime = NULL
count = NULL
maxid = NULL
maxitem = NULL
itemmaxsize = NULL
allnum = pf.ItemCount
dim showstep
dim nextnextstep
i = 0
dim showi
showi = 0
dim backui
backui = 0
do while i < allnum
pf.GetItemInfoByIndex i+1, filename, ownID, nextstep, postuser, subject, time, length, state, searchkey, readcount
filename = NULL
ownID = NULL
postuser = NULL
subject = NULL
time = NULL
length = NULL
state = NULL
searchkey = NULL
readcount = NULL
pf.GetItemInfoByIndex i, filename, ownID, step, postuser, subject, time, length, state, searchkey, readcount
if subject = "" then
subject = "[Empty]"
end if
showstep = step
if showstep = 0 then
showi = showi + 1
end if
if showi > pagelines*page and showi <= pagelines*(page+1) then
if showstep = 0 then
Response.Write "<tr><td height='24' style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & showi & "</td>"
Response.Write "<td style='border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'>"
Response.Write "<ul>"
backui = backui + 1
Response.Write "<li><a href='showpfmail.asp?" & getGRSN() & "&searchkey=" & Server.URLEncode(searchkey) & "&filename=" & filename & "&pid=" & ownID & "&iniid=" & fileid & "&" & getGRSN() & "&gourl=" & Server.URLEncode("showpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&" & getGRSN() & "&page=" & page) & "'><b>"
if postuser <> pfadmin then
Response.Write server.htmlencode(subject)
else
Response.Write "<font color='#FF3333'>" & server.htmlencode(subject) & "</font>"
end if
Response.Write "</b></li>" & " [Posted by: " & postuser & " " & getShowSize(length) & " " & getTimeStr(time) & " (Viewed: " & readcount & ")]</a>" & "<ul>" & chr(13)
else
Response.Write "<li><a href='showpfmail.asp?" & getGRSN() & "&searchkey=" & Server.URLEncode(searchkey) & "&filename=" & filename & "&pid=" & ownID & "&iniid=" & fileid & "&" & getGRSN() & "&gourl=" & Server.URLEncode("showpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&" & getGRSN() & "&page=" & page) & "'><b>"
if postuser <> pfadmin then
Response.Write server.htmlencode(subject)
else
Response.Write "<font color='#FF3333'>" & server.htmlencode(subject) & "</font>"
end if
Response.Write "</b></li>" & " [Posted by: " & postuser & " " & getShowSize(length) & " " & getTimeStr(time) & " (Viewed: " & readcount & ")]</a>" & chr(13)
if nextstep > step then
Response.Write "<ul>"
backui = backui + 1
end if
if nextstep < step then
Response.Write "</ul>"
backui = backui - 1
end if
end if
if nextstep = 0 or IsNull(nextstep) then
do while backui >= 0
Response.Write "</ul>"
backui = backui - 1
loop
Response.Write "</td></tr>"
end if
backui = step
end if
filename = NULL
ownID = NULL
step = NULL
postuser = NULL
subject = NULL
time = NULL
length = NULL
state = NULL
searchkey = NULL
readcount = NULL
nextstep = NULL
i = i + 1
loop
%>
</table>
<br>
</BODY>
</HTML>
<%
pfadmin = NULL
set pf = nothing
function getTimeStr(otime)
getTimeStr = mid(otime, 1, 4) & "-"
getTimeStr = getTimeStr & mid(otime, 5, 2) & "-"
getTimeStr = getTimeStr & mid(otime, 7, 2) & " "
getTimeStr = getTimeStr & mid(otime, 9, 2) & ":"
getTimeStr = getTimeStr & mid(otime, 11, 2) & ":"
getTimeStr = getTimeStr & mid(otime, 13, 2)
end function
function getShowSize(bytesize)
if bytesize < 1000 then
getShowSize = bytesize & " Bytes"
else
getShowSize = CLng(bytesize/1000) & "K"
end if
end function
function getSortStr(sortnum)
if sortnum = 0 then
getSortStr = "Posted at"
elseif sortnum = 1 then
getSortStr = "Posted by"
elseif sortnum = 2 then
getSortStr = "Subject"
elseif sortnum = 3 then
getSortStr = "Size"
elseif sortnum = 4 then
getSortStr = "Times viewed"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -