免费无遮挡毛片中文字幕视频-免费无遮挡无码永久在线观看视频-免费香蕉成视频人网站-免费亚洲三级中文-免费亚洲一级无码片-免费一级成人免费观看

'定義一個thenext函數(shù)來找出下一篇的ID，如果當前記錄已經(jīng)是最后一條記錄，則輸出文字“沒有了”
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("沒有了")
else
a2=newrs("id")
response.Write("下一篇")
end if
end function
%>
'定義一個thehead函數(shù)來找出下一篇的ID，如果當前記錄已經(jīng)是最前面的一條記錄，則輸出文字“沒有了”
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where idset headrs=conn.execute(sql)
if headrs.eof then
response.Write("沒有了")
else
a0=headrs("id")
response.Write("上一篇")
end if
end function
%>
'數(shù)據(jù)庫連接文件

'取得傳遞過來的ID，顯示文章標題作者和內容
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>



Do While Not rs.EOF
%>

作者： ") %>

相關文章： '根據(jù)當前文章的欄目號，找出同一欄目的文章 sql="select * from articles where boardid="&boardid&"" set rs=conn.execute(sql) %> Do While Not rs.EOF %> ">