动网ASP8.2版首页调用的制作方法

1.创建一个ASP页面，并顶部加入下面代码






加个幻灯片的调用方法（是哈哈拉的代码，觉得很好就拿出来了）


--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
3.公告调用

sub bbsnews()
dim rs,sql,i,n,tlen
n=6
tlen=10
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 社区公告栏:
会员请加群12292959 版主请加群8025598 请大家重新设好头像
" sql="select top "&n&" boardid,title,username,addtime,id from [Dv_bbsnews] order by id desc" set rs=Dvbbs.Execute(sql) If Not RS.Eof then SQL=Rs.GetRows(-1) else resp****e.write "论坛目前没有公告" resp****e.write "

"
Exit sub
end if
rs.close:set rs=nothing

resp****e.write ""

for i=0 to Ubound(sql,2)
resp****e.write "* "
resp****e.write ""
resp****e.write ""&left(sql(1,i),tlen)&"..."
resp****e.write "("&sql(3,i)&")"
resp****e.write ""
resp****e.write "
"
next

resp****e.write ""

resp****e.write ""
resp****e.write " "
resp****e.write ""
End sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
4.在线统计

sub online()
Dim rs,sql,m,k,i
m=0
k=0
sql="select username from [Dv_online] orders"
Set Rs=DVbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 目前在线:
" Resp****e.Write "目前论坛无人在线" resp****e.write "

"
exit sub
end if
rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
m=m+1
next
For i=0 To Ubound(SQL,2)
if SQL(0,i)="客人" then
k=k+1
end if
next
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 目前在线:
" Resp****e.Write " . 会员:" Resp****e.Write ""&m-k&" " Resp****e.Write " . 访客:" Resp****e.Write ""&k&" " Resp****e.Write " . 总在线:" Resp****e.Write ""&m&"" resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------

5.注册统计

sub userstj()
dim daynum,monthnum,yearnum
daynum=Dvbbs.CacheData(10,0)\(datediff("d",Dvbbs.Forum_Setting(74),date()))
monthnum=daynum*30
yearnum=daynum*365
if yearnum>Dvbbs.CacheData(10,0) then
yearnum=Dvbbs.CacheData(10,0)
end if
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 会员注册统计:
" Resp****e.Write " . 每天:"&daynum&" " Resp****e.Write " . 每月:"&monthnum&" " Resp****e.Write " . 每年:"&yearnum&" " resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
6.发帖排行

sub topuser()
dim rs,sql,i,n
n=15
sql="select top "&n&" userid,username,UserPost from [Dv_user] order by UserPost desc,userid desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
end if
rs.close:set rs=nothing
resp****e.write ""
resp****e.write ""
For i=0 To Ubound(SQL,2)
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
next
resp****e.write "

. 发贴总排行:
" resp****e.write ""&i+1&"" resp****e.write "	" resp****e.write "" resp****e.write Dvbbs.htmlencode(SQL(1,i)) resp****e.write "" resp****e.write "	" resp****e.write ""&Dvbbs.htmlencode(SQL(2,i))&"" resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
7.帖子信息统计

Function topic()
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 帖子信息:
" Resp****e.Write " . 今日贴数:"&Dvbbs.CacheData(9,0)&" " Resp****e.Write " . 昨日贴数:"&Dvbbs.CacheData(11,0)&" " Resp****e.Write " . 主题总数:"&Dvbbs.CacheData(7,0)&" " Resp****e.Write " . 帖子总数:"&Dvbbs.CacheData(8,0)&" " Resp****e.Write " . 最高日发贴 "&Dvbbs.CacheData(12,0)&" " resp****e.write "

"
end Function
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
8.会员统计

