<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<link href="css/css.css" rel="stylesheet" type="text/css">
<table width="860" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="204" align="center" valign="top" bgcolor="#F7F7F7"><table width="194" border="0" cellspacing="0" cellpadding="0" style="margin-top:7px">
      <tr>
        <td><img src="images/vicn_29.jpg" alt="" width="194" height="65" border="0" usemap="#Map2" /></td>
      </tr>
      <tr>
        <td background="images/vicn_39.jpg"><table width="90%" border="0" align="right" cellpadding="0" cellspacing="0" style=" margin-top:5px; margin-bottom:5px">
          <tr>
            <td colspan="2"><% call ShowSmallClass_Tree() %></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/vicn_57.jpg" width="194" height="3" alt="" /></td>
      </tr>
    </table>
        <table width="194" border="0" cellspacing="0" cellpadding="0" style="margin-top:7px">
          <tr>
            <td><img src="images/diaocha.gif" width="194" height="47" alt="" /></td>
          </tr>
          <tr>
            <td align="center" background="images/vicn_39.jpg"><object type="text/x-scriptlet" width="180" height="178" data="ttpp/vote.asp?id=32">
            </object></td>
          </tr>
          <tr>
            <td><img src="images/vicn_57.jpg" width="194" height="3" alt="" /></td>
          </tr>
        </table>
      <table width="194" border="0" cellspacing="0" cellpadding="0" style="margin-top:7px">
          <tr>
            <td><img src="images/vicn_64.jpg" width="194" height="47" alt="" /></td>
          </tr>
          <tr>
            <td background="images/vicn_39.jpg"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TR>
                  <TD height="5"></TD>
                </TR>
                <TR>
                  <TD vAlign=top><%
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from links order by id desc"
rs_links.open sqltext4,conn,1,1
%>
                      <TABLE width="85%" border=0 align="center" cellPadding=0 cellSpacing=0>
                        <TR vAlign=center>
                          <TD height=2 colSpan=2><IMG height=2 src="img/1x1_pix.gif" width=10></TD>
                        </TR>
                        <%
i=0
do while not rs_links.eof
%>
                        <TR vAlign=center>
                          <TD width="22" height=22 align="center"
><img src="images/vicn_42.jpg" width="9" height="9" alt="" /></TD>
                          <TD height=22
><a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a></TD>
                        </TR>
                        <%
rs_links.movenext
i=i+1
if i=10 then exit do
loop
rs_links.close 
%>
                        <TR>
                          <TD height=1 colspan="2" background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
                        </TR>
                        <TR vAlign=center>
                          <TD height=6 colSpan=2 bgcolor="#FFFFFF"></TD>
                        </TR>
                    </TABLE></TD>
                </TR>
            </TABLE></td>
          </tr>
          <tr>
            <td><img src="images/vicn_57.jpg" width="194" height="3" alt="" /></td>
          </tr>
        </table>
      <table width="194" border="0" cellspacing="0" cellpadding="4" style="margin-top:4px">
          <tr>
            <td><a href="book.asp"><img src="images/vicn_77.jpg" alt="" width="169" height="64" border="0" /></a></td>
          </tr>
          <tr>
            <td><a href="Contact.asp"><img src="images/vicn_80.jpg" alt="" width="169" height="64" border="0" /></a></td>
          </tr>
      </table></td>
    <td width="1" bgcolor="#D8D8D8"></td>
    <td valign="top" bgcolor="#FFFFFF"><table width="632" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:10px">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30"><img src="images/vicn_icon01.gif" width="30" height="26" alt="" /></td>
            <td background="images/vicn_67.jpg"><span style="font-size: 14px; color: #FFFFFF; font-weight: bold">游客留言</span></td>
            <td width="46"><img src="images/vicn_70.jpg" width="46" height="26" alt="" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td background="images/vicn_37.jpg"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td style="padding-top:10px; " align="left" valign="top" class="top_m_txt01"><% dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
                <%
if Request("work")="add" then
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
  Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
  Response.Write "alert('验证码错误！');"
  Response.Write "history.go(-1);"
  Response.Write "</SCRIPT>"
