|
<%set s = Server.CreateObject("shuziren_com.yz")
Set rs=Server.CreateObject("ADODB.Recordset")
Select case s.txt("abc")
case "tui"
sql="select id,mc,tp,lx from photo_xc where zt<>0 and tui<>0 order by id desc"
case "no"
sql="select id,mc,tp,lx from photo_xc where zt<>0 and lx=2 order by id desc"
case "pass"
sql="select id,mc,tp,lx from photo_xc where zt<>0 and lx=1 order by id desc"
case else
sql="select id,mc,tp,lx from photo_xc where zt<>0 order by id desc"
End Select
rs.open sql,conn,1,1
if not rs.eof then%>
<%page1("12")
i=1
do while not rs.eof and i<=rs.pagesize%>
><%=left(rs("mc"),5)%> [<%=conn.execute("select count(id) from photo where xc_id="&rs("id")&"")(0)%>]
<%Select case rs("lx")
case "0"
Response.Write("[完全共享]")
case "1"
Response.Write("[密码共享]")
case "2"
Response.Write("[不共享]")
End Select%> |
|
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
loop%>
| <%page2("abc="&s.txt("abc")&"&")%> |
<%else
width="500"
my_bt="操 作 失 败 ！"
my_nr=" 对不起！暂无相册信息！！！"
my()
end if
rs.close
set rs=nothing
set s=nothing
conn.close:set conn=nothing%>
|
您目前的位置：网站首页 -> 电子相册
" alt=<%=rs("mc")%> border=0>