Microsoft VBScript 运行时错误 错误 '800a0006'

溢出

/djtp/list_a.asp，行 103
 
 
 
这什么问题啊!

原代码
<%ps=cint(rs("ps"))
ps1=int(ps/zps*100)*4
                      rq=cint(rs("rq"))
                      rq1=int(rq/zrq*100)*4
                     ' bps=int(round(ps/zps,2)*100)&"%"
                      %>

急求怎么解决QQ627591093