|
大家帮忙看看为什么红色的代码实现不了跳转功能?
<!--#include file="../inc/conn_other.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/1.css" rel="stylesheet" type="text/css">
<link href="../../css/2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(../../images/bg1111.gif);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<body>
<p>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="212" height="550"> </td>
<td width="780" align="center" valign="top"><TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<!--DWLayoutTable-->
<TR>
<TD width="509" height="218" valign="top" background="../../images/left_bg.gif"><table width="509" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table> <table width="509" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="99%" height="205" border="0" cellpadding="0" cellspacing="1">
<%
set rs=server.createobject("adodb.recordset")
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%>页
<%if page-1>0 then%>
<a href="cpzs.asp?page=<%=page-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%if page+1<=totalpage then%>
<a href="cpzs.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></TD>
<TD width="271"> </TD>
<td width="128"></td>
</TR>
<tr>
<td height="331"></td>
<td></td>
<td></td>
</tr>
<TR>
<TD height="1" colspan="2"><IMG SRC="../../images/spacer.gif" WIDTH=79 HEIGHT=1 ALT=""></TD>
<td></td>
</TR>
</TABLE></td>
</tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</p> |
|