<%
randomize
QYAllId=Execute("Select ThreadID From [BBSXP_Threads] order by ThreadID Desc")(0)
QYId=(int(rnd()*QYAllId)+1)
If Not Execute("Select ThreadID From [BBSXP_Threads] where ThreadID="&QYId&"").eof then
response.redirect "ShowPost.asp?ThreadID="&QYId&""
Else
Message="运气不太好哦,“"&QYId&"”号文章可能已经被秀色可餐PK了- -\r\n点击随机访问其它文章o(∩_∩)o...呵呵……"
response.write ""
End If
%>