book.asp

ASP网站源程序

        <TBODY>
          <TR>
            <TD colSpan=2><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR>
                    <TD nowrap>&nbsp; <SPAN class=bigFont>[=== 留言列表 ===] </SPAN></TD>
                    <TD>&nbsp;</TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
          <%
 shou        =Request("shou")
 if shou="" then
  sql="select * from liuyan order by id DESC"
 else
  sql="select * from liuyan where B_name like '%"&shou&"%' or  B_dom like '%"&shou&"%' order by  id DESC "
 end if
 set rs=server.createobject("adodb.recordset") 
 rs.open sql,conn,1,1
 IF Not rs.eof Then
 proCount=rs.recordcount
	rs.PageSize=20					  '定义显示数目
		if not IsEmpty(Request("ToPage")) then
	       ToPage=CInt(Request("ToPage"))
		   if ToPage>rs.PageCount then
					rs.AbsolutePage=rs.PageCount
					intCurPage=rs.PageCount
		   elseif ToPage<=0 then
					rs.AbsolutePage=1
					intCurPage=1
				else
					rs.AbsolutePage=ToPage
					intCurPage=ToPage
				end if
			else
			        rs.AbsolutePage=1
					intCurPage=1
		  end if
	intCurPage=CInt(intCurPage)
	For i = 1 to rs.PageSize
	if rs.EOF then     
	Exit For 
	end if
%>
          <TR>
            <TD width=28>&nbsp;</TD>
            <TD width="483"><B><%=rs("B_name")%></B> 在 (<%=rs("B_date")%>)</TD>
          </TR>
          <TR>
            <TD>&nbsp;</TD>
            <TD class=formatU><%=rs("B_dom")%> <BR>
                <BR>
                <span class="STYLE12 STYLE15">
                <%if trim(rs("B_hui"))<>"" then%>
              管理员回复: <BR>
              <%=rs("B_hui")%>
              <%end if%>
              </span></TD>
          </TR>
          <TR>
            <TD colspan="2"><hr size="1"></TD>
          </TR>
          <%
rs.MoveNext 
next
%>
          <TR>
            <TD>&nbsp;</TD>
            <TD><TABLE width="100%" align="center">
                <TR>
                  <TD><div align="right"> <span style="font-size: 9pt;"> 总共：<font color="#ff0000"><%=rs.PageCount%></font>页, <font color="#ff0000"><%=proCount%></font>条留言, 当前页：<font color="#ff0000"> <%=intCurPage%> </font>
                            <% if intCurPage<>1 then
		  %>
                            <a href="?ToPage=1&shou=<%=shou%>"></a>|<a href="?ToPage=<%=intCurPage-1%>&shou=<%=shou%>">上一页</a>|
                            <% end if
if intCurPage<>rs.PageCount then %>
                            <a href="?ToPage=<%=intCurPage+1%>&shou=<%=shou%>">下一页</a>|<a href="?ToPage=<%=rs.PageCount%>&shou=<%=shou%>"> 最后页</a>|
                            <% end if%>
                  </span> </div></TD>
                </TR>
              </TABLE>
                <%
else
%>
                <TABLE width="80%" align="center">
                  <TR>
                    <TD>对不起！目前库中没有您要查询记录！[===<span class="style2"><%= Request("shou") %></span>===]</TD>
                  </TR>
                </TABLE>
                <%
end if
rs.close
set rs=nothing
%></TD>
          </TR>
        </TBODY>
    </TABLE></td>
  </tr>
</table>
<script LANGUAGE="JavaScript">
function check()
{

  if (document.Form1.B_name.value=="")
     {
      alert("请填写您的姓名！")
      document.Form1.B_name.focus()
      document.Form1.B_name.select()
      return
     }
  if (document.Form1.B_msn.value=="")
     {
      alert("请留下您的QQ或MSN!")
      document.Form1.B_msn.focus()
      document.Form1.B_msn.select()		
      return
     }
   if (document.Form1.B_mail.value=="")
     {
      alert("电子邮件不可为空！")
      document.Form1.B_mail.focus()
      document.Form1.B_mail.select()		
      return
     }
	 if (document.Form1.B_tel.value=="")
     {
      alert("请留下您的联系电话！")
      document.Form1.B_tel.focus()
      document.Form1.B_tel.select()		
      return
	  	       }
   if (document.Form1.B_dom.value=="")
     {
      alert("请填写您的留言内容！")
      document.Form1.B_dom.focus()
      document.Form1.B_dom.select()		
      return
	       }
     document.Form1.submit()
}
</SCRIPT>
								</td>
                              </tr>
                            </table>
                              </td>
                            <td width="20" background="Style/<%=Root%>/gsjs_right_bg01.gif"></td>
                          </tr>
                          <tr>
                            <td background="Style/<%=Root%>/gsjs_bg01.gif"></td>
                            <td valign="bottom" background="Style/<%=Root%>/gsjs_right_bg01.gif"><img src="Style/<%=Root%>/gsjs_img04.gif" width="20" height="148"></td>
                          </tr>
                          <tr>
                            <td colspan="3"><img src="Style/<%=Root%>/gsjs_img02.gif" width="540" height="18"></td>
                            </tr>
                        </table></td>
                      </tr>
                    </table></td>
                    <td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><img src="Style/<%=Root%>/cont_img02.gif" width="580" height="17"></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        <td width="33" valign="top" background="Style/<%=Root%>/cont_right_bg01.gif"><img src="Style/<%=Root%>/cont_right_img01.gif" width="33" height="431"></td>
      </tr>
      <tr>
        <td valign="top"><img src="Style/<%=Root%>/cont_di_img01.gif" width="30" height="29"></td>
        <td align="center" valign="middle" background="Style/<%=Root%>/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="57"><img src="Style/<%=Root%>/yqlj_img01.gif" width="57" height="15"></td>
                  <td width="247"><MARQUEE
            align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
                    <% call ShowAnnounce(5) %>
                  </MARQUEE></td>
                </tr>
            </table></td>
            <td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
          </tr>
        </table></td>
        <td valign="top"><img src="Style/<%=Root%>/cont_di_img02.gif" width="33" height="29"></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="Inc/foot.asp"-->