gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\showpic.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,nc
 
 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 5 * from news where bigclassid=6 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='200'>"");"%> 
 
 <% 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'></td></center><td width='200'><p align='left'>"");"%>
				
<%response.write "document.write(""<a href='ReadNews.asp?NewsID="&rs(0)&"&BigClassID=6&SmallClassID=12'target='_blank'' class='a'>"& rs(7) &"</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

	'response.write "document.write(""<img src='" & getNewsPic(nc) & "' width='165' height='121' style='border:0'>"");"

	Function getNewsPic(NewsContents)

		lngBeginPos = InStr(NewsContents, "http://")

		For lngLoopi = lngBeginPos To Len(NewsContents)
			If Mid(NewsContents, lngLoopi, 1) = Chr(34) Then
				lngEndPos = lngLoopi
			Exit For
			End If
		Next

		strHTTP = Mid(NewsContents, lngBeginPos, lngEndPos - lngBeginPos)

		getNewsPic = strHTTP
	
	End Function
	
%>