宝格丽对戒多少一对:还有这个：给小小弟看看过段代码是怎么回事啊，它之能发10条帖子，在多了就不行了

<%
OpenDB()
Dim sql,Rs,arrRs
Dim arrRsNumS,arrRsNumI
Dim k
k = CheckStr(Request.QueryString("k"))
If K = "" Or IsNull(k) Then
SQL = "Select top 100 cid,cdate,cauthor,ccontent,cbcolor,cfcolor from dabian order by cID,cdate,cauthor,ccontent,cbcolor,cfcolor DESC"
Else
If IsInteger(k) = False Then
Response.write "<script>alert('\n\n\n\n对不起!搜索纸条只能输入数字!!\n\n\n返回首页查看\n\n\n');location.href='index.html';</script>"
Response.End()
Else
SQL = "Select top 1 cid,cdate,cauthor,ccontent,cbcolor,cfcolor from dabian Where cID = "& k
End If
End If
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then

arrRs = Rs.GetRows

Rs.Close
Set Rs = Nothing
CloseDB()
arrRsNumS = UBound(arrRs,2)

For arrRsNumI = 0 To arrRsNumS

Randomize

LeftPx = Int((140-10+1)*Rnd+10)
TopPx = Int((120-10+1)*Rnd+10)
Response.write "<div id='cc"&arrRs(0,arrRsNumI)&"' class='Cccc' style='position:absolute;left:"&LeftPx&"px;top:"&TopPx&"px;background-color:"&arrRs(4,arrRsNumI)&";z-index:"&arrRs(0,arrRsNumI)&";height: 133px;width:182px;' onmousedown='getFocus(this)'>"
Response.write "<table border=0 style=""word-break:break-all""><td style='cursor:move;' width='98%' onmousedown=MDown(cc"&arrRs(0,arrRsNumI)&")>"&"第["&arrRs(0,arrRsNumI)&"]条 "&FormatDateTime(arrRs(1,arrRsNumI),2)&" "&FormatDateTime(arrRs(1,arrRsNumI),4)&"</td><td style='cursor:hand;' onclick='ssdel()' width='2%'>×</td></tr><tr><td style='height:100px;padding:5px;' colspan='2'>"
Response.write "<table border=0 style=""word-break:break-all""><td style='cursor:move;' width='98%' onmousedown=MDown(cc"&arrRs(2,arrRsNumI)&")>"&""&arrRs(2,arrRsNumI)&" </td></tr><tr><td style='height:100px;padding:2px;' colspan='2'>"
Response.write "<table border=0 style=""word-break:break-all""><td style='cursor:move;' width='98%' onmousedown=MDown(cc"&arrRs(3,arrRsNumI)&")>"&""&arrRs(3,arrRsNumI)&" </td></tr><tr><td style='height:100px;padding:3px;' colspan='2'>"
Response.write "</div>"
Next
Else
Response.Write("没有纸条!")
Response.End()
End If
%>