 |
 |
| 我们深入了解中国和欧洲 |
| 中原海外中欧之间的网络最为广泛和深入。公司欧洲骨干长期接触有在华业务的私人及政府机构。 |
|
|
|
 |
<%
sql="select top 4 newsId,title,newsPic,newsUrl,isHot,isTop,isRcmd,T_color,T_type,fbTime from [news] where 1=1"
if cint(classId)>0 then
sql=sql&" and classId in("&GetRelatedID(classId)&")"
end if
if skey<>"" then
if cint(stype)=1 then
sql=sql&" and title like '%"&skey&"%'"
else
sql=sql&" and content like '%"&skey&"%'"
end if
end if
sql=sql&" and lock=false and fbTime<=#"&Now()&"# order by fbTime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
ps=15
rs.pagesize=ps
currentpage=request("page")
if currentpage="" then currentpage=1
if currentpage<1 then currentpage=1
if cint(currentpage)>cint(rs.pagecount) then currentpage=rs.pagecount
rs.absolutepage=currentpage
p_count=rs.pagecount
n_count=rs.recordcount
%>
<%
num=0
do while not rs.eof
num=num+1
newsPic=rs("newsPic")
if newsPic<>"" and not isnull(newsPic) then
title=cutstr(rs("title"),35)
else
title=cutstr(rs("title"),35)
end if
title=TitleStype(title,rs("T_color"),rs("T_type"))
%>
· " class="l2"><%=title%>
<%if datediff("d",fbTime,Now())<3 then response.Write(" ")%> |
- <%=formatdatetime(rs("fbTime"),2)%> |
<%
If num>=ps Then Exit Do
rs.movenext
loop
%>
|
|
<%
else
response.Write("
此栏目下暂时没有任何信息......
")
end if
rs.close
%>
|
|
 |
<%
dim newsid
newsid=request.QueryString("newsid")
if newsid="" then newsid=226
sql="select classId,title,content,fbTime,hits from [news] where newsId=" & newsid
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
classId=rs(0)
newstitle=rs("title")
content=rs("content")
rs.update
else
rs.close
closeconn()
ShowInfo 1,"Error!"
response.End()
end if
rs.close
%>
<%=content%> |
|
|
