space.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<%
'------------------------------------------------------
Function Sright()
sql1="select *  from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addtwo_ID="&rs3(""&WebSqlType&"_ypaddtwo")
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then                     
else  
addone=rs1(""&WebSqlType&"_addone")
addtwo=rs1(""&WebSqlType&"_addtwo")
rs1.close
end if
response.Write"<TABLE cellSpacing=0 cellPadding=3 width='100%' border=0><TBODY><TR>"
response.Write" <TD vAlign=top align=middle><IMG src='"
if rs3(""&WebSqlType&"_pic")<>"" then
response.Write"/"&rs3(""&WebSqlType&"_pic")&""
else
response.Write"/images/mm.gif"
end if
response.Write"' width=120 vspace=5><BR> <STRONG>"
response.Write""&rs3(""&WebSqlType&"_username")&"</STRONG>"
If rs3(""&WebSqlType&"_realname")<>"" Then
response.Write"  ("&rs3(""&WebSqlType&"_realname")&")"
end if
response.Write" <DIV class=hr></DIV><A href="&cityurl&"jiaoyou/index.asp?username="&id&">发送短消息</A> "
response.Write"| <A href="&cityurl&"jiaoyou/haoyuo.asp?username="&id&">加为好友</A>"
response.Write"  </TD></TR></TBODY></TABLE><DIV class=hr></DIV>"
response.Write"<DIV class=box2>性别: "&trim(rs3(""&WebSqlType&"_Sex"))&"<BR>年龄: "&rs3(""&WebSqlType&"_ll")&"<BR>"
response.Write"人气: "&trim(rs3(""&WebSqlType&"_htc"))&"<BR>"
response.Write"所在地区: "&addone&"、"&addtwo&" </DIV><DIV class=hr></DIV>"
response.Write"<DIV class=box2>QQ: "&trim(rs3(""&WebSqlType&"_qq"))&"<BR>MSN: <SPAN class=smalltext>"&trim(rs3(""&WebSqlType&"_msn"))&""
response.Write"</SPAN><BR>行业: <SPAN class=smalltext>"&trim(rs3(""&WebSqlType&"_xxone"))&"</SPAN><BR>"
response.Write"职位: <SPAN class=smalltext>"&trim(rs3(""&WebSqlType&"_zhiwei"))&"</SPAN><BR>"
response.Write"注册时间: <SPAN class=smalltext>"&trim(rs3(""&WebSqlType&"_date"))&"</SPAN><BR>"
response.Write"最后登陆: <SPAN class=smalltext>"&trim(rs3(""&WebSqlType&"_Edate"))&"</SPAN><BR></DIV>"
End Function
'----------------------------------------------------------------------------------------------------
Function SindexID()
response.Write"<TABLE cellSpacing=0><TBODY><TR>"
set rs=server.createobject("adodb.recordset")
sql="select top 7 * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&id&" order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<td>还没有内容</td>"
else 
n=0
do while not rs.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_club where "&WebSqlType&"_ID="&rs(""&WebSqlType&"_Cid")
rs1.open sql,conn,1,1
if rs1.eof then
else
goname=rs1(""&WebSqlType&"_webname")
goid=rs1(""&WebSqlType&"_id")
title=trim(rs1(""&WebSqlType&"_title"))
pic=trim(rs1(""&WebSqlType&"_pic"))
rs1.close
end if
if rs(""&WebSqlType&"_key")=0 then
adm="待审成员"
elseif rs(""&WebSqlType&"_key")=1 then
adm="圈子创使人"
elseif rs(""&WebSqlType&"_key")=2 then
adm="圈子管理员"
elseif rs(""&WebSqlType&"_key")=3 then
adm="普通成员"
elseif rs(""&WebSqlType&"_key")=4 then
adm="己被冻结"
end if
%>
<!--#include file="dns/dns.asp"-->
<%
response.Write"<TD align=middle width='20%'><A href="&usertwourl&" target=_blank>"
response.Write"<IMG height=80 alt="&title&" hspace=5 src='"
if pic<>"" then
response.Write"/"&pic&""
else
response.Write""&cityurl&"images/gm.gif"
end if
response.Write"' width=80 vspace=5 border=0><BR> <STRONG class=bigtext title="&title&">"&left(title,6)&"</STRONG></A><br>"
response.Write" <SPAN  class='graytext smalltext'>"&adm&"</SPAN></TD>"
rs.movenext
loop
rs.close
end if
response.Write"</TR></TBODY></TABLE><BR>"
'贴子
response.Write"<TABLE class=title cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.Write"<TBODY><TR><TD class=title-l></TD><TD>"&usertitle&"的贴子</TD><TD class=title-r></TD></TR></TBODY></TABLE>"
response.Write"<TABLE cellSpacing=0><TBODY>"
set rs1=server.createobject("adodb.recordset")
sql="select top 10 * from "&WebSqlType&"_log where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
n=0
do while not rs1.eof
n=n+1
if trim(rs1(""&WebSqlType&"_j"))=1 then
keyj="加精"
else
keyj=""
end if
if trim(rs1(""&WebSqlType&"_z"))=1 then
keyz="置顶"
else
keyz=""
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_club")&" "
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else
co=rs2(""&WebSqlType&"_co")
rs2.close
end if
response.Write"<TR><TD width='5%' align='center'><IMG src="&cityurl&"images/folder.gif>&nbsp;</TD>"
response.Write"<TD width='76%' class=td1><SPAN class='graytext right'>"&rs1(""&WebSqlType&"_sort")&"</SPAN> "
response.Write"<A href='/quan/"&trim(co)&"/bbs_view.asp?bbsid="&rs1(""&WebSqlType&"_id")&"&id="
response.Write""&rs1(""&WebSqlType&"_club")&"' target=_blank>"&rs1(""&WebSqlType&"_title")&"</A> <font color=red>"&keyj&"</font>"
response.Write" <font color=#006600>"&keyz&"</font>"
response.Write"</TD><TD width='19%' align='left' class=td1>&nbsp;"&rs1(""&WebSqlType&"_Ndate")&"</TD></TR>"
rs1.movenext
loop
rs1.close
end if
response.Write"</TBODY></TABLE><BR><TABLE class=title cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.Write"<TBODY><TR><TD class=title-l></TD><TD>"&usertitle&"参与的活动</TD><TD class=title-r></TD></TR></TBODY></TABLE>"
sql="select top 5 * from "&WebSqlType&"_activitx where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 align=center>暂无内容</td></tr>"
else 
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs(""&WebSqlType&"_club")&" "
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
else
co=rs1(""&WebSqlType&"_co")
rs1.close
end if 
if trim(rs(""&WebSqlType&"_club"))<>0 then
weget="/quan/"&trim(co)&"/activitx_view.asp?id="&rs(""&WebSqlType&"_club")&"&action=activitx&activitxid="&rs(""&WebSqlType&"_id")&""
else
weget="/space/activitx_view.asp?activitxid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&""
end if
response.Write"<TABLE cellSpacing=0><TBODY><TR><TD class=td1 align=middle width=40><IMG src="&cityurl&"images/yes.gif></TD>"
response.Write"<TD class=td1 align=left><A href="&weget&" target=_blank><STRONG>"&rs(""&WebSqlType&"_title")&"</STRONG></A>"
response.Write" <SPAN class=graytext>("&rs(""&WebSqlType&"_addone")&")</SPAN> <BR>"
response.Write"  活动时间："&year(rs(""&WebSqlType&"_date"))&"年"&month(rs(""&WebSqlType&"_date"))&"月"&day(rs(""&WebSqlType&"_date"))&"日"
response.Write" "&Hour(rs(""&WebSqlType&"_date"))&"时"&Minute(rs(""&WebSqlType&"_date"))&"分</TD>"
response.Write" <TD class=td1 align=middle width=150><SPAN class=bluetext>&nbsp;<A href="&weget&" target=_blank>"
response.Write""&rs(""&WebSqlType&"_ctitle")&"</A></SPAN></TD>"
response.Write"<TD class=td1 align=middle width=120>人数：<STRONG  class=redtext>"&rs(""&WebSqlType&"_Rhtc")&"</STRONG>/"
if trim(rs(""&WebSqlType&"_ren"))=0 then
response.Write"不限"
else
response.Write rs(""&WebSqlType&"_ren")
end if
response.Write" </TD><TD class=td1 align=middle width=100><SPAN class=graytext>"
if rs(""&WebSqlType&"_Edate")<= now() then 
response.Write"已结束"
else
response.Write"进行中"
end if
response.Write"</SPAN></TD></TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
end if
response.Write"<BR><TABLE class=title cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.Write"<TBODY><TR><TD class=title-l></TD><TD>"&usertitle&"的相册</TD><TD class=title-r></TD></TR></TBODY></TABLE>"
set rs1=server.createobject("adodb.recordset")
sql="select top 5 * from "&WebSqlType&"_photo where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"

