person.asp

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

response.Write"<br><TABLE class=operate cellSpacing=0 cellPadding=2 width='98%' border=0><TBODY>"
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs(""&WebSqlType&"_username")&""
rs1.open sql1,conn,1,3
pic=rs1(""&WebSqlType&"_pic")
goname=rs1(""&WebSqlType&"_username")
goid=rs1(""&WebSqlType&"_id")
mail=rs1(""&WebSqlType&"_email")
rs1.close
response.Write"<TR><TD width='14%' align='center'><A href='"&cityurl&"space/index.asp?id="&goid&"' "
response.Write" target=_blank><IMG height=48 alt=a  src='"&cityurl&pic&"' width=48 border=0></A><BR>"
response.Write" <A href='"&cityurl&"space/index.asp?id="&goid&"' target=_blank>"&goname&"</A></TD>"
response.Write" <TD width='30%'><A href='"&cityurl&"jiaoyou/index.asp?username="&goid&"' target=_blank>发消息</A></TD>"
response.Write" <TD width='36%'><a class='gray2ln' title='只从自己的好友列表里删除' "
response.Write"href='user.asp?id="&rs(""&WebSqlType&"_id")&"&action=up'>单方面删除</a><br>"
response.Write" <a class='gray2ln' title='从双方的好友列表里都删除' href='user.asp?id="&rs(""&WebSqlType&"_id")&"&action=del'>"
response.Write"拒绝</a>(双方都删除)</TD> <TD width='20%'>"
if rs(""&WebSqlType&"_key1")=1 then 
response.Write"<a class='gray2ln' href='user.asp?id="&rs(""&WebSqlType&"_id")&"&action=hy'>批准加为好友</a>"
else
response.Write"<A href='"&cityurl&"space/index.asp?id="&goid&"'"
response.Write"  target=_blank>空间</A> <A href='"&cityurl&"space/group.asp?id="&goid&"'"
response.Write"  target=_blank>圈子</A> <A href='"&cityurl&"space/photo.asp?id="&goid&"' target=_blank>相册</A><BR>"
response.Write"<A href='"&cityurl&"space/haoyou.asp?id="&goid&"' target='_blank'>好友</A>"
response.Write" <A href='"&cityurl&"space/activitx.asp?id="&goid&"' target=_blank>活动</A>"
response.Write" <A href='"&cityurl&"space/count.asp?id="&goid&"'  target=_blank>资料</A>"
end if
response.Write"</TD></TR>"

rs.movenext 
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE>"
response.Write"<TABLE class=operate cellSpacing=0 cellPadding=2 width='100%' border=0>"
response.Write" <TBODY><TR><TD>"
filename="user.asp"
response.Write"共 "&Rs.pagecount&" 页"
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; <a href="&filename&"?page="&page-1&"><<</a>&nbsp; "
response.Write"<a href="&filename&"?page="&page-1&">["&page-1&"]</a>&nbsp;"
end if
if Rs.pagecount=1 then 
else
response.Write"  ["&page&"]"
end if
if Rs.pagecount-page <> 0 then
response.Write"<a href="&filename&"?page="&page+1&">["&page+1&"]</a>&nbsp; "
response.Write"<a href="&filename&"?page="&page+1&">>></a>&nbsp; <a href="&filename&"?page="&Rs.pagecount&">>>|</a>&nbsp;"
end if
response.Write" &nbsp;&nbsp;"
end if
response.Write"</TD></TR></TBODY></TABLE>"
response.Write"<P class=paginator><TR align='center' height='20'>"
response.Write"<TD width='137'></P></form>"
End Function
'----------------------------------------------------------------------------------------
Function PUserNameDel()
if request("action")="del" then
id=request("id")
conn.execute("delete From "&WebSqlType&"_haoyuo Where "&WebSqlType&"_id="&id&"")
Response.Redirect "user.asp"
end if
if request("action")="up" then
id=request("id")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key1=0 Where "&WebSqlType&"_id="&ID&"")
Response.Redirect "user.asp"
end if

