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
			%>