<%set rs=server.createobject("adodb.recordset") sql="select * from logs where datetime=#"&date()&"# and ipstyle="&ipstyle&" and idstyle=0" 'response.write sql rs.open sql,conn,1,3 %> <% 'response.write rs("total") if rs("datetime")="" then 'response.write "111" sql="select * from logs where datetime=#"&date()&"# and ipstyle="&ipstyle&" and idstyle=0" 'response.write sql rs.open sql,conn,1,3 rs.addnew rs("idstyle")=0'浏览 rs("ipstyle")=ipstyle'内外网 rs("total")=1 rs("datetime")=date() else 'response.write "222" rs("total")=rs("total")+1 end if rs.update %> 领航卡通动画资源库
 
<% dim rs,sql,sqlstr dim totalPut dim CurrentPage, TotalPages dim classid, classname, nclassid, Nclassname if request("classid")<>"" then classid=request("classid") else classid=0 end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if set rs = server.createobject("adodb.recordset") %> <% if trim(request.querystring("nclassid"))<>"" then nclassid=int(request.querystring("nclassid")) sql="select * from Nclass where NclassID="&cstr(nclassid) rs.open sql,conn,1,1 if not rs.eof then Nclassname=rs("Nclass") end if rs.close else Nclassid=1 Nclassname="经典童话故事" end if sql="select * from class where classID="&cstr(classid) rs.open sql,conn,1,1 if not rs.eof then classname=rs("class") end if rs.close %>
<%=Nclassname%> HOME > 图书列表> <%=Nclassname%>
节目名称 播放 次数     节目名称 播放 次数    
<% set rs=conn.execute("select * from download where Nclassid="+cstr(Nclassid)+" order by id") %> <% i=1 do while not rs.eof if (i mod 2 =1) then response.write "" end if %> <% if (i mod 2 = 0) then response.write "" end if i=i+1 %> <%rs.movenext loop rs.close %>
<%=rs("soft")%> target="_blank"> <%=rs("plays")%>