questiondel.asp

来自「用ASP设计的一个网上问卷系统,用于网上调查问卷系统的实现」· ASP 代码 · 共 29 行

<!--#include file="../Include/Config.asp"-->
<%
dim Survey_id,sql,va
Survey_id=request.QueryString("Survey_id")
Question_id=request.QueryString("Question_id")
i=request.QueryString("i")
sql="delete from [Question] where Question_id="&Question_id
conn.execute(sql)
sql="select Survey_content from [Survey] where Survey_id="&Survey_id
rs.open sql,conn,1,3
Survey_content=split(rs("Survey_content"),",")
Survey_content(i)=""
va=""
for i=0 to ubound(Survey_content)
if not Survey_content(i)="" then
  if va="" then
  va=Survey_content(i)
  else
  va=va&","&Survey_content(i)
  end if
end if
next
rs("Survey_content")=va
rs.update
rs.close
call ShowAlert("删除成功","QuestionList.asp?Survey_id="&Survey_id&"")
%>