club.asp

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

Function CbbsSortServer()
if request("action")="add" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_LogCSort"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_Logtitle")=request("sort")
rs(""&WebSqlType&"_Logclub")=request("cid")
rs.update
rs.close
response.Redirect("bbssort.asp?id="&clng(request("cid"))&"&error=yes")
end if
if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logid=" & request("id"))
conn.execute("delete from "&WebSqlType&"_log where "&WebSqlType&"_sort='"&request("sort")&"'")
response.Redirect("bbssort.asp?id="&clng(request("cid"))&"&error=yes")
end if
'---------------------------------------------------------------------------------------------
if request("action")="edit" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logid="&clng(request("id"))&""
rs.open sql,conn,1,3
rs(""&WebSqlType&"_Logtitle")=request("esort")
rs.update
rs.close
response.Redirect("bbssort.asp?id="&clng(request("cid"))&"&error=yes")
end if
End Function
'---------------------------------------------------------------------------------------------
Function CbbsSortTitle()
response.Write"<span class='tags'><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()' class='selectTag'>话题设置</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></span>"
End Function
'--------------------------------------------------------------------------------------------
Function CbbsSort()
if request("cid")<>"" then
response.Write"<form name='thisForm' action='bbssort.asp?action=edit' method='post'>"
response.Write"<input name='cid' type='hidden' value='"&id&"'> "
response.Write"<input name='id' type='hidden' value='"&request("cid")&"'> "
response.Write"<div class='nav2'><div class='left-content'><strong>修改分类:</strong></div>"
response.Write"<div class='right-content'><label><input name='Esort' type='text' id='Esort' value='"&request("sort")&"'>"  
response.Write" <input type='submit' name='Submit' value=' 保存更改 '> </label>"
response.Write"  </div>   </div> </form>  </div>"
else
response.Write"<form name='thisForm' action='bbssort.asp?action=add' method='post'>"
response.Write"<input name='cid' type='hidden' value="&id&"> <div class='content'>"
response.Write"<div class='left-content'><strong>添加分类:</strong></div>"
response.Write"<div class='right-content'><label><input name='sort' type='text' id='sort'>"
response.Write" <input type='submit' name='Submit2' value=' 添 加 '>"
response.Write"</label>   </div>  </div></form> "
end if
response.Write"<table width='800' border='0' cellspacing='0' cellpadding='0'><tr><td height='10'></td> </tr>"
response.Write"</table><table width='95%' height='0' border='0' align='center' cellpadding='0' cellspacing='0'"
response.Write" bordercolorlight='#cccccc' bordercolordark='#FFFFFF'><tr align='center'> "

sql="select *  from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logclub="&id&" order by "&WebSqlType&"_Logdate desc"
set rs1=Server.CreateObject("ADODB.Recordset")                                                    
rs1.open sql,conn,1,1 
	if (rs1.eof and rs1.bof) then
	response.write "<td height=20 colspan=3>暂无内容</td>"
