%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Const dbdns = "./" Const Htmldns = "./" Const Base_Target = "" Const ChannelID = 1 %> <% Set Page = New TurnPage ClassID=myCdbl(Request.QueryString("id")) Sql="select * from Ok3w_Class where ID=" & ClassID Rs.Open Sql,Conn,0,1 ClassID = Rs("ID") SortPath = Rs("SortPath") SortName = Rs("SortName") IsPic = Rs("IsPic") PageSize = Rs("PageSize") Rs.Close %>