class1info2.asp

信息类网站的不错选择

if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?"&myurl&"page=1>首页</a>&nbsp;"
response.write "<a href=?"&myurl&"page="&ThisPage-1&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"   
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?"&myurl&"page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?"&myurl&"page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
      <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table21">
		<tr>
			<td align="center">
			<SCRIPT LANGUAGE=JavaScript>
<!--
var scrollerwidth=580
var scrollerheight=73
var scrollerbgcolor='#ffffff'
var num = 20
var staytime='8000'
var slidespeed='100'
var slides=new Array() 
if (slides.length>1)
i=2
else
i=0 

function move1(whichlayer){  
tlayer=eval(whichlayer)  
if (tlayer.top>0&&tlayer.top<=num){  
tlayer.top=0  
setTimeout("move1(tlayer)",staytime)  
setTimeout("move2(document.main.document.second)",staytime)  
return  
}  

if (tlayer.top>=tlayer.document.height*-1){  
tlayer.top-=num
setTimeout("move1(tlayer)",slidespeed)  
}  
else{  
tlayer.top=scrollerheight  
tlayer.document.write(slides[i])  
tlayer.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move2(whichlayer){  
tlayer2=eval(whichlayer)  
if (tlayer2.top>0&&tlayer2.top<=num){  
tlayer2.top=0  
setTimeout("move2(tlayer2)",staytime)  
setTimeout("move1(document.main.document.first)",staytime)  
return  
}  
if (tlayer2.top>=tlayer2.document.height*-1){  
tlayer2.top-=num
setTimeout("move2(tlayer2)",slidespeed)  
}  
else{  
tlayer2.top=scrollerheight  
tlayer2.document.write(slides[i])  
tlayer2.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move3(whichdiv){  
tdiv=eval(whichdiv)
if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=num){  
tdiv.style.pixelTop=0  
setTimeout("move3(tdiv)",staytime)  
setTimeout("move4(second2)",staytime)  
return  
}  
if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1){  
tdiv.style.pixelTop-=num
setTimeout("move3(tdiv)",slidespeed)  
}  
else{  
tdiv.style.pixelTop=scrollerheight  
tdiv.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move4(whichdiv){  
tdiv2=eval(whichdiv)  
if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=num){  
tdiv2.style.pixelTop=0  
setTimeout("move4(tdiv2)",staytime)  
setTimeout("move3(first2)",staytime)  
return  
}

if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){  
tdiv2.style.pixelTop-=num  
setTimeout("move4(second2)",slidespeed)  
}  
else{  
tdiv2.style.pixelTop=scrollerheight  
tdiv2.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}}  
  
function startscroll(){  
if (document.all){ 
move3(first2)  
second2.style.top=scrollerheight  
second2.style.visibility='visible'  
}  
else if (document.layers){  
document.main.visibility='show'  
move1(document.main.document.first)  
document.main.document.second.top=scrollerheight+num  
document.main.document.second.visibility='show'  
}}

window.onload=startscroll
//-->
</SCRIPT> <SCRIPT LANGUAGE=JavaScript>
<!--
slides[0]='<a href=<%=ad0web%> target="_blank"><img src=<%=ad0%> border="0" width=568 height="72"></a>'
slides[1]='<a href=<%=ad1web%> target="_blank"><img src=<%=ad1%> border="0" width=568 height="72"></a>'
slides[2]='<a href=<%=ad6web%> target="_blank"><img src=<%=ad6%> border="0" width=568 height="72"></a>'
//-->
</SCRIPT> <SCRIPT LANGUAGE=JavaScript>
<!--
if (document.all){
document.writeln('<span id="main2" style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight+';overflow:hiden;background-color:'+scrollerbgcolor+')">')
document.writeln('<div style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0;top:0">')
document.writeln('<div id="first2" style="position:absolute;width:'+scrollerwidth+';left:0;top:1;">')
document.write(slides[1])
document.writeln('</div>') 
document.writeln('<div id="second2" style="position:absolute;width:'+scrollerwidth+';left:0;top:0;visibility:hidden">')
document.write(slides[2])
document.writeln('</div></div></span>')
}
//-->
</SCRIPT></td>
		</tr>
		</table>
      <table width="100%" id="table18">
<tr>
<td height="75" valign="top" width="597">
<div align="center">
<TABLE style="FONT-SIZE: 10pt" borderColor=#333333 cellSpacing=1 
      cellPadding=3 width=570 bgColor=#999999 border=0 id="table19">
 <TR bgColor=#cbdcb6>
          <TD align=middle colspan="4" height="37"><B><FONT color=black>普通<%=sclass1%>信息区</FONT></B></TD>
          </TR>

 <TR bgColor=#cbdcb6>
          <TD align=middle width=38>序号</TD>
          <TD align=middle width="343">标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;题</TD>
          <TD align=middle width=97>联系电话</TD>
          <TD align=middle width=60>联系人</TD>
          </TR>

<%
dim ars,asql,aThisPage,aPagesize,aAllrecord,aAllpage,aleixing
set ars=server.createobject("adodb.recordset")
atj=0
if  len(trim(request("wtype")))>0 then 
asql = "select * from [xinxi] where yz=1 and class1="&class1&" and   leixing="&request("wtype")&"  and  vip=0  order by id desc"
else
asql = "select * from [xinxi] where yz=1 and class1="&class1&" and  vip=0   order by id desc"
end if

ars.open asql,conn,1,1
ars.Pagesize=15
aPagesize=ars.Pagesize
aAllrecord=ars.Recordcount
aAllpage=ars.Pagecount
if aThisPage<1 then                           
aThisPage=1                           
end if
On Error Resume Next
ars.move (aThisPage-1)*aPagesize
if ars.eof then
response.write "还没有此类信息！"
else
do while not ars.eof
sqllx="select  *   from  class1   where   id="&ars("class1")&"   "
rslx2.open   sqllx,conn,1,1
dim arslx,asqllx
set arslx=server.createobject("adodb.recordset")
asqllx="select *  from [leixing]  where  id="&ars("leixing")&""
arslx.open asqllx,conn,1,1

response.write "<TR bgColor=#f1fae6>"
response.write "<TD align=middle bgColor=#cbdcb6>"
response.write  ars("id")
response.write "</td>"
response.write "<td>"
response.write "<a target=""_blank""   href="&rslx2("memopage")&"?cnmai="&ars("id")&">"
response.write "&nbsp;"
response.write "[<font color="&arslx("lxcolor")&">"&arslx("leixing")&"</font>]"

if  len(ars("addr1"))>0  then
response.write ars("addr1")&"区"
end if
if  ars("htype")=1  then
response.write  "单间，"
else
response.write   "套房，"
end if
if  htype=2  and  ars("room")<>""  and   ars("room")<>"0"   and  ars("hall")<>""   and   ars("hall")<>"0"   then
response.write    ars("room")&"房"&ars("hall")&"厅，"
end if
if  len(ars("size"))>1  then
response.write ars("size")&"平方米，"
end if

if  ars("price")="0"  or   ars("price")=""  then
response.write "价格面议"
else
response.write  ars("price")&"元"
end if

rresponse.write "</a>"

response.write "</td>"
response.write "<td>"
response.write  ars("phone")

response.write "</td>"

response.write "<td>"
response.write ars("name")
response.write "</td>"

response.write "</tr>"
atj=atj+1
arslx.close
set arslx=nothing
rslx2.close
ars.movenext
if atj>=aPagesize then exit do
loop
end if
ars.close
set  rslx2=nothing
set ars=nothing
%>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="552" id="table20">
<tr> 
<td height="25" width="151">
<p align="center">
共有&nbsp;<font color="#CC5200"><%=aAllrecord%></font>&nbsp;条记录</td>
<td height="25" width="126">
<p align="center">共 <font color="#CC5200"><%=aAllpage%></font> 页</td>
<td height="25" width="118">
<p align="center">现在是第 
<font color="#CC5200"><%=aThisPage%></font> 页</td>
<td height="25" width="157">
<p align="center">
<%dim   amyurl,apageposition
amyurl=Request.ServerVariables("QUERY_STRING")

if  amyurl<>""   then
apageposition=instr(amyurl,"page")
if apageposition>0  then
amyurl=left(amyurl,apageposition-1)
else
amyurl=amyurl+"&"
end if
end if



if aThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?"&amyurl&"apage=1>首页</a>&nbsp;"
response.write "<a href=?"&amyurl&"apage="&aThisPage-1&">上一页</a>&nbsp;"     
end if
if aAllpage-aThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"   
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?"&amyurl&"apage="&(aThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?"&amyurl&"apage="&aAllpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table> 
      </TD></TR></TBODY></TABLE>
</div>
</BODY></HTML>  
<%
closedb
%>