else                                                 
n=0                                                   
do while not rs1.eof
n=n+1
response.Write"<td width='10%' height='25' class='STYLE2'>"&rs1(""&WebSqlType&"_Logtitle")&" "
response.Write"<a href='bbssort.asp?id="&id&"&cid="&rs1(""&WebSqlType&"_Logid")&"&sort="&rs1(""&WebSqlType&"_Logtitle")&"'>"
response.Write"<font color=red>修改</font></a><a href='bbssort.asp?cid="&id&""
response.Write"&id="&rs1(""&WebSqlType&"_Logid")&"&sort="&rs1(""&WebSqlType&"_Logtitle")&"&action=del'>删除</a></td>"
if n mod 6=0 then response.write"</tr><tr align=center>"
rs1.movenext                                             
loop   
end if                                   
rs1.close                                             
set rs1=nothing
response.Write"</tr></table><table width='800' border='0' cellspacing='0' cellpadding='0'><tr>"
response.Write"<td height='10'></td></tr></table>"
End Function
'-----------------------------------------------------------------------------
Function CEditServer()
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&"_title")=request("title")
rs(""&WebSqlType&"_pic")=request("pic")
rs(""&WebSqlType&"_word")=request("word")
'rs(""&WebSqlType&"_size")=request("size")
rs(""&WebSqlType&"_book")=request("book")
if request("xxone_id")<>"" then
rs(""&WebSqlType&"_xxone")=request("xxone_id")
end if
if request("xxtwo_id")<>"" then
rs(""&WebSqlType&"_xxtwo")=request("xxtwo_id")
end if
if request("addone_id")<>"" then
rs(""&WebSqlType&"_addone")=request("addone_id")
end if
if request("addtwo_id")<>"" then
rs(""&WebSqlType&"_addtwo")=request("addtwo_id")
end if
rs.update
rs.close
response.Redirect("edit.asp?id="&clng(request("id"))&"&error=yes")
end if
End Function
'------------------------------------------------------------------------------
Function CEditTitle()
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()' class='selectTag'>档案设置</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></span>"
End Function
'------------------------------------------------------------------------------
Function CEdit()
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='edit.asp?action=edit' method='post'>"
response.Write"<input name='id' type='hidden' value="&rs1(""&WebSqlType&"_id")&">"
response.Write"<div id='wrap2'><div style='float:right;margin-left:20px; width:210px;'>"
response.Write" 现有logo<br /><img src='/"&rs1(""&WebSqlType&"_pic")&"' style='width:120px;'>  </div>"
if request("error")="yes" then
response.Write"<div class='ontent'><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>圈子LOGO:</strong></div>"
response.Write"<div class='right-content'><label><input name='pic' type='text' id='pic2' size='40'"
response.Write" value="&rs1(""&WebSqlType&"_pic")&">"
response.Write" <input type='button' name='Submit2' value='上传图片'"
response.Write" onClick=""window.open('/TaoJinJbwPic_2.asp?formname=thisForm&editname=pic&uppath=2007/"&request.Cookies("username")&"&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')""></LABEL>" 
response.Write"<span class='graytext'>不修改留空(宽：120 不超过150K)</span></div> " 
response.Write"</div><div class='content'><div class='left-content'><strong>圈子名称:</strong></div>"
response.Write"<div class='right-content'><label><input name='title' type='text' id='title' onChange=""chechr(this,false)"" onKeyUp=""chechr(this,false)"" value='"&rs1(""&WebSqlType&"_title")&"' size='30'  maxlength='20'>"
response.Write"</label> * <span class='graytext'>不能包含特殊字符号，长度3-10之间</span></div>  "
response.Write"</div>  <div class='content'><div class='left-content'><strong>圈子地区:</strong></div>"
response.Write"<div class='right-content'>"

 set rs3=server.createobject("ADODB.Recordset")
 sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
