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