<%If mj_photo_category_password<>"" and request.Form("pass")="" Then %>
此相册已设置密码，请输入正确密码访问。
">
密  码：
<%elseIf mj_photo_category_password<>"" and request.Form("pass")<>mj_photo_category_password Then%>
密码错误，请重新输入
">
密  码：
<%elseIf mj_photo_category_password<>"" and request.Form("pass")=mj_photo_category_password Then%> <% allid = request.QueryString("ID")&sub_id Set rsa = server.CreateObject("adodb.recordset") sql = "select * from mj_photo where mj_photo_category in ("&allid&") order by mj_photo_order desc" rsa.Open sql, conn, 1, 1 If rsa.EOF Then Else rsa.PageSize = ""&xzlb("mj_xzc")&"" allpageboy = rsa.RecordCount iPageSize = rsa.PageSize maxpageboy = rsa.PageCount pageboy = request("pageboy") If Not IsNumeric(pageboy) Or pageboy = "" Then pageboy = 1 Else pageboy = CInt(pageboy) End If If pageboy<1 Then pageboy = 1 ElseIf pageboy>maxpageboy Then pageboy = maxpageboy End If rsa.AbsolutePage = Pageboy If pageboy = maxpageboy Then x = allpageboy - (maxpageboy -1) * iPageSize Else x = iPageSize End If For i = 1 To x %>
• " rel="lightbox[plants]" title="<%=rsa("mj_photo_name")%>">" width="120" height="120"/>
<% rsa.movenext Next rsa.Close Set rsa = Nothing End If %>

<%else%> <% allid = request.QueryString("ID")&sub_id Set rsa = server.CreateObject("adodb.recordset") sql = "select * from mj_photo where mj_photo_category in ("&allid&") order by mj_photo_order desc" rsa.Open sql, conn, 1, 1 If rsa.EOF Then Else rsa.PageSize = ""&xzlb("mj_xzc")&"" allpageboy = rsa.RecordCount iPageSize = rsa.PageSize maxpageboy = rsa.PageCount pageboy = request("pageboy") If Not IsNumeric(pageboy) Or pageboy = "" Then pageboy = 1 Else pageboy = CInt(pageboy) End If If pageboy<1 Then pageboy = 1 ElseIf pageboy>maxpageboy Then pageboy = maxpageboy End If rsa.AbsolutePage = Pageboy If pageboy = maxpageboy Then x = allpageboy - (maxpageboy -1) * iPageSize Else x = iPageSize End If For i = 1 To x %>

" rel="lightbox[plants]" title="<%=rsa("mj_photo_name")%>">" width="120" height="120"/>

<% rsa.movenext Next rsa.Close Set rsa = Nothing End If %> <%End If%>