if request("action")="hy" then
id=request("id")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key=2 Where "&WebSqlType&"_id="&ID&"")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key1=2 Where "&WebSqlType&"_id="&ID&"")
Response.Redirect "user.asp"
end if
End Function
'--------------------------------------------------------------------------------------
Function PUserName()
response.Write"<form name='addform' method='post' action='username.asp?action=save'>"
sql="select * from "&WebSqlType&"_haoyuo where "&WebSqlType&"_username="&Request.Cookies("userid")&" and "&WebSqlType&"_key<>0 order by "&WebSqlType&"_id 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 colspan=5 align=center>暂无内容</td></tr>"
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
response.Write"<TABLE class=category cellSpacing=1 cellPadding=2 width='80%' border=0>"
response.Write"<TBODY><TR><TD width='33%'>&nbsp;<B>我加的朋友("&j&")个</B>&nbsp;&nbsp;|&nbsp;&nbsp;"
response.Write"<A class=blue3ln href='user.asp'>加我的朋友</A></TD></TR></TBODY></TABLE>"
response.Write"<br><TABLE class=operate cellSpacing=0 cellPadding=2 width='80%' border=0><TBODY>"
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs(""&WebSqlType&"_user")&""
rs1.open sql1,conn,1,3
pic=rs1(""&WebSqlType&"_pic")
goname=rs1(""&WebSqlType&"_username")
goid=rs1(""&WebSqlType&"_id")
mail=rs1(""&WebSqlType&"_email")
rs1.close
response.Write"<TR><TD width='13%' align='center'><A href='"&cityurl&"space/index.asp?id="&goid&"'"
response.Write"  target=_blank><IMG height=48 alt=a src='"&cityurl&pic&"' width=48 border=0></A><BR>"
response.Write"<A href="&cityurl&"space/index.asp?id="&goid&" target=_blank>"&goname&"</A></TD>"
response.Write" <TD width='22%'><A href="&cityurl&"jiaoyou/index.asp?username="&goid&" target=_blank>发消息</A></TD>"
response.Write"<TD width='37%'><a class='gray2ln' title='只从自己的好友列表里删除'"
response.Write"  href='username.asp?id="&rs(""&WebSqlType&"_id")&"&action=up'>单方面删除</a><br>"
response.Write"<a class='gray2ln' title='从双方的好友列表里都删除' href='username.asp?id="&rs(""&WebSqlType&"_id")&"&action=del'>"
response.Write"拒绝</a>(双方都删除) </TD>"
response.Write" <TD width='28%'>"
if rs(""&WebSqlType&"_key1")=1 then 
response.Write"<a class='gray2ln' href='username.asp?id="&rs(""&WebSqlType&"_id")&"&action=hy'>批准加为好友</a>"
else
response.Write"<A href="&cityurl&"space/index.asp?id="&goid&"  target=_blank>空间</A> "
response.Write"<A href="&cityurl&"space/group.asp?id="&goid&"  target=_blank>圈子</A> "
response.Write" <A href="&cityurl&"space/photo.asp?id="&goid&" target=_blank>相册</A><BR>"
response.Write"<A  href="&cityurl&"space/haoyou.asp?id="&goid&" target='_blank'>好友</A> "
response.Write"<A  href="&cityurl&"space/activitx.asp?id="&goid&" target=_blank>活动</A> "
response.Write"<A  href="&cityurl&"space/count.asp?id="&goid&" target=_blank>资料</A>"
end if
response.Write"</TD></TR>"
rs.movenext 
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE>"
response.Write"<TABLE class=operate cellSpacing=0 cellPadding=2 width='100%' border=0>"
response.Write"<TBODY><TR><TD>"
filename="username.asp"
response.Write"共 "&Rs.pagecount&" 页"
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; <a href="&filename&"?page="&page-1&"><<</a>&nbsp; "
response.Write"<a href="&filename&"?page="&page-1&">["&page-1&"]</a>&nbsp;"
end if
if Rs.pagecount=1 then
else
response.Write"["&page&"]"
end if
if Rs.pagecount-page <> 0 then
response.Write"<a href="&filename&"?page="&page+1&">["&page+1&"]</a>&nbsp; "
response.Write"<a href="&filename&"?page="&page+1&">>></a>&nbsp; <a href="&filename&"?page="&Rs.pagecount&">>>|</a>&nbsp;"
end if
response.Write" &nbsp;&nbsp;"
end if
response.Write"</TD></TR></TBODY></TABLE>"
response.Write"<P class=paginator><TR align='center' height='20'><TD width='137'></P></form>"
End Function
'------------------------------------------
Function PSouDaoDel()
if request("action")="del" then
id=replace(request("id")," ","")
id=split(id,",")
for i=0 to UBound(id)
conn.execute("delete from "&WebSqlType&"_count where "&WebSqlType&"_id=" & id(i))
next
Response.Redirect "soudao.asp"
end if
End Function
'-------------------------------------------------
Function PSouDao()
response.Write"<TABLE class=border3 cellSpacing=0 cellPadding=0 width=600 align=center bgColor=white border=0>"
response.Write"<TBODY><TR><TD width='1%'></TD><TD colSpan=5 height=5></TD><TD width='1%'></TD></TR>"
response.Write"<form name='from1' method='post' action='soudao.asp?action=del&page="&page&"'>"
sql="select * from "&WebSqlType&"_count where "&WebSqlType&"_S_user="&request.Cookies("userid")&" order by "&WebSqlType&"_id desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                                         
if rs.eof and rs.bof then                     
response.Redirect("fachu.asp")
response.End()
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
response.Write"<TR><TD width='1%'></TD><TD bgColor=#d6d6d6 colSpan=5 height=18>&nbsp;<B>收到的消息</B>"
response.Write"(<font color=red>"&j&"</font>)&nbsp;&nbsp;|&nbsp;&nbsp;"
response.Write"<A class=blue3ln  href='fachu.asp'>发出的消息</A></TD>"
response.Write"<TD width='1%'></TD></TR><TR><TD width='1%'></TD><TD bgColor=#006699 colSpan=5 height=1></TD>"
response.Write" <TD width='1%'></TD></TR><TR><TD width='1%' height=18></TD>"
response.Write"<TD align=left width='7%'>选择</TD><TD align=left width='50%'>消息标题</TD>"
response.Write"<TD width='23%'>发送者</TD><TD width='17%'>时间</TD><TD align=left width='1%'></TD>"
response.Write"<TD width='1%'></TD></TR><TR><TD width='1%'></TD>"
response.Write"<TD bgColor=#d6d6d6 colSpan=5 height=1></TD>"
response.Write" <TD width='1%'></TD></TR>"
do while not rs.eof
response.Write"<TR align=left height=18><TD width='1%'></TD>"
response.Write"<TD bgColor=#f1f1f1><input type='checkbox' name='ID' value='"&rs(""&WebSqlType&"_id")&"' style='border:0'></TD>"
response.Write"<TD bgColor=#f1f1f1>&nbsp; <A class=gray2 href='view.asp?id="&rs(""&WebSqlType&"_id")&"&Cid="&request("Cid")&"'>"
response.Write""&trim(rs(""&WebSqlType&"_title"))&"</A> </TD>"
response.Write"<TD bgColor=#f1f1f1>"
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs(""&WebSqlType&"_S_user")
rs1.open sql1,conn,1,1
goname=rs1(""&WebSqlType&"_username")
realname=rs1(""&WebSqlType&"_realname")
goid=rs1(""&WebSqlType&"_id")
rs1.close
response.Write" [<a class='blue6ln' title='查看发起人个人资料'  href='"&cityurl&"space/index.asp?id"&goid&"'>"
response.Write""&goname&"("&realname&")</a>]</TD>"
response.Write"<TD bgColor=#f1f1f1>"&rs(""&WebSqlType&"_date")&"</TD><TD bgColor=#f1f1f1></TD><TD width='1%'></TD></TR>"
response.Write" <TR> <TD width='1%'></TD><TD bgColor=#d6d6d6 colSpan=5 height=1></TD><TD width='1%'></TD></TR>"
rs.movenext 
i=i+1 
j=j-1
loop
response.Write"<TR><TD width='1%'></TD><TD bgColor=#d6d6d6 colSpan=5 height=1></TD><TD width='1%'></TD></TR><TR>"
response.Write"<TD width='1%'></TD><TD bgColor=#d6d6d6 colSpan=5 height=1></TD><TD width='1%'></TD></TR><TR><TD width='1%'></TD>"
response.Write"<TD bgColor=#d6d6d6 colSpan=5 height=1></TD><TD width='1%'></TD></TR>"
response.Write"<TR align=middle><TD width='1%'></TD>"
response.Write"<TD class=a2 align=left colSpan=2 height=72>"
response.Write"<input name='chkall' type='checkbox' id='chkall' value='select' onClick=""CheckAll(this.form)"" style='border:0'>"
response.Write"全选　<input type='submit' name='Submit' value='删除选中消息'> </TD>"
response.Write"<TD align=left colSpan=3>&nbsp;</TD><TD width='1%'></TD></TR>"
response.Write"<TR align=right><TD width='1%'></TD><TD bgColor=#eeeeee colSpan=5 height=20>"
filename="soudao.asp"
response.Write"共 "&Rs.pagecount&" 页"
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; <a href="&filename&"?page="&page-1&">"
response.Write"<<</a>&nbsp; <a href="&filename&"?page="&page-1&">["&page-1&"]</a>&nbsp;"
end if
if Rs.pagecount=1 then
else
response.Write" ["&page&"]"
end if
if Rs.pagecount-page <> 0 then
response.Write"<a href="&filename&"?page="&page+1&">["&page+1&"]</a>&nbsp;"
response.Write" <a href="&filename&"?page="&page+1&">>></a>&nbsp; <a href="&filename&"?page="&Rs.pagecount&">>>|</a>&nbsp;"
end if
response.Write" &nbsp;&nbsp;"
end if
respon