<%
quer=request("quer")
id=request("id")
paths=request("path")
if quer=1 then %>
<%
connstr = "DBQ="+server.mappath("26#SD_Qdatabase/#freSQ#_Es.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data WHERE id = "&id&""
Conn.Open connstr
rs1.Open sql,conn,1,1
title=rs1("title")
content=rs1("content")
mail=rs1("mail")
tel=rs1("tel")
fax=rs1("fax")
names=rs1("name")
zip=rs1("zip")
lxr=rs1("lxr")
tel=rs1("tel")
address= rs1("address")
rs1.close
conn.close %>
<% if picflag=0 then
set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
a =server.mappath(paths)
set delfile = MyFileObject.getfile(a)
delfile.Delete
end if
%>
<%
Conn.Open connstr
conn.Execute "delete from data where data.id="&id&""
conn.close
%>
<% end if %>
易职网-中国猎头服务品牌机构
全国电话：010-84640157
邮箱：