| |
|
本站数据 |
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from News Where year(updatetime)=year(date()) and month(updatetime)=month(date()) and day(updatetime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
□- 新进单位：<%=todays()%>
□- 企业总数：<%=gettipnum()%>
|
|
|
信息专题 |
<%
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top " & top_sp & " * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF
Response.Write "| - " & trim(rs2("SpecialName")) & " | "
rs2.MoveNext
wend
%>
|
|
<%
else
Response.Write "| 暂无专题 | "
end if
rs2.Close
set rs2=nothing
%>
|
本月热门信息 |
<% dim ii
ii = 0
'rs.Source="select top " & top_txt & " NewsID,Title,BigClassName,SmallClassName,SpecialID,Click from News where year(updatetime)=year(date()) and month(updatetime)=month(date()) and day(updatetime)>=day(date()-6) and image=0 and hot=1 order by click DESC" '选择本周
rs.Source="select top " & top_txt & " NewsID,Title,BigClassName,SmallClassName,SpecialID,Click from News where year(updatetime)=year(date()) and month(updatetime)=month(date()) and image=0 and hot=1 order by click DESC" '选择本月
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "| 本月无更新文章 | "
else
do while not rs.eof
%>
 &BigClassName=<%=rs("BigClassName")%>&SmallClassName=<%=rs("SmallClassName")%>&SpecialID=<%=rs("SpecialID")%>" title="<%=rs("title")%>" target="_blank"><%if len(rs("title"))>20 then%><%=left(rs("title"),20)%>...<%else%><%=rs("title")%><%end if%> <%=rs("click")%> |
<% ii = ii + 1
if ii>10 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
|
提议使用分辨率
1024 X 768 24位 <%Refer=Request.ServerVariables("HTTP_REFERER")%>
|
|
<%
'------------------------------------------------------------------------------------------------------------中间栏开始
if rseof=1 then
for i=1 to RecordCount
BigClassID=ArrayBigClassID(i)
BigClassName=ArrayBigClassName(i)
if ArrayBigClassView(i)=1 then
%>
 <%=BigClassName%> |
|
<%
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select top " & top_news & " NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,image,click from News where BigClassName='" & BigClassName &"' order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="ReadNews.asp?NewsID=" & rs3("NewsID") & "&BigClassName=" & rs3("BigClassName") & "&SmallClassName=" & rs3("SmallClassName") & "&SpecialID=" & rs3("SpecialId")
datetime="(" & Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)[" & rs3("click") &"]"
if rs3("image")=>1 then
img=" "
else
img=""
end if
%>
|
 " target="_blank"><%if len(rs3("title"))>19 then%><%=left(rs3("title"),19)%>...<%else%><%=rs3("title")%><%end if%><%=datetime%><%=img%><%if year(rs3("updatetime"))=year(date()) and month(rs3("updatetime"))=month(date()) and day(rs3("updatetime"))=day(date()) then%> <%end if%>
|
<%
rs3.MoveNext
wend
%>
| [
更多...] |
|
<%
end if
next
rs3.close
set rs3=nothing
else
Response.Write ""
end if
%>
|
|
|
热点图片 |
<%
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source ="select top " & top_img & " NewsID,Title,Content,UpdateTime,Image,BigClassName,SmallClassName,SpecialID from News where (image>0 and hot=1) order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
%>
|
|
<%
rs3.MoveNext
wend
else
Response.Write "| 暂无图片 | "
end if
rs3.close
set rs3=nothing
%>
|
|