<%dbdns="../../"%>
<!--#include file="../main.asp"-->
<%id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的用户ID号！"
response.end
end if 
'======================================
set rs=server.createobject("adodb.recordset")
sql="select *  from T_Member where F_ID="&id
rs.open sql,conn,1,1
if rs.eof then
response.write"<script>alert('对不起，此用户不存在或已被管理员关闭\n\n如有问题请及时和我们联系');window.open('../../index.asp','_self');</script>"
response.end
else
if trim(rs("F_Sex"))="1" then 
f="男"
else
f="女"
end if
username=rs("F_coname")
if trim(rs("T_pic"))<>"" then
pic=rs("T_pic")
else 
pic="../../images/nopic1.gif"
end if
goid=rs("F_ID")
goname=rs("F_username")
coname=rs("F_coname")
co=trim(rs("F_co"))
%>
<!--#include file="../dns/dns.asp"-->
<%
url=usertwourl
'首页信息============================================================================================================
city="<table width=""236"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&_
"<tr><td height=""25"">姓名:"&rs("F_RealName")&"</td></tr><tr>"&_
"<td height=""25"">出生年月:"&rs("F_Birthday")&"</td></tr><tr><td height=""25"">性别:"&f&""&_
"</td></tr><tr><td height=""25"">血型:"&rs("F_blood")&"</td></tr><tr><td height=""25"">星座:"&rs("F_star")&"</td>"&_
"</tr><tr><td height=""25"">身高:"&rs("F_height")&"CM</td></tr><tr><td height=""25"">体重:"&rs("F_weight")&"KG</td>"&_
"</tr><tr><td height=""25"">学历:"&rs("F_edu")&"</td></tr><tr><td height=""25"">婚姻状况:"&rs("F_marry")&"</td>"&_
"</tr><tr><td height=""25"">电子邮件:"&rs("F_Email")&"</td></tr><tr><td height=""25"">QQ:"&rs("F_qq")&"</td>"&_
"</tr><tr><td height=""25"">联系地址:"&rs("F_Address")&"</td></tr><tr><td height=""10"">&nbsp;</td></tr></table>"

'======================================
'推荐相册
'======================================
sql1="Select top 10 * From Photo_pic Where F_userid="&id&" order by F_ID desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
coct=coct&"<table><tr>" 
do while not rs1.eof 
n=n+1
coct=coct&"<td><table width=125 height=98 border=0 cellpadding=0 cellspacing=0 style=""border:1px #cccccc solid"">"
coct=coct&"<tr><td width=125 height=130 align=center valign=middle bgcolor=#FFFFFF><a onmousewheel=""return img_jbw(this)"" title="&rs1("F_username")&" href=""ShowPhoto.asp?id="&id&"&sort_id="&rs1("F_id")&"""><IMG  class=borderpic  onmouseover=""javascript:if(this.width>100)this.width=100;"" onload=""javascript:if(this.height>100)this.height=100;"" alt="&rs("F_username")&" src=../../"&rs1("F_pic")&" border=0 height=100></a></td>"
coct=coct&"</tr><tr><td height=1 background=""images/io.jpg""></td>"
coct=coct&"</tr><tr><td height=20 align=center bgcolor=#FFFFFF><a title="&rs1("F_username")&" href=""ShowPhoto.asp?id="&id&"&sort_id="&rs1("F_id")&""">"&left(rs1("F_username"),8)&"</a></td>"
coct=coct&"</tr></table></td>"
if n mod 5=0 and n<>10 then coct=coct&"</tr><tr>"
rs1.movenext
loop
coct=coct&"</tr></table>"
rs1.close
'======================================
'分类
'======================================
set rs1=server.createobject("adodb.recordset") 
sql1="select * from boke_sort where user_id="&id
rs1.open sql1,conn,1,1
do while not rs1.eof
bokesort=bokesort&"<tr><td align=""center""><img src=""images/io.gif"" width=""11"" height=""9""></td><td height=20 align=left>&nbsp;<a href=blog.asp?id="&id&"&sort_id="&rs1("id")&">"&rs1("bokesort")&"</A>"
bokesort=bokesort&"</td></tr>"
rs1.movenext
loop
rs1.close
sql1="select * from photo where F_userid="&id&" order by id desc"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.eof then
'response.Write("<tr><td>还没有相册,请先添加相册</td></tr>")
else
picsort=picsort&"<tr>"
i=0
while not rs1.eof
i=i+1
picsort=picsort&"<td height=20 align=left><img src=""images/io.gif"" width=""11"" height=""9""> <a href=photo.asp?id="&id&"&photo_id="&rs1("id")&">"&rs1("F_username")&"</a>"
picsort=picsort&"</td>"
if i mod 1=0 then picsort=picsort&"</tr><tr>"
rs1.movenext
wend
picsort=picsort&"</tr>"
end if
rs1.Close()
'======================================
'推荐友情链接
'======================================
sql1="Select top 6 * From BM_Bookmark where F_userID="&id&" order by F_ID desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
links=links&"<table>" 
do while not rs1.eof 
links=links&"<tr><td height=""20""><img src=""Images/url.gif"" width=""16"" height=""16"" align=""absbottom"">  <a href="&rs1("F_URL")&" target=""_blank"">"&rs1("F_WebSiteName")&"</a></td></tr>"
rs1.movenext
loop
links=links&"</table>"
rs1.close
'======================================
'推荐留言
'======================================
sql1="Select top 6 * From message where user_id="&id&"order by id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
meg=meg&"<table>" 
do while not rs1.eof 
meg=meg&"<tr><td height=""18"">"&rs1("username")&"</td></tr>"
meg=meg&"<tr><td height=""18"">"&left(rs1("message"),30)&"</td></tr>"
rs1.movenext
loop
meg=meg&"</table>"
rs1.close
'======================================
'推荐博客
'======================================
sql1="select top 15 * from boke where boke_user_id="&id&" order by boke_id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
boke=boke&"<table>"
do while not rs1.eof 
boke=boke&"<tr><td align=""center""><img src=""images/jt.gif"" width=""9"" height=""9""></td><td width=""75%"">&nbsp;<a href=blog_"&trim(rs("F_co"))&".asp?id="&id&"&boke_id="&rs1("boke_id")&" target=_blank><span align=""left"">"&rs1("boke_name")&"</span></a></td><td width=""25%"">"&rs1("boke_date")&"</td></tr>"
rs1.movenext
loop
boke=boke&"</table>"
rs1.close

