tree.asp

来自「本系统是一套完整游戏金币交易平台,可以建立一个网站实现游戏金币的在线交易」· ASP 代码 · 共 52 行

<!--#include file="../fcDatabase/Database.asp"-->

<%
/*=========================================================================================
 * 业务树类标签
 =========================================================================================*/
 /*
  * 业务代码选择标签提供将业务字典中的代码以selectOptions方式给用户选择
  * 参数: database-数据库对象, businTypeId-字典类型ID, parent_c_main_ref-父结点ID, initValue-初始值,用于缺省选择项
  */
function BNTREE_OPTIONS(database, businTypeId, parent_c_main_ref, initValue) {
	var db = database;
	var strSQL = "select C_MAIN_REF, BUSINNAME from BNTREE_T_TREES where BUSINTYPEID='" + businTypeId + "' and PARENT_C_MAIN_REF=" + parent_c_main_ref;
	var rs = db.runQuerySql(strSQL);

	var htmlOptions = "";
	while(!rs.EOF) {
		var id = rs("C_MAIN_REF") + "";
		var name = rs("BUSINNAME") + "";
		if(id==initValue) 
			htmlOptions += "<option value=\"" + id + "\" selected>" + name + "</option>";
		else
			htmlOptions += "<option value=\"" + id + "\">" + name + "</option>";
		rs.MoveNext();
	}
	Response.Write(htmlOptions);
	
	rs.close();
	rs = null;
	//db.close();
}


 /*
  * 业务代码翻译标签,提供将业务代码翻译成中文描述的标签
  * 参数: database-数据库对象, businTypeId-字典类型ID, c_main_ref-结点ID,确定需要翻译的业务代码
  */
function BNTREE_WRITE(database, businTypeId, c_main_ref) {
	var db = database;
	var strSQL = "select BUSINNAME from BNTREE_T_TREES where BUSINTYPEID='" + businTypeId + "' and C_MAIN_REF=" + c_main_ref + " ";
	var rs = db.runQuerySql(strSQL);
	
	if(!rs.EOF)
		Response.Write(rs("BUSINNAME") + "");
	else
		Response.Write(businessId + "");
	
	rs.close();
	rs = null;
}
%>