⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 config.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
🔍 
<%dbdns="../../"%>
<!--#include file="../Include/Conn.asp" -->
<%
id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的用户ID号！"
response.end
end if
'读取圈子信息========================================================================================================== 
set rs=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_club where "&WebSqlType&"_ID="&id
rs.open sql,conn,1,1
if rs.eof then
response.write"<script>alert('对不起，此圈子不存在或已被管理员关闭\n\n如有问题请及时和我们联系');window.open('/index.asp','_self');</script>"
response.end
end if
conn.execute("update "&WebSqlType&"_club set "&WebSqlType&"_htc="&WebSqlType&"_htc+1 where "&WebSqlType&"_id="&id&"")
goname=rs(""&WebSqlType&"_webname")
goid=rs(""&WebSqlType&"_id")
title=trim(rs(""&WebSqlType&"_title"))
'LOGO
if trim(rs(""&WebSqlType&"_pic"))<>"" then
logo="/"&rs(""&WebSqlType&"_pic")
else
logo="/images/gm.gif"
end if
hit=rs(""&WebSqlType&"_htc")
cclub=rs(""&WebSqlType&"_club")
book=rs(""&WebSqlType&"_book")
cement=rs(""&WebSqlType&"_cement")
tdate=rs(""&WebSqlType&"_date")
user=rs(""&WebSqlType&"_user")
username=rs(""&WebSqlType&"_username")