function sexg(sexgb)
Dim sqlgb
Dim Rs
if sexgb=1 then
sqlgb="where Usersex=1"
else
sqlgb="where Usersex1"
end if
ConnectionDatabase
set rs=conn.execute("Select count(*) from [dv_user]"&sqlgb)
sexg=rs(0)
set rs=nothing
end function
sub users()
dim tnum,ynum,boynum,rs,sql,i
tnum=0
ynum=0
BoyNum=sexg(1)
sql="select JoinDate from [Dv_user] orders"
Set Rs=DVbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
end if
rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(date,vbShortDate) then
tnum=tnum+1
end if
if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(DateAdd("d", -1, date()),vbShortDate) then
ynum=ynum+1
end if
next
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 会员统计:
" Resp****e.Write " . 今日注册:"&tnum&" " Resp****e.Write " . 昨日注册:"&ynum&" " Resp****e.Write " . 论坛女生 "&Dvbbs.CacheData(10,0)-BoyNum&" . 论坛男生 "&BoyNum&" " Resp****e.Write " . 会员总数:"&Dvbbs.CacheData(10,0)&" " Resp****e.Write " . 新进来宾:"&Dvbbs.CacheData(14,0)&" " resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
9.友情连接

Function Getmylink()
Dim Rs,sql
Dim m,i,k
m=0
k=1
sql="select boardname,readme,url,logo,islogo from [Dv_Bbslink] orders"
Set Rs=DVbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
end if
rs.close:set rs=nothing
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

≡ 友情链接 ≡
" if Ubound(SQL,2)=0 then resp****e.write "目前还没有友情链接!" else For i=0 To Ubound(SQL,2) if SQL(4,i)=1 then resp****e.write "" resp****e.write " " k=k+1 if k Mod(9)=1 then resp****e.write " " end if end if next resp****e.write " " end if For i=0 To Ubound(SQL,2) if SQL(4,i)=0 then resp****e.write ""&SQL(0,i)&"" resp****e.write " " end if next resp****e.write "

"
End Function
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
10.今日来访会员

sub showtoday()
dim u_num,sql,rs,i
u_num=0
resp****e.write ""
sql="select UserName,LastLogin from [Dv_User] orders"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
resp****e.write "

≡ 今日到访会员 ≡
今日没有会员到访

"
exit sub
end if
rs.close:set rs=nothing
resp****e.write " "
for i=0 To Ubound(SQL,2)
if FormatDateTime(sql(1,i),vbShortDate)=FormatDateTime(date,vbShortDate) then
resp****e.write ""
resp****e.write ""&sql(0,i)&""

resp****e.write " "
end if
next
resp****e.write " "
resp****e.write " "
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------

11.社区明星

sub allstar()
dim rs,sql,i,mysex,tempstr,mydate,tempface,face
i=0
sql="select top 1 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] order by userpost desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
end if
rs.close:set rs=nothing
tempface=split(sql(4,i),"|")
If Ubound(tempface)>0 Then
face=tempface(1)
else
face=tempface(0)
end if
if sql(3,i)=1 then
mysex="Boy"
else
mysex="Girl"
end if
mydate=Split(sql(8,i)," ")
'if sql(11,i)=null then
'tempstr="0"
'else
'tempstr=Split(sql(11,i),"|")
'end if
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 社区明星:
" resp****e.write "
" resp****e.write "会员昵称: "&sql(1,i)&" " resp****e.write "性 别: "&mysex&" " resp****e.write "论坛等级: "&sql(10,i)&" " resp****e.write "头 衔: "&sql(7,i)&" " resp****e.write "总发贴量: "&sql(2,i)&" " resp****e.write "加盟日期: "&mydate(0)&" " 'resp****e.write "今日发贴: "&tempstr(0)&" " resp****e.write "

"
end sub

--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
12.今日发帖状元

sub todaystar()
dim rs,sql,i,mysex,tempstr,tempname,mydate,tempface,face
i=0
sql="select top 1 username,count(username) from Dv_bbs1 where DateAndTime>Date() group by username order by count(username) desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
tempname=rs(0)
SQL=Rs.GetRows(-1)

else
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 今日发贴状元:
新的一天开始了,记录等你来改写

"
exit sub
end if

sql="select top 2 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] where username='"&tempname&"' order by userpost desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
end if

