gbook.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

<!--#include file ="conn.asp"-->
<!--#include file ="function.asp"-->
<!--#include file ="cook.asp"-->
<!--#include file ="info.asp"--> 
<script>
function runEx(cod1)  {
 cod=document.all(cod1)
  var code=cod.value;
  if (code!=""){
  var newwin=window.open('','','');  
  newwin.opener = null 
  newwin.document.write(code);  
  newwin.document.close();
}
}
</script>
<script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script>
<%
call htmltop()
%>
<table width="700" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="TdStyle">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><br>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from gbook order by id desc" 
rs.open sql,conn,1,1%>
<%if rs.eof and rs.bof then %>
      <table width="680" height="60" border="0" cellpadding="0" cellspacing="1" bgcolor="#C0C0C0">
       <tr bgcolor="#FFFFFF"> 
         <td align="center">当前没有留言！！ </td>
       </tr>
     </table><br>
<% else
Rs.pagesize=5
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
      <table width="680" border="0" cellpadding="0" cellspacing="1" bgcolor="#C0C0C0" align="center">
        <tr bgcolor="#E3E3E3">
          <td height="28" align="center">
            <table width="99%" border="0" cellpadding="0" cellspacing="0">
              <tr><td>&nbsp;&nbsp;总共<font color="#FF0000"><%=rs.recordcount%></font>条留言&nbsp;&nbsp;第<font color=red><%=page%></font>/<%=Rs.pagecount%>页</td>
                <td align="right">
                  <% if page=1 then %>
                  首页&nbsp;上一页
                  <%else%>
                  <a href=gbook.asp?page=1>首页</a> 
                  <a href=gbook.asp?page=<%=page-1%>>上一页</a>
                  <%end if
                  if Rs.pagecount-page <> 0 then%>
                  <a href=gbook.asp?page=<%=page+1%>>下一页</a>
                  <a href=gbook.asp?page=<%=Rs.pagecount%>>尾页</a>
                  <%else%>
                  下一页&nbsp;尾页
                  <%end if%>&nbsp;
                </td>
              </tr></table></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" align="center"><br>
<%
For i = 1 to rs.PageSize  
 if rs.EOF then
  Exit For 
 end if 
%>
      <table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#C0C0C0" style="table-layout:fixed">
        <tr bgcolor="#E3E3E3"> 
          <td width="120" height="28" align="center"><font color="#FF6633"><%=rs("name")%></font></td>
          <td>&nbsp;&nbsp;<%if rs("qq")<>"" then%>QQ：<%=rs("qq")%><%end if%>
            &nbsp;&nbsp;<%if rs("email")<>"" then%>Mail：<%=rs("email")%><%end if%>
          </td>
          <td width="120" align="center"><%if rs("key")=0 then%><a href='javascript:suredo("gbookkey.asp?id=<%=rs("id")%>","确定审核?")'><font color="red">未审</font></a><%else%>已审<%end if%>&nbsp;&nbsp;<a href="gbreply.asp?id=<%=rs("id")%>">回复</a>&nbsp;&nbsp;<a href='javascript:suredo("gbookdel.asp?id=<%=rs("id")%>","确定删除?")'>删除</a> 
          </td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="3" valign="top" style="left:0px;width:100%;word-wrap:break-word"><%=th(rs("content"))%><br>(Date:<%=rs("lytime")%>)</td>
        </tr>
        <%if rs("reply")<>"" then%>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="3" valign="top" style="left:0px;width:100%;word-wrap:break-word"><font color="red">管理员回复：</font>(Date:<%=rs("hftime")%>)<br><%=th(rs("reply"))%></td>
        </tr>
        <%end if%>
      </table>
      <br>
<%
rs.movenext
next
%></td>
        </tr>
        <tr bgcolor="#E3E3E3">
          <td height="28" align="center">
            <table width="99%" border="0" cellpadding="0" cellspacing="0">
              <tr><td>&nbsp;&nbsp;总共<font color="#FF0000"><%=rs.recordcount%></font>条留言&nbsp;&nbsp;第<font color=red><%=page%></font>/<%=Rs.pagecount%>页</td>
                <td align="right">
                  <% if page=1 then %>
                  首页&nbsp;上一页
                  <%else%>
                  <a href=gbook.asp?page=1>首页</a> 
                  <a href=gbook.asp?page=<%=page-1%>>上一页</a>
                  <%end if
                  if Rs.pagecount-page <> 0 then%>
                  <a href=gbook.asp?page=<%=page+1%>>下一页</a>
                  <a href=gbook.asp?page=<%=Rs.pagecount%>>尾页</a>
                  <%else%>
                  下一页&nbsp;尾页
                  <%end if%>&nbsp;
                </td>
              </tr></table><%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if %></td>
        </tr>
      </table><br></td>
    </tr>
  </table>
<%
call htmlend()
%>