<% Option Explicit %> <% Dim Cfg, Db, FLib Set Cfg = Server.CreateObject("OnewPro.Config") set Db = Server.CreateObject("OnewPro.DBControl") Set FLib = Server.CreateObject("OnewPro.FunctionLib") Db.COpen() Dim RCid,id, ClassTitle, sType, sKey, ResStatus, ResStatus_Title Dim CurrPage, PageSize, TotalNum, PageCount, UrlInfo Dim Rs, Sql RCid = FLib.SafeSql(Request("id")) ClassTitle = Trim(Request("ClassTitle")) CurrPage = FLib.SafeSql(Request("CurrPage")) PageSize = 40 If Not IsNumeric(RCid) OR RCid = "" Then RCid = 0 End If If Not IsNumeric(CurrPage) OR CurrPage = "" Then CurrPage = 1 End If Sql = ExeSql(0) Set Rs = Db.ExeCute(CSTR(Sql)) TotalNum = Rs("xcount") Rs.Close() PageCount = CInt(TotalNum / PageSize) If TotalNum Mod PageSize <> 0 Then PageCount = PageCount + 1 End If Sql = ExeSql(1) Set Rs = Db.CreateRS Rs.PageSize = PageSize Rs.CacheSize = Rs.PageSize Rs.Open Sql, Db.Conn, 1, 1 If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage = CurrPage End If UrlInfo = "&id=" & RCid function repl(str) str=replace (str,"'","") str=replace (str,chr(34),"") str=replace (str,chr(13),"") str=replace (str,chr(10),"") str=replace (str,";","") repl=str end function %> <% sql="select title from res_class_list where id = " & RCid dim rs2 Set Rs2 = Db.CreateRS Rs2.Open Sql, Db.Conn, 1, 1 %>

<% Dim bgColor bgColor = "#F6F6F6" While Not Rs.Eof If bgColor = "#F6F6F6" Then bgColor = "#FFFFFF" Else bgColor = "#F6F6F6" End If %> <% Rs.MoveNext Wend If Rs.Eof And Rs.Bof Then %> <% End If %> 当前位置： <% response.write rs2("title") rs2.close() set rs2=nothing %> <%=ShowTitle(Rs)%>　[<%=Rs("addtime")%> ] 暂无相关新闻

<% Function ExeSql(m) Dim Sql If m = 1 Then Sql = "SELECT TOP " & (CurrPage * PageSize) & " id, title,class_title, class_id, checked, deleted, created, go_url,addtime, creator, visit_url FROM view_resource_all WHERE {WHERE} ORDER BY id DESC" Else Sql = "SELECT COUNT(id) as xcount FROM view_resource_all WHERE {WHERE}" End If Sql = Replace(Sql, "{WHERE}", ExeSql_WHERE()) ExeSql = Sql End Function Function ExeSql_WHERE() Dim Sql Sql = "" If RCid <> 0 Then If Sql <> "" Then Sql = Sql & " AND " End If Dim ChildList ChildList = FLib.ChildenList(CINT(RCid)) ' Dim v ,i v = Split(ChildList,",") For i = 0 To UBound(v) If FLib.ChildenList(CINT(v(i)))<>"" Then ChildList = ChildList &","& FLib.ChildenList(CINT(v(i))) End If Next ' If ChildList <> "" Then ChildList = RCid & "," & ChildList Else ChildList = RCid End If Sql = Sql & "class_id IN (" & ChildList & ")" Sql = Sql & " AND Deleted=0 AND Checked=1 AND created=1" Else Sql = " 1=2" End If ExeSql_WHERE = Sql End Function Function ShowTitle(Rs) select case Rs("go_url") case "" If Rs("visit_url")<>"" Then ShowTitle = "" & Rs("title") & "" End If case Else ShowTitle = "" & Rs("title") & "" End select End Function %> <% Db.CClose() set Cfg = nothing set Db = nothing set FLib = nothing %>