 |
 |
|
  |
 |
<%sql="select top 1 title,writer,content,articleid,state,coolyes,hits from article where state='yes' and coolyes='1' order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何链接"
else
do while not rs.eof
%>
" target="_blank" ;><%=rs("title")%>" target="_blank">
◇<%=left(rs("content"),80)%> |
| <%
rs.movenext
loop
end if
rs.close
%>
|
 |
| 网站动态公告 |
|
网站动态统计 |
<%sql="select top 1 * from Announce where atype='1' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何链接"
else
do while not rs.eof
%>
□ <%=rs("title")%>
---------<%=rs("author")%>
<%=left(rs("content"),80)%> <%=rs("dateandtime")%> |
<%
rs.movenext
loop
end if
rs.close
%>
|
|
□注册作者:
<%
soft2sql="SELECT * FROM myuser order by id desc"
Set soft2rs=Server.CreateObject("ADODB.Recordset")
soft2rs.open soft2sql,conn,1,1
user=soft2rs.RecordCount
soft2rs.close
%>
<%=user%> □新会员:
<%sql="select top 1 * from myuser order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有会员"
else
do while not rs.eof
%>
" title="查看该用户资料" target="_blank"><%=rs("username")%>
<%
rs.movenext
loop
end if
rs.close
%>
□文章总数:
<%
soft1sql="SELECT * FROM article order by articleid desc"
Set soft1rs=Server.CreateObject("ADODB.Recordset")
soft1rs.open soft1sql,conn,1,1
jsq=soft1rs.RecordCount
soft1rs.close
%>
<%=jsq%> □今天文章:
<%
soft2sql="SELECT * FROM article where dateandtime=date() order by articleid desc"
Set soft2rs=Server.CreateObject("ADODB.Recordset")
soft2rs.open soft2sql,conn,1,1
user=soft2rs.RecordCount
soft2rs.close
%>
<%=user%>
□当前在线:
人 □访问:
|
|
|
|
| 最新动态文章 |
|
热门动态文章TOP10 |
<%sql="select top 10 * from article where state='yes' order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何链接"
else
do while not rs.eof
%>
| □ <%=rs("title")%>
---------<%=rs("writer")%> |
<%
rs.movenext
loop
end if
rs.close
%>
|
|
<%sql="select top 10 * from article where state='yes' order by hits desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何链接"
else
do while not rs.eof
%>
| □ <%=rs("title")%>
---------<%=rs("writer")%> |
<%
rs.movenext
loop
end if
rs.close
%>
|
|
|
|
| |
|
|
| |
|
|
|
|
|
|
<%sql="select top 1 * from ad order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何广告"
else
do while not rs.eof
%>
<%=rs("content")%>
<%
rs.movenext
loop
end if
rs.close
%>
|
|
|
 |
|
<%sql="select top 10 title,writer,hits,content,articleid,state,coolyes from article where state='yes' and coolyes='1' order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有任何链接"
else
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
%>
|
|
|
 |
|
 |
<%if ShowResearch<>1 then
Response.Write ""&_
""&_
" 网 站 调 查 | "&_
" "&_
""
set rs=conn.execute("SELECT Title,Select1,Select2,Select3,Select4,Select5,Select6,Select7,Select8 FROM research where IsChecked=true")
if rs.eof then
rs.close
set rs=nothing
Response.Write "| 尚无任何调查 | "
else
arrRow=rs.GetRows
rs.close
set rs=nothing
Response.Write ""&_
""&_
""&_
"  "&arrRow(0,0)&" | "&_
" "&_
""&_
" "&_
" | "
end if
Response.Write " "&_
" "
end if
%>
|
|
