gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\showtitle.asp

    <%Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
%>
<%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 rs,cnn,strsql,title
 
 set cnn = server.createobject("adodb.connection")
 cnn.open "provider = microsoft.jet.oledb.4.0;data source = "& server.mappath("admin/db/news.asp")
 set rs = server.createobject("adodb.recordset")
	
 strsql = "select top 8 * from news where bigclassid=2 order by newsid desc"
 
 rs.open strsql,cnn,1,1
 
 %>
 <%response.write"document.write(""<div align='center'><center><table border='0'cellpadding='0' cellspacing='0' width='400'>"");"%> 
 
 <% If rs.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 rs.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="&rs(0)&"&BigClassID=2&SmallClassID=2'target='_blank'' class='a'>"&rs(3)&"</a>"");" %>

				
<%response.write "document.write(""</td></tr><center><tr><td></td><td></td><td width='40' align='center'>"");"%>
			
<%
			rs.movenext
			Next
			%>
			
			<%response.write "document.write(""</td></tr></table></center></div>"");"
			
			rs.close
			set rs = nothing 
			cnn.close
			set cnn = nothing
			end if
			%>