admin_lanmu.asp

三鸟个人网站源码。

    <tr>                      
      <td>&nbsp;</td>                     
    </tr>                     
    <tr>                      
      <td height="42">                      
        <table width="85%" border="0" cellspacing="0" cellpadding="0" align="center">                     
          <tr>                      
            <td width="12%">                      
                                 
            </td>                     
            <td width="29%">                      
              <div align="center">栏目名字</div>                     
            </td>                     
            <td width="24%">                      
              <div align="center">栏目相对URL </div>                     
            </td>                     
            <td width="24%">                      
              <div align="center">栏目LOGO图相对URL</div>                     
            </td>                     
          </tr>                     
          <tr>                      
            <td width="12%">                      
              <div align="center"></div>                     
            </td>                     
            <td width="29%">                      
              <div align="center">                      
                <input type="text" name="lanmu" size="25" maxlength="90">                     
              </div>                     
            </td>                     
            <td width="24%">                      
              <div align="center">                      
                <input type="text" name="lanmuurl" size="25" maxlength="90">                     
              </div>                     
            </td>                     
            <td width="24%">                      
              <div align="center">                      
                <input type="text" name="lanmupic" size="25" maxlength="90">                     
              </div>                     
            </td>                     
          </tr>                     
        </table>                     
      </td>                     
    </tr>                     
    <tr>                      
      <td>                     
        <div align="center">                     
          <input type="submit" name="Subedit" value=" 添   加 ">                     
        </div>                     
      </td>                     
    </tr>                     
  </table>                     
</form>                   
<%end sub%>                  
<%sub upnew               
if Request.form("lanmu")="" or Request.form("lanmuurl")="" or Request.form("lanmupic")="" then               
response.write "表单没有填写完整！"               
	response.end               
end if%>                
  <!--#include file="conn.asp"-->                                                
  <%                                                                                                                                     
      set rs=server.createobject("adodb.recordset")                                       
      sql="select * from lanmu where (id is null)"                                                                                                                                                 
rs.open sql,conn,1,3             
rs.addnew                
rs("lanmu")=Request.form("lanmu")               
rs("lanmuurl")=Request.form("lanmuurl")               
rs("lanmupic")=Request.form("lanmupic")               
rs.update              
rs.close               
%>               
 <p align="center">栏目添加成功！</p>               
<%end sub%>              
           
           
<%sub upedit              
if Request.form("lanmu")="" or Request.form("lanmuurl")="" or Request.form("lanmupic")="" then               
response.write "表单没有填写完整！"               
	response.end               
end if%>                
  <!--#include file="conn.asp"-->                                                
  <%                                                                                                                                     
      set rs=server.createobject("adodb.recordset")                                       
      sql="select * from lanmu where id="&Request.QueryString("classid")                                                                                                                                                 
rs.open sql,conn,1,3                
rs("lanmu")=Request.form("lanmu")               
rs("lanmuurl")=Request.form("lanmuurl")               
rs("lanmupic")=Request.form("lanmupic")               
rs.update              
rs.close               
%>          
            
 <!--#include file="conn.asp"-->                                                
  <%                                                                                                                                     
      set rs=server.createobject("adodb.recordset")                                       
      sql="select * from article where lanmuid="&Request.QueryString("classid")                                                                                                                                                 
rs.open sql,conn,1,3          
If not Rs.Eof then                                                                                              
                                                                                            
  do while not rs.eof                
rs("lanmu")=Request.form("lanmu")               
rs("lanmuurl")=Request.form("lanmuurl")               
rs("lanmupic")=Request.form("lanmupic")               
rs.update         
rs.movenext                                                                                                                                                                                                                                                                                                       
 loop           
end if            
rs.close               
%>          
           
 <p align="center">栏目修改成功！</p>               
<%end sub%>          
<%sub dellanmu%>                                   
   <% if Request.QueryString("del")="" then %>                                
   <p align="center"><a href="admin_lanmu.asp?job=del&del=yes&classid=<%=Request.QueryString("classid")%>">确定删除</a></p>                                  
 
<%elseif Request.QueryString("del")="yes" then %> <!--#include file="conn.asp"--> <%                                                                                                                              
                                 
                                                                                                                                          
 set rs=server.createobject("adodb.recordset")                         
       sql="delete from lanmu where ID="&Request.QueryString("classid")                                                                                                                                   
rs.open sql,conn,1,3   
theurl="admin_lanmu.asp"                           
Response.Redirect theurl                             
end if                              
end sub%>  
  
</div>
</body>                                                                                                     
</html>