/*****************************************************************
        访问待办列表和取数据
参数说明：
pUrl  表示代办列表地址
****************************************************************/
pUrl= sysPARAMETER.pUrl
PRINT "// pUrl= ", pUrl

// 获取指定url地址页面，返回结果在 lsIE.Result文件中
OBJECT wxEXPLORE lsIE
{
	var= gServer+ pUrl
	PRINT "lsIE.Url= """, var, """"
}

var= lsIE.Result
PRINT "// ", var

// 将返回结果作为数据源
OBJECT wxDATASOURCE lsSource
{
	lsSource.Database= FILE
	PRINT "lsSource.File= """, var, """"	
}

// 从数据源中进行查询，查询获得记录集在pending.html中直接访问
OBJECT wxQUERY lsQuery
{
	lsQuery.wxDATASOURCE= lsSource
	lsQuery.Decode[]= utf-8, gbk
	
	lex= "<TR><TD>(.+?)</TD><TD>(.+?)</TD><TD>(.+?)</TD><TD>(.+?)</TD><TD>(.+?)</TD></A></TR>"
	PRINT "lsQuery.Lex= """, lex, """"
}

/*****************************************************************
	   加载列表显示pending.html
加载pending.html实现界面显示
****************************************************************/
OBJECT wxWEBPAGE aWeb
{
	PRINT "aWeb.Rect[]= 0%, ", vs_region_r3,"%, 100%, ", vs_region_r4,"%"

	aWeb.wxQUERY[]= lsQuery
	OBJECT wxHTML aHtml
	{
		var= "file://"+ gRoot
		var= var+ "\common\libajax.js"
		PRINT "aHtml.Src= """, var, """"
	}
	
	OBJECT wxHTML aHtml
	{
		var= "file://"+ gRoot
		var= var+ "\document\pending.html"
		PRINT "aHtml.Src= """, var, """"
	}

	aWeb.Link= "document\view.mas"
	aWeb.Scrollbar[]= true, true
}