三亚凤凰镇:这里面的上一页不能用还有下一页看看什么问题。。谢谢!

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 05:17:27
<%
id=390
if request("id")<>"" then
id=request("id")
else
'response.Redirect("ind.html")
end if
%>
<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" scroll="no">
<table width="800" border="0" cellpadding="0" cellspacing="0" align="center">
<tr><td height="600" valign="top" background="images/xs.jpg">
<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr><td height="580" valign="bottom">
<%
du=1
sql="select * from smallclass where id="&id
set rs=conn.execute(sql)
if rs.eof then
response.Write("<br><br><br><br><br><br><center>资料正在整理,尚未录入,如有疑问请联系管理员</center>")

end if
smallclassname=rs("smallclassname")
set rs=nothing
if smallclassname<>"" then
set rs=server.Createobject("ADODB.Recordset")
sql="select * from k_new where smallclassname ='"&smallclassname&"' order by k_lever desc,k_addtime desc,k_id desc"
'response.Write(sql)
'response.End()
rs.open sql,conn,1,1
if RS.recordcount=1 then
%>
<script language="JavaScript">
window.location='content.asp?k_id=<%=rs("k_id")%>&geshi=1'
</script>
<%

response.End()
end if
if rs.eof then
response.Write("<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=300 align=center valign=top>资料正在整理,尚未录入,如有疑问请联系管理员</td></tr></table>")
'response.End()
du=2
end if
%>
<%
curpage=trim(Request("curpage"))
If curpage="" then
CurPage = 1
elseif curpage=0 or curpage<1 then
curpage=1
End If
curpage=cint(curpage)
if not rs.EOF then
' Response.Write("<br><br><br><br><cen渀樮杰?戠牯敤????o搸??ter><input type=button name=df value=后退 style=width:100;height:40 onClick=window.history.go(-1);></center>")
' Response.end

RS.PageSize=11
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
Dim Totalcount
Totalcount =INT(RS.recordcount)
end if

if not rs.eof then
%>

i=i+1
rs.movenext
wend
rs.close
set rs=nothing
%>
end if
end if%>
<td width="64%"><a href="search.asp?curpage=<%=curpage-1%>"><img border="0" src="images/up.jpg" height="38" align="absmiddle"></a>  <a href="search.asp?curpage=<%=curpage+1%>"><img src="images/down.jpg" border="0" height="38" align="absmiddle"></a>  <img border="0" src="images/black.jpg" height="38" align="absmiddle" onClick="parent.history.go(-1)">  <a href="ind.html" target="_parent"><img border="0" align="absmiddle" src="images/home.jpg" height="38">

能不能说清楚点什么问题

<!--#include file="conn.asp"-->
<%

curpage=cLng(request("curpage"))
if curpage<1 then
curpage=1
end if

if curpage>rs.PageCount then
curpage=rs.PageCount
end if
rs.AbsolutePage =curpage
%>