polldel.asp

此软件用于网上投票调查 文件不大但很实用

<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
del=request("del")
pid=request("pid")
if del<>"" then
	sql="delete * from items where pid="&pid&" and pitem="&del
else
	sql="delete * from descrip where ID="&pid
	conn.Execute(sql)
	sql="delete * from items where pid="&pid
end if
conn.Execute(sql)
conn.close
set conn=nothing
if del<>"" then
	Response.Redirect "polladd.asp?pid="&request("pid")
else
	Response.Redirect "pollman.asp"
end if%>