'======================================
'最新博客
'======================================
sql1="select top 20 * from boke  order by boke_date desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
boke_date=boke_date&"<table>"
do while not rs1.eof 
boke_date=boke_date&"<tr><td width=""100%"">&nbsp;<a href=../../blog/blog_"&trim(rs("F_co"))&".asp?id="&rs1("boke_id")&" target=_blank>"&left(rs1("boke_name"),14)&"</a></td></tr>"
boke_date=boke_date&"<tr><td height=""1"" background=""images/io.jpg""></td></tr>"
rs1.movenext
loop
boke_date=boke_date&"</table>"
rs1.close
'======================================
'推荐我的好友
'======================================
sql1="Select top 6 * From my_friend where F_userid="&id&" order by f_id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
friends=friends&"<table>" 
do while not rs1.eof 
sql2="select * from t_member where f_username='"&rs1("f_username")&"'"
set rs2=server.createobject("adodb.recordset")                     
rs2.open sql2,conn,1,1 
co=rs2("F_co")
goname=rs2("F_UserName")
goid=rs2("F_ID")
coname=rs2("F_coname")
rs2.close%><!--#include file="../dns/dns.asp"-->
<%
friends=friends&"<tr><td height=""20""><a href="&usertwourl&" target=""_blank"">"&coname&"</a></td></tr>"
rs1.movenext
loop
friends=friends&"</table>"
rs1.close
'======================================
'推荐我的MP3
'======================================
sql1="select * from MP3 where MP3_user_id="&id&" order by MP3_id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
do while not rs1.eof 
n=n+1
MP3=MP3&"<tr><td><a href=mp3_view.asp?id="&id&"&mp3_id="&rs1("mp3_id")&">"&rs1("MP3_name")&"</a></td></tr>"
rs1.movenext
loop
rs1.close
'======================================
'我的MP3
'======================================
sql1="select * from MP3 where MP3_user_id="&id&" order by MP3_id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
coMP3=coMP3&"<table>"
do while not rs1.eof 
n=n+1
coMP3=coMP3&"<tr><td align=""center""><img src=""images/jt.gif"" width=""9"" height=""9""></td><td width=""70%""><a href=mp3_view.asp?id="&id&"&mp3_id="&rs1("mp3_id")&">"&rs1("MP3_name")&"</a></td><td width=""30%"">"&rs1("mp3_date")&"</td></tr>"
coMP3=coMP3&"<tr><td width=""8""></td><td height=""1"" background=""images/io.jpg"" colspan=""2""></td></tr>"
rs1.movenext
loop
coMP3=coMP3&"</table>"
rs1.close
'======================================
'推荐留言
'======================================
'======================================
sql1="select * from message where user_id="&id&" order by id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
message=message&"<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" 
do while not rs1.eof 
n=n+1
message=message&"<tr><td height=25 bgcolor=#E8F1FF><table width=""96%"" height=25 border=0 align=right cellpadding=0 cellspacing=0>"
message=message&"<tr><td width=""74%""><DIV class=col_body><STRONG>"&rs1("username")&"</STRONG></DIV></td>"
message=message&"<td width=""26%"">"&year(rs1("data"))&"-"&month(rs1("data"))&"-"&day(rs1("data"))&"</td></tr></table></td></tr>"
message=message&"<tr><td>"&rs1("message")&"</td></tr>"
rs1.movenext
loop
message=message&"</table>"
rs1.close

