以下是代码片段：
<!--#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()
%> |
