<!--#include file="conn.asp"-->
<%
p=3
%>
<%
stitle=trim(request("stitle"))
stype=trim(request("stype"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临昆明人企业网站管理系统3.0[终极完美双语版]网站</title>
<link href="css.css" rel="stylesheet" type="text/css">
<Script language="JavaScript1.3" type="text/javascript">
<!--
function gopage()
{
	var o=document.getElementById("num");
	var num=o.value;
	if(!isNaN(parseInt(num)))
	{
		document.URL="result.asp?page="+num+"&stitle=<%=stitle%>&stype=<%=stype%>";
	}
}
//-->
</Script>
</head>

<body leftmargin="0" rightmargin="0" topmargin="0" marginwidth="0" marginheight="0" bottommargin="0" class="bg1">
<table width="1004" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.htm" -->
</td>
  </tr>
  <tr>
    <td align="center" valign="top"><table width="765" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td width="139" height="7"><img src="image/none.jpg" width="12" height="7"></td>
          <td width="4"></td>
          <td height="7"><img src="image/none.jpg" width="12" height="7"></td>
          <td height="7"><img src="image/none.jpg" width="12" height="7"></td>
          <td height="7"><img src="image/none.jpg" width="12" height="7"></td>
        </tr>
        <tr> 
          <td valign="top" class="pbg"> 
            <!--#include file="pleft.asp" -->
          </td>
          <td width="4" valign="top" background="image/dot.jpg" ><img src="image/dd.jpg" width="4" height="34"></td>
          <td width="28" valign="top" bgcolor="#FFFFFF" >&nbsp;</td>
          <td valign="top" > <table width="491" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="36">&nbsp; </td>
              </tr>
              <tr> 
                <td><table width="458" border="0" cellspacing="0" cellpadding="0">
                  <%
Set rs=Server.CreateObject("Adodb.RecordSet")
sqlwhere=""
if trim(request("stype"))<>"" then
sqlwhere=sqlwhere&" and ssxn="&trim(request("stype"))&""
end if

if trim(request("stitle"))<>"" then
sqlwhere=sqlwhere&" and jxmc like '%"&trim(request("stitle"))&"%'"
end if

Sql="Select * from cbgl where id is not null"&sqlwhere&" order by fbtime desc"
'response.Write sql
page=Request("page")
if page<>"" then 
 page=cdbl(page)
else
 page=1
end if
rs.PageSize=3
rs.open Sql,conn,1,1
Total_Page=rs.PageCount
if (rs.PageCount<page) then page=rs.PageCount
if (page<1) then  page=1
if not rs.eof then  rs.AbsolutePage=page
%>
                  <%if rs.bof and rs.eof then %>
                  <tr>
                    <td valign="top">
                      <table width="458"  border="0" cellpadding="0" cellspacing="0" class="pfont">
                        <tr>
                          <td height="300"><div align="center">对不起，暂无符合条件的产品信息！</div></td>
                        </tr>
                    </table></td>
                  </tr>
                  <% else %>
                  <%
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
                  <tr>
                    <td valign="top">
                      <table width="458" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><img src="image/line4.jpg" width="458" height="10"></td>
                        </tr>
                        <tr>
                          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td width="180" align="center"><a href="productinfo.asp?pid=<%=trim(pid)%>&id=<%=rs("id")%>"><img src=<%if trim(rs("pic"))<>"" then%>"back/upload/<%=trim(rs("pic"))%>"<%else%>"image/pp2.jpg"<%end if%> width="150" height="147" border="0"></a></td>
                                <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="pfont">
                                    <tr>
                                      <td height="25" class="bigfont2"><%=rs("jxmc")%></td>
                                    </tr>
                                    <tr>
                                      <td height="125" valign="top"  style="word-break:break-all">产品用途：
                                          <%if len(rs("sy"))>105 then%>
                                          <%=left(rs("sy"),105)%>..
                                          <%else%>
                                          <%=rs("sy")%>
                                          <%end if%></td>
                                    </tr>
                                    <tr>
                                      <td valign="top" height="5"></td>
                                    </tr>
                                    <tr>
                                      <td height="27" align="right"><a href="productinfo.asp?pid=<%=trim(pid)%>&id=<%=rs("id")%>"><img src="image/info.jpg" width="88" height="27" border="0"></a></td>
                                    </tr>
                                </table></td>
                              </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td><img src="image/line4.jpg" width="458" height="10"></td>
                        </tr>
                        <tr>
                          <td>&nbsp;</td>
                        </tr>
                    </table></td>
                  </tr>
                  <%
rs.movenext
next 
end if
%>
                  <tr>
                    <td align="right">
                      <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" class="main4">
                        <tr>
                          <td width="92%"><div align="right">第<%=page%>页　共<%=rs.recordcount%>条　
                                  <%
		if totalpage<>1 then
			if page>1 then
				response.Write("<a href='result.asp?page=1&stype="&trim(stype)&"&stitle="&trim(stitle)&"'>首页</a>　<a href='result.asp?page="&page-1&"&stype="&trim(stype)&"&stitle="&trim(stitle)&"'>上一页</a>")
			else
				response.Write("首页　上一页")
			end if
			
			if page<Total_Page then
				response.Write("　<a href='result.asp?page="&page+1&"&stype="&trim(stype)&"&stitle="&trim(stitle)&"'>下一页</a>　<a href='result.asp?page="&Total_Page&"&stype="&trim(stype)&"&stitle="&trim(stitle)&"'>未页</a>")
			else
				response.Write("　下一页　未页")
			end if
		end if
		%>
              　 转到：
              <input name="num" type="text" class="f1" id="num2" size="3" maxlength="5">
                          </div></td>
                          <td width="8%"><div align="right"><img src="image/go.jpg" width="27" height="23" id="btngo" onclick="gopage();" ></div></td>
                        </tr>
                    </table></td>
                  </tr>
                </table></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
            </table></td>
          <td width="90" align="right" valign="top"> 
            <!--#include file="right.htm" -->
          </td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td align="center" valign="top">
      <!--#include file="bottom.htm" -->
    </td>
  </tr>
</table>
</body>
</html>
