club.asp

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

rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<TR><TD class=page colSpan=5>"
response.Write"<input name='chkall' type='checkbox' id='chkall' value='select'"
response.Write" onClick=""CheckAll(this.form)"" style='border:0'>全选　　"
response.Write"<input type='submit' name='submit' value='删 除'>&nbsp;</TD>"
response.Write" </TR><TR bgcolor='#CCCCCC'><TD colSpan=5 class=page>"
filename="info.asp?id="&id&""
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"</TD></TR>"
rs1.close
end if
response.Write"</form> </TBODY></TABLE>"
End Function
'-------------------------------------------------------------------------------
Function CKeyServer()
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&"_index")=request("index")
rs(""&WebSqlType&"_type")=request("type")
'rs(""&WebSqlType&"_webpic")=request("webpic")
'rs(""&WebSqlType&"_bpic")=request("bpic")
rs.update
rs.close
response.Redirect("key.asp?id="&clng(request("id"))&"&error=yes")
end if
End Function
'-------------------------------------------------------------------------------
Function CKeyTitle()
response.Write"<span class='tags'>"
response.Write"<a href='key.asp?id="&id&"' onfocus='this.blur()' class='selectTag'>属性设置</a>"
response.Write"<a href='edit.asp?id="&id&"' onfocus='this.blur()' >档案设置</a>"
response.Write"<a href='gg.asp?id="&id&"' onfocus='this.blur()' >公告设置</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 Ckey()
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&id
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql,conn,1,1
if trim(rs1(""&WebSqlType&"_index"))<>"" then
Cindex=split(rs1(""&WebSqlType&"_index"),",")
else
Cindex=split("10,10,10,10,10,10,10,10",",")
end if
response.Write"<form name='form' action='key.asp?action=edit' method='post'>"
response.Write"<input name='id' type='hidden' value='"&rs1(""&WebSqlType&"_id")&"'>"
if request("error")="yes" then
response.Write"<div id='wrap2'><div class='content'><div class='left-content'><strong>信息提示:</strong></div>"
response.Write"<div class='right-content'><span class='graytext'>圈子属性设置设置成功!</span>"
response.Write"</div>  </div></div>"
else
response.Write"<div id='wrap2'><div class='content'><div class='left-content'><strong>设置域名:</strong></div>"
response.Write"<div class='right-content'><label>"
response.Write"http://<input name='webname' type='text' id='webname' value='"
response.Write""&rs1(""&WebSqlType&"_webname")&"' size='20' maxlength='12' readOnly>" 
response.Write"."&WebSqlType&".Com </label>"
response.Write"<span class='graytext'>输入圈子的二级域名，如：<strong>hello</strong>."&WebSqlType&".Com "
response.Write"(二级域名不少于4个字符)</span></div>  </div><div class='content' style='z-index:2;'>"
response.Write"<div class='left-content'><strong>是否开放:</strong></div><div class='right-content'>"
response.Write"<input type='radio' name='type' value='0' "
if trim(rs1(""&WebSqlType&"_type"))=0 then
response.Write" checked "
end if
response.Write"> 不开放 <span class='graytext'>(只对成员开放，信息不对外显示)</span><br>"
response.Write"<input type='radio' name='type' value='1' "
if trim(rs1(""&WebSqlType&"_type"))=1 then
response.Write" checked "
end if
response.Write">  开放 申请需要审核<span class='graytext'>(允许用户申请加入圈子，需要组长审核，信息对外显示)</span><br>"
response.Write"<input type='radio' name='type' value='2' "
if trim(rs1(""&WebSqlType&"_type"))=2 then
response.Write" checked "
end if
response.Write">  开放 关闭申请 <span class='graytext'>(不允许用户申请加入圈子，信息对外显示)</span><br>"
response.Write"<input type='radio' name='type' value='3' "
if trim(rs1(""&WebSqlType&"_type"))=3 then
response.Write" checked "
end if
response.Write">  开放 申请无需审核 <span class='graytext'>(允许用户申请加入圈子，无需审核，申请既可加入，信息对外显示)</span>"
response.Write"<br></div></div><div class='content' style='z-index:2;'>"
response.Write"<div class='left-content'><strong>显示条数:</strong></div>"
response.Write"<div class='right-content'><label>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"""
response.Write" value='"&trim(Cindex(0))&"' size='4' maxlength='2'> "
response.Write" 首页活动显示<br>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"" "
response.Write"value='"&trim(Cindex(1))&"' size='4' maxlength='2'> 首页贴子显示数<br>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"" "
response.Write"value='"&trim(Cindex(2))&"' size='4' maxlength='2'> "
response.Write" 首页相册显示数<br><input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"""
response.Write" value='"&trim(Cindex(3))&"' size='4' maxlength='2'>	首页分类信息显示数<br>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"" "
response.Write"value='"&trim(Cindex(4))&"' size='4' maxlength='2'>管理员显示数<br>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"" "
response.Write"value='"&trim(Cindex(5))&"' size='4' maxlength='2'> 成员显示数<br>"
response.Write"<input name='index' type='text' id='index' onKeyUp=""value=value.replace(/[^0-9]/g,'');"" "
response.Write"value="&trim(Cindex(6))&" size='4' maxlength='2'> 友情链接显示数<br>"
response.Write"</label></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>  </div>    </div>"
end if
response.Write"</form>"
rs1.close 
End Function
'----------------------------------------------------------------------
Function CLinksServer()
if request("action")="add" then
title = Request("title")
web = Request("web")
set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select * from "&WebSqlType&"_link"
rs1.open sql1,conn,1,3
rs1.addnew
rs1(""&WebSqlType&"_title")=title
rs1(""&WebSqlType&"_web")=web
rs1(""&WebSqlType&"_club")=request("CID")
rs1(""&WebSqlType&"_type")=1
rs1.update
response.Redirect("links.asp?id="&request("cid")&"")
rs1.close
elseif request("action")="edit" then
title = Request("title")
web = Request("web")
set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select * from "&WebSqlType&"_link where "&WebSqlType&"_id="&clng(request("id"))&""
rs1.open sql1,conn,1,3
rs1(""&WebSqlType&"_title")=title
rs1(""&WebSqlType&"_web")=web
rs1.update
response.Redirect("links.asp?id="&request("cid")&"")
rs1.close
elseif request("action")="del" then
conn.execute("delete From "&WebSqlType&"_link Where "&WebSqlType&"_id="&clng(request("id"))&"")
response.Redirect("links.asp?id="&request("cid")&"")
end if
End Function
'----------------------------------------------------------------------------
Function CLinksTitle()
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()' >公告设置</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()'  class='selectTag'>链接设置</a>"
response.Write"<a href='mb.asp?id="&id&"' onfocus='this.blur()' >风格设置</a>"
response.Write"</span>"
End Function
'--------------------------------------------------------------------------
Function CLinks()
if request("doAction")="add" then 
response.Write"<FORM id=form1 name=form1 action=links.asp?action=add&cid="&id&" method=post onSubmit=""return CheckData()"">"
response.Write"<TABLE class=operate cellSpacing=0 cellPadding=2 width='80%' align=center border=0>"
response.Write" <TBODY>  <TR><TH scope=col width='12%'>&nbsp;</TH>"
response.Write"<TH scope=col width='88%'>添加链接</TH></TR><TR><TD>链接名称</TD>"
response.Write"<TD><INPUT id=links_title name=title> </TD></TR><TR><TD>链接地址</TD><TD>"
response.Write"<INPUT id=links_url size=50 value=http:// name=web> </TD></TR><TR>"
response.Write"<TD>&nbsp;</TD><TD> <INPUT class=button  type=submit value=添加 name=Submit3>" 
response.Write"</TD></TR></TBODY></TABLE></FORM>"
elseif request("doAction")="edit" then
response.Write"<FORM id=form1 name=form1 action=links.asp?action=edit&id="&request("cid")&"&cid="&id&" method=post onSubmit=""return CheckData()"">"
response.Write"<TABLE class=operate cellSpacing=0 cellPadding=2 width='80%' align=center border=0>"
response.Write"<TBODY><TR><TH scope=col width='12%'>&nbsp;</TH><TH scope=col width='88%'>修改链接</TH></TR>"
response.Write"<TR><TD>链接名称</TD><TD><INPUT name=title id=links_title value='"&request("title")&"'> </TD></TR>"
response.Write"<TR><TD>链接地址</TD><TD><INPUT id=links_url size=50 value='"&request("web")&"' name=web> </TD></TR>"
response.Write"<TR><TD>&nbsp;</TD><TD> <INPUT class=button  type=submit value=修改 name=Submit3> "
response.Write"</TD></TR></TBODY></TABLE></FORM>"
else
response.Write"<TABLE class=operate cellSpacing=0 cellPadding=2 width='80%' align=center border=0>"
response.Write"<TBODY><TR><TH scope=col width='18%'>链接名称</TH><TH scope=col width='50%'>链接地址 URL </TH>"
response.Write"<TH scope=col width='16%'>编辑</TH><TH scope=col width='15%'>删除</TH></TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_link where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_id desc"
rs1.open sql,conn,1,1
do while not rs1.eof
response.Write"  <TR><TD>"&rs1(""&WebSqlType&"_title")&"</TD><TD>"&rs1(""&WebSqlType&"_web")&"</TD><TD>"
response.Write"<A href='links.asp?doAction=edit&cid="&rs1(""&WebSqlType&"_id")&"&title="&rs1(""&WebSqlType&"_title")&""
response.Write"&web="&rs1(""&WebSqlType&"_web")&"&id="&id&"'>修改</A></TD>"
response.Write"  <TD><A href='links.asp?Action=del&id="&rs1(""&WebSqlType&"_id")&"&cid="&id&"'>删除</A></TD></TR>"
rs1.movenext
loop
rs1.close
response.Write"</TBODY></TABLE>"
end if
End Function
'---------------------------------------------------------------------------
Function CmbServer()
if request("action")="save" then
co=request("template")
if co="" then
errstyle="·对不起，请选择您想更换的模板！"
scripterr
end if
conn.execute("update "&WebSqlType&"_club set "&WebSqlType&"_co='"&co&"' where "&WebSqlType&"_ID="&request("id")&"")
response.redirect(request("url"))
end if
End Function
'---------------------------------------------------------------------------
Function CmbTitle()
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='his.blur()' >档案设置</a>"
response.Write"<a href='gg.asp?id="&id&"' onfocus='this.blur()' >公告设置</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()'  class='selectTag'>风格设置</a>"
response.Write"</span>"
End Function
'---------------------------------------------------------------------------
Function Cmb()
response.Write"<form name='addform' method='post' action='mb.asp?action=save&id="&id&"&url="&usertwourl&"'>"
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='92%' border=0>"
response.Write"<TBODY><TR>"
set rs5=server.createobject("adodb.recordset")
sql5="select * from "&WebSqlType&"_club where "&WebSqlType&"_ID="&id
rs5.open sql5,conn,1,1
co=trim(rs5(""&WebSqlType&"_co"))
rs5.close
set rst=server.createobject("adodb.recordset")
sqlt="select * from "&WebSqlType&"_mb"
rst.open sqlt,conn,1,1
n=0
do while not rst.eof
n=n+1
response.Write"<TD align=middle width='18%'>"
response.Write"<IMG style='BORDER-RIGHT: #999 1px solid; BORDER-TOP: #999 1px solid; BORDER-LEFT: #999 1px solid; BORDER-BOTTOM: #999 1px solid' height=88 "
response.Write"src='/"&rst(""&WebSqlType&"_mbpic")&"' width=100><BR><INPUT name=template type=radio value="&rst(""&WebSqlType&"_mbco")&""
if rst(""&WebSqlType&"_mbco")=co then