'公共调用类===========================================================================================================
'圈子统计
Function htc(a,b)
sql="select *  from "&a&" where "&b&"="&id&""
set rs1=Server.CreateObject("ADODB.Recordset")                                                    
rs1.open sql,conn,1,1
htc=Rs1.recordcount
rs1.close
response.write(htc)
End Function
'--------------------------------------------------------------
Function Flag()
if trim(rs(""&WebSqlType&"_type"))=0 then
response.write("不开放")
elseif trim(rs(""&WebSqlType&"_type"))=1 then
response.write("开放 申请需要审核")
elseif trim(rs(""&WebSqlType&"_type"))=2 then
response.write("开放 关闭申请")
elseif trim(rs(""&WebSqlType&"_type"))=2 then
response.write("开放 申请无需审核")
end if
End Function
'-------------------------------------------------------------
Function flaguser()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" and "&WebSqlType&"_Cuserid="&clng(request.Cookies("Userid"))&" "
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
flaguser=0
else
flaguser=rs1(""&WebSqlType&"_key")
rs1.close
end if 
End Function
'地区
Function addone()
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 
response.write(rs1(""&WebSqlType&"_addone")&"、"&rs1(""&WebSqlType&"_addtwo"))
end if
End Function
'类型
Function xxone()
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_ypxxone where "&WebSqlType&"_xxone_id="&rs(""&WebSqlType&"_xxone")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then                     
else 
xxone=rs1(""&WebSqlType&"_xxone")
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_ypxxtwo where "&WebSqlType&"_xxtwo_id="&rs(""&WebSqlType&"_xxtwo")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then                     
else 
xxtwo=rs1(""&WebSqlType&"_xxtwo")
end if
response.write(xxone&"、"&xxtwo)
End Function
'----------------------------------------------------------------------------------------------------------------------------
Function zx()
user = Request.Cookies("UserID") 
total = application("user") 
If InStr(total,user) = 0 Then 
application.lock 
application("user") = total & ";" & user 
application.unlock 
End If
Cuser=application("user")
response.write("<meta http-equiv='refresh' content='500'>") 
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&""
rs1.open sql1,conn,1,1
n=0
do while not rs1.eof
n=n+1
if ubound(split(Cuser,trim(rs1(""&WebSqlType&"_Cuserid"))))<>0 then
response.write("<li style='width:45%;'>"&rs1(""&WebSqlType&"_Cuser")&"</li>")
end if
rs1.movenext
loop
rs1.close
End Function
'---------------------------------------------------------------------------------------------------------------------------
'成员信息
Function htcuser(a,b)
set rs1=server.createobject("adodb.recordset")
sql="select top "&b&" * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" and "&WebSqlType&"_key="&a&"  order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td>还没有内容</td></tr>"
else 
n=0
response.write("<table width='100%' border='0' cellpadding='0' cellspacing='0'>")
do while not rs1.eof
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_Cuserid")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else 
ucuser=rs2(""&WebSqlType&"_username")
if rs2(""&WebSqlType&"_pic")<>"" then
ucpic=rs2(""&WebSqlType&"_pic")
else
ucpic="images/mm.gif"
end if
ucreal=rs2(""&WebSqlType&"_realname")
ucxxone=rs2(""&WebSqlType&"_taojin2008")
end if
rs2.close
response.write("<tr ><td align='center' style='padding-bottom:10px;'>")
response.write("<a href='/space/index.asp?id="&rs1(""&WebSqlType&"_Cuserid")&"' target='_blank'><img src='/"&ucpic&"' border='0' width='60' height='60'></a>")
response.write("</td><td style='padding-bottom:10px;line-height:18px;'>")
response.write(""&ucuser&" <br>积分:(<span class='smalltext'>"&ucxxone&"</span>)<br>")
response.write("<a href='/jiaoyou/index.asp?username="&rs1(""&WebSqlType&"_Cuserid")&"' target='_blank'>发消息</a> | <a href='/jiaoyou/haoyuo.asp?username="&rs1(""&WebSqlType&"_Cuserid")&"' target='_blank'>加为好友</a>")
response.write("</td></tr>")
rs1.movenext
loop
response.write("</table>")
rs1.close
end if 
End Function
'-----------------------------------------------------------------------------------------------------------------------------
'我的信息
Function myuser()
if request.Cookies("UserID")<>"" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_Member where "&WebSqlType&"_id="&request.Cookies("UserID")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then                     
else 
response.write"<h4>我的信息</h4>"
response.write"<div class='my-box'> "
response.write"<table width='83%' border='0' cellpadding='0' cellspacing='0'>"
response.write"<tr><td width='80'><img src='/"
if rs1(""&WebSqlType&"_pic")<>"" then
response.write""&rs1(""&WebSqlType&"_pic")&""
else
response.write"images/mm.gif"
end if
response.write"' width='70' height='70'></td>"
response.write"<td><strong>"&rs1(""&WebSqlType&"_username")&"</strong> <br />"
response.write"积分:<a href='#' class='my-link'>("&rs1(""&WebSqlType&"_"&WebSqlType&"")&")</a><br />"
response.write"等级:"&rs1(""&WebSqlType&"_top")&"<br />"
response.write"人气:"&rs1(""&WebSqlType&"_htc")&"</td>"
response.write"</tr></table>"
response.write"<div class='my-link'>"
response.write"<a href='/space/index.asp?id="&clng(request.Cookies("Userid"))&"' ><img src='images/user-mp.gif' alt='我的空间' border='0'></a> "
response.write"<a href='/space/blog.asp?id="&clng(request.Cookies("Userid"))&"' target='_blank'><img src='images/user-mony.gif' alt='我的博客' border='0'></a>"
response.write"<br />"
response.write"<a href='/space/bbs.asp?id="&clng(request.Cookies("Userid"))&"' target='_blank'><img src='images/user-topic.gif' alt='我的话题' vspace='2' border='0'></a> "
response.write"<a href='/space/photo.asp?id="&clng(request.Cookies("Userid"))&"' target='_blank'><img src='images/user-pic.gif' alt='我的相册' vspace='2' border='0'></a>"
response.write"<div style='margin-top:10px'>"
response.write"<img src='images/post.gif' align='absmiddle'>"
if request("action")="mdel" then
conn.execute("delete from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&request.Cookies("userid")&" and "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_key<>1")
response.Redirect("index.asp?id="&request("id")&"")
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" and "&WebSqlType&"_Cuserid="&clng(request.Cookies("Userid"))&""
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
response.write"<a href='/group/Cmember.asp?Cid="&id&"&Ctitle="&rs(""&WebSqlType&"_title")&"&type="&rs(""&WebSqlType&"_type")&"' class='greentext' target='_blank'>还不是成员，请加入圈子！</a>	"
else
'response.write"<a href='#' class='greentext' target='_blank'>您己经是本圈子成员了！</a>	"
response.write"<a href='index.asp?id="&id&"&action=mdel' class='greentext'>您己经是本圈子成员了,退出</a>	"
rs2.close
end if 
response.write"</div></div ></div>"
end if
rs1.close
end if
End Function
'----------------------------------------------------------------------------------------------------------------------------
Function bottom()
response.write(" <div id='bot'>copyright 2008 Www.TaoJin2008.Com Limited,All Rights Reserved 版权所有 <a href='http://www.miibeian.gov.cn'  target='_blank'>京ICP备06048022号</a>   <script type='text/javascript' src='http://js.tongji.yahoo.com.cn/1/125/169/ystat.js'></script><noscript><a href='http://js.tongji.yahoo.com.cn'><img src=http://js.tongji.yahoo.com.cn/1/125/169/ystat.gif></a></noscript></div>")
rs.close
End Function
'--------------------------------------------------------------------------------------------------------
'留言管理
Function Cbook(a)
'用户留言信息管理
set rsl=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_key="&a&" and "&WebSqlType&"_htc="&rsb(""&WebSqlType&"_id")&" order by "&WebSqlType&"_id desc"
rsl.open sql,conn,1,1
n=0
do while not rsl.eof
n=n+1
response.write("<TABLE cellSpacing=0 bgcolor='#E6E6E6'>")
response.write("<TBODY>")
response.write("<TR class=td2>")
response.write(" <TD class=td vAlign=top width=160>")
set rsm=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rsl(""&WebSqlType&"_user")&" "
rsm.open sql,conn,1,1
if rsm.eof and rsm.bof then                     
flaguser=0
else
upic=rsm(""&WebSqlType&"_pic")
uuser=rsm(""&WebSqlType&"_username")
ureal=rsm(""&WebSqlType&"_realname")
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("<DIV class=user-info><IMG id=mem onmouseover=showMenu(this.id) ")
response.write("   src='/"&upic&"' width=80 height=80><BR> ")
response.write("<A href='/space/index.asp?id="&rsl(""&WebSqlType&"_user")&"' ")
response.write("  target=_blank><STRONG>"&uuser&"("&ureal&")</STRONG> </A><br>")
response.write(""&ulinks&"")
response.write(" </SPAN> </DIV>")
response.write(" </TD>")
response.write(" <TD class=td vAlign=top align=left><SPAN class=right><SPAN class='bordertext smalltext'>")
response.write(""&n&"楼</SPAN></SPAN>") 
response.write(" <DIV class='title bigtext'>"&rsl(""&WebSqlType&"_title")&"<SPAN class='smalltext graytext'>")
response.write("发表于："&rsl(""&WebSqlType&"_date")&" </SPAN></DIV>")
response.write("<DIV class=bbs-content id=content_1><PRE>"&rsl(""&WebSqlType&"_book")&"</PRE></DIV></TD></TR></TBODY></TABLE>")

