class1info.asp

信息类网站的不错选择

else
myurl=myurl+"&"
end if
end if



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="5" height="37"><B><FONT color=black>普通<%=sclass1%>信息区</FONT></B></TD>
          </TR>

 <TR bgColor=#cbdcb6>
          <TD align=middle width=50>序号</TD>
          <TD align=middle>标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;题</TD>
          <TD align=middle width=40>类别</TD>
          <TD align=middle width=50>联系人</TD>
          <TD align=middle width=110>发布时间</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
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 ""&ars("biaoti")&""
response.write "</a>"
response.write "</td>"
response.write "<td>"
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 "[<font color="&arslx("lxcolor")&">"&arslx("leixing")&"</font>]"
arslx.close
set arslx=nothing
rslx2.close
response.write "</td>"

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

response.write "<td  align=""middle""  width=""80"" height=""22"">"&datevalue(ars("fbsj"))&"</td></tr>"
atj=atj+1
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
%>