bconfig.asp

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

<%

'------------------------------------------------------------------------------------------------------------------
'论坛分类
Function bbssort()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logclub="&id&" order by "&WebSqlType&"_Logdate desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<LI>没有内容"
else 
n=0
do while not rs1.eof
response.write("  <LI><A href='bbs.asp?sort="&rs1(""&WebSqlType&"_Logtitle")&"&action=bbs&id="&id&"'>"&rs1(""&WebSqlType&"_Logtitle")&"</A>")
rs1.movenext
loop
rs1.close
end if
End Function
'------------------------------------------------------------------------------------------------------------------
'论坛正文
Function cbbs()
set rs1=server.createobject("adodb.recordset")
if request("sort")<>"" then
sql="select * from "&WebSqlType&"_log where "&WebSqlType&"_club="&id&" and "&WebSqlType&"_sort='"&request("sort")&"' order by "&WebSqlType&"_z desc, "&WebSqlType&"_j desc"
else
sql="select * from "&WebSqlType&"_log where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_z desc, "&WebSqlType&"_j desc"
end if
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<table height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
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
if n mod 2=0 then
ac="td2"
else
ac="td"
end if
if trim(rs1(""&WebSqlType&"_aj"))=1 then
keyj="加精"
else
keyj=""
end if
if trim(rs1(""&WebSqlType&"_az"))=1 then
keyz="|置顶"
else
keyz=""
end if
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_key=4 and "&WebSqlType&"_htc="&rs1(""&WebSqlType&"_id")&""
set rs0=Server.CreateObject("ADODB.Recordset")                                                    
rs0.open sql,conn,1,1
bhtc=Rs0.recordcount
rs0.close
response.Write("<TABLE cellSpacing=0>")
response.Write("<TBODY>")
response.Write("<TR class="&ac&">")
response.Write(" <TD class=td width=18>")
response.Write("<A href='bbs_view.asp?id="&id&"&bbsid="&rs1(""&WebSqlType&"_id")&"&action=bbs' target=_blank>")
response.Write("<IMG src='images/folder.gif' border=0></A></TD>")
response.Write(" <TD width='613' align=left class=td><SPAN class=right2><font color='#006600'>")
response.Write(""&rs1(""&WebSqlType&"_sort")&"</font></SPAN>")
response.Write("<A href='bbs_view.asp?id="&id&"&bbsid="&rs1(""&WebSqlType&"_id")&"&action=bbs'>"&rs1(""&WebSqlType&"_title")&"</A>")
response.Write(" <SPAN class='spage smalltext'>"&keyj&""&keyz&"</SPAN></TD>")
response.Write("<TD class=td align=center width=113>")
response.Write(" <A href='/space/index.asp?id="&rs1(""&WebSqlType&"_user")&"' target=_blank>"&rs1(""&WebSqlType&"_username")&"</A> </TD>")
response.Write(" <TD class='smalltext td graytext' width=79>"&rs1(""&WebSqlType&"_htc")&"/<SPAN class=redtext>"&bhtc&"</SPAN></TD>")
response.Write("<TD class='smalltext td graytext' align=left width=145>"&rs1(""&WebSqlType&"_Ndate")&"</TD></TR></TBODY></TABLE>")
rs1.movenext
i=i+1 
j=j-1
loop
response.Write("<DIV class=page><SPAN class=right>")
filename="bbs.asp?id="&id&"&action=bbs"
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("</SPAN>&nbsp;</DIV>")
rs1.close
end if
End Function
'--------------------------------------------------------------------------------------------------------
'论坛添加
Function bbsaddserver()
if request("action")="add" then
call flaguser()
if flaguser=0 or flaguser=4 then
Response.Write "<script>alert('发布信息出错，下面是产生错误的可能原因：\n\n·对不起，您没有权限在本圈子发布信息');history.go(-1);</Script>"
Response.End 
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_log"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_sort")=request("zhuti")
rs(""&WebSqlType&"_lj")=request("lj")
rs(""&WebSqlType&"_book")=request("book")
rs(""&WebSqlType&"_club")=request("id")
'rs(""&WebSqlType&"_addone_id")=request("addone_id")
'rs(""&WebSqlType&"_addtwo_id")=request("addtwo_id")
rs(""&WebSqlType&"_user")=request.Cookies("UserID")
rs(""&WebSqlType&"_username")=request.Cookies("UserName")
rs.update
rs.close
conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_Taojin2008="&WebSqlType&"_Taojin2008+"&cint(trim(Chtcs(1)))&" where "&WebSqlType&"_id="&request.Cookies("UserID"))
conn.execute("update "&WebSqlType&"_club set "&WebSqlType&"_club="&WebSqlType&"_club+"&cint(trim(Cprice(2)))&" where "&WebSqlType&"_id="&request("id"))
response.Redirect("bbs.asp?id="&request("id")&"")
response.End()
end if
End Function
'------------------------------------------------------
'内容
Function bbsadd()
response.Write"<form name='thisForm' action='bbs_add.asp?action=add' method='post' onsubmit='return ckok();'>"
response.Write"<input name='id' type='hidden' value='"&id&"'>"
response.Write"<DIV id=wrap2>"
response.Write"<H2>发布新贴</H2>"
response.Write"<DIV class=box>"
response.Write"<DIV class=content>&nbsp;</DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>标题:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL><input name='title' type='text' id='title' size='40'>"
response.Write" </LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>分类:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
response.Write"<INPUT name=zhuti type=radio value='默认分类'>默认分类"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logclub="&id&" order by "&WebSqlType&"_Logdate desc"
rs2.open sql,conn,1,1
n=0
while not rs2.eof
n=n+1
response.Write"<INPUT name=zhuti type=radio value='"&rs2(""&WebSqlType&"_Logtitle")&"' "
if n=1 then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_Logtitle") 
rs2.movenext
wend
rs2.Close()
response.Write"</LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>来自:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL><select name='lj' id='lj'>"
response.Write"    <option value='原创'>原创</option>"
response.Write"    <option value='转载'>转载</option>"
response.Write"  </select>"
response.Write"    </LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>正文:</STRONG></DIV>"
response.Write"<DIV class=content-r><INPUT type='hidden' name='book' value=''><IFRAME ID='eWebEditor1'"
response.Write" SRC='../../Webs2008/ewebeditor.asp?id=book&style=web2008' FRAMEBORDER='0' SCROLLING='no'"
response.Write" WIDTH='550' HEIGHT='350'></IFRAME>"
response.Write"</DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l></DIV>"
response.Write"<DIV class=content-r><LABEL> <INPUT type=submit value=' 确认提交 ' name=Submit> </LABEL>"
response.Write"<SPAN id=postMsg></SPAN></DIV></DIV></DIV>"
response.Write"<DIV class=cl></DIV></DIV></FORM>"
End Function
'论坛修改
Function bbseditserver()
'---------------------------------------------------------------------------------------------
if request("action")="edit" then
call flaguser()
if flaguser=0 or flaguser=4 then
Response.Write "<script>alert('发布信息出错，下面是产生错误的可能原因：\n\n·对不起，您没有权限在本圈子发布信息');history.go(-1);</Script>"
Response.End 
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_log where "&WebSqlType&"_id="&trim(request("bbsid"))&""
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_sort")=request("zhuti")
rs(""&WebSqlType&"_lj")=request("lj")
rs(""&WebSqlType&"_book")=request("book")
'rs(""&WebSqlType&"_club")=request("id")
'rs(""&WebSqlType&"_addone_id")=request("addone_id")
'rs(""&WebSqlType&"_addtwo_id")=request("addtwo_id")
'rs(""&WebSqlType&"_user")=request.Cookies("UserID")
'rs(""&WebSqlType&"_username")=request.Cookies("UserName")
rs.update
rs.close
response.Redirect("bbs_view.asp?id="&request("id")&"&bbsid="&trim(request("bbsid"))&"")
end if
End Function
'修改内容
Function bbsEdit()
set rsb=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_log where "&WebSqlType&"_id="&trim(request("bbsid"))
rsb.open sql,conn,1,1
response.Write"<form name='thisForm' action='bbs_edit.asp?action=edit' method='post' onsubmit='return ckok();'>"
response.Write"<input name='id' type='hidden' value='"&id&"'>"
response.Write"<input name='bbsid' type='hidden' value='"&request("bbsid")&"'>"
response.Write"<DIV id=wrap2>"
response.Write"<H2>发布新贴</H2>"
response.Write"<DIV class=box>"
response.Write"<DIV class=content>&nbsp;</DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>标题:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL><input name='title' type='text' id='title' value='"&rsb(""&WebSqlType&"_title")&"'"
response.Write" size='40'>"
response.Write"    </LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>分类:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_LogCSort where "&WebSqlType&"_Logclub="&id&" order by "&WebSqlType&"_Logdate desc"
rs2.open sql,conn,1,1
n=0
while not rs2.eof
n=n+1
response.Write"<INPUT name=zhuti type=radio value='"&rs2(""&WebSqlType&"_Logtitle")&"'"
if rsb(""&WebSqlType&"_sort")=rs2(""&WebSqlType&"_Logtitle") then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_Logtitle")
rs2.movenext
wend
rs2.Close()
response.Write"</LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>正文:</STRONG></DIV>"
response.Write"<DIV class=content-r><INPUT type='hidden' name='book'"
response.Write" value='"&server.HTMLEncode(rsb(""&WebSqlType&"_book"))&"'>"
response.Write"<IFRAME ID='eWebEditor1' SRC='../../Webs2008/ewebeditor.asp?id=book&style=web2008'"
response.Write" FRAMEBORDER='0' SCROLLING='no' WIDTH='550' HEIGHT='350'></IFRAME>"
response.Write"</DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l></DIV>"
response.Write"<DIV class=content-r><LABEL> <INPUT type=submit value=' 确认修改 ' name=Submit> </LABEL>"
response.Write"<SPAN id=postMsg></SPAN></DIV></DIV></DIV>"
response.Write"<DIV class=cl></DIV></DIV></FORM>"
rsb.close
End Function
'---------------------------------------------------------------------------------
'论坛终极页
Function bbsdel()
if request("action")="del" then
LID=request("bbsid")
conn.execute("delete From "&WebSqlType&"_log Where "&WebSqlType&"_id="&LID)
conn.execute("delete From "&WebSqlType&"_book Where "&WebSqlType&"_htc="&LID)
response.Redirect("bbs.asp?id="&request("id")&"")
response.End()
end if
End Function
'---------------------------------------------------------------------------------
'修改删除标题
Function bbstitle()
response.Write"<A href='#2'>回复</A>" 
response.Write"   | <A href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.Write"bbs_edit.asp?id="&id&"&bbsid="&request("bbsid")&""
else
response.Write"#"
end if
response.Write"'>修改</A>" 
response.Write"    | <A  href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.Write"bbs_view.asp?id="&id&"&bbsid="&request("bbsid")&"&action=del"
else
response.Write"#"
end if
response.Write"'>删除</A></SPAN>"
End Function
'---------------------------------------------------------------------------------------------------
'发布人用户信息读取
Function userbbs()
set rsm=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rsb(""&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")
umx=rsm(""&WebSqlType&"_"&WebSqlType&"")
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
response.write"<DIV class=user-info><IMG id=mem onmouseover=showMenu(this.id)" 
response.write"      src='/"&upic&"' "
response.write"   width=120><BR> <A "
response.write"    href='/space/index.asp?id="&rsb(""&WebSqlType&"_user")&"' "
response.write"     target=_blank><STRONG>"&uuser&"("&ureal&")</STRONG> </A><BR>"
response.write"<SPAN  class=graytext> "&ulinks&"  </SPAN> </DIV>"
end if
End Function
%>