gonggao2.asp

机械工业出版社马涛主编的《网站建设与管理》电子课件+示例源码

<!--#include file="conn.asp"-->
<%
dim sql,rs
Dim text,ok
set rs=server.createobject("adodb.recordset")
sql="Select top 1 * From news Order By Date DESC"
rs.open sql,conn

 text=rs("text")

	ok=ok &""&text&"<br>["&datevalue(rs("Date")) & "]<br>"  
		
 	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
ok="document.write('"&ok&"');"
response.write ok
%>