polladdsave.asp

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

<%'申请
if request("pid")="" then 
   pid=""
else
'修编
   pid=request("pid")
end if

title=Trim(request.form("title"))
voteselect=Trim(request.form("voteselect"))
if Request.form("title")<>"" then
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=Server.CreateObject("ADODB.recordset")

if pid<>"" then
	sql="select * from descrip where id=" & pid
	rs.Open sql,conn,1,3
else
	sql="select * from descrip"
	rs.Open sql,conn,1,3
	rs.addnew
end if

rs("title")=title
rs("flag")=voteselect
rs.Update
pid=rs("ID")
rs.close
for i=1 to 10
	if Request("pitem"&i)<>"" then
		sql="select * from items where pid="&pid&" and pitem="&i
		rs.Open sql,conn,1,3
		if rs.eof or rs.bof then rs.addnew
		rs("pid")=pid
		rs("pitem")=i
		rs("pitemtext")=Request("pitem"&i)
		rs.Update
		rs.close
	end if
next
conn.close
set rs=nothing
set conn=nothing
end if     
response.Redirect "pollman.asp"
%>