<% Dim cn,rs Dim iPage dim lieming lieming=request.form("lieming") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Driver={SQL Server};Server=zhuoming;Database=ASPTest;" & _ "UID=sa;PWD=19821204" Set rs = Server.CreateObject("ADODB.RecordSet") Set rs.ActiveConnection = Cn rs.PageSize = 2 rs.CursorType = 3 rs.Open "SELECT * FROM information order by "&lieming&" desc " If Len(Request("page")) = 0 Then iPage = 1 Else iPage = Request("page") End If rs.AbsolutePage = iPage %> <p align="center">图书信息第<% =iPage%>页</p> <table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="646" align="center"> <tr> <td width="25%">编号</td> <td width="25%">价格</td> <td width="25%">出版日期</td> <td width="25%">作者</td> </tr> </tr> <% For i =1 To rs.PageSize If Not rs.Eof Then %> <tr> <td width="25%"><%=rs(0)%>　</td> <td width="25%"><%=rs(1)%>　</td> <td width="25%"><%=rs(2)%>　</td> <td width="25%"><%=rs(3)%>　</td> </tr> <% End If If Not rs.Eof Then rs.MoveNext Next %> </table> <p align="center"> <% If CInt(iPage) = 1 Then %> 第一页|上一页| <% Else %> <a href="b.asp?page=1">第一页</a>| <a href="b.asp?page=<% = iPage - 1 %>">上一页</a>| <% End If %> <% If CInt(iPage) = CInt(rs.PageCount) Then %> 下一页| 最后一页 <% Else %> <a href="b.asp?page=<% = iPage + 1 %>">下一页</a>| <a href="b.asp?page=<% = rs.PageCount %>">最后一页</a> <% End If %> <% rs.Close Set rs = Nothing cn.Close Set cn = Nothing %> 第一页可以正确显示，可是连接第二页就会出现错误 Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14' [Microsoft][ODBC SQL Server Driver][SQL Server]在关键字 'desc' 附近有语法错误。 如果解决呢？ 先多谢了

rs.Open "SELECT * FROM information order by "&lieming&" desc " lieming这个参数在那里传进来?第一页正确显示是因为，你的这个参数正确的从另外一个页面传了进来。当再点下一页时，这个页面从新调用，并且调用lieming这个参数，可这时这个变量并没有值。也就是说是空值，这时就发生了楼主所说的错误。 解决办法是要么把 lieming=request.form("lieming") 这个变量加到Application或Session中，比如这里可以改为 IF Application("lieming")="" Then Application("lieming")=request.form("lieming") End IF 然后这个改为 rs.Open "SELECT * FROM information order by "&Application("lieming")&" desc " 这样应该不会有错。楼主可以试试。

<% Dim cn,rs Dim iPage dim lieming IF Application("lieming")="" Then Application("lieming")=request.form("lieming") End IF Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Driver={SQL Server};Server=zhuoming;Database=ASPTest;" & _ "UID=sa;PWD=19821204" Set rs = Server.CreateObject("ADODB.RecordSet") Set rs.ActiveConnection = Cn rs.PageSize = 2 rs.CursorType = 3 rs.Open "SELECT * FROM information order by "&Application("lieming")&" desc " If Len(Request("page")) = 0 Then iPage = 1 Else iPage = Request("page") End If rs.AbsolutePage = iPage %> <p align="center">图书信息第<% =iPage%>页</p> <table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="646" align="center"> <tr> <td width="25%">编号</td> <td width="25%">价格</td> <td width="25%">出版日期</td> <td width="25%">作者</td> </tr> </tr> <% For i =1 To rs.PageSize If Not rs.Eof Then %> <tr> <td width="25%"><%=rs(0)%>　</td> <td width="25%"><%=rs(1)%>　</td> <td width="25%"><%=rs(2)%>　</td> <td width="25%"><%=rs(3)%>　</td> </tr> <% End If If Not rs.Eof Then rs.MoveNext Next %> </table> <p align="center"> <% If CInt(iPage) = 1 Then %> 第一页|上一页| <% Else %> <a href="b.asp?page=1">第一页</a>| <a href="b.asp?page=<% = iPage - 1 %>">上一页</a>| <% End If %> <% If CInt(iPage) = CInt(rs.PageCount) Then %> 下一页| 最后一页 <% Else %> <a href="b.asp?page=<% = iPage + 1 %>">下一页</a>| <a href="b.asp?page=<% = rs.PageCount %>">最后一页</a> <% End If %> <% rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>

更改之后已解决问题，万分感激，怎么送积分的？