<!--#include file="top.asp" -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><!--产品开始 -->
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="centerleft">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td><!--左侧分类开始 --><script language="javascript" src="left.asp?action=left&anclassid=<%=request("anclassid")%>&nclassid=<%=request("nclassid")%>"></script></td>
</tr>
<tr><td><!--左侧新闻开始 --><%set rs=server.createobject("adodb.recordset")
rs.open"select top 10 * from news_moban where searchkey like '%今日%' order by updatetime desc",conn,1,1
if rs.eof then
else
response.write"<table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td style=padding-left:2px;padding-bottom:5px;padding-top:5px>"
response.write"<span class=channelspan>今日行情</span></td></tr>"
while not rs.eof
text=rs("title")
response.write"<tr><td style=padding-left:5px><a href="&rs("pathlink")&" target=_blank class=00>"&get22Length(text)&"</a></td></tr>"
rs.movenext
wend
end if
response.write"</table>"
rs.close
set rs=nothing%></td></tr>
</table></td>
<td valign="top" class="main1">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td><!--通栏广告1 --><table border="0" align="center" cellpadding="0" cellspacing="0">
<%b=split(ggother("458"),".")
a=split(ggother("458url"),",")
if ggother("458")="" then
elseif b(1)="swf" then%>
<tr><td><embed src="../<%=ggother("458")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="<%=a(0)%>" height="<%=a(1)%>"></embed></td></tr>
<%elseif b(1)="jpg" or b(1)="gif" then%>
<tr><td><a href="<%=a(2)%>" target="_blank"><img src="../<%=ggother("458")%>" width="<%=a(0)%>" height="<%=a(1)%>" border="0"></a></td></tr>
<%end if%>
</table></td></tr>
<tr>
<td><!--产品检索规则 --><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%set rs=server.createobject("adodb.recordset")
anclassid=request("anclassid")
nclassid=request("nclassid")
ppid=request("ppid")
'//搜一类
if anclassid<>"" and nclassid="" and ppid="" then
rs.open"select * from price where anclassid="&anclassid&" order by updatetime desc",conn,1,1
'//搜二类
elseif anclassid<>"" and nclassid<>"" and ppid="" then
rs.open"select * from price where nclassid="&nclassid&" order by updatetime desc",conn,1,1
'//搜三类
elseif anclassid="" and nclassid<>"" and ppid<>"" then
rs.open"select * from price where ppid="&ppid&" order by updatetime desc",conn,1,1
'//不限
else
rs.open"select * from price order by updatetime desc",conn,1,1
end if
if rs.eof then
else
rs.PageSize =30 '每页记录数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize '每页记录数
maxpage=rs.PageCount  '每终页码
page=request("page") '获取当前页面页码
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page  '当前记录所在的页码
if page=maxpage then  '如果所在页码最大
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
dim b_1,b_count
b_1=int((x+4)/3)
if b_1>10 then 
b_1=10
end if%>
<tr class="tdcolor">
<form method=get onSubmit=""document.location = "<%=request.ServerVariables("url")%>?<%=temp%>page="+ this.page.value;return false;"">
<td align="right"><table border="0" cellspacing="0" cellpadding="3">
<%Dim query, a, x, temp
if instr(Request.ServerVariables("QUERY_STRING"), "&")>=0 then
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
end if
if page<=1 then%>
<tr>
<td><img src="images/onepage.gif" border="0"></td>
<td><img src="images/onpage.gif" border="0"></td>
<%else%>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=1" title="首页"><img src="images/onepage.gif" border="0"></a></td>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=(page-1)%>" title="上一页"><img src="images/onpage.gif" border="0"></a></td>
<%end if%>
<%if page>=maxpage then%>
<td><img src="images/nextpage.gif" border="0"></td>
<td><img src="images/endpage.gif" border="0"></td>
<%else%>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=page+1%>" title="下一页"><img src="images/nextpage.gif" border="0"></a></td>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=maxpage%>" title="末页"><img src="images/endpage.gif" border="0"></a></td>
<%end if%>
<td><%=maxpage%>页</td>
<td><%= icount %>条</td>
<td>转到
<input tyep="text" name=page class="inputnext" value="<%=page%>">
页
<input class="inputnext-go" type=submit value=go></td>
</table></td>
</form>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%for b_count=1 to b_1%>
<tr class="tdcolor pad">
<%if rs.eof then
else
hid=split(rs("hid"),"|")
money=split(rs("money"),"|")
text5=rs("bookname")%>
<td align="center"><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top"><a href="<%=rs("booklink")%>"><img src="../<%=rs("pic1")%>" height="75" width="95" class="img"></a></td>
<td rowspan="2" valign="top"><%if hid(0)<>"" then
text0=hid(0)
response.write""&get20Length(text0)&"<br>"
end if
if hid(1)<>"" then
text1=hid(1)
response.write""&get20Length(text1)&"<br>"
end if
if hid(2)<>"" then
text2=hid(2)
response.write""&get20Length(text2)&"<br>"
end if
if hid(3)<>"" then
text3=hid(3)
response.write""&get20Length(text3)&"<br>"
end if
if hid(4)<>"" then
text4=hid(4)
response.write""&get20Length(text4)&"<br>"
end if%>
<span class="price">报价:<%=money(1)%>元</span></td>
</tr>
<tr>
<td align="center"><%=get16Length(text5)%></td>
</tr>
</table></td>
<%rs.movenext%>
<%end if%>
<%if rs.eof then
else
hid=split(rs("hid"),"|")
money=split(rs("money"),"|")
text5=rs("bookname")%>
<td align="center"><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top"><a href="<%=rs("booklink")%>"><img src="../<%=rs("pic1")%>" height="75" width="95" class="img"></a></td>
<td rowspan="2" valign="top"><%if hid(0)<>"" then
text0=hid(0)
response.write""&get20Length(text0)&"<br>"
end if
if hid(1)<>"" then
text1=hid(1)
response.write""&get20Length(text1)&"<br>"
end if
if hid(2)<>"" then
text2=hid(2)
response.write""&get20Length(text2)&"<br>"
end if
if hid(3)<>"" then
text3=hid(3)
response.write""&get20Length(text3)&"<br>"
end if
if hid(4)<>"" then
text4=hid(4)
response.write""&get20Length(text4)&"<br>"
end if%>
<span class="price">报价:<%=money(1)%>元</span></td>
</tr>
<tr>
<td align="center"><%=get16Length(text5)%></td>
</tr>
</table></td>
<%rs.movenext%>
<%end if%>
<%if rs.eof then
else
hid=split(rs("hid"),"|")
money=split(rs("money"),"|")
text5=rs("bookname")%>
<td align="center"><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top"><a href="<%=rs("booklink")%>"><img src="../<%=rs("pic1")%>" height="75" width="95" class="img"></a></td>
<td rowspan="2" valign="top"><%if hid(0)<>"" then
text0=hid(0)
response.write""&get20Length(text0)&"<br>"
end if
if hid(1)<>"" then
text1=hid(1)
response.write""&get20Length(text1)&"<br>"
end if
if hid(2)<>"" then
text2=hid(2)
response.write""&get20Length(text2)&"<br>"
end if
if hid(3)<>"" then
text3=hid(3)
response.write""&get20Length(text3)&"<br>"
end if
if hid(4)<>"" then
text4=hid(4)
response.write""&get20Length(text4)&"<br>"
end if%>
<span class="price">报价:<%=money(1)%>元</span></td>
</tr>
<tr>
<td align="center"><%=get16Length(text5)%></td>
</tr>
</table></td>
</tr>
<%rs.movenext
end if
next
rs.close
set rs=nothing%>
</table></td>
</tr>
<tr class="tdcolor">
<form method=get onSubmit=""document.location = "<%=request.ServerVariables("url")%>?<%=temp%>page="+ this.page.value;return false;"">
<td align="right"><table border="0" cellspacing="0" cellpadding="3">
<%if page<=1 then%>
<tr>
<td><img src="images/onepage.gif" border="0"></td>
<td><img src="images/onpage.gif" border="0"></td>
<%else%>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=1" title="首页"><img src="images/onepage.gif" border="0"></a></td>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=(page-1)%>" title="上一页"><img src="images/onpage.gif" border="0"></a></td>
<%end if%>
<%if page>=maxpage then%>
<td><img src="images/nextpage.gif" border="0"></td>
<td><img src="images/endpage.gif" border="0"></td>
<%else%>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=page+1%>" title="下一页"><img src="images/nextpage.gif" border="0"></a></td>
<td><a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=maxpage%>" title="末页"><img src="images/endpage.gif" border="0"></a></td>
<%end if%>
<td><%=maxpage%>页</td>
<td><%= icount %>条</td>
<td>转到
<input tyep="text" name=page class="inputnext" value="<%=page%>">
页
<input class="inputnext-go" type=submit value=go></td>
</table></td>
</form>
</tr>
</table></td>
</tr>
<tr><td><!--通栏广告2 --><table border="0" align="center" cellpadding="0" cellspacing="0">
<%b=split(ggother("2543"),".")
a=split(ggother("2543url"),",")
if ggother("2543")="" then
elseif b(1)="swf" then%>
<tr><td><embed src="../<%=ggother("2543")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="<%=a(0)%>" height="<%=a(1)%>"></embed></td></tr>
<%elseif b(1)="jpg" or b(1)="gif" then%>
<tr><td><a href="<%=a(2)%>" target="_blank"><img src="../<%=ggother("2543")%>" width="<%=a(0)%>" height="<%=a(1)%>" border="0"></a></td></tr>
<%end if%>
</table></td></tr>
</table>
</td></tr></table></td>
<td class="centerleft">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td><!--右侧分类开始 --><script language="javascript" src="left.asp?action=right&nclassid=<%=request("nclassid")%>"></script></td></tr>
<tr><td style="padding-left:3px"><%set rs=server.createobject("adodb.recordset")
rs.open"select * from shjia where flag=2 order by num,tj desc",conn,1,1
if not rs.eof then
response.write"<span class=channelspan>推荐商家</span><br>"
i=0
do while not rs.eof
shjianame=replace(rs("name"),"青岛","")
shjianame=replace(shjianame,"有限","")
shjianame=replace(shjianame,"公司","")
shjianame=replace(shjianame,"科技","")
shjianame=replace(shjianame,"技术","")
shjianame=replace(shjianame,"专卖","")
response.write"<img src=../image/jian.gif border=0>&nbsp;"
response.write"<a href=../user/index.asp?id="&rs("shjiaid")&" target=_blank class=00>"&shjianame&"</a><br>"
response.write" "&rs("tel")&"<br> "
rs.movenext
i=i+1
if i>=10 then exit do
loop
end if
rs.close
set rs=nothing%></td></tr>
</table></td>
</tr>
</table></td>
</tr>
<tr><td bgcolor="#F1F1F1"><!--#include file="../copyright.asp" --></td></tr></table>
</body>
</html>