mail_re.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('目前暂无反馈信息...');"
response.write"javascript:history.go(-1)</SCRIPT>"
else 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showContent
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if
end if 
sub showContent 
%>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="301">
        <TBODY>
          <TR>
            <TD valign=top height="301">
              <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
                <TBODY>
                  <TR>
                    <TD align=right>
                      <p align="left"><B>
                        <%showpage totalput,MaxPerPage,"contact_re.asp"%>
                    </b></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <div align="center">
                <center>
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width="92%" style="border-collapse: collapse" bordercolor="#111111">
                    <TR>
                      <TD height="10" colspan="2" background="images/line_gr.gif"></TD>
                    </TR>
                  </TABLE>
                </center>
              </div>
              <%do while not rs.eof%>
              <%if session("id")=rs("bookid") then%>
              <div align="center">
                <center>
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width="590" style="border-collapse: collapse" bordercolor="#111111" height="10">
                    <TBODY>
                      <TR height="30">
                        <TD align=left width="75%" height="18"> <b><img border="0" src="../images/fpost2.gif"> <span style="font-size: 10.5pt"> <a target="_blank" href="index.asp?id=<%=rs("gsid")%>"><%=rs("linkman")%></a></span></b>
                            <%if rs("pishi")=1 then%>
                            <font color=red><b>管理员</b></font>
                            <%else if rs("Gsid")>"1" then%>
                            <font color="#fc9603">【会员】</font>
                            <%else%>
                            <font color="#008000">【游客】</font>
                            <%end if%>
                            <%end if%>
                            <%=rs("dateandtime")%>&nbsp; </TD>
                      </TR>
                      <TR height="30">
                        <TD width="590"><%=mid(rs("content"),1,200)%><a href="javascript:show_sader(&quot;../manage/khfk/bookinfo.asp?info_id=<%=rs("info_id")%>&quot;)">[<font color="#FF6600">详细信息</font>]</a></TD>
                      </TR>
                      <TR>
                        <TD height="1" width="590"></TD>
                      </TR>
                      <TR>
                        <TD height="10" background="images/line_gr.gif" width="590"></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                </center>
              </div>
              <%else if rs("pishi")=1 then%>
              <div align="center">
                <center>
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width="590" style="border-collapse: collapse" bordercolor="#111111" height="10">
                    <TBODY>
                      <TR height="30">
                        <TD align=left width="307"> <font color=red>管理员重要批示,请站长登陆查看</font> </TD>
                      </TR>
                      <TR>
                        <TD height="1" width="590"></TD>
                      </TR>
                      <TR>
                        <TD height="10" background="images/line_gr.gif" width="590"></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                </center>
              </div>
              <%else%>
              <div align="center">
                <center>
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width="590" style="border-collapse: collapse" bordercolor="#111111" height="10">
                    <TBODY>
                      <TR height="30">
                        <TD align=left width="307"> <b><img border="0" src="../images/fpost2.gif"> <span style="font-size: 10.5pt"> <a target="_blank" href="index.asp?id=<%=rs("gsid")%>"><%=rs("linkman")%></a></span></b>
                            <%if rs("Gsid")>"1" then %>
                            <font color="#fc9603">【会员】</font>
                            <%else%>
                            <font color="#008000">【游客】</font>
                            <%end if%>
      &nbsp;&nbsp;<font color="#fc9603">&nbsp; </font> <%=rs("dateandtime")%></TD>
                      </TR>
                      <TR height="30">
                        <TD width="590"><%=mid(rs("content"),1,200)%><a href="javascript:show_sader(&quot;../manage/khfk/bookinfo.asp?info_id=<%=rs("info_id")%>&quot;)">[<font color="#FF6600">详细信息</font>]</a></TD>
                      </TR>
                      <TR>
                        <TD height="1" width="590"></TD>
                      </TR>
                      <TR>
                        <TD height="10" background="images/line_gr.gif" width="590"></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                </center>
              </div>
              <%end if%>
              <%end if%>
              <% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
              <TABLE border=0 cellPadding=0 cellSpacing=0 width="92%">
                <TR>
                  <TD colspan="2"><%showpage totalput,MaxPerPage,"mail_re.asp"%></TD>
                </TR>
            </table></TD>
          </TR>
      </TABLE>
      <%
end sub 
function showpage(totalnumber,maxperpage,filename) 
dim n 
if totalnumber mod maxperpage=0 then 
n= totalnumber \ maxperpage 
else 
n= totalnumber \ maxperpage+1 
end if 
response.write "<form method=Post action="&filename&">" 
if CurrentPage<2 then 
response.write "<div align=center>"
response.write "<table border=0 width=92% cellspacing=0 cellpadding=5>"
response.write "<tr height=0><td colspan=2></td></tr>"
response.write "<tr height=0>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】" 
else 
response.write "<div align=center>"
response.write "<table border=0 width=92% cellspacing=0 cellpadding=5>"
response.write "<tr height=0><td colspan=2></td></tr>"
response.write "<tr height=0>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "</td>"
response.write "<td VALIGN=center align=right >"
response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">" 
response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】" 
end if 
response.write "</form>" 
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
end function
%>
    </td>
  </TR></TBODY></TABLE>
</CENTER></DIV>
<DIV align=center>
<CENTER>
<TABLE height=20 cellSpacing=0 cellPadding=0 width=766 border=0>
  <TBODY>
  <TR>
    <TD width="100%" height=1><IMG src="images/92.gif" border=0></TD></TR>
  <TR>
    <TD width="100%" background=images/91.gif height=52>
      <P align=center><span class="style1"><span class="style2 style3">版权所有：&copy;<%=year(rs("idate"))%>-<%=webname%><br>
        <span class="style4">&gt;&gt;&gt; <a href="../../login/login.asp">管理入口</a> &lt;&lt;&lt;</span>      </span></span></P>      </TD></TR></TBODY></TABLE></CENTER></DIV></BODY></HTML>