geng.asp

来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 23 行

<%
'response.buffer=true
'Response.Expires=0

%>
<!--#include file="conn.asp"-->
  <%
 sql = "select top 5 * from article order by articleid desc"
 set rs=conn.execute(sql)
 sql1 = "select * from Aclass where classid="&cstr(rs("classid"))
 set rs1=conn.execute(sql1) 
 do while not rs.EOF 
 newarticle= newarticle & "◇[<a href='index.asp?classid="&rs1("classid")&"'>"&rs1("class")&"</a>]<a href='list.asp?id="&rs("articleid")&"' title="&rs("title")&" target=_top>"&rs("title")&"</a><font color='#999A67'>["&rs("dateandtime")&"]</font><br>"
 rs.MoveNext 
 loop
 rs.Close
 rs1.Close
 set conn = nothing 
 newarticle="document.write(""" & newarticle & """);"
 response.write newarticle 
  %>