www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\departmentcase.asp
<%response.write "document.write(""<style>.a:link{text-decoration:none;color:blue}.a:visited{text-decoration:none;color:blue}.a:active{text-decoration:none}.a:hover{text-decoration:none;color:red}</style>"");" dim rs4,cnn,strsql4,strsql5,strsql6,strsql7,strsql8,strsql9,title,rs5,rs6,rs7,rs8,rs9 set cnn = server.createobject("adodb.connection") cnn.open "provider = microsoft.jet.oledb.4.0;data source = "& server.mappath("admin/db/news.asp") set rs4 = server.createobject("adodb.recordset") set rs5 = server.createobject("adodb.recordset") set rs6 = server.createobject("adodb.recordset") set rs7 = server.createobject("adodb.recordset") set rs8 = server.createobject("adodb.recordset") set rs9 = server.createobject("adodb.recordset") strsql4 = "select top 16 * from news where bigclassid=4 and smallclassid=4 order by newsid desc" strsql5 = "select top 16 * from news where bigclassid=4 and smallclassid=5 order by newsid desc" strsql6 = "select top 16 * from news where bigclassid=4 and smallclassid=6 order by newsid desc" strsql7 = "select top 16 * from news where bigclassid=4 and smallclassid=7 order by newsid desc" strsql8 = "select top 16 * from news where bigclassid=4 and smallclassid=8 order by newsid desc" strsql9 = "select top 16 * from news where bigclassid=4 and smallclassid=9 order by newsid desc" rs4.open strsql4,cnn,1,1 rs5.open strsql5,cnn,1,1 rs6.open strsql6,cnn,1,1 rs7.open strsql7,cnn,1,1 rs8.open strsql8,cnn,1,1 rs9.open strsql9,cnn,1,1 %> <%response.write"document.write(""<div align='center'><center><table border='0'cellpadding='0' cellspacing='0' width='500'>"");"%> <% If rs4.recordcount < 1 and rs5.recordcount < 1 and rs6.recordcount < 1 and rs7.recordcount < 1 and rs8.recordcount < 1 and rs9.recordcount < 1 Then response.write"document.write(""<center><table><tr></tr><tr></tr><tr></tr><tr></tr><tr></tr><tr></tr><tr><td><font color='red'>暂无内容!</font></td></tr></table></center>"");" else For i = 1 to rs4.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <% response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs4(0)&"&BigClassID=4&SmallClassID=4'target='_blank'' class='a'>[基础部]"&rs4(3)&"</a><br>"");" rs4.movenext next rs4.close set rs4 = nothing For i1 = 1 to rs5.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <%response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs5(0)&"&BigClassID=4&SmallClassID=5'target='_blank'' class='a'>[环境食品系]"&rs5(3)&"</a><br>"");" rs5.movenext Next For i2 = 1 to rs6.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <% response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs6(0)&"&BigClassID=4&SmallClassID=6'target='_blank'' class='a'>[化学工程系]"&rs6(3)&"</a><br>"");" rs6.movenext Next rs6.close set rs6 = nothing For i3 = 1 to rs7.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <% response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs7(0)&"&BigClassID=4&SmallClassID=6'target='_blank'' class='a'>[机电工程系]"&rs7(3)&"</a><br>"");" rs7.movenext Next rs7.close set rs7 = nothing For i4 = 1 to rs8.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <% response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs8(0)&"&BigClassID=4&SmallClassID=6'target='_blank'' class='a'>[材枓工程系]"&rs8(3)&"</a><br>"");" rs8.movenext Next rs8.close set rs8 = nothing For i5 = 1 to rs9.recordcount %> <%response.write "document.write(""<tr><td width='20'align='left' valign='top'>"");"%> <% response.write"document.write(""<img src='pic/news.gif'>"");" %> <%response.write "document.write(""</td></center><td width='380'><p align='left'>"");"%> <%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs9(0)&"&BigClassID=4&SmallClassID=6'target='_blank'' class='a'>[信息工程系]"&rs9(3)&"</a><br>"");" rs9.movenext Next rs9.close set rs9 = nothing %> <%response.write "document.write(""</td></tr><center><tr><td></td><td></td><td width='40' align='center'>"");"%> <% cnn.close set cnn = nothing end if %>