📄 searchpf.asp
字号:
<!--#include file="passinc.asp" -->
<%
if pageline > 50 then
pagelines = 50
else
pagelines = pageline
end if
mailsearch = trim(request("mailsearch"))
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.FilterString = mailsearch
pf.Order = sortmode
pf.SortMode = CInt(sortstr)
mailsearch = Server.URLEncode(mailsearch)
pf.load fileid
allnum = pf.ItemCount
allpage = CInt((allnum - (allnum mod pagelines))/ pagelines)
if allnum 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 filename
dim ownID
dim step
dim nextstep
dim postuser
dim subject
dim time
dim length
dim state
dim searchkey
dim readcount
dim pfadmin
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 = "searchpf.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 = "searchpf.asp?fileid=<%=fileid %>&sortstr=<%=sortstr %>&sortmode=<%=smode %>&mailsearch=<%=mailsearch %>&<%=getGRSN() %>&page=" + page.value;
}
function setsort(addsortstr){
<% if sortmode = false then %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=0&mailsearch=<%=mailsearch %>";
<% else %>
location.href = "<%=gourl %>" + "&sortstr=" + addsortstr + "&sortmode=1&mailsearch=<%=mailsearch %>";
<% 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%"> </td>
<td width="17%"><b><a href="wframe.asp?mode=post&pid=0&iniid=<%=fileid %>&<%=getGRSN() %>&gourl=<%=Server.URLEncode("searchpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&mailsearch=" & mailsearch & "&" & getGRSN() & "&page=" & page) %>">Post New</b></td>
<td width="15%"><b><a href="showpf.asp?fileid=<%=fileid %>&<%=getGRSN() %>">Return</b></td>
<td width="21%">
<%
if page > 0 then
response.write "<a href=""searchpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&mailsearch=" & mailsearch & "&" & 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=""searchpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&mailsearch=" & mailsearch & "&" & 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="40%"><b>Public Folder: <%=server.htmlencode(name) & " (" & page+1 & "/" & allpage & ")" %></b></td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr bgcolor="#dbeaf5">
<td width="7%" 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
i = 0
dim showi
showi = 0
do while i < allnum
pf.GetItemInfoByIndex i, filename, ownID, step, postuser, subject, time, length, state, searchkey, readcount
if i >= pagelines*page and i < pagelines*(page+1) then
Response.Write "<tr><td height='24' style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & i + 1 & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'>"
Response.Write "<a href='showpfmail.asp?filename=" & filename & "&searchkey=" & Server.URLEncode(searchkey) & "&pid=" & ownID & "&iniid=" & fileid & "&" & getGRSN() & "&gourl=" & Server.URLEncode("searchpf.asp?fileid=" & fileid & "&sortstr=" & sortstr & "&sortmode=" & smode & "&mailsearch=" & mailsearch & "&" & 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)
Response.Write "</td></tr>"
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 + -