asp 文章上一篇 下一篇怎么写? 5
<%iftrim(request("id"))<>""andisnumeric(request("id"))thensetrs=server.CreateObject("...
<%
if trim(request("id"))<>"" and isnumeric(request("id")) then
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
newstitle=rs("title")
newscontent=rs("content")
newsaddtime=formatdatetime(rs("addtime"),2)
newstyp=rs("typ")
end if
rs.close
set rs=nothing
else
response.Redirect "index.asp"
end if
select case newstyp
case "1" wntitle="栏目1"
case "2" wntitle="栏目2"
case "3" wntitle="栏目3"
case "4" wntitle="栏目4"
case "5" wntitle="栏目5"
case "6" wntitle="栏目6"
end select
%>
以上是代码,我需要添加一个功能调用上一篇 下一篇 以及上一篇下一篇的标题
newstitle是当前文章标题,newscontent是当前文章内容,newsaddtime是当前文章增加的时间,newstyp是文章所属栏目,主要是改良一下,怎么调用 展开
if trim(request("id"))<>"" and isnumeric(request("id")) then
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
newstitle=rs("title")
newscontent=rs("content")
newsaddtime=formatdatetime(rs("addtime"),2)
newstyp=rs("typ")
end if
rs.close
set rs=nothing
else
response.Redirect "index.asp"
end if
select case newstyp
case "1" wntitle="栏目1"
case "2" wntitle="栏目2"
case "3" wntitle="栏目3"
case "4" wntitle="栏目4"
case "5" wntitle="栏目5"
case "6" wntitle="栏目6"
end select
%>
以上是代码,我需要添加一个功能调用上一篇 下一篇 以及上一篇下一篇的标题
newstitle是当前文章标题,newscontent是当前文章内容,newsaddtime是当前文章增加的时间,newstyp是文章所属栏目,主要是改良一下,怎么调用 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询