n=0
do while not rs1.eof
n=n+1
response.Write"<TD width='20%' align=middle class=td3><A href='/space/photo_view.asp?photoid="&rs1(""&WebSqlType&"_id")&""
response.Write"&id="&id&"' target=_blank>"
response.Write"<IMG title="&rs1(""&WebSqlType&"_title")&" src='/"&rs1(""&WebSqlType&"_pic")&"' width='100' border=0> <BR>"
response.Write rs1(""&WebSqlType&"_title")
response.Write"</A>     </TD>"
if n mod 5=0 then response.write("</tr><tr>")
rs1.movenext
loop
response.Write"	  </TR></TBODY></TABLE>"

rs1.close
end if
End Function
'---------------------------------------------------------------------------------------------------
Function SgroupID()
response.Write"<TABLE cellSpacing=0><TBODY><TR>"
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&id&" order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<td>还没有内容</td>"
else 
n=0
do while not rs.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_club where "&WebSqlType&"_ID="&rs(""&WebSqlType&"_Cid")
rs1.open sql,conn,1,1
if rs1.eof then
else
goname=rs1(""&WebSqlType&"_webname")
goid=rs1(""&WebSqlType&"_id")
title=trim(rs1(""&WebSqlType&"_title"))
pic=trim(rs1(""&WebSqlType&"_pic"))
rs1.close
end if
if rs(""&WebSqlType&"_key")=0 then
adm="待审成员"
elseif rs(""&WebSqlType&"_key")=1 then
adm="圈子创使人"
elseif rs(""&WebSqlType&"_key")=2 then
adm="圈子管理员"
elseif rs(""&WebSqlType&"_key")=3 then
adm="普通成员"
elseif rs(""&WebSqlType&"_key")=4 then
adm="己被冻结"
end if
%>
<!--#include file="dns/dns.asp"-->
<%
response.Write"<TD align=middle width='20%'><A href='"&usertwourl&"' target=_blank>"
response.Write"<IMG height=80 alt="&title&" hspace=5 src='"
if pic<>"" then
response.Write"/"&pic&""
else
response.Write""&cityurl&"images/gm.gif"
end if
response.Write"' width=80 vspace=5 border=0><BR><STRONG class=bigtext title='"&title&"'>"&left(title,6)&"</STRONG></A><br>"
response.Write" <SPAN class='graytext smalltext'>"&adm&"</SPAN></TD>"
if n mod 5=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
end if
response.Write"</TR></TBODY></TABLE>"
End Function
'----------------------------------------------------------------------------
Function SphotoID()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
listnum=20
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
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
i=0
nn=request("page")
if nn="" then
n=0