up.asp

一个不错的论坛原代码

e_content=chktopic(trim(request("e_content")))
if e_content="" and  e_title="" then
errormsg="<li>请填写操作理由</li>"
call error(errormsg)
call bq()
response.end
end if
e_content="取消精华主题："&htmlencode(rs("t_title"))&"<BR>结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;<BR>理由:"&e_title&"："&e_content
 sql="select t_username,t_title from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then 
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)

   sqlnum="update topic set t_jinhua=0 where t_id="&chktopic(request("t_id"))&""
    conn.Execute (sqlnum)
sqluser1="update user set fen=fen-"&top_fen&",u_beauty=u_beauty-"&h_topbeauty&",u_money=u_money-"&h_topmoney&" ,u_toptopic=u_toptopic-1 where username='"&e_username&"'"
 conn.Execute (sqluser1)
 
 
          if request("p_send")="1" then
    p_content=chktopic(request("p_content"))
    admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被取消精华,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
 sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
        conn.Execute(sqlpm)
        end if
      
        sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)
 succmsg="<LI>主题取消精华完成</LI><li><a href=list.asp?l_id="&request.querystring("l_id")&">返回前论坛</a></li>"
call succ(succmsg)
end if
    else
 if request.querystring("mode")="" then 
sql="select t_title from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then%>
    
<div align="center">
  <center> 
 <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse">
<form action=up.asp?l_id=<%=request.querystring("l_id")%>&t_id=<%=chktopic(request("t_id"))%>&action=jinhua&mode=do METHOD="POST" name="form1"><tr>
<td class=tdc1 colspan="3" <%=tColor%> height=22> 
<p align="center">添加主题"<%=htmlencode(rs("t_title"))%>" 到精华
　</td>

 </tr>
   <%call even()%>
 <td align="left" class=tdc bgcolor=<%=tcolor2%>>
      　</td>
 </tr>

  <tr height=20>
<td class=tdc bgcolor=<%=tcolor2%> align="right"> 

操作   </td><td class=tdc bgcolor=<%=tcolor2%> align="left"> 
	  <select name="e_title1" size=1 class=bdtj3>
<option value="2" selected>允许回复</option>
<option value="1">不允许回复</option>

	  </select>&nbsp;

 </td>



<td align="left" class=tdc bgcolor=<%=tcolor2%>>
       &nbsp;<input type="submit" name="Submit" value="确认"   class=bdtj >　</td>
 </tr>
 
  <tr height=20>
<td class=tdc bgcolor=<%=tcolor2%> align="right" colspan="3"> 

<p align="center">
<br><br>
    <a href=javascript:history.go(-1)> << 返回上一页</a>
<br><br>
<a href=list.asp?l_id=<%=request.querystring("l_id")%>>返回前论坛</a>

    <br>
</td>

 </tr>

 </table>
  </center>
</div>


    <%end if
set rs=nothing
else
e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
e_title1=chktopic(trim(request("e_title1")))
if e_content="" and  e_title="" then
errormsg="<li>请填写操作理由</li>"
call error(errormsg)
call bq()
response.end
end if
e_content="添加精华主题："&htmlencode(rs("t_title"))&"<BR>结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;<BR>理由:"&e_title&"："&e_content
 sql="select t_username,t_title from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then 
e_username=rs("t_username")
e_title=rs("t_title")
end if
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)


    sqlnum="update topic set t_jinhua="&e_title1&" where t_id="&chktopic(request("t_id"))&""
    conn.Execute (sqlnum)
 sqluser1="update user set fen=fen+"&top_fen&",u_beauty=u_beauty+"&h_topbeauty&",u_money=u_money+"&h_topmoney&" ,u_toptopic=u_toptopic+1 where username='"&e_username&"'"
 conn.Execute (sqluser1)
 
    if request("p_send")="1" then
    p_content=chktopic(request("p_content"))
    admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被加入精华,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
 sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
        conn.Execute(sqlpm)
        end if
      
        sqluser1="update user set fen=fen+"&e_fen&",u_beauty=u_beauty+"&e_beauty&",u_money=u_money+"&e_money&" where username='"&e_username&"'"
conn.Execute (sqluser1)

 succmsg="<LI>主题加入精华完成</LI><li><a href=list.asp?l_id="&request.querystring("l_id")&">返回前论坛</a></li>"
call succ(succmsg)
    end if
    end if
    
    '-------------------------禁止用户--------------
    elseif request.querystring("action")="user" then    
 if request.querystring("mode")="" then 
  sql="select l_lockuser,l_pbuser,l_title from lanmu where l_id="&request.querystring("l_id")&""
 set rs=conn.execute(sql)%>

<div align="center">
  <center> 
 <table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse">
<form action=up.asp?l_id=<%=request.querystring("l_id")%>&t_id=<%=chktopic(request("t_id"))%>&action=user&mode=do METHOD="POST" name="form1"><tr>
<td class=tdc1 colspan="4" <%=tColor%> height=25> 
<p align="center">屏蔽和禁止用户"<%=chktopic(request("username"))%>"在"<%=l_title%>"版块的发言
　</td>

 </tr>
  <tr height=90>
