<% set rs=Server.CreateObject("ADODB.Recordset") sql="select * from company where id=1" rs.open sql,conn,1,3 rs("hotclick")=rs("hotclick")+1 rs.update demo=replace(left(rs("demo"),180),vbcrlf,"
")&"..." rs.close set rs=nothing response.write demo %>
公司新闻 技术文章 more
<% n = 6 order = "ti" desc = 1 sql="select * from news where cla=1" IF order="ti" Then sql=sql+" order by time" ElSEIF order="ck" Then sql=sql+" order by hotclick" Else sql=sql+" order by id" End if IF desc=1 Then sql=sql+" desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 IF Not rs.eof Then proCount=rs.recordcount rs.pagesize=cint(n) if not IsEmpty(Request("topage")) and IsNumeric(Request("topage")) then ToPage=CInt(Request("topage")) if ToPage>rs.PageCount then rs.AbsolutePage=rs.PageCount intCurPage=rs.PageCount elseif ToPage<=0 then rs.AbsolutePage=1 intCurPage=1 else rs.AbsolutePage=ToPage intCurPage=ToPage end if else rs.AbsolutePage=1 intCurPage=1 end if intCurPage=CInt(intCurPage) For i = 1 to rs.PageSize if rs.EOF then Exit For end if %>
私服 " target="_blank"><%=LeftT(rs("title"),25,1)%> <%if Now()-rs("time") < 7 then%> <%end if%> (<%=left(rs("time"),10)%>)
<% rs.MoveNext Next end if%> <% rs.close set rs=nothing%>
<% n = 6 order = "ti" desc = 1 sql="select * from news where cla=5" IF order="ti" Then sql=sql+" order by time" ElSEIF order="ck" Then sql=sql+" order by hotclick" Else sql=sql+" order by id" End if IF desc=1 Then sql=sql+" desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 IF Not rs.eof Then proCount=rs.recordcount rs.pagesize=cint(n) if not IsEmpty(Request("topage")) and IsNumeric(Request("topage")) then ToPage=CInt(Request("topage")) if ToPage>rs.PageCount then rs.AbsolutePage=rs.PageCount intCurPage=rs.PageCount elseif ToPage<=0 then rs.AbsolutePage=1 intCurPage=1 else rs.AbsolutePage=ToPage intCurPage=ToPage end if else rs.AbsolutePage=1 intCurPage=1 end if intCurPage=CInt(intCurPage) For i = 1 to rs.PageSize if rs.EOF then Exit For end if %>
外挂 " target="_blank"><%=LeftT(rs("title"),25,1)%> <%if Now()-rs("time") < 7 then%> <%end if%> (<%=left(rs("time"),10)%>)
<% rs.MoveNext Next end if%> <% rs.close set rs=nothing%>
dnf
招聘对象： 招聘人数： 工作地点:
铁塔技术人员 2人 河北省
销售业务人员 2人 全国
电子元器件