del.asp

ASP和ACCESS编写的工程管理系统.rar

<%content=request.QueryString("content")
value=request.QueryString("value")
kk=left(content,(len(content)-1))
%>
<%dim strConn
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db.mdb")+";Persist Security Info=False"
set rs=server.createobject("adodb.recordset")
tmpstr=replace(kk,",","','")
tmpsql="delete from "&value&" where 项目名称 in ('"&tmpstr&"')"
response.Write(tmpsql)
conn.execute tmpsql%> 
<%response.Redirect("分项目.asp?value="&value&"")%>