<td class=tdc bgcolor=<%=tcolor2%> align="right" width=20%> 

屏蔽用户：&nbsp;

 </td>

<td align="left" class=tdc bgcolor=<%=tcolor2%> height=70 colspan="2">
&nbsp;<textarea name=l_lockuser rows=5 cols=60 wrap=VIRTUAL class="bdtj3" ><%response.write(rs("l_lockuser"))%></textarea><br>（屏蔽用户在该版块的发言,多用户请用“|”分开）
       </td>

 </tr>
  <tr height=90>
<td class=tdc bgcolor=<%=tcolor2%> align="right" width=20%> 

禁止用户：&nbsp;

 </td>

<td align="left" class=tdc bgcolor=<%=tcolor2%> height=70 colspan="2">
&nbsp;<textarea name=l_pbuser rows=5 cols=60 wrap=VIRTUAL class="bdtj3" ><%response.write(rs("l_pbuser"))%></textarea><BR>（禁止用户在该版块的发言权,多用户请用“|”分开）
       </td>

 </tr>
<%call even%>
            <td valign=top bgcolor=<%=tcolor2%>     
 class=tdc>   
              &nbsp;<input type="submit" name="Submit" value="确认提交"  class=bdtj >
             </td>
          </tr>

 
  <tr height=20>
<td class=tdc bgcolor=<%=tcolor2%> align="right" colspan="3"> 

<p align="center">
<br><br>
    <a href=javascript:history.go(-1)> 返回上一页</a>
<br><br>
<a href=list.asp?l_id=<%=request.querystring("l_id")%>>返回前论坛</a>

    <br>
</td>

 </tr>

 </table>
  </center>
</div>

  <% else
  e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
  l_lockuser=chktopic(request("l_lockuser"))
  l_pbuser=chktopic(request("l_pbuser"))
if e_content="" and  e_title="" then
errormsg="<li>请填写操作理由</li>"
call error(errormsg)
call bq()
response.end
end if

sql="select t_username,t_title from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
if not rs.eof then 
e_username=rs("t_username")
e_title=rs("t_title")
end if

e_content="管理用户："&e_title&"<BR>结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;<BR>理由:"&e_title&"："&e_content
 
set rs=nothing
sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)


 sqluser1="update user set fen=fen+"&top_fen&",u_beauty=u_beauty+"&h_topbeauty&",u_money=u_money+"&h_topmoney&" ,u_toptopic=u_toptopic+1 where username='"&e_username&"'"
 conn.Execute (sqluser1)
 
    if request("p_send")="1" then
    p_content=chktopic(request("p_content"))
    admina=cpbusername
q_content="您因为发表的的主题《"&e_title&"》被屏蔽或者禁止发言或者被取消,[url=topic.asp?l_id="&chktopic(request("l_id"))&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
 sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"
        conn.Execute(sqlpm)
        end if
        
        

  sql="update lanmu set l_pbuser='"&l_pbuser&"',l_lockuser='"&l_lockuser&"' where l_id="&request.querystring("l_id")&""
conn.execute(sql)  

  succmsg="<LI>屏蔽或者禁止发言完成</LI><li><a href=list.asp?l_id="&request.querystring("l_id")&">返回前论坛</a></li>"
call succ(succmsg)
end if

'-----------------移动------------------------------------------
 elseif request.querystring("action")="move" then
     sql="select * from topic where t_id="&chktopic(request("t_id"))&""
 set rs=conn.execute(sql)
 if rs("t_top")=0 and issupermaster=false and ismaster=false then
errormsg="<li>此主题已经总固定，只有管理员和总版主才可以操作</li>"
call error(errormsg)
call bq()
response.end
end if

 if request.querystring("mode")="" then 
  %>
<body  <%=background%> topmargin="30" leftmargin="0" >
<div align="center">
  <center> 
 <table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse">
<form action=up.asp?l_id=<%=request.querystring("l_id")%>&t_id=<%=chktopic(request("t_id"))%>&action=move&mode=do METHOD="POST" name="form1"><tr>
<td class=tdc1 colspan="3" <%=tColor%> height=22> 
<p align="center">移动当前主题"<%=htmlencode(rs("t_title"))%>"
　</td>

 </tr>
    <%call even()%>
 <td align="left" class=tdc bgcolor=<%=tcolor2%>>
      　</td>
 </tr>  <tr height=20>
<td class=tdc bgcolor=<%=tcolor2%> align="right"> 

移动到：&nbsp;

 </td>

<td align="left" class=tdc bgcolor=<%=tcolor2%> height=30>
<%sqllanmu="select  * from lanmu where l_id="&request.querystring("l_id")&""
set rslanmu=conn.execute(sqllanmu)%>
       &nbsp;
       <select name="l_id" class=bdtj3>
            <option value="<%=rslanmu("l_id")%>" selected >&nbsp;&nbsp;├<%=rslanmu("l_title")%></option>
