news.asp

来自「仿3721模块拖拽移动层移动的javascript」· ASP 代码 · 共 24 行

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
Response.Charset = "gb2312";
(function () {

	var conn = Server.CreateObject("Adodb.Connection");
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("Cdrag.mdb");
	conn.Open;
	
	with (Response) {
	
		var rs = conn.Execute("Select Top 5 Content From [News] Order By Id Desc")
		if (!rs.Eof) {
			while (!rs.Eof) {
				Write(rs("Content").Value + "<br \\\/>");
				rs.MoveNext
			}
		} else Write("没有信息的说");
		rs.Close; rs = null;
	}
	
	conn.Close; conn = null;
})();
%>