看了自己发的帖子才想起来另一种方法。这样修改，参数设置中就应该写最大文章数（总数）而不是最新文章ID了。
原始代码如下：
复制内容到剪贴板
代码:
randomize
RndNumber=cInt((MaxNum-MinNum+1)*rnd+MinNum)
Set objRS=objConn.Execute("SELECT [log_ID] FROM [blog_Article] WHERE ([log_ID]=" & RndNumber & ") AND ([log_Level]>1) order by [log_ID] desc")
If (Not objRS.bof) And (Not objRS.eof) Then
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
strPrevious= objArticle.Url
End If
Set objArticle=Nothing
objRS.MoveNext
else
strPrevious= ZC_BLOG_HOST '如果转到不该转的地方，则转向首页
End If
objRS.close
Response.Redirect strPrevious修改后代码：
复制内容到剪贴板
代码:
randomize
RndNumber=cInt((MaxNum-MinNum+1)*rnd+MinNum)
Set objRS=objConn.Execute("SELECT [log_ID] FROM [blog_Article] WHERE [log_Level]>1 order by [log_ID] desc")
If (Not objRS.bof) And (Not objRS.eof) Then
objRS.Move RndNumber - 1
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
strPrevious= objArticle.Url
End If
Set objArticle=Nothing
else
strPrevious= ZC_BLOG_HOST '如果转到不该转的地方，则转向首页
End If
objRS.close
Response.Redirect strPrevious
