admin_article.asp

手机短信息传情（直接发送到手机） 内含5000条各类短信息 演示：http://www.96966.net.cn 下载：http://www.96966.net.cn/sms.rar 前几年的

              上一页&nbsp;<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>                                                                                                                                                                                                                                                                                                                                                                                   
              <% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>                                                                                                                                                                                                                                                                                                                                                                                                                 
              <A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> &nbsp;                                                                                                                                                                                                                                                                                                                                                                                           
          <A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>                                                                                                                                                                   
          <% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>                                                                                                                                                                                                                                                                                                                                                                                                                 
              <A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A>&nbsp;下一页                                                                                                                                                                                                                                                                                                                                                                                                                 
              <% end if%>  &nbsp;页次：<%=CurrentPage%>/<%=RS.PageCount%>页&nbsp;                                                                                                                                                                                                                                                                                                                                                                                           
          <%=Rs.PageSize%>条记录/页&nbsp;                                                                                                                                                                                                                                                                                                                                                                                                
                            </div>                                                                                                                                                                                                                    
  <%else%>                                                                                                                                                                                                                      
  <p align="center">没有短信！</p>                                                                                                                                                                                                                                                                 
  <%end if%>                                                                                                                                                                                                                                 
  <%                                                                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                
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"> 短信内容： 
        <textarea name="title" cols="70"></textarea>
        *<br>                                              
        短信分类：                                               
        <input name="author" type="text" value="<%=rs("lanmu")%>" size="20" maxlength="100">                                              
        <br>                                              
        <br>
        编号：
        <input name="content2" type="text" value="随机" size="4">                                              
       <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