else
session("verifycode")=""
 set rs=server.createobject("adodb.recordset") 
 sql="select * from liuyan" 
 rs.open sql,conn,3,3
 rs.addnew
  rs("B_name")    =Request("B_name")
  rs("B_msn")     =Request("B_msn")
  rs("B_mail")    =Request("B_mail")
  rs("B_tel")     =Request("B_tel")
  rs("B_dom")     =Request("B_dom")
 rs.update 		'更新数据表记录
 Response.Redirect "book.asp"
 End IF
 End if
%>
                <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
                  <tr>
                    <td width="100%" bgcolor="#FFFFFF"><TABLE cellSpacing=0 cellPadding=3 width=100% align=center border=0>
                        <FORM name=Form1 action=book.asp method=post>
                          <TBODY>
                            <TR>
                              <TD width="37" align="left"><DIV align=right>昵称:</DIV></TD>
                              <TD width="137" align="left"><INPUT name=B_name id=B_name size="15" maxLength=20>
                                  <FONT 
            color=#ff6600>*</FONT></TD>
                              <TD vAlign=top width=398 rowSpan=7> 留言内容:<BR>
                                  <TABLE cellSpacing=0 cellPadding=0 width="71%" border=0>
                                    <TBODY>
                                      <TR>
                                        <TD><TEXTAREA class=ss1 id=B_dom name=B_dom rows=7 wrap=VIRTUAL cols=55></TEXTAREA></TD>
                                      </TR>
                                    </TBODY>
                                </TABLE></TD>
                            </TR>
                            <TR>
                              <TD align="left"><DIV align=right>Q&nbsp;Q:&nbsp;</DIV></TD>
                              <TD align="left"><INPUT name=B_msn id=B_msn size="15" maxLength=20>
                                  <FONT 
            color=#ff6600>*</FONT></TD>
                            </TR>
                            <TR>
                              <TD align="left"><DIV align=right>邮箱:&nbsp;</DIV></TD>
                              <TD align="left"><INPUT name=B_mail id=B_mail size="15" maxLength=30>
                                  <FONT 
            color=#ff6600>*</FONT></TD>
                            </TR>
                            <TR>
                              <TD align="left"><DIV align=right>电话:&nbsp;</DIV></TD>
                              <TD align="left"><INPUT name=B_tel id=B_tel size="15" maxLength=20>
                                  <FONT 
            color=#ff6600>*</FONT></TD>
                            </TR>
                            <TR>
                              <TD align="left"><DIV align=right>验证:&nbsp;</DIV></TD>
                              <TD><input name="verifycode" type="text" id="verifycode" size="5">
                                  <span class="style11"><font color="#000000"> khvpn
                                    <input type="hidden" name="verifycode2" value="khvpn">
                                </font></span></TD>
                            </TR>
                            <TR>
                              <TD colSpan=2><DIV align=center>
                                  <input type="button" name="Submit2" value="提交留言" onClick="check()">
                                &nbsp;
                                <INPUT id=work type=hidden value=add name=work>
                              </DIV></TD>
                            </TR>
                          </FORM>
                    </TABLE></td>
                  </tr>
                  <tr>
                    <td bgcolor="#FFFFFF">&nbsp;</td>
                  </tr>
                  <tr>
                    <td bgcolor="#FFFFFF"><TABLE class=tdtop cellSpacing=0 cellPadding=0 width=100% align=center border=0>
                        <TBODY>
                          <TR>
                            <form name="form1" method="post" action="book.asp">
                              <TD>搜索内容:
                                <INPUT id=shou name=shou>
                                  <INPUT class=STYLE1 type=submit value=搜索 name=Submit3></TD>
                            </form>
                          </TR>
                        </TBODY>
                    </TABLE></td>
                  </tr>
                  <tr>
                    <td bgcolor="#FFFFFF"><TABLE cellSpacing=0 cellPadding=5 width=100% align=center border=0>
                        <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>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table></td>
      </tr>
      <tr>
        <td><table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="5"><img src="images/vicn_45.jpg" width="5" height="5" alt="" /></td>
            <td width="622" background="images/vicn_46.jpg"></td>
            <td width="5"><img src="images/vicn_48.jpg" width="5" height="5" alt="" /></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<map name="Map2">
  <area shape="rect" coords="84,41,180,56" href="Product.asp">
</map>
<!--#include file="Inc/foot.asp"-->