<%@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 %> <%=Application(SiteID & "_Ok3w_SiteCloseNote")%><%Call Ok3w_Article_Class_PageTitle(SortPath)%>_<%=Application(SiteID & "_Ok3w_SiteName")%> "> ">
<%=Application(SiteID & "_Ok3w_SiteCloseNote")%><%Call Ok3w_Article_Class_Nav(SortPath)%>
<% If IsPic = 1 Then Call Ok3w_Article_pList(ClassID,100000000,PageSize,2,160,177,12) Else Call Ok3w_Article_bList01(ClassID,PageSize) End If Call Page.PageAspList("./waplist.asp?id=" & ClassID & "&") %>