分页错误(已经自己搞点了) - ASP

况天佑

电梯直达

1^#

发表于 2010-1-11 03:18:43 | 只看该作者回帖奖励

|正序浏览 |阅读模式

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<style type="text/css">
table{
font-size:12px;
}
</style>
<body>
<%
MaxPageSize=5       '输入多少条记录
if (request.querystring("page")<>"") and (IsNumeric(request.querystring("page"))) then  '检查页号
      intPage=CLng(request.querystring("page"))
else
      intPage=1
end if

Sub DisplayPagelinks(rs,intPage)

if  intPage>1 then
      Response.Write "第"&intpage&"页 "
      response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page=1"&"'>首页</a> "
      response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage-1&"'>上一页</a> "
else
      Response.Write "第"&intpage&"页  "
      response.write "首页 "
      response.write "上一页 "
end if

if intPage < rs.PageCount then
      response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage+1&"'>下一页</a> "
      response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&rs.PageCount&"'>尾页</a> "
else
      response.write "下一页 "
      response.write "尾页 "
end if
End Sub

CopyrightId=Request.QueryString("CopyrightId")
Action_Sloe = Trim(Request.QueryString("Action_Sloe"))
Select Case Action_Sloe
Case ""
      Sql_Song = "select * from Copyright_Song where Sole='1' and CopyrightId="&CopyrightId
Case "Sole"
      Sql_Song = "select * from Copyright_Song where Sole='1' and CopyrightId="&CopyrightId
Case "No_Sole"
      Sql_Song = "select * from Copyright_Song where Sole='0' and CopyrightId="&CopyrightId
End Select
Set Rs_Song = server.CreateObject("adodb.recordset")
Rs_Song.open Sql_Song,conn,1,1
Rs_Song.pagesize=MaxPageSize

Exclusive_Sloe = Trim(Request.QueryString("Exclusive_Sloe"))

Select Case Exclusive_Sloe
Case ""
      Exclusive = 1
Case "Exclusive"
      Exclusive = 1
Case "Non_Exclusive"
      Exclusive = 0
End Select
%>
<br>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
      <td colspan="17"><strong>版权人曲目列表</strong>：</td>
</tr>
<tr>
      <td colspan="17">
         <%If Exclusive = 1 then%>
            <a href=List_Copyright.asp?Action_Sloe=Sole&Exclusive_Sloe=Exclusive&CopyrightId=<%=CopyrightId%>><img src='../Images/Exclusive.jpg' border='0'></a>    <a href=List_Copyright.asp?Action_Sloe=No_Sole&Exclusive_Sloe=Non_Exclusive&CopyrightId=<%=CopyrightId%>><img src='../Images/Non_exclusive.jpg' border='0'></a>
         <%Else%>
            <a href=List_Copyright.asp?Action_Sloe=Sole&Exclusive_Sloe=Exclusive&CopyrightId=<%=CopyrightId%>><img src='../Images/Exclusive1.jpg' border='0'></a>    <a href=List_Copyright.asp?Action_Sloe=No_Sole&Exclusive_Sloe=Non_Exclusive&CopyrightId=<%=CopyrightId%>><img src='../Images/Non_exclusive1.jpg' border='0'></a>
         <%End If%>
      </td>
