<!--头部Star-->
<!--#include file="head.asp"-->
<!--头部End-->
<!--中间Star-->
<%
call aspsql()
%>
<TABLE cellSpacing=0 cellPadding=0 width=1004 border=0>
  <TBODY>
  <TR>
    <TD vAlign=top align=middle width=180>
      <TABLE cellSpacing=0 cellPadding=0 width=183 border=0>
        <TBODY>
        <TR>
          <TD width=163> <td height="18"></td></TD>
          <TD width=10></TD></TR>
        <TR>
          <TD align=right height=24><SAMP class=TitleFont>公司概况</SAMP> <IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD>　</TD></TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
        <TR>
          <TD align=right height=24><A href="about.asp?id=11" IsShowProcessBar=True>公司简介 </A><IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD>　</TD></TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
        <TR>
          <TD align=right height=24><A href="about.asp?id=12" IsShowProcessBar=True>组织机构 </A><IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD></TD></TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
        <TR>
          <TD align=right height=24><A 
            href="about.asp?id=13" IsShowProcessBar=True>设备展示</A> <IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD></TD></TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
        <TR>
          <TD align=right height=24><A href="about.asp?id=14" IsShowProcessBar=True>生产流程 </A><IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD></TD>
		 </TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
		          <TR>
          <TD align=right height=24><A href="about.asp?id=15" IsShowProcessBar=True>联系我们 </A><IMG height=9 src="hf_images/icon_1.jpg" width=13 align=middle></TD>
          <TD></TD>
		 </TR>
        <TR>
          <TD align=right colSpan=2><IMG height=1 src="hf_images/line.jpg" width=169></TD></TR>
	</TBODY></TABLE></TD>
    <TD vAlign=top width=705>
      <TABLE cellSpacing=0 cellPadding=0 width=705 border=0>
        <TBODY>
        <TR>
          <TD width=495>　</TD>
          <TD vAlign=top width=210><IMG height=12 src="hf_images/icon_3.jpg" width=14 align=absMiddle><a href=main.asp IsShowProcessBar=True>Home</a>>公司概况 ><%=title%></TD></TR>
        <TR>
          <TD height=24><IMG height=21 src="hf_images/icon_2.jpg" width=19 align=absMiddle><IMG height=23 src="hf_images/inner_GYWM.jpg" 
            width=70 align=absMiddle></TD>
          <TD height=24>　</TD></TR>
        <TR>
          <TD align=middle colSpan=2><IMG height=2 src="hf_images/line_2.jpg" width=677></TD></TR>
        <TR>
          <TD colSpan=2>　</TD></TR>
        <TR>
          <TD align=middle colSpan=2><TABLE cellSpacing=0 cellPadding=0 width=658 border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=24>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=top width=646 background=hf_images/linebg.gif 
                      height=24>
                        <TABLE height=32 cellSpacing=0 cellPadding=0 align=left 
                        border=0>
                          <TBODY>
                          <TR>
                            <TD align=left width=8><IMG height=30 src="hf_images/kuan_L.jpg" width=8></TD>
                            <TD class=line_T bgColor=#ffffff>
                              <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
                                <TBODY>
                                <TR>
                                <TD width="6%"><IMG height=28 src="hf_images/Kuan_R_R.jpg" width=10></TD>
                                <TD class=whitelink vAlign=center align=middle 
                                width="77%" 
                                background=hf_images/Kuan_R_BG.jpg><A class=whitelink href="book_write.asp" IsShowProcessBar="True">签写留言</A></TD>
                                <TD width="17%"><IMG height=28 src="hf_images/Kuan_R_2.jpg" width=26></TD></TR></TBODY></TABLE></TD>
                            <TD width=7><IMG height=30 src="hf_images/kuan_R.jpg" width=7></TD></TR></TBODY></TABLE>
                        <TABLE height=24 cellSpacing=0 cellPadding=0 align=left 
                        border=0>
                          <TBODY>
                          <TR>
                            <TD align=left width=9><IMG height=30 src="hf_images/kuan_L_1.jpg" width=10></TD>
                            <TD class=line_T_1 bgColor=#f8f9fb>
                              <DIV align=center><A href="book.asp" IsShowProcessBar="True">查看留言</A></DIV></TD>
                            <TD class=line_T_1 width=17 bgColor=#f8f9fb><IMG height=17 src="hf_images/icon_4.jpg" 
width=17></TD>
                            <TD width=11><IMG height=30 src="hf_images/kuan_R_1.jpg" width=8></TD></TR></TBODY></TABLE>
                     
                    </TD>
                      <TD vAlign=top width=10>　</TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD class=line_L vAlign=top align=right height=5><IMG height=10 src="hf_images/kuan_RT.jpg" width=10></TD></TR>
              <TR>
                <TD class=line_LR vAlign=top align=middle height=650>
                  <TABLE cellSpacing=0 cellPadding=0 width=640 border=0>
                    <TBODY>
                    <tr>
                  <td width="161" height="738" valign="top" background="hf_images/historyback.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td><img src="hf_images/kuly.jpg" width="160" height="146"></td>
                      </tr>
                      <tr>
                        <td bgcolor="#FFFFFF"><img src="hf_images/guestbook.jpg" width="131" height="23"></td>
                      </tr>
                      <tr>
                        <td><img src="hf_images/historyback.jpg" width="160" height="93"></td>
                      </tr>
                      <tr>
                        <td><img src="hf_images/historyback.jpg" width="160" height="93"></td>
                      </tr>
                      <tr>
                        <td><img src="hf_images/historyback.jpg" width="160" height="93"></td>
                      </tr>
                  </table></td>
                  <td align="right" valign="top"><table width="98%" border="0" align="right" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="70%" align="right" valign="top"><tr><td>
