admin_article.asp

三鸟个人网站源码。

  <%                                                                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                
rs.close                                                                                                                                                                                                                                                                                                                                                                                    
   set rs=nothing                                                                                                                                                                                                                                                                                                                                                                       
conn.close                                                                                                                                                                                                                                                                                                                            
set conn=nothing                                                                                                                                                                                                                                                                                                                                                                                                        
 %>                                                                                  
                                                           
<%end sub%>                                                       
                                                 
                                                 
                                                                    
                                                                          
<%sub newnote%>                                                   
       <!--#include file="conn.asp"-->                                                                          
<%                                                                          
SQL="SELECT * FROM lanmu where id="&Request.QueryString("classid")                                                                          
Set Rs=conn.Execute(SQL)                                                                          
If Rs.Eof then%>                                                                          
<p align="center">没有栏目</p>                                                                       
  <%else                                                                           
                                                                         
   %>                                         
     <form method="post" action="admin_article.asp?job=upnew&classid=<%=rs("id")%>">                                              
  <table width="86%" border="0" cellspacing="0" cellpadding="0" align="center">                                              
    <tr>                                               
      <td width="19%" height="333" valign="top">
        <div align="center">带*号的为必填项</div>
      </td>                                              
      <td width="73%" height="333" valign="top"> 标题： 
        <input type="text" name="title" size="30" maxlength="100">
        *<br>                                              
        作者：                                               
        <input type="text" name="author" size="20" maxlength="100">                                              
        <br>                                              
        图片描述：                                               
        <input type="text" name="pic" size="30" maxlength="100">                                              
        <br>                                              
        图片URL：                                              
        <input type="text" name="picurl" size="30" maxlength="100">
        <br>
        文章选自： 
        <input type="text" name="fileurl" size="30" maxlength="100">
        <br>                                              
        推荐：是                                              
        <input type="radio" name="tuijian" value="yes">                                              
        /否                                               
        <input type="radio" name="tuijian" value="no" checked>
        <br>                                              
        关键字：                                              
        <input type="text" name="key" size="30" maxlength="100">
        <br>
        内容： *<br>                                              
        <textarea name="content" cols="70" rows="10"></textarea>                                              
       <br>                                            
        <input type="hidden" name="lanmu" value="<%=rs("lanmu")%>">                                            
        <input type="hidden" name="lanmupic" value="<%=rs("lanmupic")%>">                                            
        <input type="hidden" name="lanmuurl" value="<%=rs("lanmuurl")%>">                                            
        <br>                                           
         <p align="center">                                      
          <input type="submit" name="Submit" value="提交">                                     
          <input type="reset" name="Submit2" value="重来">                                     
          <br>                                     
        </p>                                      
      </td>                                              
      <td width="8%" height="333">&nbsp;</td>                                              
    </tr>                                              
  </table>                                              
</form>                                              
 <% rs.close                                                                        
  end if                                                            
end sub%>                                                                          
                                                                          
                                             
                                          
                                          
<%sub upnew                                        
 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 is null)"                                                                                                                                                                                         
rs.open sql,conn,1,3                                                                                                                                                                                                                                                                                                              
rs.addnew                                                                                                                                                                                                                                                                                                              
rs("title")=Request.form("title")                                         
if Request.form("author")<>"" then                                        
	rs("author")=Request.form("author")                                          
end if                                    
 rs("content")=content                                         
 if Request.form("pic")<>"" then                                        
	 rs("pic")=Request.form("pic")                                        
end if                                        
if Request.form("picurl")<>"" then                                        
	 rs("picurl")=Request.form("picurl")                                        
end if                                
if Request.form("fileurl")<>"" then                                        
	rs("fileurl")=Request.form("fileurl")                                          
	end if                                 
	  rs("lanmuid")=Request.QueryString("classid")                                
if Request.form("lanmu")<>"" then                                        
	 rs("lanmu")=Request.form("lanmu")                                         
end if                                          
if Request.form("lanmupic")<>"" then                                        
	rs("lanmupic")=Request.form("lanmupic")                                         
end if                                                                                                                                                                                                                                                                                                     
  if Request.form("lanmuurl")<>"" then                                        
	rs("lanmuurl")=Request.form("lanmuurl")                                         
end if                                
      if Request.form("tuijian")="yes" then                                        
 rs("tuijian")=1                                        
end if                                 
    if Request.form("key")<>"" then                                        
 rs("key")=Request.form("key")                                        
end if                                                                                                                                                                                                                                                                                             
rs("date")=date                                                                                                                                                                                                                                                                                                                            
rs.update                                                                                                                                                                                                                                                                                                           
rs.close                                                                                                                                                                                                                                                                                                                          
      set rs=nothing                                                                                                                                                                                                                                                                                                                  
conn.close                                                                                                                                                                                                                                                                                                                          
     set conn=nothing   %>