<% cb=request("d") if not isnumeric(cb) or cb="" then Call AlertUrl("缺少参数:D!","../?nod") Response.End end if set rs1=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_class where id="&cb rs1.open sql,conn,1,1 If rs1.bof and rs1.eof then rs1.close set rs1=nothing Response.Redirect "../?noc" else c_name=rs1("c_name") c_id=rs1("c_id") id=rs1("id") c_key=rs1("c_key") c_hits=rs1("c_hits") end if set rs8=Server.CreateObject("ADODB.RecordSet") sql8="select * from ewuyi_class where id="&cb rs8.open sql8,conn,1,3 if isnull(rs8("C_hits")) then rs8("C_hits")=0 rs8("C_hits")=rs8("C_hits")+1 rs8.update rs8.close set rs8=nothing if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=Trim(Request("page")) End if if not isnumeric(page) then Call AlertUrl("缺少参数:P!","../?nop") Response.End end if set rs=Server.CreateObject("ADODB.RecordSet") sql1="order by time desc,view desc,adid desc" sql2="select * from ewuyi_info where (cid = '"&cb&"' or bid = '"&cb&"') and type>0 " sql=sql2&sql1 rs.open sql,conn,1,1 rs.PageSize=18 if rs.bof and rs.eof then list=listkong() end If if not (rs.bof and rs.eof) then list = "" rs.AbsolutePage=page for k=1 to rs.PageSize iii=iii+1 if rs("type")>1 then idc=" id=""fRed""" else idc="" end if if rs("stop")>=date() then Sytime=rs("stop")-date()&"天后到期" else Sytime="已过期" end if if rs("img")<>"" then pic=" >>!有图片<<" else pic="" end if set rsm=Server.CreateObject("ADODB.RecordSet") sqlm="select * from ewuyi_class where id="&rs("cid") rsm.open sqlm,conn,1,1 if not( rs1.bof and rs1.eof ) and ( rs("change")>0 or len(rs("user"))>1 ) then Yesclass = "【"&rsm("C_name")&"】" else Yesclass = "" end if list = list&"
  • "&vbcrlf 'list = list&"
    "&vbcrlf list = list&"
    "&vbcrlf list = list&"
    "&rs("time")&" 【被查看"&rs("hits")&"次_"&Sytime&"】"&iii&". → "&left(ReHTMLEncode(rs("title")),20)&pic&" "&Yesclass&"
    "&vbcrlf list = list&"
    "&left(HTMLEncode(rs("text")),48)&"...
    "&vbcrlf list = list&"
  • "&vbcrlf rs.movenext if rs.EOF Then Exit For next end if if not( rs.bof and rs.eof )then r=Formatnumber(rs.recordcount,0) Total="【共 "&r&" 条】" p=rs.PageCount pages=getpage(r,p,"d",cb) End If rs.close set rs=nothing %> <%=sitecity%><%=c_name%>信息<%=Total%><%=c_key%>
    <%=c_key%>
      <%=list%>
    <%=pages%>