'内页信息======================================================================================================
'======================================
'个人介绍
'======================================
info=info&"<table width=634 height=198 border=0 align=center cellpadding=0 cellspacing=0>"
info=info&"<tr><td width=690 height=100 valign=top><TABLE width=""100%"">"
info=info&"<TBODY><TR align=middle height=20><TD class=con1 align=left width=""100%""colSpan=6>"
info=info&"<B>"&username&"</B>的基本信息 </TD></TR>"
info=info&"<TR><TD bgColor=#ff6600 colSpan=6 height=1></TD></TR>"
info=info&"<TR><TD class=bluecon1 align=left width=139>姓名：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD colSpan=4 height=20  class=con1>&nbsp;"&rs("F_RealName")&" </TD></TR><TR>"
info=info&"<TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left width=139>自我介绍：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD colSpan=4 height=20  class=con1>&nbsp;"&rs("F_Memo")&" </TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left width=139>交友目的：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD colSpan=4 height=20  class=con1>"&rs("F_motive")&" </TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left width=139>出生日期：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD width=219 height=20  class=con1>"&rs("F_Birthday")&" </TD>"
info=info&"<TD class=bluecon1 align=left width=139>性别：</TD>"
if trim(rs("F_Sex"))=1 then 
sex="男性"
end if
if trim(rs("F_Sex"))=0 then 
sex="女性"
end if
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD width=219 height=20  class=con1>"&sex&" </TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR>"
info=info&"<TD class=bluecon1 align=left width=139>民族：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD width=219 height=20  class=con1>"&rs("F_nation")&" </TD>"
info=info&"<TD class=bluecon1 align=left width=139>学历：</TD><TD class=con1 align=middle width=12>&nbsp;</TD><TD  class=con1 width=219 height=20>"&rs("F_edu")&" </TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left>血型：</TD>"
info=info&"<TD class=con1 align=middle>&nbsp;</TD><TD height=20  class=con1>"&rs("F_blood")&"</TD>"
info=info&"<TD class=bluecon1 align=left>星座：</TD><TD class=con1 align=middle>&nbsp;</TD>"
info=info&"<TD height=20  class=con1>"&rs("F_star")&"</TD></TR><TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left>身高：</TD>"
info=info&"<TD class=con1 align=middle>&nbsp;</TD><TD height=20  class=con1>"&rs("F_height")&"CM</TD>"
info=info&"<TD class=bluecon1 align=left>体重：</TD><TD class=con1 align=middle>&nbsp;</TD>"
info=info&"<TD height=20  class=con1>"&rs("F_weight")&"KG</TD></TR><TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR>"
info=info&"<TD class=bluecon1 align=left width=139>婚姻状况：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD width=219 height=20  class=con1>"&rs("F_marry")&" </TD><TD class=bluecon1 align=left width=139>所在区域：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD width=219 height=20  class=con1>"
if rs("F_ypaddone")<>"" then
sql1="select *  from ypaddtwo where addtwo_id="&rs("F_ypaddtwo")
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
addone=rs1("addone")
addtwo=rs1("addtwo")
rs1.close
end if
info=info&""&addone&"/"&addtwo&"</TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR>"
info=info&"<TR><TD class=bluecon1 align=left>QQ：</TD>"
info=info&"<TD class=con1 align=middle>&nbsp;</TD><TD height=20  class=con1>"&rs("F_qq")&"</TD>"
info=info&"<TD class=bluecon1 align=left>联系电话：</TD><TD class=con1 align=middle>&nbsp;</TD>"
info=info&"<TD height=20  class=con1>"&rs("F_Tel")&"</TD></TR><TR>"
info=info&"<TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TR>"
info=info&"<TD class=bluecon1 align=left>手 机：</TD><TD class=con1 align=middle>&nbsp;</TD>"
info=info&"<TD height=20  class=con1>"&rs("F_Mobile")&"</TD><TD class=bluecon1 align=left>联系地址：</TD>"
info=info&"<TD class=con1 align=middle>&nbsp;</TD><TD height=20  class=con1>"&rs("F_Address")&"</TD>"
info=info&"</TR><TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TR>"
info=info&"<TD class=bluecon1 align=left width=139>所在单位：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD width=219 height=20  class=con1>"&rs("F_Corp")&"</TD><TD class=bluecon1 align=left width=139>单位电话：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD  class=con1 width=219 height=20>"&rs("F_CorpTel")&" </TD></TR>"
info=info&"<TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR>"
info=info&"<TD class=bluecon1 align=left width=139>单位地址：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD class=con1 width=219 height=20>"&rs("F_CorpAddress")&"</TD>"
info=info&"<TD class=bluecon1 align=left width=139>电子邮件：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD class=con1 width=219 height=20>"&rs("F_Email")&"</TD></TR><TR>"
info=info&"<TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR><TR><TD class=bluecon1 align=left width=139>语言能力：</TD>"
info=info&"<TD class=con1 align=middle width=12>&nbsp;</TD><TD class=con1 width=219 height=20>"&rs("F_language")&" </TD>"
info=info&"<TD class=bluecon1 align=left width=139>注册日期：</TD><TD class=con1 align=middle width=12>&nbsp;</TD>"
info=info&"<TD class=con1 width=219 height=20>"&rs("T_date")&" </TD></TR><TR><TD bgColor=#d6d6d6 colSpan=6 height=1></TD></TR>"
info=info&"<TR><TD colSpan=6 height=5></TD></TR></TBODY></TABLE></td></tr></table>"
'======================================
'个人相册
'======================================
if request("photo_id")<>"" then
sql1="Select * From Photo_pic Where F_userid="&id&" and F_picid="&request("photo_id")&" order by F_ID desc"
else 
sql1="Select * From Photo_pic Where F_userid="&id&" order by F_ID desc"
end if
rs1.open sql1,conn,1,1                     
if not rs1.eof then
'分页的实现 
listnum=40
Rs1.pagesize=listnum
page=Request("page")
if (page-Rs1.pagecount) > 0 then
page=Rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
n=0
cophoto=cophoto&"<table  bgcolor=""#F5F5F5""><tr>"
do while not rs1.eof and i<listnum
n=n+1
cophoto=cophoto&"<td><table width=125 height=98 border=0 cellpadding=0 cellspacing=0 style=""border:1px #cccccc solid"">"
cophoto=cophoto&"<tr><td width=125 height=130 align=center valign=middle bgcolor=#FFFFFF><a onmousewheel=""return img_jbw(this)"" title="&rs1("F_username")&" href=""ShowPhoto.asp?id="&id&"&sort_id="&rs1("F_id")&"""><IMG  class=borderpic  onmouseover=""javascript:if(this.width>100)this.width=100;"" onload=""javascript:if(this.height>100)this.height=100;"" alt="&rs("F_username")&" src=../../"&rs1("F_pic")&" border=0 height=100></a></td>"
cophoto=cophoto&"</tr><tr><td height=1 background=""images/io.jpg""></td>"
cophoto=cophoto&"</tr><tr><td height=20 align=center bgcolor=#FFFFFF><a title="&rs1("F_username")&" href=""ShowPhoto.asp?id="&id&"&sort_id="&rs1("F_id")&""">"&left(rs1("F_username"),8)&"</a></td>"
cophoto=cophoto&"</tr></table></td>"
if n mod 5=0 and n<>50 then cophoto=cophoto&"</tr><tr>"
rs1.movenext 
i=i+1 
j=j-1
loop
cophoto=cophoto&"</tr></table>"
filename="photo.asp?id="&request("id")&""

