showuser.asp

来自「很好的财务系统」· ASP 代码 · 共 22 行

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
function OpenDB(sdbname)
{
    var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
    var conn = Server.CreateObject("ADODB.Connection");
    conn.Open(connstr);
    return conn;
}
var sResult = new Array();
var oConn = OpenDB("data.mdb");
var sql = "select * from users order by id desc";
var rs = oConn.Execute(sql);
while(!rs.EOF)
{
    sResult[sResult.length] =rs("userid").Value + "@@@" + rs("username").Value
    rs.MoveNext();
}
Response.Write(escape(sResult.join("###")));
rs.Close
%>