delwebhy.asp

这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站

<!--#include file="superno.asp"--> 
<!--#include file="filetouuser.asp"-->
<!--#include file="path.inc"--> 
<!--#include file="rs\name.ini"--> 

<%

lr=REQUEST.form("c1")
lr=replace(lr," ","")
lr1=replace(lr,",","' or 真实姓名 = '")
lr1="真实姓名='"&lr1&"'"
sql1 ="delete from user1 where "&LR1
conn.execute sql1,0,-1


lr1=replace(lr,",","' or 名称 = '")
lr1="名称='"&lr1&"'"
sql ="delete from user where "&LR1
'conn1.execute sql,0,-1
'set conn1=nothing

Set Conn2=Server.CreateObject("ADODB.Connection")   '**************88链接到RS/NAME库
Connstr="DBQ="+server.mappath("rs\name.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn2.Open connstr 

Set Conn3=Server.CreateObject("ADODB.Connection")   '**************88链接到BBS/BBSDB库
Connstr="DBQ="+server.mappath("../BBS/BBSDB.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn3.Open connstr 
conn3.execute sql,0,-1
SET CONN3=NOTHING


lr1=replace(lr,",","' or 姓名 = '")
lr1="姓名='"&lr1&"'"
    sql="select  id,姓名 from name where "&lr1&" order by id "
  '  Response.Write sql
    Set rs=Server.CreateObject("ADODB.RecordSet")                        
    rs.Open sql,conn2,1,3
    do while not rs.eof
      sql="drop table name"&rs("id")
      conn2.execute sql,0,-1
      sql="drop table ly"&rs("id")
      conn.execute sql,0,-1
      
      
      namelist=replace(namelist,","&rs("姓名")&",",",")
      rs.delete
      rs.update
   rs.move 0,1
    loop
rs.close
set conn1=nothing
inilr="<"&"%"&chr(13)&chr(10)&"namelist="&chr(34)&namelist&chr(34)&chr(13)&chr(10)&"%"&">"
set fs=createobject("scripting.filesystemobject")
set ts=fs.createtextfile(""&patha&"rs/name.ini",true)
ts.writeline(inilr)
ts.close
set fs=nothing
set conn=nothing




 response.redirect  "hyzx~abc1.asp"
 
%>