if page=1 then
else
upfy1="<a href="&filename&">|<<</a> <a href="&filename&"&page="&page-1&"><<</a> <a href="&filename&"&page="&page-1&">["&page-1&"]</a>"
end if
if Rs1.pagecount=1 then
else
upfy2="["&page&"]"
end if
if Rs1.pagecount-page <> 0 then
upfy3="<a href="&filename&"&page="&page+1&">["&page+1&"]</a> <a href="&filename&"&page="&page+1&">>></a> <a href="&filename&"&page="&Rs1.pagecount&">>>|</a>"
end if
cophoto=cophoto&"<br><table width=100% border=0 cellspacing=0 cellpadding=5><tr><td align=right height=50>"
cophoto=cophoto&"<strong>"&page&"/"&Rs1.pagecount&"</strong> 页 "&upfy1&" "&upfy2&" "&upfy3&""
cophoto=cophoto&"&nbsp;</td></tr></table>"
end if
rs1.close
'======================================
'个人博客
'======================================
if request("sort_id")<>"" then
sql1="select * from boke where boke_user_id="&id&" and boke_sortid="&request("sort_id")&" order by boke_id desc"
else
sql1="select * from boke where boke_user_id="&id&" order by boke_id desc"
end if
rs1.open sql1,conn,1,1                     
if not rs1.eof then
'分页的实现 
listnum=30
Rs1.pagesize=listnum
page=Request("page")
if (page-Rs1.pagecount) > 0 then
page=Rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
n=0
coboke=coboke&"<table>"
do while not rs1.eof and i<listnum
coboke=coboke&"<tr><td align=""center""><img src=""images/jt.gif"" width=""9"" height=""9""></td><td width=""75%"">&nbsp;<a href=blog_"&trim(rs("F_co"))&".asp?id="&id&"&boke_id="&rs1("boke_id")&" target=_blank><span class=""STYLE2"" align=""left"">"&left(rs1("boke_name"),30)&"</span></a></td><td width=""25%"">"&rs1("boke_date")&"</td></tr>"
coboke=coboke&"<tr><td width=""8""></td><td height=""1"" background=""images/io.jpg"" colspan=""2""></td></tr>"
rs1.movenext 
i=i+1 
j=j-1
loop
coboke=coboke&"</table>"
filename="blog.asp?id="&request("id")&""

