问卷星如何添加编码_IT百科

问卷星添加编码：问卷星平台的调查问卷数据，可以直接从后台导入SPSS格式的数据文件，方便你直接使用SPSS对调查问卷数据做数据统计分析。

让用户查看问卷其他人的情况是涉及到问卷的公开级别的问题，目前免费版，只有企业版才能设置问卷的公开级别。设置的话可以在问卷设计——问卷设置的惊醒设置。免费也没有下载答卷的设置，不限答题数，不限回收数量，下载也没有限制。

自助服务：

创建可以在线填写的网络问卷，然后通过微信、短信、QQ、微博、邮件等方式将问卷链接发给好友填写，问卷星会自动对结果进行统计分析，您可以随时查看或下载问卷结果。

1、免费版：完全免费，无限期使用，适合学生或个人用户，可用于各类公开的在线调查、投票、评选、测试、报名、信息登记等。

基础功能：问卷题目数无限制；单份问卷最多可回收10万份答卷；31种题型和跳题、关联逻辑；通过文本格式快速生成问卷；使用预定义主题，让问卷更美观；答卷实时统计与分析；浏览每一份答卷详情。

2、企业版：适合企业、咨询公司、政府机关、高校教师及科研机构。可用于满意度调查、市场调查、人才测评、民意调查、科研课题。支持考试高级功能如题库抽题，考试时间控制等。

后台主程序admin_wjdc.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

<td class="td_title" width="50%" ><a href="admin_wjdc.asp?action=addtopic"><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

<td colspan="2" class="td_title">新增问卷主题</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>

</tr>

<INPUT TYPE="radio" NAME="anyone" value="1">关闭匿名问卷

</td>

</tr>

</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

</tr>

</tr>

<%do while not rs.eof and not rs.bof%>

<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

<td colspan="2" class="td_title">编辑问卷主题</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong> 在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>

</tr>

</tr>

</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

</tr>

<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

<%=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>

<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%>

<td colspan="2" class="td_title">新增问卷项目</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应主题“编辑”功能或“新添选项”，添加问卷选项。</td>

</tr>

<td width="13%" align="center">项目名称

</td>

<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>

</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%>

<td colspan="2" class="td_title">新增选项项目</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>

</tr>

<td width="13%" align="center">选项名称

</td>

</tr>

</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

<td colspan="2" class="td_title">编辑选项项目</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>

</tr>

<td width="13%" align="center">项目名称

</td>

</tr>

</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

<td colspan="2" class="td_title">编辑选项项目</td>

</tr>

<td colspan="2" height="30"><strong>T I P S：</strong>在新添了问卷主题后，应点击相应选项“编辑”功能或“新添选项”，添加选项。</td>

</tr>

<td width="13%" align="center">项目名称

</td>

<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>

</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

<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 %>

<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

'

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/bake/11538629.html

问卷星如何添加编码

发表评论

评论列表（0条）