Function Nextstr NextSql="Select Top 1 * from where id>"&Request.QueryString("id")&" order by id" Set NextRs=conn.Execute(NextSql) If Not NextRs.Eof Then Response.Write "<a href='news.asp?id="&NextRs("id")&">下一页</a>" End If End Function Function Backstr BackSql="Select Top 1 * from where id<"&Request.QueryString("id")&" order by id desc" Set BackRs=conn.Execute(BackSql) If Not BackRs.Eof Then Response.Write "<a href='news.asp?id="&BackRs("id")&"'>上一页</a>" End IF End Function 我想通过上面的两个函数来实现新闻系统中的上一篇新闻与下一篇新闻。可写完后。发现他报 ------------------------------------------------------------------------------------------ Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp,行242 Microsoft OLE DB Provider for SQL Server 错误 '80040e14' 在关键字 'where' 附近有语法错误。 /away/news.asp,行12 ---------------------------------------------------------------------------------------- 请大家帮忙看下 :cry: