<% Set rstObj=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT zl_id,zl_title,zl_tupian,zl_uptime,zl_filename FROM ziliao where zl_username like '"&username&"' and zl_xianshi=1 order by zl_cixu asc"
rstObj.Open strSQL,cnnDB,1,1
if rstObj.eof then
%>