<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
Dvbbs.LoadTemplates("")
Dvbbs.Head()
dim usid,fid,rs,userid,bg_color
bg_color="#FFFFFF"     '你可以在此更改与你贴子列表背景色一致的颜色值.
response.write "<style type=text/css><!--"
response.write "BODY {"
response.write "background-image: none;"
response.write "background-color: "&bg_color
response.write "}"
response.write "-->"
response.write "</style>"
if Dvbbs.Founduser then
   userid = request("userid")
   usID=dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userid").text
   fid = request("fid")
   set rs=dvbbs.execute("select id from [dhy_index] where userid="&usid)
   if dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userid").text=userid then
      if not rs.eof then
         response.write "<a href=dhy_admin.asp?action=admin_file&fid="&fid&" target=_blank><img src=images/manage/plus.gif alt=添加该文章到我的主页 border=0></a>"
      else
         response.write "<a href=dhy_reg.asp target=_blank><img src=Skins/Default/shareforum.gif alt=我要申请个人主页 border=0></a>"
	  end if
   end if
   rs.close:set rs=nothing
end if
%>