你第一楼发的源文件里
<%
Sql = "Select * From [Product] Where ID > " & ID &" order by id asc"
Rs.Open Sql,Conn,1,1
If Rs.Eof or Rs.Bof Then
response.write "<font color=red> 没有了啊 </font>"
Response.End()
Else
response.write "<a href=""Gm_Pros.asp?id=" & Rs(0) & """>" & rs(1) & "</a></td><font color=red> 上篇 </font>"
Response.End()
End If
Sql = "Select * From [Product] Where ID < " & ID &" order by id desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof or Rs.Bof Then
response.write "<font color=red> 没有了啊 </font>"
Response.End()
Else
response.write "<a href=""Gm_Pros.asp?id=" & Rs(0) & """<" & rs(1) & "</a></td><font color=red> 下篇 </font>"
Response.End()
End If
%>
你发完上篇就有Response.End(),后面的ASP程序就不会再执行。
改为这样试试:
<%
Sql = "Select * From [Product] Where ID > " & ID &" order by id asc"
Rs.Open Sql,Conn,1,1
If Rs.Eof or Rs.Bof Then
response.write "<font color=red> 没有了啊 </font>"
Else
response.write "<a href=""Gm_Pros.asp?id=" & Rs(0) & """>" & rs(1) & "</a></td><font color=red> 上篇 </font>"
End If
Sql = "Select * From [Product] Where ID < " & ID &" order by id desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof or Rs.Bof Then
response.write "<font color=red> 没有了啊 </font>"
Else
response.write "<a href=""Gm_Pros.asp?id=" & Rs(0) & """<" & rs(1) & "</a></td><font color=red> 下篇 </font>"
End If
Response.End()
%>