dim rs,sql
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select top 30 * from data where title='"&title1&"' order by id desc"
rs.Open sql,conn,1,3
if rs.eof then
'入库操作
else
'重复,拒绝发布
end if
上面的这段代码是有错误的。它和我的原意相反。sql语句里同时存在where和top语句的时候,并且where条件列不是合适的索引,程序执行的是全表扫描,首先是查找符合where条件的记录,而这里的top限制形同虚设。如果全表是百万级别以上的数据表,那么就这么一个简单的判断,就有可能拖垮数据库。
我们可以采用变通的方法,就是去掉sql查询里的where条件,放入到循环体内做判断;比如采用piaoyi以下这样的代码:
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select top 30 * from data where title='"&title1&"' order by id desc"
rs.Open sql,conn,1,3
if rs.eof then
'入库操作
else
'重复,拒绝发布
end if
dim rs,sql,cf
cf=0 '初始化重复标识为0
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select top 30 * from data order by id desc"
rs.Open sql,conn,1,3
do while not rs.eof
if rs("title")=title1 and datediff("h",rs("time"),now())<24 then
'标题相同,且在24小时内发帖
cf=1 ''重复标识为1
exit do
end if
rs.movenext
loop if cf=0 then
'入库操作
elseif cf=1 then
'拒绝发布重复信息
end if
如果你希望使用selcet top语句,并且还要附带where条件,那么条件中的列就得是合适的索引,如聚集索引、复合索引里的主列等,同时,where条件里也要尽量避开使用函数,or,判断NULL等会引起全部扫描的语句。这一点要记住,不然执行的是全表扫描。
另外,也有人问道,如何选出第N条到第2N条记录呢。这样的sql语句就可以了:cf=0 '初始化重复标识为0
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select top 30 * from data order by id desc"
rs.Open sql,conn,1,3
do while not rs.eof
if rs("title")=title1 and datediff("h",rs("time"),now())<24 then
'标题相同,且在24小时内发帖
cf=1 ''重复标识为1
exit do
end if
rs.movenext
loop if cf=0 then
'入库操作
elseif cf=1 then
'拒绝发布重复信息
end if
“select top n * from TABLE_NAME where id not in (select top n id from TABLE_NAME order by id desc) order by id desc”。 一个小的细节问题,如果不注意的话,有可能拖累整个程序的稳定性、健壮性;当数据量不大的时候,这种影响可能感觉不出来,而当数据量达到一定的程度的时候,比如有100人同时进行插入数据的操作时,系统很有可能假死,iis崩溃掉。而这,不是我希望看到的。