这个ASP代码怎么改？在线等。。急用

来源：百度知道 编辑：UC知道 时间：2024/09/28 17:47:45
<%
Server.ScriptTimeout=999
set objgbrs=Server.CreateObject("ADODB.Recordset")
conn.CommandTimeOut = 999
ssql="select top 20 id,sitename from sites where IsViewSite=true order by fromtime desc "
objgbrs.open ssql,conn,1,1
if objgbrs.eof then
Response.write "<br/>暂时没有内容<br/>"
Else
For i=1 to 4
Response.write "<a href='list.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a><br/>"
objgbrs.Movenext
if objgbrs.EOF then Exit for
Next
End if
objgbrs.close
Set objgbrs= Nothing
conn.close
set conn=nothing
%>

比如" & objgbrs("sitename") &"这里有数据：
1111111
2222222
3333333
4444444
2222222
3333333
这里的
222222
是重复的
现在要改的就是在上面的代码中不显示重复的数据？？？？

还有一个问题材就是我想显示记录的条数 重复的也算一条

<!--#include file="../Conn.asp" -->
<!--#include file="../inc/Cl_ClsMain.asp" -->
<!--#include file="../inc/Ubb_Code.asp" -->
<%
Pl.GetWeb_Setting
dim ClassID,IncludeChild,SpecialID,ArticleNum,TitleMaxLen,ContentMaxLen,ShowType,ShowCols
dim ShowProperty,ShowClassName,ShowIncludePic,ShowTitle,ShowUpdateTime,ShowHits,ShowAuthor,ShowHot,ShowMore
dim Hot,Elite,DateNum,OrderField,OrderType,ImgWidth,ImgHeight
dim SystemPath,rs,sql,str,str1,topicLen,topic
dim i,FileType,SrtTitleMaxLen
dim tClass,trs,arrClassID
dim Author,AuthorName,AuthorEmail
ClassID=trim(request.querystring("ClassID"))
IncludeChild=trim(request.QueryString("IncludeChild"))
SpecialID=trim(request.querystring("SpecialID"))
ArticleNum=trim(request.querystring("ArticleNum"))
TitleMaxLen=trim(request.querystring("TitleMaxLen"))