上一篇下一篇asp代码问题
这是我的代码。上一篇正常。下一篇直接连到最后一篇文章上了,是什么原因。那哪里错了。<%functionthenextnewrs=server.CreateObject("...
这是我的代码。上一篇正常。下一篇直接连到最后一篇文章上了,是什么原因。那哪里错了。
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from new where id>"&request("id")&" order by id asc"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")'回去下一篇id
nexttitle=newrs("title")'获取下一篇标题
response.Write("<a href='news_show.asp?id="&a2&"'>上一篇:"& nexttitle&"</a>")
end if
end function
%>
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from new where id<"&request("id")&" order by id asc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a3=headrs("id")
htitle=headrs("title")
response.Write("<a href='news_show.asp?id="&a3&"'>下一篇:"& htitle&"</a>")
end if
end function
%> 展开
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from new where id>"&request("id")&" order by id asc"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")'回去下一篇id
nexttitle=newrs("title")'获取下一篇标题
response.Write("<a href='news_show.asp?id="&a2&"'>上一篇:"& nexttitle&"</a>")
end if
end function
%>
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from new where id<"&request("id")&" order by id asc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a3=headrs("id")
htitle=headrs("title")
response.Write("<a href='news_show.asp?id="&a3&"'>下一篇:"& htitle&"</a>")
end if
end function
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询