if page=1 then
else
upfy1="<a href="&filename&">|<<</a> <a href="&filename&"&page="&page-1&"><<</a> <a href="&filename&"&page="&page-1&">["&page-1&"]</a>"
end if
if Rs1.pagecount=1 then
else
upfy2="["&page&"]"
end if
if Rs1.pagecount-page <> 0 then
upfy3="<a href="&filename&"&page="&page+1&">["&page+1&"]</a> <a href="&filename&"&page="&page+1&">>></a> <a href="&filename&"&page="&Rs1.pagecount&">>>|</a>"
end if
coboke=coboke&"<br><table width=100% border=0 cellspacing=0 cellpadding=5><tr><td align=right height=50>"
coboke=coboke&"<strong>"&page&"/"&Rs1.pagecount&"</strong> 页 "&upfy1&" "&upfy2&" "&upfy3&""
coboke=coboke&"&nbsp;</td></tr></table>"
end if
rs1.close
'======================================
'博客信息
'======================================
'代码
'======================================
'主页留言
'======================================
comessage=comessage&"<form action=""../../inc/server.asp"" method=""post"" name=""form1""><input name=id type=hidden value="&id&"><input name=key type=hidden value=2> <input name=lr type=hidden value="&url&"><input name=username type=hidden value="
if session("goname")<>"" then
comessage=comessage&""&session("goname")&""
else
comessage=comessage&"[匿名]"
end if
comessage=comessage&"><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
comessage=comessage&"<tr><td width=""10%"" height=""25"" align=""right""></td>"
comessage=comessage&"<td width=""90%"" height=""30""><font color=#FF0000>"
if session("goname")<>"" then
comessage=comessage&""&session("goname")&"</font></td>"
else
comessage=comessage&"[匿名]</font></td>"
end if
comessage=comessage&"</tr><td height=""25"" align=""right"">内容:&nbsp;</td>"
comessage=comessage&"<td height=""25""><textarea name=msg cols=70 rows=4></textarea></td>"
comessage=comessage&"</tr><tr><td height=""25"">&nbsp;</td>"
comessage=comessage&"<td height=""40"">&nbsp;&nbsp;&nbsp;<input type=""submit"" name=""Submit"" value="" 提 交 "">&nbsp;&nbsp;&nbsp;&nbsp;"
comessage=comessage&"<input type=""reset"" name=""Submit2"" value="" 重 置 ""></td></tr></table></form>"
'======================================
'博客留言
'======================================
blogmessage=blogmessage&"<form target=_blank action=""../../inc/server.asp"" method=""post"" name=""form1""><input name=id type=hidden value="&id&"><input name=key type=hidden value=3><input name=key type=hidden value="&goid&"><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
blogmessage=blogmessage&"<tr><td width=""20%"" height=""25"" align=""right"">评论名称:&nbsp;</td>"
blogmessage=blogmessage&"<td width=""80%"" height=""30""><input name=""username"" type=""text"" id=""username"" size=""30""></td>"
blogmessage=blogmessage&"</tr><tr><td height=""25"" align=""right"">联系方式:&nbsp;</td>"
blogmessage=blogmessage&"<td height=""30""><input name=""lx"" type=""text"" id=""lx"" size=""35""></td>"
blogmessage=blogmessage&"</tr><tr><td height=""25"" align=""right"">评论内容:&nbsp;</td>"
blogmessage=blogmessage&"<td height=""25""><textarea name=msg cols=50 rows=8></textarea></td>"
blogmessage=blogmessage&"</tr><tr><td height=""25"">&nbsp;</td>"
blogmessage=blogmessage&"<td height=""40"">&nbsp;&nbsp;&nbsp;<input type=""submit"" name=""Submit"" value="" 提 交 "">&nbsp;&nbsp;&nbsp;&nbsp;"
blogmessage=blogmessage&"<input type=""reset"" name=""Submit2"" value="" 重 置 ""></td></tr></table></form>"
'======================================
'友情链接
'======================================
sql1="Select * From BM_Bookmark where F_userID="&id&" order by F_ID desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
colink=colink&"<table><tr>" 
do while not rs1.eof
n=n+1 
colink=colink&"<td height=""20""><img src=""Images/url.gif"" width=""16"" height=""16"" align=""absbottom"">  <a href=http://"&rs1("F_URL")&" target=""_blank"">"&rs1("F_WebSiteName")&"</a></td>"
if n mod 7=0 and n<>60 then colink=colink&"</tr><tr>"
rs1.movenext
loop
colink=colink&"</tr></table>"
rs1.close
'推荐留言
'======================================
sql1="select * from message where user_id="&id&" and key1=2 order by id desc"
set rs1=server.createobject("adodb.recordset")                     
rs1.open sql1,conn,1,1 
n=0
blog_book=blog_book&"<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" 
do while not rs1.eof 
n=n+1
blog_book=blog_book&"<tr><td height=25 bgcolor=#E8F1FF><table width=""96%"" height=25 border=0 align=right cellpadding=0 cellspacing=0>"
blog_book=blog_book&"<tr><td width=""74%""><DIV class=col_body><STRONG>"&rs1("username")&"</STRONG></DIV></td>"
blog_book=blog_book&"<td width=""26%"">"&year(rs1("data"))&"-"&month(rs1("data"))&"-"&day(rs1("data"))&"</td></tr></table></td></tr>"
blog_book=blog_book&"<tr><td>"&rs1("message")&"</td></tr>"
rs1.movenext
loop
blog_book=blog_book&"</table>"
rs1.close
'======================================================================================================
set rst=server.createobject("adodb.recordset")
sqlt="select * from T_club_member where F_username='"&rs("F_username")&"'"
rst.open sqlt,conn,1,1
do while not rst.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_club where F_id="&rst("F_club_id")
rs1.open sql1,conn,1,1
clubid=rs1("F_id")
f_name=rs1("F_name")
F_co=trim(rs1("F_co"))
rs1.close
club2=club2&"<tr><td align=""center""><img src=""images/io.gif"" width=""11"" height=""9""></td><td height=20 align=left>&nbsp;<a href=../../club_"&F_co&".asp?id="&clubid&" class=STYLE2>"&f_name&"</a>"
if rst("F_type")=1 then club2=club2&"<font color=#FF0000>圈主</font></td></tr>" else club2=club2&"<font color=#FF0000>成员</font></td></tr>" end if
rst.movenext
loop
rst.close
'======================================================================================================
end if
rs.close
set rs=nothing
%>
