admin_article.asp

三鸟个人网站源码。

       <p align="center">文章已经添加到数据库中！</p>                                
        <p align="center"><a href="admin_article.asp?job=new&classid=<%=Request.QueryString("classid")%>">新文章</a></p>                                
<%end sub%>                                  
                  
                                                                 
<%sub delnote%>                           
   <% if Request.QueryString("del")="" then %>                        
   <p align="center"><a href="admin_article.asp?job=del&id=<%=Request.QueryString("id")%>&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 article where ID="&Request.QueryString("ID")                                                                                                                                  
rs.open sql,conn,1,3                                                                                                    
conn.close                        
theurl="admin_article.asp?job=list&classid="&Request.QueryString("classid")                    
Response.Redirect theurl                     
end if                      
end sub%>                                  
                                      
                              
 <%sub editnote%>                    
  <!--#include file="conn.asp"-->                                                                          
<%                                                                          
                                                                      
  sql="SELECT * FROM article where id="&Request.QueryString("id")                   
  Set Rs=conn.Execute(SQL)                                                                         
   %>                                         
     <form method="post" action="admin_article.asp?job=upedit&id=<%=rs("id")%>">                                              
  <table width="86%" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td colspan="3" height="333"> 标题： 
        <input type="text" name="title" size="30" maxlength="100" value="<%=rs("title")%>">
        *<br>
        作者： 
        <input type="text" name="author" size="20" maxlength="100" value="<%=rs("author")%>">
        <br>
        图片描述： 
        <input type="text" name="pic" size="30" maxlength="100" value="<%=rs("pic")%>">
        <br>
        图片URL： 
        <input type="text" name="picurl" size="30" maxlength="100" value="<%=rs("picurl")%>">
        <br>
        文章选自： 
        <input type="text" name="fileurl" size="30" maxlength="100" value="<%=rs("fileurl")%>">
        <br>
        推荐：是 <%if rs("tuijian")=1 then %> 
        <input type="radio" name="tuijian" value="yes" checked>
        /否 
        <input type="radio" name="tuijian" value="no">
        <%else%> 
        <input type="radio" name="tuijian" value="yes">
        /否 
        <input type="radio" name="tuijian" value="no" checked>
        <%end if%> <br>
        关键字： 
        <input type="text" name="key" size="30" maxlength="100" value="<%=rs("key")%>">
        <br>
        内容： *<br>
        <%                
        content=replace(rs("content"),"<br>",chr(13))                                                                                                                                                                                      
     content=replace(content,"&nbsp;"," ")   %> 
        <textarea name="content" cols="70" rows="10"><%=content%></textarea>
        <p align="center"> 
          <input type="submit" name="Submit" value="提交">
          <input type="reset" name="Submit2" value="重来">
        </p>
      </td>
    </tr>
  </table>                                              
</form>                                              
 <%    rs.close                                                     
end sub%>                          
                  
                                                                  
  <%sub upedit            
 if Request.form("title")="" then                                        
	response.write "没有标题！"                                        
	response.end                                        
	end if                                        
	if Request.form("content")="" then                                        
	response.write "没有内容！"                                        
	response.end                                          
	end if                                          
	%>                                          
   <!--#include file="conn.asp"-->                                           
                                                                                                                                                                                               
         <%                                                                                                                 
         content=htmlencode2(request.form("content"))                                                                                                                                                                                              
          set rs=server.createobject("adodb.recordset")                                           
          sql="select * from article where id="&Request.QueryString("id")                                                                                                                                                                                          
rs.open sql,conn,1,3                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                         
rs("title")=Request.form("title")                                         
if Request.form("author")<>"" then                                        
	rs("author")=Request.form("author")                                          
end if                                    
 rs("content")=content                                         
                                   
	 rs("pic")=Request.form("pic")                                        
                  
	 rs("picurl")=Request.form("picurl")                                        
                                      
	rs("fileurl")=Request.form("fileurl")                                          
                              
	           
      if Request.form("tuijian")="yes" then                                        
 rs("tuijian")=1            
 else           
  rs("tuijian")=0                                      
end if                                 
     if Request.form("key")="" then                                           
 rs("key")="||"       
 else     
   rs("key")=Request.form("key")                          
      end if                                                                                                                                                                                                                                                                                                        
rs.update                                                                                                                                                                                                                                                                                                           
rs.close                                                                                                                                                                                                                                                                                                                          
      set rs=nothing                                                                                                                                                                                                                                                                                                                  
conn.close                                                                                                                                                                                                                                                                                                                          
     set conn=nothing   %>                                                                                                                                                                                          
       <p align="center">文章已经修改！</p>                
                                        
<%end sub%>    
</div>
</body>                                                                              
</html>