Question

求高手给个的网页问卷调查asp 原代码

我是新手 要在网页上做个问卷调查 很简单的那种 提个问题 回答 是\不是\ 无所谓 然后能看到结果 就行 求高人指点下下 最好把代码给我 好改动 谢谢谢谢

Answer 1

后台主程序admin_wjdc.asp~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<!--#include file="Ft_admin_conn.asp"-->
<!--#include file="../inc/Ft_format.asp"-->
<!--#include file="Ft_admin_top.asp"-->
<%
'AdminLogin()
'call AdminPower(8,0)
'dim page,vtname,startdate,expiredate,vt_id,itemname,itemcount,item_id,currentvotename
'dim rs2,currentpage,totalvote,totalpages,i,vt_color,vt_title,titlecolor,currentvote
'if request.querystring("page")<>"" then
'page=CheckSql("投票分页",request.querystring("page"),0,8)
'end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody" align="center">
<td class="td_title" width="50%" ><a href="admin_wjdc.asp?action=addtopic"><font color="#ffffff">新增问卷主题</font></a></td>
<td class="td_title" width="50%" ><a href="admin_wjdc.asp?action=list"><font color="#ffffff">问卷管理</font></a></td>
</tr>
</table>
<br>
<%
'==================================
'=功 能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
case "list" '问卷主题列表
call addtopiclist()
case "addtopic" '添加问卷主题
call addtopic()
case "edittopic" '编辑问卷主题
call edittopic()
case "mxtopic" '查看问卷明细
call mxtopic()
case "additem" '添加问卷主题的调查项目
call additem()
case "edititem" '编辑问卷选项主题
call edititem()
case "additemson" '添加项目的选项
call additemson()
Case "edititemson" '编辑项目的选项
Call edititemson()
Case "deltopic" '删除主题
Call deltopic()
Case "delitem" '删除主题项目
Call delitem()

Case "delitemson" '删除主题项目选项
Call delitemson()
Case "nr" '删除主题项目选项
Call nr()
Case "fb" '发布主题
Call fb()
case else
call addtopiclist()
End Select

'==================================
'=过 程 名：addtopic()
'=功 能：新添问卷主题
'==================================
Sub addtopic()
dim wj_topic,currentvote
If request("addtopic")="true" then
wj_topic=CheckSql("问卷主题",request.form("wj_topic"),1,50)
sql="select * from Ft_wjdctopic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("wj_topic")=wj_topic
rs("wj_date")=Now()
rs("anyone")=request("anyone")
rs.update
rs.close:set rs=nothing
response.redirect "?action=list"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">新增问卷主题</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">主题名称</td>
<td width="87%"><input type="text" name="wj_topic" size="30" maxlength="50">
<INPUT TYPE="radio" NAME="anyone" value="1">关闭匿名问卷
</td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定新增" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="addtopic" value="true">
</td>
</tr>
</form>
</table>
<%End Sub
'==================================
'=过 程 名：addtopiclist()
'=功 能：问卷主题列表
'==================================
sub addtopiclist()

sql="select * from Ft_wjdctopic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">

<tr class="tablebody">
<td colspan="3" class="td_title">问卷列表</td>
</tr>

<tr class="tablebody">
<td width="13%" align="center">id</td>
<td width="60%" align="center">主题</td>
<td width="27%" align="center"></td>
</tr>
<%do while not rs.eof and not rs.bof%>
<tr class="tablebody" align="center">
<td width="13%" align="center"><%=rs("topic_id")%><%If rs("stat")=1 then%><font size="2" color="red">(已发布)<font><%End if%></td>
<td width="60%" align="center"><%=rs("wj_topic")%></td>
<td width="27%" align="center">
<a href="?topic_id=<%=rs("topic_id")%>&action=mxtopic"class="submit">查看明细 </a>

<a href="?topic_id=<%=rs("topic_id")%>&action=edittopic"class="submit">编辑 </a> <a href="?topic_id=<%=rs("topic_id")%>&action=deltopic" class="submit">删除 </a>  
<a href="?topic_id=<%=rs("topic_id")%>&action=fb" class="submit"> 发布 </a></td>
</tr>
<%rs.movenext
loop
rs.close:set rs=nothing
%>
</table>
<%
end sub

'==================================
'=过 程 名：edittopic()
'=功 能：编辑问卷主题
'==================================
sub edittopic()
if request.form("editaddtopic")="true" Then
sql="select * from Ft_wjdctopic where topic_id="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("wj_topic")=request("wj_topic")
rs.update
rs.close:set rs=nothing
response.redirect "?action=list"
end if
sql="select * from Ft_wjdctopic where topic_id="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">编辑问卷主题</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong> 在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">主题名称</td>
<td width="87%"><input type="text" name="wj_topic" size="30" maxlength="50" value="<%=rs("wj_topic")%>"></td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定编辑" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="topic_id" value="<%=rs("topic_id")%>"><%rs.close:set rs=nothing%>
<input type="hidden" name="editaddtopic" value="true"></td>
</tr>
</form>
</table>
<%
end if
end Sub
'==================================
'=过 程 名：mxtopic()
'=功 能：查看问卷明细
'==================================
sub mxtopic()

