mconfig.asp

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

<%
'相册内容
Function Cmember()
response.write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.write"  <TBODY> <TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<table height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
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
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs1.eof and i<listnum
n=n+1
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_Cuserid")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else 
ucuser=rs2(""&WebSqlType&"_username")
ucpic=rs2(""&WebSqlType&"_pic")
ucreal=rs2(""&WebSqlType&"_realname")
uchtc=rs2(""&WebSqlType&"_htc")
end if
rs2.close
if ucpic<>"" then
pic=ucpic
else
pic="images/s_20070927100055DB0.jpg"
end if
response.Write"<TD class=td3 align=middle width='20%'>"
response.Write"<A href='/space/index.asp?id="&rs1(""&WebSqlType&"_Cuserid")&"'>"
response.Write"<IMG width=100 src='/"&pic&"' border=0></A><BR>"&ucuser&"("&ucreal&")<br>"
response.write("<a href='/jiaoyou/index.asp?username="&rs1(""&WebSqlType&"_Cuserid")&"' target='_blank'>发消息</a> | <a href='/jiaoyou/haoyuo.asp?username="&rs1(""&WebSqlType&"_Cuserid")&"' target='_blank'>加为好友</a>")
response.Write" </TD>"
if n mod 5=0 then response.write("</tr><tr>")
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"</TR></TBODY></TABLE>"	
response.Write"<DIV class=page><SPAN class=right>"
filename="member.asp?id="&id&"&action=member"
response.Write"共 "&rs1.pagecount&" 页 "
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
end if
if rs1.pagecount=1 then
else
response.Write"["&page&"]"
end if
if rs1.pagecount-page <> 0 then 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp; "
response.Write"<a href="&filename&"&page="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp;" 
end if 
response.Write"</SPAN>&nbsp;</DIV>"
rs1.close
end if
End Function
%>