當前位置:首頁 » 操作系統 » 問卷調查源碼asp

問卷調查源碼asp

發布時間: 2022-02-25 04:29:08

㈠ 求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關聯

介紹你到網題看看吧,那是一個不錯的在線調查平台,你可以在那裡面創建問卷啊,那裡給你提供了一個好的問卷調查平台你只要編寫問卷就可以了,很方便的,你不妨去試試吧

熱點內容
安卓上哪裡下大型游戲 發布:2024-12-23 15:10:58 瀏覽:189
明日之後目前適用於什麼配置 發布:2024-12-23 14:56:09 瀏覽:56
php全形半形 發布:2024-12-23 14:55:17 瀏覽:829
手機上傳助手 發布:2024-12-23 14:55:14 瀏覽:733
什麼樣的主機配置吃雞開全效 發布:2024-12-23 14:55:13 瀏覽:830
安卓我的世界114版本有什麼 發布:2024-12-23 14:42:17 瀏覽:711
vbox源碼 發布:2024-12-23 14:41:32 瀏覽:279
詩經是怎麼存儲 發布:2024-12-23 14:41:29 瀏覽:661
屏蔽視頻廣告腳本 發布:2024-12-23 14:41:24 瀏覽:420
php解析pdf 發布:2024-12-23 14:40:01 瀏覽:819