ÉÔ΢ÓеãÄÑ£¬Çë´ó¼Ò°ïæ½â¾ö£¬ÔÚÏßµÈ

ÎÒžé¤×¤£Çé×í

<%
dim conn
dim DBOath
dim rs
dim sql
Set conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("chinalaserinfo.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs=Server.CreateObject("ADODB.Recordset")
'´ÓWebÒ³»ñÈ¡Öµ
dim flag
dim gsname
dim cpname
dim fenlei
dim jiage
gsname=request("gsname")
cpname=request("cpname")
fenlei=request("fenlei")
jiage=request("jiage")
gsname=replace(gsname,"*","%")
cpname=replace(cpname,"*","%")
fenlei=replace(fenlei,"*","%")
jiage=replace(jiage,"*","%")
'ö¾Ù·¨µÄËÑË÷ºËÐÄ£¬ÒòΪÓÐ3¸öÌõ¼þËùÒÔҪд8×éIfÅжÏÓï¾ä
sql="select * from info where"
if gsname<>"" then
sql=sql&" gsname like '%"&gsname&"%' "
flag=1
end if
if cpname<>"" and flag=1 then
sql=sql&" and cpname like '%"&cpname&"%'"
flag=1
elseif cpname<>"" then
sql=sql&" cpname like '%"&cpname&"%'"
flag=1
end if
if fenlei<>"" and flag=1 then
sql=sql&" and fenlei like '%"&fenlei&"%'"
flag=1
elseif fenlei <>"" then
sql=sql&" fenlei like '%"&fenlei&"%'"
flag=1
end if
if jiage <>"" and flag=1 then
sql=sql&" and jiage like '%"&jiage&"%'"
flag=1
elseif jiage <>"" then
sql=sql&" jiage like '%"&jiage&"%'"
flag=1
end if
if flag=0 then
sql="select * from info order by ID desc"
end if
rs.open sql,conn,1,1
gsname=replace(gsname,"%","*")
cpname=replace(cpname,"%","*")
fenlei=replace(fenlei,"%","*")
jiage=replace(jiage,"%","*")
'ÏÔʾËÑË÷½á¹û
if not rs.eof then
proCount=rs.recordcount
rs.PageSize=10 '¶¨ÒåÏÔʾÊýÄ¿
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=20>&nbsp;</TD>
<TD><b><a href="<%=rs("www")%>"><%=rs("gsname")%></a></b>¡¡--> (<%=rs("cpname")%>) ËùÊô [<%=rs("fenlei")%>] </TD>
</TR>
<TR>
<TD>&nbsp;</TD>
<TD><span class="STYLE13">µç»°: <%=rs("tel")%> | ´«Õæ: <%=rs("fax")%> | E-Mail <%=rs("mail")%> | <a href="?work=edit&id=<%=rs("id")%>">ÐÞ¸Ä</a> | <A href="javascript:DoEmpty('?work=del&id=<%=rs("id")%>&ok=ck')">ɾ³ý</a> | <a href="?work=addcp&id=<%=rs("id")%>">Ìí¼Ó</a></span></TD>
</TR>
<TR>
<TD>&nbsp;</TD>
<TD class=formatU> <table width="500" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>Ó¦Ó÷¶Î§£º<%=rs("yingyong")%></td>
</tr>
</table>
<br>
<br>
<span class="STYLE12">
<%if trim(rs("upimg"))<>"" then%>
²úƷͼƬ: <br><img src="/product/file/s/<%=rs("upimg")%>"><BR>
<%end if%>
</span></TD>
</TR>
<TR>
<TD colspan="2"><hr size="1"></TD>
</TR>
<%
rs.MoveNext
next
%>
<TR>
<TD>&nbsp;</TD>
<TD><table width="760" border="0" 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">µÚÒ»Ò³</a>|<a href="?ToPage=<%=intCurPage-1%>">ÉÏÒ»Ò³</a>|
<% end if
if intCurPage<>rs.PageCount then %>
<a href="?ToPage=<%=intCurPage+1%>">ÏÂÒ»Ò³</a>|<a href="?ToPage=<%=rs.PageCount%>"> ×îºóÒ³</a>|
<% end if%>
תµ½µÚ
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to RS.PageCount
if i = intpage then%>
<option value="?ToPage=<%=i%>" selected><%=i%></option>
<%else%>
<option value="?ToPage=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>
Ò³
</span></div></TD>
</TR>
</TABLE>
<%
else
%>
<TABLE width="80%" align="center">
<TR>
<TD>¶Ô²»Æð£¡Ä¿Ç°¿âÖÐûÓÐÄúÒª²éѯµÄ¼Ç¼!</TD>
</TR>
</TABLE>
<%
end if
rs.close
set rs=nothing
%></td>
</tr>
</table>


´íÎóÀàÐÍ£º
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC Çý¶¯³ÌÐò²»Ö§³ÖËùÐèµÄÊôÐÔ¡£
/product/product_search.asp, µÚ 105 ÐÐ
105ÐÐ rs.open sql,conn,1,1
½« < ¸Ä³É like ¼´Õý³£,ÎÒÏëÒªËÑË÷Õâ¸ö¼ÛÇ®ÒÔÄڵIJúÆ·
Áí£¬µ±µã»÷ÏÂÒ»Ò³³öºóÏÔʾËùÓвúÆ·£¬ÇëÎÊÔõô½«ËÑË÷µÄÖµ¸øÓèÿһҳ