SName = "[S_" & PollName & "]" AName = "[A_" & PollName & "]" RName = "[R_" & PollName & "]" Call Main Sub Main If Password < > "WEBPOLL" Then ' 如密码错误返回PollMaker.asp并提示 Response.Redirect "PollMaker.asp?Msg=密码错误，请再试一次。" Exit Sub '从ItemMaker.asp返回 End If If OpType = "Edit" Then ' 编辑或创建调查调查项目 If PollName = "StartPoll" Then If Not newPoll() Then '用户没有给出调查项目的名字 Response.Redirect "PollMaker.asp?Msg=请输入调查项目名字" Exit Sub End If SName = "[S_" & PollName & "]" AName = "[A_" & PollName & "]" RName = "[R_" & PollName & "]" End If ElseIf OpType = "DelResp" Then ' 删除调查项目的已有结果 If PollName = "StartPoll" Then Response.Redirect "PollMaker.asp?Msg=请输入调查项目名字" Exit Sub End If Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "poll" Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Execute "DELETE FROM " & RName Response.Redirect "PollMaker.asp?Msg=已经删除指定调查项目的投票结果" ElseIf OpType = "DelPoll" Then ' 删除整个调查项目 If PollName = "StartPoll" Then Response.Redirect "PollMaker.asp?Msg=不能删除新调查项目" Exit Sub End If Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "poll" Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Execute "DROP TABLE " & SName objConn.Execute "DROP TABLE " & AName objConn.Execute "DROP TABLE " & RName Response.Redirect "PollMaker.asp?Msg=已经删除指定的调查项目。" End If %> (编辑:aniston)
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved 京ICP备14022230号-1,电话/传真：010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址：北京市海淀区远大路20号宝蓝大厦E座704，邮编：100089
