问卷调查源码asp
㈠ 求asp在线问卷调查系统源码！
网上到处都有，自己搜索下吧，请人家改改就可以用！
㈡ 可以给我一个问卷调查的源代码嘛有急用 啊
介绍你到网题上看看吧，那里有很多问卷调查的模板，你可以随便打开一个都行，去试试吧，希望可以给你帮助
㈢ 求基于ASP.net,数据库为ACCESS，完整的问卷调查统计源码……（有前台和后台）无限感谢！！！
自己仿照写一个吧 这个还真不好找 呵呵
㈣ 求在线问卷调查的源代码
http://down.chinaz.com/s/16888.asp(php)
http://down.chinaz.com/s/14127.asp(asp)
㈤ 我也在找一个问卷调查系统来研究，我是做java开发的。 可以分享一下你的asp问卷调查系统代码吗
你用java开发，看asp源代码干嘛 给你介绍本书 《java项目开发案例精粹》上面有各种管理系统和查询系统的案例源代码 你改改就可以了 要是真是想看asp代码 这个系列的书还有《asp.net项目开发案例精粹》你可以借鉴一下 这个系列的书图书管一般都有借 希望可以帮到你
㈥ 求一套很好用的“问卷调查系统asp源码”
<%if request("status")="output" then
response.ContentType ="application/vnd.ms-excel "
else
end if
%>
加上这么一句，就能导出excel，不需要什么模块
另外，你说的添加题库，一般这种东西就是用一次，所以都是在数据表中直接调整问题，很少有专门做个问题处理的界面。我有个以前给一个外企做的问卷系统，你需要可以拿去用，不过我不负责帮你改程序，而且这个程序也说不上“很好用”，需要给我留邮箱发给你。
㈦ 谁有在线问卷调查、有奖问答的asp源代码
这个也太简单了吧，连美工都搞定也就1小时。
楼主为什么不自己研究下
网上的源代码也很多，而且功能大多超出了你的需要。
自己Google一下也好
㈧ 谁能给我一个 在线问卷调查asp源代码
http://www.zid.com/download/9244753/part1.rar.htmlhttp://www.zid.com/download/9244754/part2.rar.htmlhttp://www.zid.com/download/9244755/part4.rar.htmlhttp://www.zid.com/download/9244756/part3.rar.html自己去下载。打包好了。
㈨ 求高手给个的网页问卷调查asp 原代码
后台主程序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"-->
%>
㈩ 制作一个问卷调查网页。如何编写asp代码如何和access关联
介绍你到网题看看吧，那是一个不错的在线调查平台，你可以在那里面创建问卷啊，那里给你提供了一个好的问卷调查平台你只要编写问卷就可以了，很方便的，你不妨去试试吧