up.asp

一个不错的论坛原代码

    
    elseif request.querystring("action")="del" then
sql="select t_top,t_title,t_username from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
 if not rs.eof then
 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 

%>

<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=del&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%>>
       &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")))
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)


 sqluser1="update topic set t_lock=2 where t_id="&chktopic(request("t_id"))&""
 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
      set rs=nothing
     end if
    
 %>
 
 <%elseif request.querystring("action")="ts" then
sql="select t_top,t_title,t_username from topic where  t_id="&chktopic(request("t_id"))&""
set rs=conn.execute(sql)
 if not rs.eof then
 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 

%>

<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=ts&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%>>
       &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")))
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)


 sqluser1="update topic set t_lasttime='"&nowtime&"' where t_id="&chktopic(request("t_id"))&""
 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
      set rs=nothing
     end if
    
 '----------关闭
 elseif request.querystring("action")="lock" then
     sql="select t_top,t_title,t_lock from topic where t_id="&chktopic(request("t_id"))&""
 set rs=conn.execute(sql)
 if not rs.eof then
 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 rs("t_lock")=1 then
 if request.querystring("mode")="" then%>
 <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=lock&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%>>
       &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")))
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_lock=0 where t_id="&chktopic(request("t_id"))&""
    conn.Execute (sqlnum)
    
      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%>
 <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=lock&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%>>
       &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")))
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_lock=1 where t_id="&chktopic(request("t_id"))&""
    conn.Execute (sqlnum)   
    
          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
    else
    errormsg="<li>参数错误，无此主题</lI>"
call error(errormsg)
call bq()
response.end
    end if
    '_--------------------------精华----------------------------
    elseif request.querystring("action")="jinhua" then
     sql="select t_jinhua,t_username,t_title from topic where t_id="&chktopic(request("t_id"))&""
 set rs=conn.execute(sql)

 if rs("t_jinhua")<>0 then
 if request.querystring("mode")="" then%>
 <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=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%>>
       &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")))