相关代码 |
|
dim rs,sql
dim totalPut
dim CurrentPage
dim TotalPages
set rs = server.createobject("adodb.recordset")
keyword=request("keyword")
area=request("area")
company=request("company")
if keyword="" then
errmsg=errmsg+""+"请输入关键字。"
founderr=true
else
keyword=replace(replace(replace(replace(keyword,"'","‘"),"",">")," "," ")
end if
%>
查询结果
bgcolor=#666666 border=0>
if page="" then page=1
if not(isnumeric(page)) then page=1
if page page=int(page)
if request("action")="title" then
findword="hw_name like '%"&keyword&"%' "
if company="" then
sql="select * from hw where "&findword&" and area='"&area&"' order by hw_id DESC"
else
sql="select * from hw where "&findword&" and user_company='"&company&"' and area='"&area&"' order by hw_id DESC"
end if
showContent
else
findword="user_company like '%"&keyword&"%' "
sql="select * from member where "&findword&""
showCompany
end if
%>
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有或没有找到任何产品"
else
rs.pagesize=10
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
'rs.absolutepage=page
do while not rs.eof
%>
商品名称：
上架时间：
商品价格：元
商品介绍：
商品所属公司： 查看的信息
end sub%>
sub showCompany
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有或没有找到任何公司"
else
rs.pagesize=10
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
'rs.absolutepage=page
do while not rs.eof%>
公司名称：
公司电话：
公司主要负责人：
公司E-mail：
end if
end sub
rs.movenext
loop
%>
共页 第页
0 then%>上一页上一页 下一页下一页
关键字：
经销商：
地区：
set rs=nothing
conn.close
set conn=nothing
%>
相关资源 |
|