领导讲话

<%set connReg=server.CreateObject("ADODB.connection") connReg.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("asp/news/report.mdb") & ";uid=;PWD=;" connreg.open set myrecord=server.createobject("adodb.recordset") mysql="select id,user,title,Rdate from report order by Rdate desc" myrecord.open mysql,connreg,1,1 %> 领导讲话

位置:领导讲话

<% total=myrecord.recordcount if total<1 then response.write "无报告!" else%> <% for i=1 to total if i mod 2 then %> <%else%> <% end if myrecord.movenext next end if myrecord.close connReg.close %>

报告	报告者	报告时间
" target="_blank"><%=myrecord("title")%>	<%=myrecord("user")%>	<%=myrecord("Rdate")%>
" target="_blank"><%=myrecord("title")%>	<%=myrecord("user")%>	<%=myrecord("Rdate")%>


主办 :	四川省绵阳市武引工程建设管理局
承办 :	四川省绵阳市武引工程建设管理局办公室
技术支持 :	绵阳市仁智信息技术有限责任公司
版权所有 :	四川省绵阳市武引工程建设管理局
管理员信箱:	wyzyt@my-public.sc.cninfo.net