分页错误(已经自己搞点了)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!-- #Include File = "../Conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<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">地网上线点数</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">
<%
Copyright_Name=Request.QueryString("Copyright_Name")
Response.Write " "&Copyright_Name&" "
%>
</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("Ownership_WriteWords") = "" And Rs_Song("Ownership_Songster") = "" And Rs_Song("Ownership_Show") = "" And Rs_Song("Ownership_Record") = "" Then
Response.write "暂无"
Else
Response.write "词："&Rs_Song("Ownership_WriteWords")&""
Response.write "曲："&Rs_Song("Ownership_Songster")&""
Response.write "演："&Rs_Song("Ownership_Show")&""
Response.write "录："&Rs_Song("Ownership_Record")&""
End If
%>
</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
[[it] 本帖最后由 lili0610931 于 2008-12-2 10:43 编辑 [/it]]
