📄 count.asp

📁 3000首FLASH源程序

💻 ASP

字号:

<!--#include file=conn.asp-->
<!--#include file=const.asp-->
<style>
body {font-size:9pt;}
</style>
<body bgcolor="<%=atablebodycolor%>">
<%
set rs = server.createobject("adodb.recordset")
sql="select id from pic"
rs.open sql,conn,1,1
pcount=rs.recordcount
rs.close
sql="select id from pic where best<>'不推荐'"
rs.open sql,conn,1,1
bcount1=rs.recordcount
rs.close
sql="select id from stamp where best=true"
rs.open sql,conn,1,1
bcount2=rs.recordcount
rs.close
bcount=bcount1+bcount2
sql="select id from pic where myself=true"
rs.open sql,conn,1,1
mcount1=rs.recordcount
rs.close
sql="select id from stamp where myself=true"
rs.open sql,conn,1,1
mcount2=rs.recordcount
rs.close
mcount=mcount1+mcount2
sql="select id from stamp"
rs.open sql,conn,1,1
scount=rs.recordcount
rs.close
sql="select authorid from author"
rs.open sql,conn,1,1
acount=rs.recordcount
rs.close
sql="select id from announce where type=2"
rs.open sql,conn,1,1
zcount=rs.recordcount
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<li>书法绘画：[<font color=#ff0000><b>"&pcount&"</b></font>]<br><li>邮　　票：[<font color=#ff0000><b>"&scount&"</b></font>]<br><li>精品收藏：[<font color=#ff0000><b>"&bcount&"</b></font>]<br><li>我的收藏：[<font color=#ff0000><b>"&mcount&"</b></font>]<br><li>作　　者：[<font color=#ff0000><b>"&acount&"</b></font>]<br><li>知识介绍：[<font color=#ff0000><b>"&zcount&"</b></font>]"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -