data.asp

来自「管理登录system 管理员：admin 密码：admin888 数据」· ASP 代码 · 共 36 行

<%@language="javascript"%>
<%
var dbConn = Server.CreateObject("adodb.connection");
dbConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.Mappath("Database/Content.mdb"));
var ResponseHTML="";
function List(key,id)
{
	var dbCmd=Server.CreateObject("adodb.command");
	with(dbCmd){
		ActiveConnection = dbConn;
		CommandType = 4;
		CommandText = "sp_select";
		var objRs=Execute(null,(id?id:0));
	}
	var str = "";
	var x = 0;
	while(!objRs.eof)
	{
		str += '["'+String(objRs("content"))+'","'+String(objRs("content"))+'"],';
		if(objRs("children")>0)
		{ 
			List(key+"_"+x,String(objRs("id")));
		}
		objRs.movenext;
		x++;
	}
	dbCmd=null;
	objRs=null;
	if(x>0)
		ResponseHTML= ("dsy.add(\""+key+"\",["+str.slice(0,-1)+"]);\n") +ResponseHTML;
}
List(0);
dbConn.Close();
dbConn=null;
Response.Write(ResponseHTML);
%>