nb_brow.asp
来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 158 行
ASP
158 行
<!--#include file="passinc.asp" -->
<%
dim nb
set nb = server.createobject("easymail.NoteBooksManager")
nb.Load Session("wem")
allnum = nb.count
if trim(request("page")) = "" then
page = 0
else
page = CInt(request("page"))
end if
if page < 0 then
page = 0
end if
allpage = CInt((allnum - (allnum mod pageline))/ pageline)
if allnum mod pageline <> 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
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function mdel()
{
form1.mdel.value = "1";
form1.action = "nb_delete.asp";
form1.submit();
}
function selectpage_onchange()
{
location.href = "nb_brow.asp?<%=getGRSN() %>&page=" + form1.page.value;
}
//-->
</SCRIPT>
<BODY>
<br>
<form action="nb_brow.asp" method=post id=form1 name=form1>
<input type="hidden" name="mdel">
<input type="hidden" name="thispage" value="<%=page %>">
<table width="90%" border="0" align="center">
<tr>
<td width="5%"> </td>
<td width="30%"><b><a href="nb_add.asp?<%=getGRSN() %>">New Note</a></b></td>
<td width="40%">
<%
if page > 0 then
response.write "<a href=""nb_brow.asp?" & 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
%>
Page: <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=""nb_brow.asp?" & 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="25%"><font class="s"><b>Notepad: <%=name & " (" & page+1 & "/" & allpage & ")" %></b></font></td>
</tr>
</table>
</td></tr>
</table>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="7%" align="center" height="25" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><a href="javascript:mdel()"><img src='images\del.gif' border='0' alt="Delete"></a></td>
<td width="8%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>No.</b></font></td>
<td width="50%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Title</b></font></td>
<td width="15%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Size</b></font></td>
<td width="10%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Edit</b></font></td>
<td width="10%" align="center" bgcolor="#dbeaf5" style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Delete</b></font></td>
</tr>
<%
i = page * pageline
li = 0
do while i < allnum and li < pageline
si = allnum - i - 1
nb.Get si, title, text
Response.Write " <tr>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='check" & si & "' value='" & si & "'></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & i + 1 & "</td>"
Response.Write " <td align='left' style='border-bottom:1px #8CA5B5 solid;'><a href='nb_show.asp?id=" & si & "&page=" & page & "&" & getGRSN() & "'>" & server.htmlencode(title) & "</a></td>"
Response.Write " <td align='right' style='border-bottom:1px #8CA5B5 solid;'>" & getShowSize(Len(text)) & "</td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='nb_edit.asp?id=" & si & "&page=" & page & "&" & getGRSN() & "'><img src='images\edit.gif' border='0' alt='Edit'></a></td>"
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='nb_delete.asp?id=" & si & "&thispage=" & page & "&" & getGRSN() & "'><img src='images\del.gif' border='0' alt='Delete'></a></td>"
Response.Write " </tr>" & chr(13)
title = NULL
text = NULL
i = i + 1
li = li + 1
loop
%>
</table>
</FORM>
<br>
</BODY>
</HTML>
<%
set nb = nothing
function getShowSize(bytesize)
if bytesize < 1000 then
getShowSize = bytesize & "<b>B</b>"
else
getShowSize = CLng(bytesize/1000) & "<b>K</b>"
end if
end function
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?