News
Hot News
<%=Hotnews%>
Hot Trend
<%=Hottrends%>
<% dim web_Comment,aUrl,pSize,comm_Num,commArr,commArrLen,Pcount,weblog,newclass newclass=request.QueryString("Class") if newclass<>2 then newclass="1" end if %>
Your Location　Home － <% if newclass=1 then %> Companies <%else%> Trend <%end if%>
<% Set web_Comment=Server.CreateObject("Adodb.RecordSet") SQL="SELECT * from Web_News where new_Class="&newclass&" ORDER BY new_PostTime desc" aUrl="?" pSize = 20 web_Comment.Open SQL,Conn,1,1 IF web_Comment.EOF AND web_Comment.BOF Then else web_Comment.PageSize=pSize web_Comment.AbsolutePage=CurPage comm_Num=web_Comment.RecordCount commArr=web_Comment.GetRows(comm_Num) web_Comment.close set web_Comment = nothing commArrLen=Ubound(commArr,2) do until Pcount = commArrLen+1 or Pcount = pSize %>
<%=HtmlEncode(CutStr(commArr(1,Pcount),60))%>
<%=DateToStr(commArr(5,Pcount),"Y-m-d")%>
<% Pcount=Pcount+1 loop end if %>
<%=MultiPage(comm_Num,pSize,CurPage,aUrl,"","float:right")%>
Mirror
MirrorMirrorMirrorMirrorMirrorMirrorMirror