<% set connlog=server.CreateObject("ADODB.connection") connlog.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../data/history.mdb") & ";uid=;PWD=;" connlog.Open ptype=request("ptype") if ptype="" then keyword=request("keyword") strSQL="select * from sucai where stype=1 and name like '%" & keyword & "%' order by uploaddate desc" else ' ptype=clng("ptype") strSQL="select * from sucai where stype=1 and ptype=" & ptype & " order by uploaddate desc" end if set reclog=server.CreateObject("ADODB.recordset") reclog.Open strSQL,connlog,1,1 %> 图片列表
<% if not reclog.eof then %> <% do while not reclog.eof %> <% reclog.movenext loop %>
图片主题
上传日期
<% linkurl="photo/" & reclog("filename") %>
<%=reclog("name")%>
<%=reclog("uploaddate")%>
<% else %>
没有您要的文件 <%end if %>
 
广东省教育厅教学教材研究室  广东省电化教育馆　版权所有
<% reclog.close set reclog=nothing connlog.close set connlog=nothing %>