 For Dvbbs 8.0 SP1

'=========================================
  Ҹ˲
ð汾Dvbbs 7.1.0 SP1 &  8.0SP1
ʱ䣺2007-8-7
ԭ  ߣ֪(Ȩԭ)
ʾַ: http://bbs.llzbbs.com
'=========================================



1.еļӦĿ¼

2.disbbs.asp

A:ҵ

		Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN ("& postuseridlist &")")

޸Ϊ
		Set Rs=Dvbbs.Execute("Select userid,username,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN ("& postuseridlist &")")
ʵ	Ҳ	Set Rs=Dvbbs.Execute("Select userid,Ӹusername,


B.ҵ

Node.attributes.setNamedItem(postuserlist.createNode(2,"yahoo","")).text=UserIM(5)


                                Node.attributes.setNamedItem(postuserlist.createNode(2,"love","")).text=islove(Node.selectSingleNode("@username").text)


3.%>(ס)

'##########ʼ ޸ bbs.llzbbs.com############
Function islove(str)
UserName=str
dim love,love1,love2,name9,name99,rsm9,sqlm9, connj,dbm1,marryk,lovek
'ݿ.Ĵ˴plus_marry_conn.aspļһ.
dbm1="Dv_plus/marry/plus_marry_db.mdb"
set connj = Server.CreateObject("ADODB.connection")
connj.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbm1)
connj.Open 
   name9=""
   love1=""
   love2=""
   love=""
   marryk=0
   set rsm9=server.createobject("adodb.recordset")
   sqlm9="select * from m_marry  where (marry=8 or marry=9 or marry=1) and forname='"&UserName&"'"
   rsm9.open sqlm9,connj,1,1
    
      do while not rsm9.bof and not rsm9.eof 
         name9=name9&rsm9("toname")&"|"
         marryk=marryk+1
         rsm9.movenext
      loop
   rsm9.close
   set rsm9=nothing
   set sqlm9=nothing 
   
   set rsm9=server.createobject("adodb.recordset")
   sqlm9="select * from m_marry  where (marry=8 or marry=9 or marry=1) and toname='"&UserName&"'"
   rsm9.open sqlm9,connj,1,1
    
      do while not rsm9.bof and not rsm9.eof 
         name9=name9&rsm9("forname")&"|"
         marryk=marryk+1
         rsm9.movenext
      loop
   rsm9.close
   set rsm9=nothing
   set sqlm9=nothing 
   
  'LOVE========================== 
   name99=""
   lovek=0
   set rsm9=server.createobject("adodb.recordset")
   sqlm9="select * from m_love  where love=1 and forname='"&UserName&"'"
   rsm9.open sqlm9,connj,1,1
    
      do while not rsm9.bof and not rsm9.eof 
         name99=name99&rsm9("toname")&"|"
         lovek=lovek+1
         rsm9.movenext
      loop
   rsm9.close
   set rsm9=nothing
   set sqlm9=nothing 
   
   set rsm9=server.createobject("adodb.recordset")
   sqlm9="select * from m_love  where love=1 and toname='"&UserName&"'"
   rsm9.open sqlm9,connj,1,1
    
      do while not rsm9.bof and not rsm9.eof 
         name99=name99&rsm9("forname")&"|"
         lovek=lovek+1
         rsm9.movenext
      loop
   rsm9.close
   set rsm9=nothing
   set sqlm9=nothing 

connj.close
set connj=nothing
'
  
  name9=replace(name9,"|"," ")
  name99=replace(name99,"|"," ")
  if marryk>0 then
     love1=name9
     else
       love1="0"
  end if
  if lovek>0 then
       love2=name99
       else
       love2="0" 
  end if
  
  if love1<>"0" then
  		islove="<font color=blue>ż</font><A HREF=plus_marry_list.asp?action=marryd title=鿴ͥ target=_blank><font color=red>"&name9&"</font></A>"
  		if love2<>"0" then
           islove=islove&"<br></div><div><font color=blue>ˣ</font><A HREF=plus_marry_list.asp?action=loved title=鿴 target=_blank><font color=red>"&name99&"</font></A>"
        end if
        else
        if love2<>"0" then
           islove="<font color=blue>ˣ</font><A HREF=plus_marry_list.asp?action=loved title=鿴Ҹ target=_blank><font color=red>"&name99&"</font>"
           else
           islove="<font color=blue>ˣ</font><A HREF=plus_marry_index.asp title=˱ target=_blank><font color=red>Ѱ..</font></A>"
        end if
  end if
end Function
''########## ޸ bbs.llzbbs.com############

4.̨page_dispbbs ޸template.html(0)

ҵ

<div>
ȼ<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userclass"/>
</div>

ں
<div><xsl:value-of select="/post/userlist/user[@userid=$userid]/@love" disable-output-escaping="yes" /></div>


5.Ӳ˵ҸԼѡ

ӣplus_marry_index.asp

̨ӣ../plus_marry_admin.asp