rs3.open sql,conn,1,1
response.Write"<script language = 'JavaScript'>"
response.Write"var onecount1;"
response.Write"onecount1=0;"
response.Write"subcat1 = new Array();"
count = 0
do while not rs3.eof
response.Write"subcat1["&count&"] = new Array("""&trim(rs3(""&WebSqlType&"_addtwo"))&""","""&trim(rs3(""&WebSqlType&"_addone_id"))&""","""&trim(rs3(""&WebSqlType&"_addtwo_id"))&""");"
count = count + 1
rs3.movenext
loop
rs3.close
response.Write"onecount1="&count&";"
response.Write"function changelocation1(addone)"
response.Write"    {"
response.Write"    document.thisForm .addtwo_id.length = 0;" 
response.Write"  var addone_id=addone_id;"
response.Write"    var i;"
response.Write"    document.thisForm .addtwo_id.options[0] = new Option('请选择地区(市)','');"
response.Write"    for (i=0;i < onecount1; i++)"
response.Write"        {"
response.Write"           if (subcat1[i][1] == addone)"
response.Write"           { "
response.Write"document.thisForm .addtwo_id.options[document.thisForm .addtwo_id.length] = new Option(subcat1[i][0], subcat1[i][2]);"
response.Write"        }  "      
response.Write"      }"
response.Write"   }"
response.Write" </script>"
response.Write"<select name='addone_id' onChange=""changelocation1(document.thisForm .addone_id.options[document.thisForm .addone_id.selectedIndex].value)"">"
response.Write"<option value=''>请选择省份</option>"
sql="select *  from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs3.open sql,conn,1,1
while not rs3.eof
response.Write"<option value='"&rs3(""&WebSqlType&"_addone_id")&"' "
if rs1(""&WebSqlType&"_addone")=rs3(""&WebSqlType&"_addone_id") then 
response.Write"selected"
end if
response.Write">"&rs3(""&WebSqlType&"_addone")&"</option>"
rs3.movenext
wend
rs3.Close()
response.Write"  </select> <select name='addtwo_id'>"
response.Write"<option value=''>请选择城市</option>"
sql="select *  from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addone_id="&rs1(""&WebSqlType&"_addone")&" order by "&WebSqlType&"_date desc"
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql,conn,1,1
while not rs3.eof
response.Write"<option value='"&rs3(""&WebSqlType&"_addtwo_id")&"' "
if rs1(""&WebSqlType&"_addtwo")=rs3(""&WebSqlType&"_addtwo_id") then
response.Write" selected"
end if
response.Write">"&rs3(""&WebSqlType&"_addtwo")&"</option>"
rs3.movenext
wend
response.Write" </select>    * 不选侧默认 </div></div><div class='content'>"
response.Write"<div class='left-content'><strong>圈子类型:</strong></div><div class='right-content'>"
 set rs3=server.createobject("ADODB.Recordset")
 sql = "select *  from "&WebSqlType&"_ypxxtwo order by "&WebSqlType&"_date desc"
rs3.open sql,conn,1,1
response.Write"<script language = 'JavaScript'>"
response.Write"var onecount;"
response.Write"onecount=0;"
response.Write"subcat = new Array();"
count = 0
do while not rs3.eof
response.Write"subcat["&count&"] = new Array("""&trim(rs3(""&WebSqlType&"_xxtwo"))&""","""&trim(rs3(""&WebSqlType&"_xxone_id"))&""","""&trim(rs3(""&WebSqlType&"_xxtwo_id"))&""");"
count = count + 1
rs3.movenext
loop
rs3.close
response.Write"onecount="&count&";"
response.Write"function changelocation(xxone)"
response.Write"    {"
response.Write"    document.thisForm .xxtwo_id.length = 0; "
response.Write" var xxone_id=xxone_id;"
response.Write"    var i;"
response.Write"    document.thisForm .xxtwo_id.options[0] = new Option('请选择小类','');"
response.Write"    for (i=0;i < onecount; i++)"
response.Write"        {"
response.Write"            if (subcat[i][1] == xxone)"
response.Write"            { "
response.Write" document.thisForm .xxtwo_id.options[document.thisForm .xxtwo_id.length] = new Option(subcat[i][0], subcat[i][2]);"
response.Write"            }   "     
response.Write"        }"
response.Write"    }"
response.Write"  </script>"
response.Write"<select name='xxone_id' onChange=""changelocation(document.thisForm .xxone_id.options[document.thisForm .xxone_id.selectedIndex].value)"">"
response.Write" <option value=''>请选择大类</option>"
sql="select *  from "&WebSqlType&"_ypxxone order by "&WebSqlType&"_date desc"
rs3.open sql,conn,1,1
while not rs3.eof
response.Write"<option value='"&rs3(""&WebSqlType&"_xxone_id")&"' "
if rs1(""&WebSqlType&"_xxone")=rs3(""&WebSqlType&"_xxone_id") then
response.Write" selected"
end if
response.Write">"&rs3(""&WebSqlType&"_xxone")&"</option>"
rs3.movenext
wend
rs3.Close()
response.Write"</select>"
response.Write" <select name='xxtwo_id'>"
response.Write"<option value=''>请选择小类</option>"
sql="select *  from "&WebSqlType&"_ypxxtwo where "&WebSqlType&"_xxone_id="&rs1(""&WebSqlType&"_xxone")&" order by "&WebSqlType&"_date desc"
set rs3=server.createobject("ADODB.Recordset")