?? mb_fl.asp
字號:
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim nrs
dim i
i=1
dim count
%>
<html>
<head>
<style>
td{font-size:9pt}
</style>
<script>
function fade_in(which){
theobject=which
highlighting=setInterval("highlightit(theobject)",50)
}
function fade_out(which){
clearInterval(highlighting)
which.filters.alpha.opacity=40
}
function highlightit(cur){
if (cur.filters.alpha.opacity<100)
cur.filters.alpha.opacity+=20
else if (window.highlighting)
clearInterval(highlighting)
}
</script>
</head>
<body leftmargin=0 topmargin=0 bgcolor=#999999>
<table width=390 cellspacing=0 cellpadding=5 align=center>
<%
sql="select * from type"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "數據丟失!"
else
do while not rs.eof
%>
<%if i mod 2<>0 then%><tr><td>
<table cellspacing=0 cellpadding=5>
<tr><td rowspan=2><a href="cylb.asp?type=<%=rs("type")%>" target="_top"><img border=0 src="pic/<%=rs("type")%>.gif" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);" style="filter:alpha(opacity=40)"></a></td><td><font color=#ffffff>--></font> <a href="cylb.asp?type=<%=rs("type")%>" style="color:#000000" target="_top"><%=rs("typename")%></a></td></tr>
<tr><td>
<%
sql="select count(*) from lm where pass=true and type=" & rs("type")
set nrs=conn.execute(sql)
if nrs.eof and nrs.bof then
count=0
else
count=nrs(0)
end if
nrs.close
%>
[現有成員<%=count%>個]
</td></tr></table>
</td><td width=40></td>
<%else%><td>
<table cellspacing=0 cellpadding=5>
<tr><td rowspan=2><a href="cylb.asp?type=<%=rs("type")%>" target="_top"><img border=0 src="pic/<%=rs("type")%>.gif" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);" style="filter:alpha(opacity=40)"></a><td><font color=#ffffff>--></font> <a href="cylb.asp?type=<%=rs("type")%>" style="color:#000000" target="_top"><%=rs("typename")%></a></td></tr>
<tr><td>
<%
sql="select count(*) from lm where pass=true and type=" & rs("type")
set nrs=conn.execute(sql)
if nrs.eof and nrs.bof then
count=0
else
count=nrs(0)
end if
nrs.close
%>
[現有成員<%=count%>個]
</td></tr>
</table>
</td></tr><%end if%>
<%
i=i+1
rs.movenext
loop
end if
rs.close
%>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -