public.asp

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

<%
'------------------------------------------------------------
Function htc(a)
sql=""&a&""
set rs1=Server.CreateObject("ADODB.Recordset")                                                    
rs1.open sql,conn,1,1
htc=Rs1.recordcount
rs1.close
response.write(htc)
End Function
'------------------------------------------------------------
'推荐成员
Function Userkey()
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.Write"<TBODY><TR>"
set rs=server.createobject("adodb.recordset")
sql="select top 8 * from "&WebSqlType&"_member where "&WebSqlType&"_pic<>'' order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<tr><td>还没有内容</td></tr>"
else 
n=0
do while not rs.eof
n=n+1
response.Write"<TD class=td3 align=middle width='20%'>"
response.Write"<A href='/space/index.asp?id="&rs(""&WebSqlType&"_id")&"' target=_blank>"
response.Write"<IMG title=查看"&rs(""&WebSqlType&"_realname")&"详细 src='"
if trim(rs(""&WebSqlType&"_pic"))<>"" and left(rs(""&WebSqlType&"_pic"),4)="2007" then
response.Write"/"&rs(""&WebSqlType&"_pic")&""
else
response.Write"/images/mm.gif"
end if
response.Write"' width=60 height=60  border=0><BR>"&rs(""&WebSqlType&"_username")&"</A> <BR>"
response.Write" <!--<span class='graytext smalltext'>广东省</span> --></TD>"
if n mod 2=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
end if
response.Write"</TR></TBODY></TABLE>"
End Function
'----------------------------------------------------------------------------
Function LoginIndex()
set rsm=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&request.Cookies("Userid")&" "
rsm.open sql,conn,1,1
if rsm.eof and rsm.bof then                     
else
upic=rsm(""&WebSqlType&"_pic")
uuser=rsm(""&WebSqlType&"_username")
ureal=rsm(""&WebSqlType&"_realname")
utop=rsm(""&WebSqlType&"_top")
umx=rsm(""&WebSqlType&"_"&WebSqlType&"")
ulinks="<a href='/jiaoyou/index.asp?username="&rsm(""&WebSqlType&"_id")&"' target='_blank'>发消息</a> | <a href='/space/book.asp?id="&rsm(""&WebSqlType&"_id")&"' target='_blank'>留言</a>"
rsm.close
end if
response.write" <TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.write"<TBODY><TR><TD align=middle colSpan=2 height=124>"
response.write"<IMG src=/"&upic&"  width=100><BR><A href=space/index.asp?id="&request.Cookies("Userid")&" target=_blank>"
response.write"<STRONG>"&uuser&"</STRONG></A> ("&ureal&")</TD></TR>"
response.write"<TR><TD align=middle colSpan=2 height=30>"
response.write"<INPUT class=but1 onClick=""window.location.href='person/'"" type=submit value=个人中心 name=myorg> "
response.write"<INPUT class=but1 onClick=""window.location.href='space/index.asp?id="&request.Cookies("Userid")&"'"""
response.write" type=submit value=我的空间 name=myorg> "
response.write"    </TD></TR> <TR><TD align=middle colSpan=2 height=30>"
response.write"<INPUT class=but1 onClick=""window.location.href='person/soudao.asp'"" type=submit value=我的信箱 name=mymsg>" 
response.write"<INPUT class=but1 onClick=""window.location.href='person/bbs.asp'"" type=submit value=我的话题 name=mymsg>" 
response.write"  </TD></TR>  <TR>  <TD align=middle colSpan=2 height=30>"
response.write"<INPUT class=but1 onClick=""window.location.href='person/member.asp'"" type=submit value=修改资料 name=myinfo> "
response.write"<INPUT class=but1 onClick=""window.location.href='person/password.asp'"" type=submit value=修改密码 name=Submit3> "
response.write"</TD></TR></TBODY></TABLE>"
End Function
'-----------------------------------------------------------------------
Function UserIndex()
response.write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
set rs=server.createobject("adodb.recordset")
sql="select top 12 * from "&WebSqlType&"_member where "&WebSqlType&"_pic<>'' order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<td>还没有内容</td>"
else 
s=0
do while not rs.eof
s=s+1
response.write"<TD class=td3 align=middle width='20%'>"
response.write"<A href='space/index.asp?id="&rs(""&WebSqlType&"_id")&"' target=_blank>"
response.write"<IMG title=查看"&rs(""&WebSqlType&"_realname")&"详细 src='"
if trim(rs(""&WebSqlType&"_pic"))<>"" and left(rs(""&WebSqlType&"_pic"),4)="2007" then
response.write"/"&rs(""&WebSqlType&"_pic")&""
else
response.write"/images/mm.gif"
end if
response.write"' width=60 height=60 border=0><BR>"&rs(""&WebSqlType&"_username")&"</A> <BR></TD>"
if s mod 3=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
end if
response.write"</TR></TBODY></TABLE>"
End Function
'---------------------------------------------------------------------------
Function PhotoIndex()
response.write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
set rs=server.createobject("adodb.recordset")
sql="select top 9 * from "&WebSqlType&"_photo order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<td>还没有内容</td>"
else 
p=0
do while not rs.eof
p=p+1
response.write"<TD class=td3 align=middle width='20%'><A href='space/photo_view.asp?photoid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&"' target=_blank>"
response.write"<IMG title=查看"&rs(""&WebSqlType&"_title")&"详细 src='"
if trim(rs(""&WebSqlType&"_pic"))<>"" then
response.write"/"&rs(""&WebSqlType&"_pic")&""
else
response.write"/images/mm.gif"
end if
response.write"' width=60 height=60 border=0><BR>"&left(rs(""&WebSqlType&"_title"),5)&"</A> <BR></TD>"
if p mod 3=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
end if
response.write"</TR></TBODY></TABLE>"
End Function
'------------------------------------------------------------------------
Function GroupIndex()
response.write"<table border='0' cellpadding='0' cellspacing='0' style='width:95%; margin:auto'>"
response.write"<tbody>"
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from "&WebSqlType&"_club order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<tr><td>还没有内容</td></tr>"
else 
n=0
do while not rs.eof
n=n+1
goname=rs(""&WebSqlType&"_webname")
goid=rs(""&WebSqlType&"_id")
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addtwo_id="&rs(""&WebSqlType&"_addtwo")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then                     
else 
addone=rs1(""&WebSqlType&"_addone")&"、"&rs1(""&WebSqlType&"_addtwo")
end if
if trim(rs(""&WebSqlType&"_pic"))<>"" and trim(left(rs(""&WebSqlType&"_pic"),7))<>"http://" and trim(left(rs(""&WebSqlType&"_pic"),4))="2007" then
pic="/"&rs(""&WebSqlType&"_pic")&""
elseif trim(left(rs(""&WebSqlType&"_pic"),7))="http://" then
pic=rs(""&WebSqlType&"_pic")
else
pic="/images/gm.gif"
end if
%>
<!--#include file="dns/dns.asp"-->
<%
response.write"<tr><td width='100' align='center' class='td1'><a href='"&usertwourl&"' target='_blank'>"
response.write"<img src='"&pic&"' width='60' border='0'></a></td>"
response.write"<td class='td1'>"
response.write"<div style='width:320px; overflow:hidden'>"
response.write"<a href='"&usertwourl&"' target='_blank'><strong class='bigtext'>"&rs(""&WebSqlType&"_title")&"</strong></a>"
response.write"<span class='graytext'> (<img src='images/1.gif' alt='成员'>"
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&rs(""&WebSqlType&"_id")&"")
response.write"人)<a href='group/Cmember.asp?Cid="&rs(""&WebSqlType&"_id")&"&Ctitle="&rs(""&WebSqlType&"_title")&"&type="&rs(""&WebSqlType&"_type")&"&url="&usertwourl&"' style='color:red;'>加入</a><br /></span>"
response.write""&left(rs(""&WebSqlType&"_book"),50)&"</div></td>"
response.write"<td width='100' align='center' class='td1'>"&rs(""&WebSqlType&"_username")&"</td>"
response.write"<td width='120' align='center' class='td1'><a href='"&usertwourl&"'>"&addone&"</a></td></tr>"
rs.movenext
loop
rs.close
end if
response.write"</tbody></table>"
End Function
'----------------------------------------------------------------------------------------------------------------------
'会员地区
Function CityMember()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<LI><A title=查询『"&rs(""&WebSqlType&"_addone")&"』所有信息" 
response.Write"  href='index.asp?cityid="&rs(""&WebSqlType&"_addone_id")&"'>"&rs(""&WebSqlType&"_addone")&"</A>" 
response.Write"  </LI>"
rs.movenext
loop
rs.close
End Function
'-----------------------------------------------------------------------------------------------------
'会员页面程序块
Function User()
set rs=server.createobject("adodb.recordset")
if trim(request("action"))="Htc" then
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_htc desc"
elseif trim(request("action"))="member" then
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_"&WebSqlType&" desc"
elseif trim(request("action"))="Key" then
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_key desc"
elseif trim(request("action"))="Date" then
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_date desc"
elseif trim(request("cityid"))<>"" then
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 and "&WebSqlType&"_ypaddone="&trim(request("cityid"))&" order by "&WebSqlType&"_date desc"
else
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_key<>2 and "&WebSqlType&"_pic<>'' order by "&WebSqlType&"_date desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<table width='100%' height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
else 
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
listnum=30
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
do while not rs.eof and i<listnum
n=n+1
response.Write"<TD class=td3 align=middle width='20%'>"
response.Write"<A href='/space/index.asp?id="&rs(""&WebSqlType&"_id")&"' target=_blank><IMG title=查看"&rs(""&WebSqlType&"_realname")&"详细 src='"
if trim(rs(""&WebSqlType&"_pic"))<>"" and left(rs(""&WebSqlType&"_pic"),4)="2007" then
response.Write"/"&rs(""&WebSqlType&"_pic")&""
else
response.Write"../images/mm.gif"
end if
response.Write"' width=80 border=0><BR>"&rs(""&WebSqlType&"_username")&"</A>"
if trim(rs(""&WebSqlType&"_realname"))<>"" then
response.Write"("&rs(""&WebSqlType&"_realname")&")"
end if
response.Write" <BR> <!--<span class='graytext smalltext'>广东省</span> --></TD>"

if n mod 5=0 then response.write("</tr><tr>")
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TR></TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;"
filename="index.asp?action="&trim(request("action"))&"&cityid="&request("cityid")&""
response.Write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页 "
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 Rs.pagecount=1 then
else
response.Write"["&page&"]"
end if
if Rs.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="&Rs.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if
response.Write"</SPAN> &nbsp;</DIV></DIV>"
rs.close
end if


End Function
'---------------------------------------------------------------------------------------------------------------------
'圈子地区
Function CityGroup()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
response.Write"<LI><A title=查询『"&rs(""&WebSqlType&"_addone")&"』所有信息 "
response.Write" href='search.asp?cityid="&rs(""&WebSqlType&"_addone_id")&"&city="&rs(""&WebSqlType&"_addone")&"'>"
response.Write""&rs(""&WebSqlType&"_addone")&"</A> </LI>"
rs.movenext
loop
rs.close
End Function
'----------------------------------------------------------------------------------------------------
'圈子分类
Function SortGroup()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_ypxxone order by "&WebSqlType&"_date desc"