[ASP]精华代码(7)

日期：2020-05-13 栏目：程序人生 浏览：次

       </td>  
<center>  

         
   </tr>  
</table>  
</form>

2、删除文件del.asp  
<%  
     '这行写连接数据库的代码  
     dim  ID,strID  
     strID=""  
     For  Each    strID  In  Request.Form("TradeName")  
             ID=Cint(strID)  
           if  strID<>""  then  
                   DelRs  =  Server.CreateObject("ADODB.Recordset")  
                 Conn.Execute  "Delete  From  Tbname  where  ID="&Cstr(ID)    
               strID=""  
       end  if  
 Next  

   Conn.Close  
   Set  Conn  =  Nothing  
   Response.Redirect  "成功删除！"  
%>