<!--#include file = "Interface.asp" -->
<!--#include file = "Class/StringBuilder.asp" -->
<!--#include file = "Class/ListView.asp" -->
<%
'stop
 Dim gv
 Set gv = New NewLife_Class_ListView
 gv.Name = "GV_Test"
 gv.Parse F.ReadTextFile(Server.MapPath("../List.html"))
 Set gv.Rs = Con.Query("Select * From AdminMenu")
 gv.Render()
 F.O gv.ToHTML()

 Dim gv2
 Set gv2 = New NewLife_Class_ListView
 gv2.Name = "GV_Test2"
 gv2.ColumnStr = "ID,Title,Url,Tip,PID,MenuOrder,Target,Pic,IsOpen"
 gv2.HeaderStr = "编号,标题,地址,提示信息,父菜单,菜单顺序,目标窗口,图片,默认是否开启"
 gv2.Parse ""
 gv2.SQL = "Select * From AdminMenu"
 gv2.Render()
 F.O gv2.ToHTML()
 
 Finish()
%>