sql="select * from Ft_wjdctopic where topic_id="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="select * from Ft_wjitem where idtopic="&request("topic_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,3

%>

<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="3" class="td_title">问卷列表</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">主题</td>
<td width="60%" align="center"><%if not rs.eof and not rs.bof then%><%=rs("wj_topic")%><%end if%></td>
<td width="27%" align="center">
<a href="?topic_id=<%=rs("topic_id")%>&action=additem"class="submit"> 添加问卷项目 </a>  
</td>
</tr>
<%i=1
do while not rs2.eof
sql="select * from Ft_wjitemson where iditem="&rs2("item_id")
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,3
%>
<tr class="tablebody">
<td width="13%" align="center">项目明细<%=i%></td>
<td width="60%" align="left">

<%=rs2("wj_item")%> <%If rs2("item_stat")<>"" Or rs2("item_stat2")<>"" then%>
<a href="?action=nr&item_id=<%=rs2("item_id")%>&topic_id=<%=rs("topic_id")%>">查看其他</a>
<%End if%>
<%j=1
Do While Not rs3.eof%>
<br>
(选项<%=j%>) <%=rs3("wj_itemson")%> <a href="?topic_id=<%=rs("topic_id")%>&itemson_id=<%=rs3("itemson_id")%>&action=edititemson">编辑</a>/<a href="?topic_id=<%=rs("topic_id")%>&itemson_id=<%=rs3("itemson_id")%>&action=delitemson">删除</a> 票数：<%=rs3("wj_count")%>
<%
rs3.movenext
j=j+1
Loop
rs3.close:set rs3=nothing
%>
</td>
<td width="27%" align="center">
<a href="?topic_id=<%=rs("topic_id")%>&item_id=<%=rs2("item_id")%>&action=additemson"class="submit"> 添加选项 </a>  
<a href="?topic_id=<%=rs("topic_id")%>&item_id=<%=rs2("item_id")%>&action=edititem"class="submit"> 编辑 </a>  
<a href="?topic_id=<%=rs("topic_id")%>&item_id=<%=rs2("item_id")%>&action=delitem"class="submit"> 删除 </a>  
</td>
</tr>
<%i=i+1
rs2.movenext
loop
%>
<%
rs.close:set rs=Nothing
rs2.close:set rs2=Nothing

%>
</table>
<%
end sub

'==================================
'=过 程 名：additem()
'=功 能：添加问卷项目
'==================================
Sub additem()
If request("additem")="true" Then
' wj_item=CheckSql("问卷项目",request.form("wj_item"),1,50)
'idtopic=request("idtopic")
sql="select * from Ft_wjitem"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("wj_item")=request("wj_item")
rs("idtopic")=request("idtopic")
rs("item_stat")=request("c1")
rs("item_stat2")=request("c2")
rs.update
rs.close:set rs=nothing
response.redirect "?action=mxtopic&topic_id="&request("idtopic")
end if%>

<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">新增问卷项目</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">项目名称
</td>
<td width="87%"><input type="text" name="wj_item" size="30" maxlength="50">
<input type="radio" name="c1" value="1" checked>单选
<input type="radio" name="c1" value="2">多选 |
<input type="radio" name="c2" value="1">"其他"选项
<input type="radio" name="c2" value="2">"自由回答"选项
</td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定新增" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="additem" value="true">
<input type="hidden" name="idtopic" value="<%=request("topic_id")%>">
</td>
</tr>
</form>
</table>
<%End Sub
'==================================
'=过 程 名：additemson()
'=功 能：添加问卷项目
'==================================
Sub additemson()
If request("additemson")="true" Then
' wj_item=CheckSql("问卷项目选项",request.form("wj_itemson"),1,50)
'idtopic=request("idtopic")
sql="select * from Ft_wjitemson"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("wj_itemson")=request("wj_itemson")
rs("idtopic")=request("idtopic")
rs("iditem")=request("iditem")
rs.update
rs.close:set rs=nothing
response.redirect "?action=mxtopic&topic_id="&request("idtopic")
end if%>

<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">新增选项项目</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">选项名称
</td>
<td width="87%"><input type="text" name="wj_itemson" size="30" maxlength="50"></td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定新增" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="additemson" value="true">
<input type="hidden" name="idtopic" value="<%=request("topic_id")%>">
<input type="hidden" name="iditem" value="<%=request("item_id")%>">
</td>
</tr>
</form>
</table><%
End Sub

'==================================
'=过 程 名：edititemson()
'=功 能：编辑问卷项目
'==================================
Sub edititemson()
If request("edititemson")="true" Then
sql="select * from Ft_wjitemson where itemson_id="&request("itemson_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("wj_itemson")=request("wj_itemson")
rs.update
rs.close:set rs=nothing
response.redirect "?action=mxtopic&topic_id="&request("topic_id")
end If

sql="select * from Ft_wjitemson where itemson_id="&request("itemson_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
%>

<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">编辑选项项目</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">项目名称
</td>
<td width="87%"><input type="text" name="wj_itemson" size="30" maxlength="50" value="<%=rs("wj_itemson")%>"></td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定新增" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="edititemson" value="true">

</td>
</tr>
</form>
</table><%End if
End Sub
'==================================
'=过 程 名：edititem()
'=功 能：编辑问卷项目主题
'==================================
Sub edititem()
If request("edititem")="true" Then
sql="select * from Ft_wjitem where item_id="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("item_stat")=request("c1")
rs("item_stat2")=request("c2")
rs("wj_item")=request("wj_item")
rs.update
rs.close:set rs=nothing
response.redirect "?action=mxtopic&topic_id="&request("topic_id")
end If

sql="select * from Ft_wjitem where item_id="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
%>

<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">编辑选项项目</td>
</tr>
<tr class="tablebody">
<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>
</tr>
<tr class="tablebody">
<td width="13%" align="center">项目名称
</td>
<td width="87%"><input type="text" name="wj_item" size="30" maxlength="50" value="<%=rs("wj_item")%>">

<input type="radio" name="c1" value="1" <%If rs("item_stat")=1 then%>checked<%End if%>>单选
<input type="radio" name="c1" value="2"<%If rs("item_stat")=2 then%>checked<%End if%>>多选 |
<input type="radio" name="c2" value="1"<%If rs("item_stat2")=1 then%>checked<%End if%>>"其他"选项
<input type="radio" name="c2" value="2"<%If rs("item_stat2")=2 then%>checked<%End if%>>"自由回答"选项
</td>
</tr>
<tr class="tablebody" align="center">
<td height="30" colspan="2">
<input type="submit" name="submit" value="确定新增" class="submit">
<input type="reset" name="reset" value="清空重填" class="submit">
<input type="hidden" name="edititem" value="true">

</td>
</tr>
</form>
</table><%End if
End Sub
'==================================
'=过 程 名：deltopic()
'=功 能：删除主题
'==================================
Sub deltopic()
sql="delete* from Ft_wjdctopic where topic_id="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="delete* from Ft_wjitem where idtopic="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="delete* from Ft_wjitemson where idtopic="&request("topic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

response.redirect "?action=list"
End Sub
'==================================
'=过 程 名：delitem()
'=功 能：删除主题项目
'==================================
Sub delitem()
sql="delete* from Ft_wjitem where item_id="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="delete* from Ft_wjitemson where iditem="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="delete* from Ft_wjnr where iditem="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

response.redirect "?action=mxtopic&topic_id="&request("topic_id")

End Sub
'==================================
'=过 程 名：delitemson()
'=功 能：删除主题项目选项
'==================================
Sub delitemson()

sql="delete* from Ft_wjitemson where itemson_id="&request("itemson_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

response.redirect "?action=mxtopic&topic_id="&request("topic_id")

End Sub
'==================================
'=过 程 名：nr()
'=功 能：删除主题项目选项
'==================================
Sub nr()

sql="select* from Ft_wjnr where iditem="&request("item_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">其他问卷项目主观部分</td>

</tr><a href="?action=mxtopic&topic_id=<%=request("topic_id")%>">返回</a>
<%k=1
Do While Not rs.eof %>
<tr class="tablebody">
<td colspan="2" height="30"><%=k%>、<%=rs("nr")%>
<hr>
</td>

</tr>
<%rs.movenext
k=k+1
Loop

%>
</form>
</table>
<%

rs.close:set rs=nothing
End Sub
'#####################
'==================================
'=过 程 名：fb()
'=功 能： 发布主题
'==================================
Sub fb()
sql="select* from Ft_wjdctopic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Do While Not rs.eof
rs("stat")=0
rs.update
rs.movenext
loop
rs.close:set rs=Nothing

sql="select* from Ft_wjdctopic where topic_id="&request("topic_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,3
rs2("stat")=1
rs2("wj_date")=Now()
rs2.update
rs2.close:set rs2=Nothing
response.redirect "?action=list"
End Sub
'<!--#include file="Ft_admin_bottom.asp"-->

%>