public.asp

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

rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
response.Write"<LI><A title=查询『"&rs(""&WebSqlType&"_xxone")&"』所有信息 "
response.Write" href='search.asp?sortid="&rs(""&WebSqlType&"_xxone_id")&"&title="&rs(""&WebSqlType&"_xxone")&"'>"
response.Write""&rs(""&WebSqlType&"_xxone")&"</A> </LI>"
rs.movenext
loop
rs.close
End Function
'-----------------------------------------------------------------------------------------------------
'圈子首页
Function Group()
set rs=server.createobject("adodb.recordset")
'按人气----------------------------------
if trim(request("action"))="Htc" then 
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_htc desc"
'按积分----------------------------------
elseif trim(request("action"))="club" then 
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_club desc"
'按推荐----------------------------------
elseif trim(request("action"))="Key" then 
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key<>2 order by "&WebSqlType&"_Key desc"
else
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key<>2 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 border=0><TBODY>"

listnum=15
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
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&"_type"))=0 then
rtype="关闭"
elseif trim(rs(""&WebSqlType&"_type"))=1 then
rtype="开放"
elseif trim(rs(""&WebSqlType&"_type"))=2 then
rtype="开放"
elseif trim(rs(""&WebSqlType&"_type"))=2 then
rtype="开放"
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 class=td1 align=middle width=120>"
response.Write"<IMG src='"&pic&"' width=80></TD>"
response.Write"<TD class=td1>"
response.Write"<DIV style='OVERFLOW: hidden; WIDTH: 400px'><A href="&usertwourl&" target=_blank>"
response.Write"<STRONG class=bigtext>"&rs(""&WebSqlType&"_title")&"</STRONG></A> "
response.Write"<SPAN class=graytext>(<IMG alt=成员 src='../images/1.gif'>"
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&rs(""&WebSqlType&"_id")&"")
response.Write"人)<a href='Cmember.asp?Cid="&rs(""&WebSqlType&"_id")&"&Ctitle="&rs(""&WebSqlType&"_title")&""
response.Write"&type="&rs(""&WebSqlType&"_type")&"&url="&usertwourl&" style='color:red;'>加入</a><BR>"
response.Write""&usertwourl&"<BR></SPAN>"&left(rs(""&WebSqlType&"_book"),50)&"</DIV></TD>"
response.Write"<TD class=td1 align=middle width=100>"&rtype&"</TD>"
response.Write"<TD class=td1 align=middle width=120><A href="&usertwourl&">"&addone&"</A></TD></TR>"
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;"
filename="index.asp?action="&trim(request("action"))&""
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 GroupScarch()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key<>2 "
'按关键词--------------------------------
if trim(request("word"))<>"" then 
sql=sql&" and "&WebSqlType&"_title like'%"&trim(request("word"))&"%'"
end if
'按地区----------------------------------
if trim(request("cityid"))<>"" then 
sql=sql&" and "&WebSqlType&"_addone="&clng(trim(request("cityid")))&""
end if
'按类别----------------------------------
if trim(request("sortid"))<>"" then 
sql=sql&" and "&WebSqlType&"_xxone="&clng(trim(request("sortid")))&""
end if
sql=sql&" order by "&WebSqlType&"_date desc"
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 border=0><TBODY>"
listnum=15
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
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&"_type"))=0 then
rtype="关闭"
elseif trim(rs(""&WebSqlType&"_type"))=1 then
rtype="开放"
elseif trim(rs(""&WebSqlType&"_type"))=2 then
rtype="开放"
elseif trim(rs(""&WebSqlType&"_type"))=2 then
rtype="开放"
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 class=td1 align=middle width=120><A href='"&usertwourl&"' target=_blank><IMG src='"&pic&"' width=80 border='0'></A></TD>"
response.Write" <TD class=td1><DIV style='OVERFLOW: hidden; WIDTH: 400px'>"
response.Write"<A href='"&usertwourl&"' target=_blank><STRONG class=bigtext>"&rs(""&WebSqlType&"_title")&"</STRONG></A>"
response.Write" <SPAN class=graytext>(<IMG alt=成员  src='../images/1.gif'>"
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&rs(""&WebSqlType&"_id")&"")
response.Write"人)"
response.Write" <a href='Cmember.asp?Cid="&rs(""&WebSqlType&"_id")&"&Ctitle="&rs(""&WebSqlType&"_title")&"&type="&rs(""&WebSqlType&"_type")&""
response.Write"&url="&usertwourl&" style='color:red;'>加入</a><BR>"&usertwourl&"<BR></SPAN>"
response.Write""&left(rs(""&WebSqlType&"_book"),50)&"</DIV></TD>"
response.Write"<TD class=td1 align=middle width=100>"&rtype&"</TD>"
response.Write" <TD class=td1 align=middle width=120><A href='"&usertwourl&"'>"&addone&"</A></TD></TR>"
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;"
filename="search.asp?word="&trim(request("word"))&"&cityid="&request("cityid")&"&sortid="&request("sortid")&""
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 CityActivitx()
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?city="&rs(""&WebSqlType&"_addone")&"'>"&rs(""&WebSqlType&"_addone")&"</A> "
response.Write"</LI>"
rs.movenext
loop
rs.close
End Function
'---------------------------------------------------------------------------------------------------------
'活动分类
Function SortActivitx()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
response.Write"<LI><A title=查询『"&rs(""&WebSqlType&"_activitxsorttitle")&"』所有信息" 
response.Write"  href='search.asp?sorttitle="&rs(""&WebSqlType&"_activitxsorttitle")&"'>"&rs(""&WebSqlType&"_activitxsorttitle")&"</A>" 
response.Write"  </LI>"
rs.movenext
loop
rs.close
End Function
'---------------------------------------------------------------------------------------------------------
'活动信息
Function Activitx()
set rs=server.createobject("adodb.recordset")
if trim(request("action"))="Gdate" then
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_key<>2 and "&WebSqlType&"_Edate>='"&now()&"' order by "&WebSqlType&"_date desc"
elseif trim(request("action"))="Edate" then
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_key<>2 and "&WebSqlType&"_Edate<='"&now()&"' order by "&WebSqlType&"_date desc"
elseif trim(request("action"))="Key" then
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_key<>2  order by "&WebSqlType&"_Key desc"
else
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_key<>2  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 border=0>"
response.Write" <TBODY>"
listnum=15
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")