ԭʣκתؾעԭ(ľͺ)(plus.shidabbs.com)Υ׷

Dvbbs7.0(Dvbbs6.0ʵֵ)

ΪĬ֧λԱ(ʵϣٸûйϵ)

ע޸ĹԱûQQҵʾû״̬ͼƬ



1.dvbbsĸĿ¼½global.asaļע⣬ļΪglobal.asaдļ޸ز֡ļ£

 <script Language="VBscript" Runat="Server">
Sub Application_OnStart
 Application("online")=0
 Application("admin1")="<a href=messanger.asp?action=new&touser=ľͺ target=_blank><img src=pic/admin/admin10.gif title='ľͺáߡQQ:13111110' border='0'></a>"
 Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title='SavagegardenߡQQ:940040' border='0'></a>"
 Application("admin3")="<a href=messanger.asp?action=new&touser=ά target=_blank><img src=pic/admin/admin30.gif title='άߡQQ:1054908' border='0'></a>"
end sub
</script> 
޸ûͼƬϢ

2.login.aspһ%>ǰϣ

 sub adminonline(str)
 select case str
 case "ľͺ"
 Application("admin1")="<a href=messanger.asp?action=new&touser=ľͺ target=_blank><img src=pic/admin/admin11.gif title='ľͺáߡQQ:111924' border='0'></a>"
 case "savagegarden"
 Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin21.gif title='SavagegardenߡQQ:940040' border='0'></a>"
 case "ά"
 Application("admin3")="<a href=messanger.asp?action=new&touser=ά target=_blank><img src=pic/admin/admin31.gif title='άߡQQ:1054908' border='0'></a>"
 end select
end sub

 
ҵ 
If request("password")="" and mobile="" Then
  Dvbbs.AddErrCode(11)
 Else
  password=md5(trim(Dvbbs.CheckStr(request("password"))),16)
 End If

 If Dvbbs.ErrCodes<>"" Then Exit function
ںϣ
 adminonline(username)

3.logout.aspһ%>ǰϣ

 sub adminonline(str)
 select case str
 case "ľͺ"
 Application("admin1")="<a href=messanger.asp?action=new&touser=ľͺ target=_blank><img src=pic/admin/admin10.gif title='ľͺáߡQQ:111924' border='0'></a>"
 case "savagegarden"
 Application("admin2")="<a href=messanger.asp?action=new&touser=Savagegarden target=_blank><img src=pic/admin/admin20.gif title='SavagegardenߡQQ:940040' border='0'></a>"
 case "ά"
 Application("admin3")="<a href=messanger.asp?action=new&touser=ά target=_blank><img src=pic/admin/admin30.gif title='άߡQQ:1054908' border='0'></a>"
 end select
end sub

 
ҵ
  activeuser="delete from Dv_online where username='"&Session(Dvbbs.CacheName & "UserID")(5)&"'"
  Conn.Execute activeuser,TempNum
ںϣ
  adminonline(Session(Dvbbs.CacheName & "UserID")(5))

4.Dv_ClsMain.asp
ѣ
If Trim(Forum_info(7))<>"" Then
 TempStr = Replace(TempStr,"{$mailto}",Forum_Info(7))
  Else
   TempStr = Replace(TempStr,"{$mailto}","mailto:" & Forum_Info(5))
 End If
滻Ϊ
  TempStr = Replace(TempStr,"{$adminonline}",Application("admin1")&Application("admin2")&Application("admin3"))

5.̨ģܹǰģģ(Main_Style) Dvbbs.mainhtml(4)
ѣ
<span style="CURSOR: hand" onClick="window.external.AddFavorite(document.location.href, '{$title}')" onmousemove="status='ղرҳ';" onmouseout="status='';" >ղرҳ</span><br><a href="{$mailto}" target=_blank>ϵ</a><br><a href="boardhelp.asp?boardID={$boardid}">̳</a>
Ϊ
<span style="CURSOR: hand" onClick="window.external.AddFavorite(document.location.href, '{$title}')" onmousemove="status='ղرҳ';" onmouseout="status='';" >ղرҳ</span><br><a href="boardhelp.asp?boardID={$boardid}">̳</a><br>{$adminonline}