rsl.movenext
loop
rsl.close
End Function
'发布留言----------------------------------------------------------------------------------------------
Function Vbookadd(a,b,c,d)
response.write("<H2>回复："&a&"</H2>")
response.write("<FORM id='book' name='leavewordForm' action='server.asp' method='post'>") 
response.write("<INPUT type=hidden value="&b&" name=htc>")
response.write(" <INPUT type=hidden value="&id&" name=id>")
response.write("<INPUT type=hidden value="&c&" name=key>")
response.write(" <INPUT type=hidden value='"&d&"_view.asp?id="&id&"&"&d&"id="&b&"' name='url'>")
response.write("<DIV class=box>")
response.write("<TABLE cellSpacing=0 cellPadding=4 width='100%' border=0 id=#2>")
response.write("<TBODY>")
response.write(" <TR>")
response.write(" <TD align=right width=150><STRONG>标题：</STRONG></TD>")
response.write("  <TD align=left><INPUT id=title maxLength=50 size=60 value=Re："&a&"") 
response.write("  name=title></TD></TR>")
response.write(" <TR>")
response.write("  <TD vAlign=top align=right><STRONG>正文：</STRONG></TD>")
response.write("  <TD align=left><TEXTAREA id=book name=book rows=8 cols=80></TEXTAREA>")
response.write("      </TD>")
response.write("  </TR>")
response.write("  <TR>")
response.write("  <TD></TD>")
response.write("  <TD align=left><INPUT id=postSubmit type=submit value=' 快速回复 ' name=postSubmit> ")
response.write("   <SPAN id=postMsg></SPAN></TD></TR></TBODY></TABLE>")
response.write("</DIV></FORM>")
End Function
'-------------------------------------------------------------------------------------------------------
'网站首页调用
%>
<!--#include file="public/Iconfig.asp"-->
<!--#include file="public/Aconfig.asp"-->
<!--#include file="public/Bconfig.asp"-->
<!--#include file="public/Pconfig.asp"-->
<!--#include file="public/Lconfig.asp"-->
<!--#include file="public/Mconfig.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -