club.asp

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

rs3.open sql,conn,1,1
while not rs3.eof
response.Write"<option value='"&rs3(""&WebSqlType&"_xxtwo_id")&"' "
if rs1(""&WebSqlType&"_xxtwo")=rs3(""&WebSqlType&"_xxtwo_id") then
response.Write" selected"
end if
response.Write">"&rs3(""&WebSqlType&"_xxtwo")&"</option>"
rs3.movenext
wend
response.Write"</select>     * 不选侧默认</div>  "
response.Write" </div> <div class='content'> <div class='left-content'><strong>关键字:</strong></div>"
response.Write" <div class='right-content'><label>"
response.Write"<input name='word' type='text' id='word' value='"&rs1(""&WebSqlType&"_word")&"'  size='40' maxlength='20'>"
response.Write"</label>	<span class='graytext'>如：管理圈 娱乐圈 (以&quot;,&quot;分隔每个关键字，每个关键字长度不超过5)</span>"
response.Write"</div> </div><div class='content'> <div class='left-content'><strong>圈子介绍:</strong></div>"
response.Write"<div class='right-content'><label><TEXTAREA id=book onkeyup=checkLong(this,200) name=book rows=5 cols=80>"
response.Write""&rs1(""&WebSqlType&"_book")&"</TEXTAREA></label>  *  <span class='graytext'>10-200字符之间</span><br />"
response.Write"<img src='images/minus.gif' alt='缩小' style='CURSOR:hand'"
response.Write" onClick=""if(document.thisForm.book.rows&gt;=4)document.thisForm.book.rows-=4;else return false""> "
response.Write"<img src='images/plus.gif' alt='放大' style='CURSOR: hand' "
response.Write"onClick=""document.thisForm.book.rows+=4""> <span class='graytext'> 字符限制：200 字</span>"
response.Write" </div>   </div>    <div class='nav2'>"
response.Write"<div class='left-content'><input type='hidden' name='oid' value='168'></div>"
response.Write"<div class='right-content'><label><input type='submit' name='Submit' value=' 保存更改 '></label></div> " 
response.Write" </div>     </div></form>"
rs1.close 
End Function
'------------------------------------------------------------------
Function Cflag()
response.Write" 圈子被查看："&rs(""&WebSqlType&"_htc")&" 次<br /> <hr />"
response.Write"圈子成员："
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&"")
response.Write" 人<br />"
response.Write" 圈子成立日期："&trim(rs(""&WebSqlType&"_date"))&"<br />  <hr />"
response.Write"相册分类："
call htc("select *  from "&WebSqlType&"_CPhotoSort where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc")
response.Write" 条<br />"
response.Write"话题分类："
call htc("select *  from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logclub="&id&" order by "&WebSqlType&"_Logdate desc")
response.Write"条<br /><hr />"
response.Write"分类信息："
call htc("select * from "&WebSqlType&"_info where "&WebSqlType&"_infoclub="&id&" order by "&WebSqlType&"_infodate desc")
response.Write" 条<br />"
response.Write"圈子活动："
call htc("select * from "&WebSqlType&"_activitx where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc")
response.Write" 条<br />"
response.Write"圈子相册："
call htc("select * from "&WebSqlType&"_photo where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc")
response.Write"个<br />"
response.Write"圈子话题："
call htc("select * from "&WebSqlType&"_log where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_z desc, "&WebSqlType&"_j desc")
response.Write" 条<br />"
response.Write"圈子链接："
call htc("select * from "&WebSqlType&"_link where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_id desc")
response.Write" 条<br />" 
response.Write"<br /><br />"
End Function
'--------------------------------------------------------------------------------
Function CFrindsServer()
if request("action")="add" then
title=request("title")
book=trim(request.Form("book"))
web=request("web")
Cuser=request("Cuser")
StrQs=Split(Cuser,",") '获得字符串数组，并赋值。
For j=LBound(StrQs) to UBound(StrQs) '利用函数取得数组上限和下限。
set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select * from "&WebSqlType&"_count"
rs1.open sql1,conn,1,3
rs1.addnew
rs1(""&WebSqlType&"_title")=title
rs1(""&WebSqlType&"_book")=book
rs1(""&WebSqlType&"_web")=web
rs1(""&WebSqlType&"_F_user")=Request.Cookies("UserID")
rs1(""&WebSqlType&"_S_user")=StrQs(j)
rs1(""&WebSqlType&"_key")=1
rs1.update
rs1.close
next
response.Redirect("frinds.asp?id="&clng(request("id"))&"&error=yes")
end if
End Function
'-------------------------------------------------------------------------
Function CFrinds()
response.Write"<form name='form' action='frinds.asp?action=add' method='post'>"
response.Write"<input type='hidden' name='id' value="&id&">"
response.Write"<input type='hidden' name='Cuser' value='"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_Cmember  where "&WebSqlType&"_Cid="&id&""
rs1.open sql,conn,1,1
do while not rs1.eof
response.Write""&trim(rs1(""&WebSqlType&"_Cuserid"))&","
rs1.movenext
loop
rs1.close
response.Write"8'>"
response.Write" <h1> <img src='images/ss.gif' > 群发消息</h1><div class='nav'><strong>向<span class='bluetext'>【"&title&"】"
response.Write"</span>的所有成员发送短消息</strong></div>"
if request("error")="yes" then
response.Write"<div class='content'><div class='left-content'></div>"
response.Write"<div class='right-content'><strong>己成功向<span class='bluetext'>【"&title&"】</span>的所有成员发送短消息"
response.Write"</strong></div></div>"
else
response.Write"<div class='content'><div class='left-content'><strong>消息标题:</strong></div>"
response.Write"<div class='right-content'><label>"
response.Write"<input name='title' type='text' id='title' value='"&title&"' size='60' maxlength='50'>"
response.Write" </label><span class='graytext'>请控制在50个中文字以内</span>"
response.Write" </div></div><div class='content'>"
response.Write" <div class='left-content'><strong>消息内容:</strong></div>"
response.Write"<div class='right-content'><label>"
response.Write"<textarea name='book' cols='60' rows='8' id='book' onKeyUp=""checkLong(this,200);"">请填写您的短信内容</textarea>"
response.Write"</label><br /><span class='graytext'> 字符限制：500 字</span>"
response.Write" </div></div><div class='content'><div class='left-content'><strong>消息标题:</strong></div>"
response.Write"<div class='right-content'><label><input name='web' type='text' id='web' value='"&usertwourl&"'"
response.Write" size='60' maxlength='50' />"
response.Write" </label><span class='graytext'>默认为本帮会地址</span>"
response.Write" </div></div><div class='nav2'><div class='left-content'></div>"
response.Write" <div class='right-content'><label> <input type='submit' name='Submit2' value=' 确认发送 '>"
response.Write" </label></div></div>"
end if
response.Write" </form>"
End Function
'-------------------------------------------------------------------------
Function CggServer()
if request("action")="edit" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&clng(request("id"))&""
rs.open sql,conn,1,3
rs(""&WebSqlType&"_cement")=request("cement")
rs.update
rs.close
response.Redirect("gg.asp?id="&clng(request("id"))&"&error=yes")
end if
End Function
'------------------------------------------------------------------------
Function CggTitle()
response.Write"<span class='tags'>"
response.Write"<a href='key.asp?id="&id&"' onfocus='this.blur()' >属性设置</a>"
response.Write"<a href='edit.asp?id="&id&"' onfocus='this.blur()' >档案设置</a>"
response.Write"<a href='gg.asp?id="&id&"' onfocus='this.blur()' class='selectTag'>公告设置</a>"
response.Write"<a href='photosort.asp?id="&id&"' onfocus='this.blur()' >相片设置</a>"
response.Write"<a href='bbssort.asp?id="&id&"' onfocus='this.blur()' >话题设置</a>"
response.Write"<a href='links.asp?id="&id&"' onfocus='this.blur()' >链接设置</a>"
response.Write"<a href='mb.asp?id="&id&"' onfocus='this.blur()' >风格设置</a>"
response.Write"</span>"
End Function
'--------------------------------------------------------------------------
Function Cgg()
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&id
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql,conn,1,1
response.Write"<form name='thisForm' action='gg.asp?action=edit' method='post'>"
response.Write"<input name='id' type='hidden' value='"&rs1(""&WebSqlType&"_id")&"'>"
response.Write"<div id='wrap2'>"
if request("error")="yes" then
response.Write"<div class='content'><div class='left-content'><strong>信息提示:</strong></div>"
response.Write"<div class='right-content'><span class='graytext'><font color=red>公告设置成功!</font></span></div>  "
response.Write"</div>"
end if
response.Write"<div class='content'><div class='left-content'><strong>圈子公告:</strong></div>"
response.Write"<div class='right-content'><label><TEXTAREA id=cement onkeyup=checkLong(this,200) name=cement rows=12 cols=90>"
response.Write""&rs1(""&WebSqlType&"_cement")&"</TEXTAREA>"
response.Write" </label>  *  <span class='graytext'>10-200字符之间</span><br />"
response.Write"<img src='images/minus.gif' alt='缩小' style='CURSOR:hand' "
response.Write"onClick=""if(document.thisForm.cement.rows&gt;=4)document.thisForm.cement.rows-=4;else return false"">"
response.Write" <img src='images/plus.gif' alt='放大' style='CURSOR: hand' onClick=""document.thisForm.cement.rows+=4"">"
response.Write" <span class='graytext'> 字符限制：200 字</span>"
response.Write" </div>  </div>   <div class='nav2'>"
response.Write"<div class='left-content'></div><div class='right-content'><label>"
response.Write"<input type='submit' name='Submit' value=' 保存更改 '></label></div>  "
response.Write"</div>    </div></form>"
rs1.close  
End Function
'------------------------------------------------------------------
Function CindexId()
response.Write"<div class='right-content'><div style='float:right;margin-left:20px; width:210px;'>"
response.Write"<img src='images/ad.gif' width='210' height='210'></div>"
response.Write" <h3>您好，"&request.Cookies("username")&" </h3>"
response.Write" 圈子地区："
call addone()
response.Write" <br />"
response.Write" 类型："
call xxone()
response.Write"<br />"
response.Write" 成员数量："
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&"")
response.Write" 人<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"))&"分<br />"
response.Write" 进入主页：<a href="&usertwourl&" target='_blank'>"&usertwourl&"</a><br />"
response.Write"  <hr /> <h3>&nbsp;</h3>  圈子有 <strong class='redtext'>"&rs(""&WebSqlType&"_htc")&"</strong> 人访问了 <br />"
response.Write"<hr /><h3><br />    </div> "
End Function
'--------------------------------------------------------------------
Function CInfoServer()
if request("Submit")="删 除" then
LID=request("LID")
LID=split(LID,",")
for i=0 to UBound(LID)
conn.execute("delete From "&WebSqlType&"_info Where "&WebSqlType&"_infoid="&LID(i))
next
response.Redirect("info.asp?id="&request("id")&"")
end if
End Function
'-------------------------------------------------------------------
Function CInfo()
response.Write"<TABLE cellSpacing=0><TBODY><form name='from' method='post' action='info.asp?id="&id&"'>"
response.Write"<TR><TH width=31>&nbsp;</TH><TH width='543'>"
response.Write"<DIV style='TEXT-ALIGN: left'>信息名称</DIV></TH>"
response.Write"<TH width=129 align='left'><DIV class=th>&nbsp;发布日期</DIV></TH>"
response.Write"<TH width=90><DIV class=th>发布人</DIV></TH><TH width=43><DIV class=th>操作</DIV></TH></TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infoclub="&id&" order by "&WebSqlType&"_infodate 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
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&"_infouser")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else 
user=rs2(""&WebSqlType&"_username")
end if
response.Write"<TR><TD><IMG src='images/pop.gif'>&nbsp;</TD><TD class=td1><SPAN class='graytext right'>"
response.Write"</SPAN> <A href='/quan/"&trim(rs(""&WebSqlType&"_co"))&"/info_view.asp?infoid="&rs1(""&WebSqlType&"_infoid")&""
response.Write"&id="&id&"' target=_blank>"&rs1(""&WebSqlType&"_infotitle")&"</A>" 
response.Write" ("&rs1(""&WebSqlType&"_infoaddone")&"、"&rs1(""&WebSqlType&"_infoaddtwo")&")</TD>"
response.Write"<TD align='left'>&nbsp;"&trim(rs1(""&WebSqlType&"_infodate"))&"</TD>"
response.Write"<TD>"&user&"</TD>"
response.Write"<TD><input type='checkbox' name='LID' value='"&rs1(""&WebSqlType&"_infoid")&"' style='border:0'></TD></TR>"