</tr>
      <tr bgcolor='#DEDEDE'>
         <td><div align="center">编号</div></td>
         
         <td><div align="center">曲目名称</div></td>
         <td><div align="center">曲目类型</div></td>
         <td><div align="center">作词</div></td>
         <td><div align="center">作曲</div></td>
         <td><div align="center">演唱</div></td>
         <td><div align="center">演唱者类型</div></td>
         <td><div align="center">星级</div></td>
         <td><div align="center">推广类别</div></td>
         <td><div align="center">是否上中音</div></td>
         <td><div align="center">龙乐是否上中音</div></td>
         <td><div align="center">地网上线点数</div></td>
         
         <td><div align="center">MP3</div></td>
         <td><div align="center">MP3剪辑</div></td>
         <td><div align="center">歌词</div></td>
         <td></td>
      </tr>
      <%
      N = 1
   if not(Rs_Song.eof or Rs_Song.bof) then
   Rs_Song.absolutepage=intpage
   for CountI=1 to Rs_Song.pagesize
      %>
      <tr bgcolor='#EDEDED'>
         <td><div align="center"><%=N%></div></td>
         
         <td><div align="center"><a href="Copyright_Select_Song.asp?Id=<%=Rs_Song("Id")%>" title="查看曲目信息详细列表" target="_blank"><%=Rs_Song("Name_Song")%></a></div></td>
         <td><div align="center"><%=Rs_Song("Type_Song")%></div></td>
         <td><div align="center"><%=Rs_Song("WriteWords")%></div></td>
         <td><div align="center"><%=Rs_Song("Songster")%></div></td>
         <td><div align="center"><%=Rs_Song("Singer")%></div></td>
         <td><div align="center">
            <%
            If Rs_Song("Type_Singer") = Null Then
                  Response.write "无"
            Else
                  Response.write ""&Rs_Song("Type_Singer")&""
            End If
            %>
         </div></td>
         <td><div align="center">
            <%
            Access_Song = Rs_Song("Access_Song")
            Select Case Access_Song
                  Case 0
                     Response.write "无"
                  Case 1
                     Response.write "1星"
                  Case 2
                     Response.write "2星"
                  Case 3
                     Response.write "3星"
                  Case 4
                     Response.write "4星"
                  Case 5
                     Response.write "5星"
            End Select
            %>
         </div></td>
         <td><div align="center">
            <%
            if Rs_Song("Generalize")=0 or Rs_Song("Generalize") = Null then Response.write "无"
            if Rs_Song("Generalize")=1 then Response.write "1类"
            if Rs_Song("Generalize")=2 then Response.write "2类"
            if Rs_Song("Generalize")=3 then Response.write "3类"
            %>
         </div></td>
         <td><div align="center">
            <%
            If Rs_Song("At_12530") = 0 Then Response.write "是"
            If Rs_Song("At_12530") = 1 Then Response.write "否"
            %>
         </div></td>
         <td><div align="center">
            <%
            If Rs_Song("Ly_12530") = 0 Then Response.write "是"
            If Rs_Song("Ly_12530") = 1 Then Response.write "否"
            %>
         </div></td>
         <td><div align="center">
            <% = Rs_Song("Online_Point") %>
         </div></td>
         
         <td><div align="center">
            <%
            If Rs_Song("Song_Down_Url") <> "" Then Response.write "<a href='MediaPlayer.asp?Play_Type=Play_Song_Basic&Media_Id="&Rs_Song("Id")&"' target='_blank' title='试听'><img src='../Images/Audio_Player.gif' border='0'></a> <a href='"&Rs_Song("Song_Down_Url")&"' title='下载'><img src='../Images/musicbt_down.gif' border='0'></a>"
            %>
         </div></td>
         <td><div align="center">
            <%
            Sql_Other = "Select Song_Id From Copyright_Down Where Song_Id = "&Rs_Song("Id")&""
            Set Rs_Other = server.CreateObject("adodb.recordset")
            Rs_Other.Open Sql_Other,Conn,1,1
            If Rs_Other.Eof And Rs_Other.Bof then
                  Response.Write "<a href='Copyright_add_list.asp?action=Song_Cut&Song_Id="&Rs_Song("Id")&"' title='上传曲目剪辑'><img src='../Images/UpLoad.gif' border='0'></a>"
            Else
                  Response.Write "<a href='Copyright_Song_Cut_List.asp?Song_Id="&Rs_Other("Song_Id")&"' target='_blank' title='浏览所有曲目剪辑'><img src='../Images/musicbt_down.gif' border='0'></a> <a href='Copyright_add_list.asp?action=Song_Cut&Song_Id="&Rs_Song("Id")&"' title='上传曲目剪辑'><img src='../Images/UpLoad.gif' border='0'></a>"
            End If
            Rs_Other.Close
            Set Rs_Other = Nothing
            %>
         </div></td>
         <td><div align="center">
            <%
            If Rs_Song("Words") <> "" Then
                  Response.Write "<a href='MediaPlayer.asp?Play_Type=Preview_Words&Words_Id="&Rs_Song("Id")&"' target='_blank'><img src='../Images/Preview.gif' border='0'></a>"
            Else
                  Response.Write "暂无"
            End If
            %>
         </div></td>
         <td><div align="center">
            <%
            Response.Write "<a href='Copyright_update_list.asp?action=Copyring_Song&Song_Id="&Rs_Song("Id")&"' title='修改曲目信息'><img src='../Images/edition.gif' width='15' height='15' border='0'></a>"
            %>
         </div></td>
      </tr>
<%
Rs_Song.movenext
   if Rs_Song.eof then exit for
   next
   else
   Response.Write "没有记录！"
   end if
%>
   <tr>
  <td colspan="17"><%displayPageLinks Rs_Song,intpage%>总共<%=Rs_Song.pagecount%>页</td>
  </tr>
</table>
</table>
<%
Rs_Song.close
Set Rs_Song = Nothing
conn.close
Set conn=Nothing
%>
</body>
</html>

错误提示:
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

'=' 附近有语法错误。

/Manage_Copyring/List_Copyright1.asp，行 48

但是这里没有错啊
Set Rs_Song = server.CreateObject("adodb.recordset")
Rs_Song.open Sql_Song,conn,1,1
Rs_Song.pagesize=MaxPageSize

收藏0