神马品牌网dll文件如何加密:ASP的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 13:32:50
'==
'==先给出全部的统计
'==
'==取出不同状态下的Bug数量
intRecord=0
intConfirm=0
intAssign=0
intImplement=0
intCheck=0
intClose=0
intStop=0
sql="select bs_id,count(*) as num from SawinSoft_Test where P_ID0=" & session("p_id0")
sql=sql & " group by bs_id order by bs_id"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.recordcount<>0 then rs.movefirst
do while rs.eof<>true
select case rs("bs_id")
case 0
intRecord=rs("num")
case 1
intConfirm=rs("num")
case 2
intAssign=rs("num")
case 3
intImplement=rs("num")
case 4
intCheck=rs("num")
case 5
intClose=rs("num")
case 9
intStop=rs("num")
end select
rs.movenext
loop
rs.close
intTotal=intRecord +intConfirm + intAssign + intImplement + intCheck + intClose + intStop
%>
哪位哥们帮忙解释一下上面的程序。。看不懂拉。。
<%
'==
'==先给出全部的统计
'==
'==取出不同状态下的Bug数量
intRecord=0 '初始化 intRecord的值为0，下面类似
intConfirm=0
intAssign=0
intImplement=0
intCheck=0
intClose=0
intStop=0
sql="select bs_id,count(*) as num from SawinSoft_Test where P_ID0=" & session("p_id0")
sql=sql & " group by bs_id order by bs_id"
'定义sql串，意思为“从SawinSoft_Test表选出所有满足P_ID0=session("p_id0") 而且sql=sql并且按照bs_id正序列排序的bs_id的值并且统计出所有满足上述条件的记录条数记录到num里”
set rs=server.createobject("adodb.recordset") '定义数据集
rs.open sql,conn,1,1 '运行刚才的sql串
if rs.recordcount<>0 then rs.movefirst '当记录集不为空时数据指针前移
do while rs.eof<>true '当不到记录末尾时执行
select case rs("bs_id") '分别根据bs_id取出的值把num记录数赋值给下列变量
case 0
intRecord=rs("num")
case 1
intConfirm=rs("num")
case 2
intAssign=rs("num")
case 3
intImplement=rs("num")
case 4
intCheck=rs("num")
case 5
intClose=rs("num")
case 9
intStop=rs("num")
end select
rs.movenext '指针前移
loop '结束循环
rs.close '关闭数据集
intTotal=intRecord +intConfirm + intAssign + intImplement + intCheck + intClose + intStop '将刚才赋值的变量以字符串形式相加赋值给字符串变量intTotal
%>
解释完毕，累死了