海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
<%
   
   if request("id")<>"" then
   
   id = Split(Request("id"), ",")

For I=0 To UBound(id)
  set rs=Server.CreateObject("Adodb.Recordset")
  sql="select * from reguser where id="&id(i)
  rs.open sql,conn,1,1
  dim userid
  userid=rs("userid")
  class_id=get_class_id(rs("class_1"))
  set rs=nothing


   

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from trade where username='"&userid&"'"
   rs.open sqltext,conn,3,3
   set rs=nothing


   set rs=server.createobject("adodb.recordset")
   sqltext="delete from product where username='"&userid&"'"
   rs.open sqltext,conn,3,3
   set rs=nothing
 
 
 
   set rst=server.createobject("adodb.recordset")
   sqltext="delete from reguser where id="&id(i)
   rst.open sqltext,conn,3,3
   set rst=nothing
 


   
     '//删除文件       
   ' Set fdel = CreateObject("Scripting.FileSystemObject")    
             ' tempDir = Server.MapPath("../detail/"&class_id&"/"&id(i))
            '  If fdel.FileExists(tempDir) Then
         '  fdel.DeleteFile(tempDir)
      '  end if              
     '  set fdel=nothing
      
  '//删除文件夹       
    Set fdel = CreateObject("Scripting.FileSystemObject")    
                 tempDir = Server.MapPath("../detail/"&class_id&"/"&id(i))
     
    
              If fdel.folderexists(tempDir) Then
      ' If (fdel.folderexists(tempDir)) Then
           fdel.Deletefolder(tempDir)
        end if              
       set fdel=nothing
 
   
      
   
Next  
end if
response.write tempDir
  response.write "<script language='javascript'>" & chr(13)
   response.write "alert('已经成功删除该信息!');" & Chr(13)
 response.write"javascript:history.back();</SCRIPT>"

   %>

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!