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

📄 adminhb.asp

📁 一个不错的论坛原代码
💻 ASP
字号:
🔍 
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->

<body  <%=background%> >
<% if Request.QueryString("mode")="edit" then
id1=chktopic(request.form("id1"))
id2=chktopic(request.form("id2"))
if id1=0 or id2=0 then

response.write "<div class=tdc>错误：请选择好论坛后再提交,请不要选择带+的</div>"
response.end
end if
sql1="select l_topiccount,l_count from lanmu where l_id="&id1&""
set rs1=conn.execute(sql1)
l_topiccount1=rs1("l_topiccount")
l_count1=rs1("l_count")
set rs1=nothing
sql="update lanmu set l_topiccount=l_topiccount+"&l_topiccount1&",l_count=l_count+"&l_count1&" where l_id="&id2&""
conn.execute(sql)
sql="delete l_id from lanmu where l_id="&id1&""
conn.execute(sql)
sql="update  topic  set l_id="&id2&" where l_id="&id1&""
conn.execute(sql)
sql="update  reply  set l_id="&id2&" where l_id="&id1&""
conn.execute(sql) 
response.write "<div class=tdc>论坛合并成功</div>"
response.end
end if


%>

      
       <table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >


                 <tr> 
            <td width="100%" <%=tColor%> class=tdc1 colspan="2">
            <p align="center">合并论坛</td>
          </tr>      <form method="POST" action="?mode=edit">   
                 <tr>
            <td width="40%"  align="center" bgcolor=<%=tColor2%> class=tdc><p align="center">
            将要被合并的论坛</td>
            <td width="80%" bgcolor=<%=tColor2%> class=tdc>
          
              <select size="1" name="id1">
              <option selected value="0">请选择论坛</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="0"> ++<%=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
			 %>          
              </select>(请不要选择带+的)</td>
                 </tr>



          <tr > 
            <td width="40%"  align="center" bgcolor=<%=tColor2%> class=tdc><p align="center">
            合并到论坛</td>
            <td width="80%" bgcolor=<%=tColor2%> class=tdc>
            <select size="1" name="id2">
          <option selected value="0">请选择论坛</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="0"> ++<%=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
			 %>          

            </select>(请不要选择带+的)</td>
       
          </tr>
      
  

                  <tr > 
                      <td width="100%"  align="center" bgcolor=<%=tColor2%> class=tdc colspan="2">
                      <input type="submit" value="提交" name="B1" class=bdtj></td>
          </tr>
                   </form>   </table>
                     
                     
              

<%
 conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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