![]() |
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from board where inuse=1"
rs.Open rs.Source,conn,1,1
if not rs.EOF then
%>
 |
| <%=rs("content")%>
以前公告 |
<%else
rs.close
set rs=nothing
end if%>
|
![]() |
|
|
![]() |
![]() |
 |
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News where checkked=1")
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 checkked=1 and 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
function getusernum()
dim rs
rs=conn.execute("Select Count(ID) from admin")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function
function getgg()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='先生'")
getgg=rs(0)
set rs=nothing
if isnull(getgg) then getgg=0
end function
function getmm()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='女士'")
getmm=rs(0)
set rs=nothing
if isnull(getmm) then getmm=0
end function
function getother()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='保密'")
getother=rs(0)
set rs=nothing
if isnull(getother) then getother=0
end function
%>
○- 今日文章：<%=todays()%>
○- 文章总数：<%=gettipnum()%>
○- 会员总数：<%=getusernum()%>
<%if showcount=1 then%>
○- 当前在线：<%=i%>
<%end if%> |
|
|
|
![]() |
|
![]() |
|
|
|
![]() |
|
![]() |
 |
|
![]() |
 |
<%
dim menuid1
dim menuname1
dim menucontent1
dim menuview1
set rs22=server.CreateObject("ADODB.RecordSet")
rs22.Source="select * from type where typeview=1 order by typeorder"
rs22.Open rs22.Source,conn,1,1
i=1
while not rs22.EOF
RecordCount=rs22.RecordCount
menuid1=rs22("typeid")
menuname1=rs22("typename")
menucontent1=rs22("typecontent")
menuview1=rs22("typeview")
%>
〖 ><%=menuName1 %>〗
<%
typeid=rs22("typeid")
set rs21=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
do while not rs21.eof
%> <%if not Rs21.eof then%> "><%=Rs21("bigclassname")%> <%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs21("bigclassid"))&" order by smallclassorder")%> <%do while not nrs.eof%> <%if not nRs.eof then%>
|&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%> <%nrs.movenext
end if %> <%if not nRs.eof then%>
|&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%> <%nRs.movenext
end if%> <%loop
nRs.Close
set nRs=nothing
%> <%rs21.movenext
end if
loop
rs21.close
%>
<%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%> |
|
|
|
|
![]() |
 |
<%if showspecial=1 then%>
<%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
TrString=" · " & trim(rs2("SpecialName")) & "
"
Response.Write TrString
rs2.MoveNext
wend
%> |
更多专题...
<%
else
Response.Write " | 暂无专题 | "
end if
rs2.Close
set rs2=nothing
%>
<%end if%>
|
|
|
 |
| <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<%
rs3.MoveNext
wend
else
Response.Write ""
end if
rs3.close
set rs3=nothing
%> |
|
<%if showvote="1" then%>
![]() |
<%
set rs=conn.execute("SELECT * FROM vote where IsChecked=1")
if rs.eof then
%>
<%else%>
 |
| <%=rs("Title")%> |
<%end if%>
<%end if%> |
|
|
