<%
Sub dosql
InBoundNum=rs1("InBoundNum")
'response.write InBoundNum
DaysBound=rs1("DaysBound")
Select case DaysBound
case 0
prompt="一年内"
sql_c="select count(*) as c from bibliosCommend WHERE (DateCommend BETWEEN DATEADD(month, - 12, GETDATE()) AND GETDATE()) and Choose='0' and CardNo='"+Session("CardNo")+"'"
case 1
prompt="半年内"
sql_c="select count(*) as c from bibliosCommend WHERE (DateCommend BETWEEN DATEADD(month, - 6, GETDATE()) AND GETDATE()) and Choose='0' and CardNo='"+Session("CardNo")+"'"
case 2
prompt="3个月内"
sql_c="select count(*) as c from bibliosCommend WHERE (DateCommend BETWEEN DATEADD(month, - 3, GETDATE()) AND GETDATE())and Choose='0' and CardNo='"+Session("CardNo")+"'"
case else
prompt="当月内"
sql_c="select count(*) as c from bibliosCommend WHERE (DateCommend BETWEEN DATEADD(month, - 1, GETDATE()) AND GETDATE()) and Choose='0' and CardNo='"+Session("CardNo")+"'"
end select
set rs2=Conn.execute(sql_c)
response.write "你可以在"&prompt&"推荐
"
response.write InBoundNum
response.write "本,当前末处理
"
response.write rs2("c")
response.write "本"
End sub
response.write "
"+Session("CardNo") +""
set rs1=Conn.execute("select * from readerCommendPower where CardNoOrKindID='"&Session("CardNo")&"'")
If (not rs1.eof) then
call dosql
ELSE
set rs1=Conn.execute("select * from readerCommendPower where CardNoOrKindID='"&Session("RIDType")&"'")
call dosql
End if
%>
