page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
sql="select * from zhuanjia order by Product_Date DESC"
rs.open sql,conn,3,1
if rs.eof then
%>
<tr bgcolor="#EEEEEE">
<td height="24" colspan="2"><div align="center"><font color="#FF0000" size="3">暂时没有专家!!!</font></div></td>
</tr>
<%
response.end
else
rs.pagesize=5
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim id(),xingming(),zhaopian(),zhicheng(),jianjie(),dizhi()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve id(i),xingming(i),zhaopian(i),zhicheng(i),jianjie(i),dizhi(i)
id(i)=rs("id")
xingming(i)=rs("xingming")
zhaopian(i)=rs("zhaopian")
zhicheng(i)=rs("zhicheng")
jianjie(i)=rs("jianjie")
dizhi(i)=rs("dizhi")
rs.movenext
loop
end if
rs.close
%>
<tr>
<%for i = 1 to ubound(id)%>
<td width="31%" HEIGHT="140" align="center" valign="middle" bgcolor="#EEEEEE"><div align="center"> <a href="cpzs_list.asp?id=<%=id(i)%>" target="_blank"> </a>
<table width="100" height="100" border="1" cellpadding="1" cellspacing="1" bordercolor="#666666">
<tr>
<td><a href="cpzs_list.asp?id=<%=id(i)%>" target="_blank"><img border="0" src="
<%
if trim(zhaopian(i))="" then
response.Write("images/none.jpg")
else
response.Write(trim(zhaopian(i)))
end if
%>
" width="100" height="100"></a></td>
</tr>
</table>
</div></td>
<td width="69%" HEIGHT="140" bgcolor="#EEEEEE" class="text">专家姓名：<%=xingming(i)%><br>
职称:<%=zhicheng(i)%><br>
联系地址:<%=dizhi(i)%><br>
专家简介:
<%
if len(jianjie(i))>1 then
response.Write(left(jianjie(i),15) & "......")
else
response.Write(trim(jianjie(i)))
end if
%>
<br>
<br>
</td>
<%a=a+1%>
<%if a>0 then %>
</tr>
<tr>
<%a=0%>
<%end if%>
<%next%>
</tr>
<tr align="center" valign="middle" bgcolor="#EFEFEF">
<td height="29" COLSPAN="6"><p align="center" class="text"> 共<%=totalpage%>页 第<%=page%>页