首页 >> 新闻列表
<% getClass=request("classID") pageid=request("pageid") if IsNumeric(getClass)=true and getclass<>"" then getClass=cint(getClass) else getClass=61 end if if conn.execute("select count(*) from classDB where cid="&getClass&"")(0)<1 then errmsg("file err") if pageid<>"" then '? if IsNumeric(pageid)=false then errmsg("?") pageid=cLng(pageid) else pageid=1 end if login init %> <% set rs=server.createobject("adodb.recordset") if isnull(session("cls_See_own")) then sql="Select * from newsDB where Nclass='"&getClass&"' and NbofDate<=#"&now&"# and instr(','+'"&session("cls_See")&"',','+Nclass + ',')>0 and ( nLimit='00' or instr(',' + nLimit + ',' , ','+'"&session("u_d")&"'+',' )>0 ) " else sql="Select * from newsDB where Nclass='"&getClass&"' and NbofDate<=#"&now&"# and (instr(','+'"&session("cls_See")&"',','+Nclass + ',')>0 or (instr(','+'"&session("cls_See_Own")&"',','+Nclass + ',')>0 and Nauthor='"&session("u_s")&"' ) ) and ( nLimit='00' or instr(',' + nLimit + ',' , ','+'"&session("u_d")&"'+',' )>0 ) " end if sql=sql&" order by Nid desc " pagePara="&classID="&getClass ' 'response.Write(sql) 'session("linksql")=sql 'response.End() 'order by nid desc rs.open sql,conn errCheck rs.pagesize=15 pagetota=rs.pagecount resultSum=rs.recordcount if rs.pagecount >0 then rs.absolutepage=pageid iNext=1 do while not rs.eof and iNext <= rs.pagesize %> <%if iNext < rs.pagesize then%> <%end if rs.movenext iNext=iNext+1 loop%>
  <%if len(rs("Nname"))-int(len_en(rs("Nname"))/2)>50 then response.write ""&mid_char(rs("Nname"),50)&".."&"" else response.write ""&rs("Nname")&"" end if if rs("nfmt")<>"" then if rs("nfmt")="jpg" then response.write "" else response.write "" end if end if %>  
<%=year(rs("NbofDate"))%>
<%=month(rs("NbofDate"))%>
<%=mid(rs("Ndetail"),1,36)%>..  
  <%=datezero(rs("NbofDate"))%>  
 
<%ShowPage pageid,PageTota,Pagepara,""%>

丁香五月啪啪,激情综合,色久久,