<% sqlfen="select f_id,f_title from fenlei order by f_num asc"
set rsfen=conn.execute(sqlfen)
do while not rsfen.eof%>
           <option value="<%=rslanmu("l_id")%>"> ++<%=rsfen("f_title")%>++</option>
            <%sql_lanmu1="select * from lanmu where f_id="&rsfen("f_id")&""
set rs_lanmu1=conn.execute(sql_lanmu1)
%>
               <% do while not rs_lanmu1.Eof %>
      
      <option value="<%=rs_lanmu1("l_id")%>">&nbsp;&nbsp;├<%=rs_lanmu1("l_title")%></option>
      
      <%rs_lanmu1.MoveNext 
        Loop
        set rs_lanmu1=nothing
       
        rsfen.movenext
			loop
			set rsfen=nothing
			 set rslanmu=nothing%>  </select>  
       
 </td>

<td align="left" class=tdc bgcolor=<%=tcolor2%>>
       &nbsp;<input type="submit" name="Submit" value="确认"   class=bdtj >　</td>
 </tr>
 
  <tr height=20>
<td class=tdc bgcolor=<%=tcolor2%> align="right" colspan="3"> 

<p align="center">
<br><br>
    <a href=javascript:history.go(-1)> << 返回上一页</a>
<br><br>
<a href=list.asp?l_id=<%=request.querystring("l_id")%>>返回前论坛</a>

    <br>
</td>

 </tr>

 </table>
  </center>
</div>

  <% else
  e_money=chktopic(trim(request("e_money")))
e_beauty=chktopic(trim(request("e_beauty")))
e_fen=chktopic(trim(request("e_fen")))
e_title=chktopic(trim(request("e_title")))
e_content=chktopic(trim(request("e_content")))
  l_id1=chktopic(request.form("l_id"))
  if l_id1=chktopic(request.querystring("l_id")) then
  errnum=1
   errormsg="<li>请不要在相同论坛间移动</li>"
   end if 
if e_content="" and  e_title="" then
errnum=1
errormsg=errormsg&"<li>请填写操作理由</li>"
end if
if errnum=1 then
call error(errormsg)
call bq()
response.end
end if


e_content="移动主题："&htmlencode(rs("t_title"))&"<BR>结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;<BR>理由:"&e_title&"："&e_content
 sql="select * from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
e_username=rs("t_username")
e_title=rs("t_title")


sql="insert into even (e_lanmu,e_topic,e_ip,e_time,e_content,e_username,e_admin) values ("&chktopic(request("l_id"))&","&chktopic(request("t_id"))&",'"&o_ip&"','"&nowtime&"','"&e_content&"','"&e_username&"','"&cpbusername&"')"
conn.execute(sql)


sql1="select l_title from lanmu where l_id="&chktopic(request.querystring("l_id"))&""
set rs1=conn.execute(sql1)
l_title=rs1("l_title")
set rs1=nothing
t_id=rs("t_id")
t_replynum=rs("t_replynum")
l_id2=rs("l_id")
t_title=htmlencode(rs("t_title"))&"-"&cpbusername&"移-"
t_lastedit1="<br><i>本主题由 "& cpbusername & "于 " & nowtime &"从"&l_title&"论坛转移到此</i>"
set rs=nothing
 
  sqlnum="update topic set l_id="&l_id1&" ,t_title='"&t_title&"',t_lastedit='"&t_lastedit1&"' where t_id="&chktopic(request("t_id"))&""
    conn.Execute (sqlnum)
   t_lastedit1="<br><i>本回复由 "& cpbusername & "于 " & nowtime &"从"&l_title&"论坛转移到此</i>"
sqlnum="update reply set t_lastedit='"&t_lastedit1&"' where t_id="&chktopic(request("t_id"))&""
   conn.Execute (sqlnum)
   sql1="update lanmu set l_topiccount=l_topiccount-1,l_count=l_count-"&t_replynum&" where l_id="&l_id2&""
   conn.execute(sql1)
   sql1="update lanmu  set l_topiccount=l_topiccount+1,l_count=l_count+"&t_replynum&" where l_id="&l_id1&""
   conn.execute(sql1)
   
    if request("p_send")="1" then
    p_content=chktopic(request("p_content"))
    admina=cpbusername
q_content="您发表的的主题《"&e_title&"》被移动,[url=topic.asp?l_id="&l_id1&"&t_id="&chktopic(request("t_id"))&"]地址[/url]"&chr(10)&"结果：经验："&e_fen&";;;魅力："&e_beauty&";;;金钱："&e_money&";;;"&chr(10)&"以下为操作者对你的留言:"&p_content&""
q_title="系统信息"
 sqlpm="insert into pm (q_receive,q_title,q_content,q_send) values('"&e_username&"','"&q_title&"','"&q_content&"','"&admina&"')"