<%
cid=RequestQueryNum("cid")
Set rs=conn.Execute("Select category From photocategory Where id="& cid &"")
If rs.bof And rs.eof Then
Call MessageBox("没有此相册!","index.asp")
Response.End
ok=0
Else
ok=1
cname=rs("category")
End If
If cid<>0 And ok=1 Then
Set rs=conn.Execute("Select * From photo Where categoryid="& cid &" Order by top desc,id desc")
If rs.bof And rs.eof Then
Call MessageBox("此相册没有图片!","")
Response.End
End If
End If
%>
作品展示－<%=WebName%>
<%
If cid<>0 Then
%>
<%End If%>
<%=cname%>
<%
If cid<>0 And ok=1 Then
Response.write ""
End If
%>
