<!--#include file="head2.asp"-->
<%
id=request("id")
If Len(lmid)>=10 Then
response.write"<SCRIPT language=JavaScript>alert('ID不存在');"
response.write"javascript:window.close()</SCRIPT>"
else
sqlnews="select * from img where id="&cint(id)
Set rsnews= Server.CreateObject("ADODB.Recordset")
rsnews.open sqlnews,conn,1,1
keywords=rsnews("keywords")
description=rsnews("description")
class1=rsnews("class1")
sql="select * from lanmu where id="&cint(rsnews("class2"))
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
lmname=rs("lmname")
if rs("bigclass")<>0 then
sqlbig="select * from lanmu where id="&cint(rs("bigclass"))
Set rsbig= Server.CreateObject("ADODB.Recordset")
rsbig.open sqlbig,conn,1,1
lmname=rsbig("lmname")
rsbig.close
set rsbig=nothing
lmname=lmname&"->"
end if
lmname=lmname&rs("lmname")
rs.close
set rs=nothing
headtitle=rsnews("title")&"--"
title=rsnews("title")
%>
<div id="main"><img src="<%=rsnews("UploadFiles")%></div>
<!--#include file="foot.asp"-->
<%
rsnews.close
set rsnews=nothing
end if%>
------------------------
我想添加上一页下一页 怎么添加？
id 已经固定了 应该怎么办？
因为我们有时候会删除自己的文章，为了更好的实现这个功能所以本站选择JS代码实现这个功能。ID为自动编号。
html页面JS调用上一页代码
以下是引用片段：
<script src=""></script>
html页面JS调用下一页代码
以下是引用片段：
<script src=""></script>
以下是引用片段：
sec.asp代码
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
hits=conn.execute("select top 1 title from news where id<" &id&" order by id desc")(0)
Inid=conn.execute("select top 1 id from news where id<"&id&" order by id desc")(0)
response.write("document.write(""<FONT color=red>上一篇:<\/FONT><a href='../html/"&Inid&".html'>"&hits&"</a>"")")
%>
带判断的代码
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
Set Rss=Server.CreateObject("adodb.recordset")
Sql="select top 1 *from news where id<"&id&" and show=true order by id desc"
Rss.Open SQL,Conn,1,1
If not Rss.EOF Then
response.write("document.write(""<FONT color=red>上一篇:<\/FONT><a href='../html/"&rss("id")&".html'>"&rss("title")&"</a>"")")
else
response.write("document.write(""<FONT color=red>上一篇:<\/FONT>没有了"")")
end if
Rss.Close
SET Rss=Nothing
%>
next.asp代码
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
hits=conn.execute("select top 1 title from news where id<" &id&" order by id asc")(0)
Inid=conn.execute("select top 1 id from news where id<"&id&" order by id asc")(0)
response.write("document.write(""<FONT color=red>上一篇:<\/FONT><a href='../html/"&Inid&".html'>"&hits&"</a>"")")
%>
带判断的代码
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
Set Rss=Server.CreateObject("adodb.recordset")
Sql="select top 1 *from news where id>"&id&" and show=true order by id asc"
Rss.Open SQL,Conn,1,1
If not Rss.EOF Then
response.write("document.write(""<FONT color=red>下一篇:<\/FONT><a href='../html/"&rss("id")&".html'>"&rss("title")&"</a>"")")
else
response.write("document.write(""<FONT color=red>下一篇:<\/FONT>没有了"")")
end if
Rss.Close
SET Rss=Nothing
%>
参考资料：网页实现上一篇下一篇JS代码
本回答被提问者采纳