<%
set rs=conn.execute("select * from book_setup")
pages=clng(rs("pages"))
html=clng(rs("html"))
book_jianju=clng(rs("book_jianju"))
bad=cstr(rs("bad"))
huifutishi=cstr(rs("huifutishi"))
huifucolor=cstr(rs("huifucolor"))

set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from book where online='1' "
keywords=request("keywords")
if keywords<>"" then sql=sql+ " and Comments like '%"&keywords&"%' "
sql=sql + "order by top desc,Postdate desc"
rs.open sql,conn,1
if not (rs.eof and rs.bof) then			'如果有留言时，就显示留言。此行的if与倒数第6行的end if相对应

if pages=0 or pages="" then pages=10		'每页留言条数
rs.pageSize = pages	'每页记录数
allPages = rs.pageCount	'总页数
page = Request("page")	'从浏览器取得当前页
'if是基本的出错处理

If not isNumeric(page) then page=1

if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages 
end if
rs.AbsolutePage = page			'转到某页头部
	Do While Not rs.eof and pages>0
	UserName=rs("UserName")		'用户名
	pic=rs("pic")			'头像
	face=rs("face")			'表情

	Comments=rs("Comments")		'内容
	bad1=split(bad,"/")		'过滤脏话
	for t=0 to ubound(bad1)
	Comments=replace(Comments,bad1(t),"***")
	next

	Replay=rs("Replay")		'回复
	Usermail=rs("Usermail")		'邮件
	url=rs("url")			'主页
	I=I+1				'序号
	temp=RS.RecordCount-(page-1)*rs.pageSize-I+1
	%>

<table cellSpacing="1" cellPadding="3" width="468" align="center" bgColor="#000000" border="0"  style="word-break:break-all">
  <tr>
	<td vAlign="top" width="25%" bgColor="#f7f7f7" rowSpan="2" align=center>
	<table border=0 width=95%><tr><td align=center><img src=images/face/pic<%=pic%>.gif border=0></td></tr>
	<tr><td>姓名：<%=UserName%><br>
	来自：<%=(rs("IP"))%><br>
	邮件：<a href=mailto:<%=Usermail%>><img src=images/mail.gif border=0> 邮件</a><br>
	主页：<a href="<%=URL%>" target='_blank'><img src=images/home.gif border=0> 主页</a></td></tr></table>
	</td>
	<td width="75%" height="20" bgColor="#ffffff">[NO.<%=temp%>] <img border=0 src=images/face/face<%=face%>.gif> 发表于：<%=cstr(rs("Postdate"))%></td>
  </tr>
  <tr>
	<td vAlign="top" bgColor="#ebebeb" width='75%' height=120 onMouseOver="bgColor='#FFffff'" onMouseOut="bgColor='#ebebeb'">
	<%
	if html=0 then
	response.write replace(server.htmlencode(Comments),vbCRLF,"<BR>")
	else
	response.write replace(Comments,vbCRLF,"<BR>")
	end if
	%>
	<br><br>
	<%if rs("Replay")<>"" then%>
	<table cellSpacing="1" cellPadding="3" width="90%" align="center" bgColor="darkgray" border="0">
	  <tr><td vAlign="top" bgColor="#f7f7f7">	
	<font color=<%=huifucolor%>><%=huifutishi%>：<br><%=Replay%></font>
	</td></tr></table><br>
	<%end if%>
	</td>
  </tr>
</table>
<table cellSpacing="0" cellPadding="0" width="480" align="center" border="0">
<TR><TD height=<%=book_jianju%>> </TD></TR></TABLE>

<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
response.write "<table border=0 width=480 align=center><tr><td><form action='book.asp' method='post'>总计"&RS.RecordCount&"条 "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=book.asp?keywords="&keywords&"&page=1>首页</a> <a href=book.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=book.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=book.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页 &nbsp; 第 "
response.write "<select name='page'>"
for i=1 to allpages
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select> 页 <input type=submit name=go value='Go'><input type=hidden name=keywords value='"&keywords&"'></form></td><td align=right>"
response.write "<form action='book.asp' method='post'><input title='想查找什么内容' type=text name=keywords value='"&keywords&"' size=10 maxlength=20><input type=submit value='搜索' title='给我搜'></form></td></tr></table>"

else
response.write "<table cellSpacing=0 cellPadding=0 width=480 align=center bgColor=#FFFFFF border=0><TR><TD height=120 align=center>"
if keywords="" then response.write "暂时没有留言" else response.write "抱歉，没有找到您要查到的内容<br><br><a href='javascript:history.go(-1)'>返回上一页</a>" end if
response.write "</TD></TR></TABLE>"
end if
%>
</td></tr></td>
                    </tr>
                  </table></td>
                </tr> 
					 </TBODY>
					</TABLE>
				</TD>
			</TR>
              <TR>
                <TD vAlign=top height=10>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD width="2%"><IMG height=10 src="hf_images/kuan_LB.jpg" width=10></TD>
                      <TD class=line_B width="95%"><IMG height=10 src="hf_images/spacer.gif" width=640></TD>
                      <TD width="3%"><IMG height=10  src="hf_images/kuan_RB.jpg" width=10></TD>
					</TR>
				    </TBODY>
				   </TABLE>
				  </TD>
				</TR>
				</TBODY>
			</TABLE><BR><BR></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top align=right width=116><IMG height=342  src="hf_images/hf_right_ad.jpg" width=116></TD></TR></TBODY></TABLE>
<!--中间End-->
<!--底部Star-->
<!--#include file="hf_down.asp"-->
<!--底部End-->