newnews.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<!--#include file="conn.asp"-->
<%
Dim vertigo1,vertigo2
set vertigo2=server.CreateObject("adodb.recordset")
vertigo1="select top 8 * from [news] order by id desc"
vertigo2.open vertigo1,conn,1,1
IF not vertigo2.eof and not vertigo2.bof then
  do while not vertigo2.eof
%>
document.write("<table width='100%'  border='0' cellspacing='0' cellpadding='0'>")
document.write("<tr>")
document.write("<td ><img src='Img/newdot.gif' width='9' height='15'>[<font color='red'><%=vertigo2("typ")%></font>]<a href='news_info.asp?ID=<%=vertigo2("ID")%>' target='_blank'><%=left(vertigo2("title"),16)%></a> (<%=vertigo2("hitnum")%>)次  <%=vertigo2("date")%></td>")
document.write("</tr>")
document.write("</table>")
<%
  vertigo2.movenext
  loop
end if
conn.Close
Set conn=Nothing
%>