rs.close:set rs=nothing
tempface=split(sql(4,i),"|")
If Ubound(tempface)>0 Then
face=tempface(1)
else
face=tempface(0)
end if
mydate=Split(sql(8,i)," ")
if sql(3,i)=1 then
mysex="Boy"
else
mysex="Girl"
end if
tempstr=Split(sql(11,i),"|")
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 今日发贴状元:
" resp****e.write "
" resp****e.write "会员昵称: "&sql(1,i)&" " resp****e.write "性 别: "&mysex&" " resp****e.write "论坛等级: "&sql(10,i)&" " resp****e.write "头 衔: "&sql(7,i)&" " resp****e.write "总发贴量: "&sql(2,i)&" " resp****e.write "加盟日期: "&mydate(0)&" " resp****e.write "今日发贴: "&tempstr(0)&" " resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
13.热门版块排行

sub myboard()
dim rs,sql,i,n
n=12 '板块排行调用个数
i=0
sql="select top "&n&" boardid,boardtype,depth,postnum from [dv_board] where depth0 order by postnum desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 板块发贴排行:
论坛无板块

"
exit sub

end if
rs.close:set rs=nothing
resp****e.write ""
resp****e.write ""
For i=0 To Ubound(SQL,2)
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
next
resp****e.write "

. 板块发贴排行:
" resp****e.write ""&i+1&"" resp****e.write "	" resp****e.write "" resp****e.write ""&sql(1,i)&"" resp****e.write "	" resp****e.write ""&sql(3,i)&"" resp****e.write "

"
end sub

《其中一个板块内的所有小板块调用》


--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
14.精华帖子调用

sub mybesttopic()
dim rs,sql,i,n,myboard,ds,tempstr
i=0
n=10 '精华调用个数
sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where boardid444 and isbest=1 order by dateandtime desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 论坛精华贴:
版面	标题	发贴人	最后回复
论坛目前没有精华贴

"
exit sub

end if
rs.close:set rs=nothing

resp****e.write ""
resp****e.write ""
resp****e.write ""
For i=0 To Ubound(SQL,2)
tempstr=Split(sql(4,i),"$")
set ds=Dvbbs.Execute("select boardtype from [dv_board] where boardid="&SQL(2,i))
myboard=ds(0)
resp****e.write ""
next
resp****e.write "

. 论坛精华贴:
版面	标题	发贴人	最后回复
" resp****e.write ""&myboard&"" resp****e.write "	" resp****e.write "" resp****e.write ""&left(sql(1,i),16)&"..." resp****e.write "	" resp****e.write ""&sql(3,i)&"" resp****e.write "	" resp****e.write "by "&tempstr(0)&"" resp****e.write "

"
end sub

--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------

15.用户来访信息

sub userinfo()
'Dim BrowserType,TempStr
'Set BrowserType=New Cls_Browser
Dvbbs.GetBrowser
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

≡ 用户来访信息 ≡
您的真实ＩＰ 是：" resp****e.write ""&Dvbbs.UserTrueIP&"" resp****e.write "，操作系统：" resp****e.write ""&Dvbbs.Platform&"" resp****e.write "，浏 览 器：" resp****e.write ""&Dvbbs.Browser&" "&Dvbbs.version&"" resp****e.write "

"
end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
16.热门调用个数
sub remen()
dim rs,sql,i,n,myboard,ds,tempstr
i=30
n=10 '热门调用个数
sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where a.boardid444 and b.boardid=a.boardid order by Hits desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write ""
resp****e.write "

. 本月论坛热门贴:
版面	标题	发贴人	最后回复
论坛目前没有热门贴

"
exit sub

end if
rs.close:set rs=nothing

resp****e.write ""
resp****e.write ""
resp****e.write ""
For i=0 To Ubound(SQL,2)
tempstr=Split(sql(4,i),"$")
set ds=Dvbbs.Execute("select boardtype from [dv_board] where boardid="&SQL(2,i))
myboard=ds(0)
resp****e.write ""
next
resp****e.write "

. 本月论坛热门贴:
版面	标题	发贴人	最后回复
" resp****e.write ""&myboard&"" resp****e.write "	" resp****e.write "" resp****e.write ""&left(sql(1,i),16)&"..." resp****e.write "	" resp****e.write ""&sql(3,i)&"" resp****e.write "	" resp****e.write "by "&tempstr(0)&"" resp****e.write "

"

end sub
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
17.投票

--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------
18.其中一个小论坛板块排行