![]() |
#2
mianfeixia2012-12-20 13:47
|
我这里指定了字段,把ID排除了,输出后主题不重复了,但是点击快捷后,因为ID未获取,所有链接都失效了。但是加入ID后,数据又重复了,怎么办?
加入ID后,就变成这样了
有没有解决办法

<%
set rs=server.createobject("adodb.recordset")
rs.open "select distinct name,shangying,dy,zy,pic,ls,id from mswh3 order by shangying Desc ",conn,1,1
if rs.recordcount=0 then
%>
<%
else
rs.PageSize =6
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
response.Write "<title>所有电影</title><br/>"
response.Write "<table border='1' bordercolor='#490000' width='770'><tr>"
For i=1 To x
%>
set rs=server.createobject("adodb.recordset")
rs.open "select distinct name,shangying,dy,zy,pic,ls,id from mswh3 order by shangying Desc ",conn,1,1
if rs.recordcount=0 then
%>
<%
else
rs.PageSize =6
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
response.Write "<title>所有电影</title><br/>"
response.Write "<table border='1' bordercolor='#490000' width='770'><tr>"
For i=1 To x
%>
[ 本帖最后由 mianfeixia 于 2012-12-20 13:50 编辑 ]